From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10605 invoked by alias); 20 Jan 2003 23:39:25 -0000 Mailing-List: contact guile-gtk-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: guile-gtk-owner@sources.redhat.com Received: (qmail 10511 invoked from network); 20 Jan 2003 23:39:21 -0000 Received: from unknown (HELO sunny.pacific.net.au) (203.25.148.40) by 172.16.49.205 with SMTP; 20 Jan 2003 23:39:21 -0000 Received: from wisma.pacific.net.au (wisma.pacific.net.au [210.23.129.72]) by sunny.pacific.net.au with ESMTP id h0KNdJKR011569 for ; Tue, 21 Jan 2003 10:39:19 +1100 (EST) Received: from localhost (ppp85.dyn228.pacific.net.au [203.143.228.85]) by wisma.pacific.net.au with ESMTP id KAA21550 for ; Tue, 21 Jan 2003 10:39:17 +1100 (EST) Received: from gg by localhost with local (Exim 3.35 #1 (Debian)) id 18alVN-0000uE-00; Tue, 21 Jan 2003 09:39:01 +1000 To: guile-gtk@sources.redhat.com Subject: a few more functions From: Kevin Ryde Mail-Copies-To: never Date: Mon, 20 Jan 2003 23:39:00 -0000 Message-ID: <87r8b7mlwq.fsf@zip.com.au> User-Agent: Gnus/5.090013 (Oort Gnus v0.13) Emacs/21.1 (i386-debian-linux-gnu) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-SW-Source: 2003-q1/txt/msg00003.txt.bz2 --=-=-= Content-length: 727 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. --=-=-= Content-Disposition: attachment; filename=gtk-1.2.defs.misc.diff Content-length: 1137 --- 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 --=-=-= Content-Disposition: attachment; filename=gdk-1.2.defs.misc.diff Content-length: 1427 --- 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 --=-=-=--