[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms

[junrue]

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