[cells-cvs] CVS Celtk

[ktilton]

Update of /project/cells/cvsroot/Celtk
In directory clnet:/tmp/cvs-serv27105

Modified Files:
	widget.lisp 
Log Message:


--- /project/cells/cvsroot/Celtk/widget.lisp	2006/05/02 12:48:05	1.1
+++ /project/cells/cvsroot/Celtk/widget.lisp	2006/05/02 13:03:37	1.2
@@ -47,6 +47,7 @@
   (:default-initargs
       :command (c? (format nil "call-back ~(~a~)" (^path)))))
 
+
 (defun widget-menu (self key)
   (or (find key (^menus) :key 'md-name)
     (break "The only menus I see are~{ ~a,~} not requested ~a" (mapcar 'md-name (^menus)) key)))