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