guile-gtk-general
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

1.2 misc funcs


From: Kevin Ryde
Subject: 1.2 misc funcs
Date: Fri, 09 Jan 2004 09:25:34 +1000
User-agent: Gnus/5.1004 (Gnus v5.10.4) Emacs/21.3 (gnu/linux)

I added a couple of miscellaneous functions I've been using,

        * gtk-1.2.defs (gtk_rc_add_default_file, gtk_rc_parse_string,
        gtk_rc_reparse_all, gtk_widget_get_pointer): New functions.

--- gtk-1.2.defs.~1.16.~        2004-01-09 09:21:27.000000000 +1000
+++ gtk-1.2.defs        2004-01-09 09:23:04.000000000 +1000
@@ -455,10 +455,24 @@
   none
   ((int tag)))
 
+;; GtkRc
+
+(define-func gtk_rc_add_default_file
+  none
+  ((string filename)))
+
 (define-func gtk_rc_parse
   none
   ((string file)))
 
+(define-func gtk_rc_parse_string
+  none
+  ((string string)))
+
+(define-func gtk_rc_reparse_all
+  bool
+  ())
+
 (define-func g_mem_chunk_info
   none
   ())
@@ -750,8 +764,11 @@
   GdkEventMask
   ((GtkWidget widget)))
 
-;; XXX - need multiple return values
-;; (define-func gtk_widget_get_pointer)
+(define-func gtk_widget_get_pointer
+  (none (values (x y)))
+  ((GtkWidget widget)
+   (int x)
+   (int y)))
 
 (define-func gtk_widget_is_ancestor
   bool

reply via email to

[Prev in Thread] Current Thread [Next in Thread]