000ed75cbe
The old gtk-2 based module will be present in the 0.94 branch in the sugar-toolkit. Signed-off-by: Simon Schampijer <simon@laptop.org> Acked-by: Sascha Silbe <silbe@activitycentral.com>
340 lines
6.2 KiB
Scheme
340 lines
6.2 KiB
Scheme
;; -*- 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*")
|
|
)
|