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)