138 lines
2.5 KiB
Plaintext
138 lines
2.5 KiB
Plaintext
|
;; -*- Mode: scheme; strip on; -*-
|
||
|
;; hand-edited
|
||
|
|
||
|
(define-object App
|
||
|
(in-module "Moo")
|
||
|
(parent "GObject")
|
||
|
(c-name "MooApp")
|
||
|
(gtype-id "MOO_TYPE_APP")
|
||
|
)
|
||
|
|
||
|
|
||
|
;; (define-boxed AppInfo
|
||
|
;; (in-module "Moo")
|
||
|
;; (c-name "MooAppInfo")
|
||
|
;; (gtype-id "MOO_TYPE_APP_INFO")
|
||
|
;; (fields
|
||
|
;; '("char*" "short_name")
|
||
|
;; '("char*" "full_name")
|
||
|
;; '("char*" "description")
|
||
|
;; '("char*" "version")
|
||
|
;; '("char*" "website")
|
||
|
;; '("char*" "website_label")
|
||
|
;; '("char*" "app_dir")
|
||
|
;; '("char*" "rc_file")
|
||
|
;; )
|
||
|
;; )
|
||
|
|
||
|
;; From mooapp.h
|
||
|
|
||
|
(define-function get_instance
|
||
|
(c-name "moo_app_get_instance")
|
||
|
(return-type "MooApp*")
|
||
|
)
|
||
|
|
||
|
(define-method init
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_init")
|
||
|
(return-type "none")
|
||
|
)
|
||
|
|
||
|
(define-method run
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_run")
|
||
|
(return-type "int")
|
||
|
)
|
||
|
|
||
|
(define-method quit
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_quit")
|
||
|
(return-type "gboolean")
|
||
|
)
|
||
|
|
||
|
(define-method set_exit_code
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_set_exit_code")
|
||
|
(return-type "none")
|
||
|
(parameters
|
||
|
'("int" "code")
|
||
|
)
|
||
|
)
|
||
|
|
||
|
;; (define-method get_info
|
||
|
;; (of-object "MooApp")
|
||
|
;; (c-name "moo_app_get_info")
|
||
|
;; (return-type "const-MooAppInfo*")
|
||
|
;; )
|
||
|
|
||
|
(define-method get_rc_file_name
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_get_rc_file_name")
|
||
|
(return-type "const-char*")
|
||
|
)
|
||
|
|
||
|
(define-method get_input_pipe_name
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_get_input_pipe_name")
|
||
|
(return-type "const-char*")
|
||
|
)
|
||
|
|
||
|
(define-method get_output_pipe_name
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_get_output_pipe_name")
|
||
|
(return-type "const-char*")
|
||
|
)
|
||
|
|
||
|
(define-method get_editor
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_get_editor")
|
||
|
(return-type "MooEditor*")
|
||
|
)
|
||
|
|
||
|
(define-function prefs_dialog
|
||
|
(c-name "moo_app_prefs_dialog")
|
||
|
(return-type "none")
|
||
|
(parameters
|
||
|
'("GtkWidget*" "parent")
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(define-function about_dialog
|
||
|
(c-name "moo_app_about_dialog")
|
||
|
(return-type "none")
|
||
|
(parameters
|
||
|
'("GtkWidget*" "parent")
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(define-method get_ui_xml
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_get_ui_xml")
|
||
|
(return-type "MooUIXML*")
|
||
|
)
|
||
|
|
||
|
(define-method set_ui_xml
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_set_ui_xml")
|
||
|
(return-type "none")
|
||
|
(parameters
|
||
|
'("MooUIXML*" "xml")
|
||
|
)
|
||
|
)
|
||
|
|
||
|
(define-method tempnam
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_tempnam")
|
||
|
(return-type "char*")
|
||
|
)
|
||
|
|
||
|
(define-method send_msg
|
||
|
(of-object "MooApp")
|
||
|
(c-name "moo_app_send_msg")
|
||
|
(return-type "gboolean")
|
||
|
(parameters
|
||
|
'("const-char*" "data")
|
||
|
'("int" "len")
|
||
|
)
|
||
|
)
|