ColorMenu.st
changeset 4357 f828b5cb3bc6
parent 4307 e6c7520c455e
child 4643 a658eca5de88
--- a/ColorMenu.st	Sat Aug 31 15:02:12 2013 +0200
+++ b/ColorMenu.st	Sat Aug 31 19:40:48 2013 +0200
@@ -119,7 +119,7 @@
                        ifFalse:[ label := aTitle ].
 
     label := Text string:(' ', label, ' ') foregroundColor:fgColor backgroundColor:bgColor.
-    item  := MenuItem labeled:label.
+    item  := MenuItem label:label.
     submenu addItem:item.
 
     size == 1 ifTrue:[
@@ -132,7 +132,7 @@
 
             label := labels at:idx ifAbsent:defLabel.
             label := Text string:(' ', label, ' ') foregroundColor:fgColor backgroundColor:aBgColor.
-            item  := MenuItem labeled:label.
+            item  := MenuItem label:label.
             item argument:aBgColor.
             
             submenu addItem:item.
@@ -190,7 +190,7 @@
 
     item isNil ifTrue:[
         icon := ToolbarIconLibrary colorHistory16x16Icon.
-        item := MenuItem labeled:icon.
+        item := MenuItem label:icon.
         item nameKey:#userDefined.
         item activeHelpKey:#userDefinedColors.
         menu addItem:item beforeIndex:1.
@@ -684,7 +684,7 @@
             label := Text string:(' ', label, ' ') foregroundColor:fgColor backgroundColor:eachRecentlyUsedColor.
         ].
 
-        item := MenuItem labeled:label.
+        item := MenuItem label:label.
         item argument:eachRecentlyUsedColor.
 
         menu addItem:item.
@@ -722,9 +722,11 @@
 
     menu 
         addItem:(
-            (MenuItem labeled:nil) 
+            (MenuItem 
+                    label:nil
+                    itemValue:[ self openColorEditDialog ] 
+            ) 
                 labelImage:(ToolbarIconLibrary palette16x16Icon);
-                itemValue:[ self openColorEditDialog ]; 
                 nameKey:#pseudoDef;
                 activeHelpKey:#openColorEditor;
                 isButton: true) 
@@ -732,9 +734,11 @@
 
     menu 
         addItem:(
-            (MenuItem labeled:nil) 
+            (MenuItem 
+                label:nil
+                itemValue:[ self pickColorFromScreen ] 
+            ) 
                 labelImage:(ToolbarIconLibrary pipette16x16Icon);
-                itemValue:[ self pickColorFromScreen ]; 
                 nameKey:#pseudoPick;
                 activeHelpKey:#pickColorFromScreen;
                 isButton: true) 
@@ -742,9 +746,11 @@
 
     menu 
         addItem:(
-            (MenuItem labeled:nil)
+            (MenuItem 
+                label:nil
+                submenuChannel:[ self colorHistorySubmenu ] 
+            )
                 labelImage:(ToolbarIconLibrary colorHistory16x16Icon);
-                submenuChannel:[ self colorHistorySubmenu ]; 
                 nameKey:#pseudoHistory;
                 activeHelpKey:#recentlyUsedColors;
                 isButton: true) 
@@ -752,8 +758,9 @@
 
     "/ menu addItem:(MenuItem label:'') beforeIndex:1.
 "/    (showDefaultToggle ? true) ifTrue:[
-        toggleItem := MenuItem labeled:(Text string:' ' emphasis:(#backgroundColor->DefaultViewBackgroundColor)).
-        toggleItem itemValue:#selection.
+        toggleItem := MenuItem 
+                        label:(Text string:' ' emphasis:(#backgroundColor->DefaultViewBackgroundColor))
+                        itemValue:#selection.
         toggleItem isButton: false.
         toggleItem activeHelpKey:#useDefaultColorToggle.    
         toggleItem isVisible:(self useDefaultColorToggleVisibleHolder).    
@@ -761,11 +768,12 @@
 "/    ].
 
     allowNilColor ifTrue:[
-        toggleItem := MenuItem labeled:'No Color'.
+        toggleItem := MenuItem 
+                        label:'No Color'
+                        itemValue:#'hasNilColorHolder:'.
         toggleItem isButton:false.
         toggleItem activeHelpKey:#noColor.    
         toggleItem indication:self hasNilColorHolder.
-        toggleItem itemValue:#'hasNilColorHolder:'.
         menu addItem:toggleItem.
     ].
 
@@ -821,6 +829,6 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.77 2013-07-26 18:46:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.78 2013-08-31 17:40:48 cg Exp $'
 ! !