2007-05-21 17:36:08 +02:00
|
|
|
;; -*- scheme -*-
|
2007-05-23 11:55:21 +02:00
|
|
|
; object definitions
|
2007-05-21 17:36:08 +02:00
|
|
|
|
|
|
|
(define-object AddressEntry
|
|
|
|
(in-module "Sugar")
|
|
|
|
(parent "GtkEntry")
|
|
|
|
(c-name "SugarAddressEntry")
|
|
|
|
(gtype-id "SUGAR_TYPE_ADDRESS_ENTRY")
|
|
|
|
)
|
2007-05-23 11:55:21 +02:00
|
|
|
|
|
|
|
; functions
|
|
|
|
|
|
|
|
(define-function get_mime_type_from_file_name
|
|
|
|
(c-name "sugar_mime_get_mime_type_from_file_name")
|
|
|
|
(return-type "const-char*")
|
|
|
|
(parameters
|
|
|
|
'("const-char*" "filename")
|
|
|
|
)
|
|
|
|
)
|
2007-05-24 12:30:42 +02:00
|
|
|
|
|
|
|
(define-function get_mime_type_for_file
|
|
|
|
(c-name "sugar_mime_get_mime_type_for_file")
|
|
|
|
(return-type "const-char*")
|
|
|
|
(parameters
|
|
|
|
'("const-char*" "filename")
|
|
|
|
)
|
|
|
|
)
|
2007-06-01 20:38:30 +02:00
|
|
|
|
|
|
|
(define-function x11_set_string_property
|
|
|
|
(c-name "sugar_x11_util_set_string_property")
|
|
|
|
(parameters
|
|
|
|
'("GdkWindow*" "window")
|
|
|
|
'("const-char*" "property")
|
|
|
|
'("const-char*" "value")
|
|
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|
|
(define-function x11_get_string_property
|
|
|
|
(c-name "sugar_x11_util_get_string_property")
|
|
|
|
(return-type "char*")
|
|
|
|
(parameters
|
|
|
|
'("GdkWindow*" "window")
|
|
|
|
'("const-char*" "property")
|
|
|
|
)
|
|
|
|
)
|