Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv14368/src Modified Files: gtkbindings.lisp gtkenums.lisp Log Message: Added a few more bindings. Different flavors of buttons. This was a patch by Sverker Wiberg. Date: Mon Mar 1 12:41:41 2004 Author: mmommer Index: lgtk/src/gtkbindings.lisp diff -u lgtk/src/gtkbindings.lisp:1.5 lgtk/src/gtkbindings.lisp:1.6 --- lgtk/src/gtkbindings.lisp:1.5 Tue Nov 11 16:41:54 2003 +++ lgtk/src/gtkbindings.lisp Mon Mar 1 12:41:41 2004 @@ -132,6 +132,24 @@ (def-binding "gtk_button_new_with_mnemonic" (gtkbutton (c-string text))) + +(def-binding "gtk_button_new_from_stock" + (gtkbutton (c-string text))) + +(def-binding "gtk_button_set_relief" + (void (gtkbutton button) + (gtkreliefstyle style))) + +(def-binding "gtk_button_get_relief" + (gtkreliefstyle (gtkbutton button))) + +(def-binding "gtk_button_get_label" + (c-string (gtkbutton button))) + +(def-binding "gtk_button_set_label" + (void (gtkbutton button) + (c-string label))) + (def-binding "gtk_toggle_button_new" (gtktogglebutton)) Index: lgtk/src/gtkenums.lisp diff -u lgtk/src/gtkenums.lisp:1.2 lgtk/src/gtkenums.lisp:1.3 --- lgtk/src/gtkenums.lisp:1.2 Wed Nov 5 12:49:56 2003 +++ lgtk/src/gtkenums.lisp Mon Mar 1 12:41:41 2004 @@ -7,11 +7,15 @@ (in-package #:gtk) +(defenum gtkreliefstyle + (:gtk-relief-normal + :gtk-relief-half + :gtk-relief-none)) + (defenum gtkwindowtype (:gtk-window-toplevel :gtk-window-popup)) - (defenum gsignalflags ((:g-signal-none . 0) (:g-signal-run-first . 1) @@ -63,3 +67,4 @@ :gtk-shadow-out :gtk-shadow-etched-in :gtk-shadow-etched-out)) +