[lambda-gtk-cvs] CVS update: lambda-gtk/examples.lisp

[Heinrich Konrad Taube]

Update of /project/lambda-gtk/cvsroot/lambda-gtk
In directory common-lisp.net:/tmp/cvs-serv9597

Modified Files:
	examples.lisp 
Log Message:
added call gtk:init-ensure to textentry
Date: Sat Dec  4 19:41:39 2004
Author: htaube

Index: lambda-gtk/examples.lisp
diff -u lambda-gtk/examples.lisp:1.1.1.1 lambda-gtk/examples.lisp:1.2
--- lambda-gtk/examples.lisp:1.1.1.1	Tue Nov 30 15:59:30 2004
+++ lambda-gtk/examples.lisp	Sat Dec  4 19:41:39 2004
@@ -200,6 +200,7 @@
   (format t "Text entry: ~S~%" (gtk:entry-get-text data)))
 
 (defun textentry ()
+  (gtk:init-ensure)
   (let* ((win (gtk:window-new gtk:window-toplevel))
          (vbox (gtk:vbox-new nil 0))
          (hbox (gtk:hbox-new nil 0))