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