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

[Mario Mommer]

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))
+