[lgtk-cvs] CVS update: lgtk/src/gtkbindings.lisp

[Mario Mommer]

Update of /project/lgtk/cvsroot/lgtk/src
In directory common-lisp.net:/tmp/cvs-serv9018

Modified Files:
	gtkbindings.lisp 
Log Message:
Added frame widgets. Added dialogs w. corresponding slots.

Date: Wed Nov  5 16:18:19 2003
Author: mmommer

Index: lgtk/src/gtkbindings.lisp
diff -u lgtk/src/gtkbindings.lisp:1.3 lgtk/src/gtkbindings.lisp:1.4
--- lgtk/src/gtkbindings.lisp:1.3	Wed Nov  5 12:49:56 2003
+++ lgtk/src/gtkbindings.lisp	Wed Nov  5 16:18:19 2003
@@ -201,6 +201,10 @@
 	(c-string tip_text)
 	(c-string tip_private)))
 
+(def-binding "gtk_dialog_new" (gtkdialog))
+
+(def-binding "gtk_frame_new" (gtkframe (c-string label)))
+
 (def-binding "gtk_table_new"
   (gtktable (guint rows)
 	    (guint columns)
@@ -366,6 +370,21 @@
   :after (lambda (x)
 	   (gcconnect x range)
 	   x))
+
+(begin-slot-declarations)
+
+(add-alien-slots gtkdialog "GtkDialog"
+		  (("window" gtkwindow)
+		   ("vbox" gtkvbox)
+		   ("action_area" gtkhbox)))
+
+
+(generate-alien-accessors
+ :cflags lgtk-asd::*gtkcflags*
+ :cc lgtk-asd::*ccompiler*
+ :headers '("gtk/gtk.h")
+ :probedir lgtk-asd::*source-dir*)
+
 
 ;; Raw bindings. These need special care
 (def-raw-binding "g_signal_connect_data"