Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv12530
Modified Files: gadgets.lisp Log Message: fix errant initialization of menu divider label
--- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/gadgets.lisp 2007/09/02 19:00:58 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/gadgets.lisp 2007/09/30 21:05:51 1.5 @@ -54,7 +54,8 @@ (if (eql (command-menu-item-type thing) :command) (setf (gadget-label sub-pane) (climi::command-menu-item-name thing) (item sub-pane) thing) - (setf (label sub-pane) (climi::command-menu-item-name thing))) + (if (climi::command-menu-item-name thing) + (setf (label sub-pane) (climi::command-menu-item-name thing)))) (setf (sheet-parent sub-pane) menu-pane) (realize-mirror port sub-pane)))))) (dolist (menu-item (contents menu-pane))