a few more functions

[Kevin Ryde <user42@zip.com.au>]

[-- Attachment #1: Type: text/plain, Size: 727 bytes --]

While tinkering with various stuff I found uses for the following,

	* gdk-1.2.defs (GdkFont): Add ascent and descent fields.
	(gdk_window_get_events, gdk_window_at_pointer, gdk_window_get_pointer,
	gdk_window_raise, gdk_window_set_background,
	gdk_window_set_back_pixmap, gdk_window_set_events): New functions.

        * gtk-1.2.defs (GtkTreeItem): Add expanded field
        (GtkMenuItem): Add submenu field.
        (gtk_window_add_accel_group, gtk_window_remove_accel_group,
        gtk_toggle_button_get_active): New functions.

GtkToggleButton has "active" as a field as well as a get_active
function (in both gtk 1.2 and 2.0).  The gtk 2 doco doesn't mention
the field though, so it might be best to use the function.


[-- Attachment #2: gtk-1.2.defs.misc.diff --]
[-- Type: text/plain, Size: 1137 bytes --]

--- gtk-1.2.defs.~1.6.~	2003-01-05 06:01:11.000000000 +1000
+++ gtk-1.2.defs	2003-01-12 14:43:05.000000000 +1000
@@ -964,7 +964,9 @@
 
 ;; TreeItem
 
-(define-object GtkTreeItem (GtkItem))
+(define-object GtkTreeItem (GtkItem)
+  (fields
+   (bool expanded)))
 
 (define-func gtk_tree_item_new
   GtkWidget
@@ -1542,6 +1544,16 @@
 ;;  ((GtkWindow window)
 ;;   (GtkAcceleratorTable table)))
 
+(define-func gtk_window_add_accel_group
+ none
+ ((GtkWindow window)
+  (GtkAccelGroup accel_group)))
+
+(define-func gtk_window_remove_accel_group
+ none
+ ((GtkWindow window)
+  (GtkAccelGroup accel_group)))
+
 (define-func gtk_window_position
   none
   ((GtkWindow window)
@@ -1975,6 +1987,10 @@
   ((GtkToggleButton toggle_button)
    (bool draw_indicator)))
 
+(define-func gtk_toggle_button_get_active
+  bool
+  ((GtkToggleButton toggle_button)))
+
 (define-func gtk_toggle_button_set_state
   none
   ((GtkToggleButton toggle_button)
@@ -2665,7 +2681,9 @@
 
 ;; MenuItem
 
-(define-object GtkMenuItem (GtkItem))
+(define-object GtkMenuItem (GtkItem)
+  (fields
+   (GtkWidget submenu)))
 
 (define-func gtk_menu_item_new
   GtkWidget

[-- Attachment #3: gdk-1.2.defs.misc.diff --]
[-- Type: text/plain, Size: 1427 bytes --]

--- gdk-1.2.defs.~1.3.~	2002-12-08 04:25:58.000000000 +1000
+++ gdk-1.2.defs	2003-01-19 18:18:38.000000000 +1000
@@ -339,7 +339,9 @@
 (define-boxed GdkFont
   (copy gdk_font_ref)
   (free gdk_font_unref)
-  (conversion "sgtk_font_conversion"))
+  (conversion "sgtk_font_conversion")
+  (fields (int ascent)
+	  (int descent)))
 
 (add-options GdkFont (conversion "sgtk_font_conversion"))
 
@@ -810,10 +812,19 @@
   GdkDragContext
   ((GdkEvent event)))
 
+(define-func gdk_window_get_events
+  GdkEventMask
+  ((GdkWindow window)))
+
 (define-func gdk_get_leader_window_id
   uint
   ())
 
+(define-func gdk_window_at_pointer
+  (GdkWindow (values (x y)))
+  ((int x)
+   (int y)))
+
 (define-func gdk_window_get_id
   uint
   ((GdkWindow window)))
@@ -832,6 +843,33 @@
   GdkWindow
   ((GdkWindow window)))
 
+(define-func gdk_window_get_pointer
+  (GdkWindow (values (x y modifiers)))
+  ((GdkWindow window)
+   (int x)
+   (int y)
+   (GdkModifierType modifiers)))
+
+(define-func gdk_window_raise
+  none
+  ((GdkWindow window)))
+
+(define-func gdk_window_set_background
+  none
+  ((GdkWindow window)
+   (GdkColor  color)))
+
+(define-func gdk_window_set_back_pixmap
+  none
+  ((GdkWindow window)
+   (GdkPixmap pixmap (null-ok))
+   (bool      parent_relative)))
+
+(define-func gdk_window_set_events
+  none
+  ((GdkWindow window)
+   (GdkEventMask events)))
+
 ;;; glib functions - timer
 
 (define-func g_timer_new