sugar-toolkit-gtk3/src/sugar3/_sugarext.defs

;; -*- scheme -*-
; object definitions

(define-object KeyGrabber
  (in-module "Sugar")
  (parent "GObject")
  (c-name "SugarKeyGrabber")
  (gtype-id "SUGAR_TYPE_KEY_GRABBER")
)

(define-object Menu
  (in-module "Sugar")
  (parent "GtkMenu")
  (c-name "SugarMenu")
  (gtype-id "SUGAR_TYPE_MENU")
)

(define-object Grid
  (in-module "Sugar")
  (parent "GObject")
  (c-name "SugarGrid")
  (gtype-id "SUGAR_TYPE_GRID")
)

(define-object SMClientXSMP
  (in-module "Egg")
  (parent "EggSMClient")
  (c-name "EggSMClientXSMP")
  (gtype-id "EGG_TYPE_SM_CLIENT_XSMP")
)

(define-object SMClient
  (in-module "Egg")
  (parent "GObject")
  (c-name "EggSMClient")
  (gtype-id "EGG_TYPE_SM_CLIENT")
)

(define-object Session
  (in-module "Gsm")
  (parent "GObject")
  (c-name "GsmSession")
  (gtype-id "GSM_TYPE_SESSION")
)

(define-object Volume
  (in-module "Acme")
  (parent "GObject")
  (c-name "AcmeVolume")
  (gtype-id "ACME_TYPE_VOLUME")
)

(define-object VolumeAlsa
  (in-module "Acme")
  (parent "AcmeVolume")
  (c-name "AcmeVolumeAlsa")
  (gtype-id "ACME_TYPE_VOLUME_ALSA")
)

;; From sugar-menu.h

(define-method set_active
  (of-object "SugarMenu")
  (c-name "sugar_menu_set_active")
  (return-type "none")
  (parameters
    '("gboolean" "active")
  )
)

(define-method embed
  (of-object "SugarMenu")
  (c-name "sugar_menu_embed")
  (return-type "none")
  (parameters
    '("GtkContainer" "container")
  )
)

(define-method unembed
  (of-object "SugarMenu")
  (c-name "sugar_menu_unembed")
  (return-type "none")
)

;; From sugar-grid.h

(define-method setup
  (of-object "SugarGrid")
  (c-name "sugar_grid_setup")
  (return-type "none")
  (parameters
    '("gint" "width")
    '("gint" "height")
  )
)

(define-method add_weight
  (of-object "SugarGrid")
  (c-name "sugar_grid_add_weight")
  (return-type "none")
  (parameters
    '("GdkRectangle*" "rect")
  )
)

(define-method remove_weight
  (of-object "SugarGrid")
  (c-name "sugar_grid_remove_weight")
  (return-type "none")
  (parameters
    '("GdkRectangle*" "rect")
  )
)

(define-method compute_weight
  (of-object "SugarGrid")
  (c-name "sugar_grid_compute_weight")
  (return-type "guint")
  (parameters
    '("GdkRectangle*" "rect")
  )
)

;; From sugar-key-grabber.h

(define-function sugar_key_grabber_get_type
  (c-name "sugar_key_grabber_get_type")
  (return-type "GType")
)

(define-method grab_keys
  (of-object "SugarKeyGrabber")
  (c-name "sugar_key_grabber_grab_keys")
  (return-type "none")
  (parameters
    '("const-char*[]" "keys")
  )
)

(define-method get_key
  (of-object "SugarKeyGrabber")
  (c-name "sugar_key_grabber_get_key")
  (return-type "char*")
  (parameters
    '("guint" "keycode")
    '("guint" "state")
  )
)

(define-method is_modifier
  (of-object "SugarKeyGrabber")
  (c-name "sugar_key_grabber_is_modifier")
  (return-type "gboolean")
  (parameters
    '("guint" "keycode")
    '("guint" "mask" (default "-1"))
  )
)

;; From eggsmclient.h

