[cells-cvs] CVS Celtk

[ktilton]

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

Modified Files:
	ltktest-cells-inside.lisp menu.lisp 
Log Message:
simple popup bugs fixed, but only pops up once per IDE run

--- /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp	2006/05/03 08:46:56	1.15
+++ /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp	2006/05/03 17:34:58	1.16
@@ -353,7 +353,7 @@
                                  ; via the client queue.
                                  ;
                                  (pop-up (^widget-menu :bkg-pop) root-x root-y))
-                     "%x %y")))
+                     "%X %Y")))
     
     :menus (c? (the-kids
                 ;
--- /project/cells/cvsroot/Celtk/menu.lisp	2006/05/03 08:20:49	1.8
+++ /project/cells/cvsroot/Celtk/menu.lisp	2006/05/03 17:34:58	1.9
@@ -218,8 +218,8 @@
     :on-command  (lambda (self)
                    (declare (ignore key args))
                    (trc nil "menu radio button command firing" self (^value) (upper self selector))
-                   (setf (selection (upper self selector))
-                     (^value)))))
+                   (with-integrity (:change)
+                     (setf (selection (upper self selector)) (^value))))))
 
 (defmodel menu-radio-group (selector family)
   ((.md-name :cell nil :initform (gentemp "RG") :initarg :id))