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

[Mario Mommer]

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

Modified Files:
	gtkbindings.lisp 
Log Message:
Added text entries. Also added an example.

Date: Tue Nov 11 16:41:54 2003
Author: mmommer

Index: lgtk/src/gtkbindings.lisp
diff -u lgtk/src/gtkbindings.lisp:1.4 lgtk/src/gtkbindings.lisp:1.5
--- lgtk/src/gtkbindings.lisp:1.4	Wed Nov  5 16:18:19 2003
+++ lgtk/src/gtkbindings.lisp	Tue Nov 11 16:41:54 2003
@@ -183,9 +183,27 @@
   (void (gtktogglebutton wid)
 	(gboolean active)))
 
+(def-binding "gtk_entry_new"
+  (gtkentry))
+
+(def-binding "gtk_entry_set_text"
+  (void (GtkEntry entry)
+	(c-string text)))
+
+(def-binding "gtk_entry_get_text"
+  (c-string (GtkEntry entry)))
+
+(def-binding "gtk_editable_set_editable"
+  (void (GtkEntry entry)
+	(gboolean active)))
+
+(def-binding "gtk_entry_set_visibility"
+  (void (GtkEntry entry)
+	(gboolean visible)))
+
 (def-binding "gtk_arrow_new"
-  (GtkWidget (GtkArrowType arrow_type)
-	     (GtkShadowType  shadow_type)))
+  (gtkarrow (GtkArrowType arrow_type)
+	    (GtkShadowType  shadow_type)))
 
 (def-binding "gtk_arrow_set"
   (void (GtkArrow arrow)