(define-function egg_sm_client_get_type
  (c-name "egg_sm_client_get_type")
  (return-type "GType")
)

(define-function egg_sm_client_get_option_group
  (c-name "egg_sm_client_get_option_group")
  (return-type "GOptionGroup*")
)

(define-method is_resumed
  (of-object "EggSMClient")
  (c-name "egg_sm_client_is_resumed")
  (return-type "gboolean")
)

(define-method get_state_file
  (of-object "EggSMClient")
  (c-name "egg_sm_client_get_state_file")
  (return-type "GKeyFile*")
)

(define-method set_restart_command
  (of-object "EggSMClient")
  (c-name "egg_sm_client_set_restart_command")
  (return-type "none")
  (parameters
    '("int" "argc")
    '("const-char**" "argv")
  )
)

(define-method startup
  (of-object "EggSMClient")
  (c-name "egg_sm_client_startup")
  (return-type "none")
)

(define-method will_quit
  (of-object "EggSMClient")
  (c-name "egg_sm_client_will_quit")
  (return-type "none")
  (parameters
    '("gboolean" "will_quit")
  )
)

(define-function egg_sm_client_end_session
  (c-name "egg_sm_client_end_session")
  (return-type "gboolean")
  (parameters
    '("EggSMClientEndStyle" "style")
    '("gboolean" "request_confirmation")
  )
)

;; From xsmp.h

(define-function xsmp_init
  (c-name "gsm_xsmp_init")
  (return-type "char*")
)

(define-function xsmp_run
  (c-name "gsm_xsmp_run")
  (return-type "none")
)

(define-function xsmp_shutdown
  (c-name "gsm_xsmp_shutdown")
  (return-type "none")
)

;; From session.h

(define-method set_name
  (of-object "GsmSession")
  (c-name "gsm_session_set_name")
  (return-type "none")
  (parameters
    '("const-char*" "name")
  )
)

(define-method start
  (of-object "GsmSession")
  (c-name "gsm_session_start")
  (return-type "none")
)

(define-method get_phase
  (of-object "GsmSession")
  (c-name "gsm_session_get_phase")
  (return-type "GsmSessionPhase")
)

(define-method initiate_shutdown
  (of-object "GsmSession")
  (c-name "gsm_session_initiate_shutdown")
  (return-type "none")
)

(define-method cancel_shutdown
  (of-object "GsmSession")
  (c-name "gsm_session_cancel_shutdown")
  (return-type "none")
)

(define-method register_client
  (of-object "GsmSession")
  (c-name "gsm_session_register_client")
  (return-type "char*")
  (parameters
    '("GsmClient*" "client")
    '("const-char*" "previous_id")
  )
)

(define-function session_create_global
  (c-name "gsm_session_create_global")
  (return-type "GsmSession*")
)

;; From acme-volume.h

(define-function acme_volume_get_type
  (c-name "acme_volume_get_type")
  (return-type "GType")
)

(define-method get_volume
  (of-object "AcmeVolume")
  (c-name "acme_volume_get_volume")
  (return-type "int")
)

(define-method set_volume
  (of-object "AcmeVolume")
  (c-name "acme_volume_set_volume")
  (return-type "none")
  (parameters
    '("int" "val")
  )
)

(define-method get_mute
  (of-object "AcmeVolume")
  (c-name "acme_volume_get_mute")
  (return-type "gboolean")
)

(define-method set_mute
  (of-object "AcmeVolume")
  (c-name "acme_volume_set_mute")
  (return-type "none")
  (parameters
    '("gboolean" "val")
  )
)

(define-method mute_toggle
  (of-object "AcmeVolume")
  (c-name "acme_volume_mute_toggle")
  (return-type "none")
)

(define-method get_threshold
  (of-object "AcmeVolume")
  (c-name "acme_volume_get_threshold")
  (return-type "int")
)

(define-function acme_volume_new
  (c-name "acme_volume_new")
  (is-constructor-of "AcmeVolume")
  (return-type "AcmeVolume*")
)