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"