ongoing work - dont use
authorClaus Gittinger <cg@exept.de>
Sat, 17 May 2008 12:41:40 +0200
changeset 3401 583c48ec0ab8
parent 3400 1af9bac368be
child 3402 5941cc1ff429
ongoing work - dont use
ColorMenu.st
--- a/ColorMenu.st	Sat May 17 12:41:37 2008 +0200
+++ b/ColorMenu.st	Sat May 17 12:41:40 2008 +0200
@@ -509,7 +509,7 @@
 !
 
 setupMenu
-    |menu item|
+    |menu item toggleItem|
 
     menu := self class colorMenu:labelsAreColored value:nil.
 
@@ -534,20 +534,20 @@
             (MenuItem labeled:nil)
                 labelImage:(ToolbarIconLibrary history16x16Icon);
                 submenuChannel:[ self colorHistorySubmenu ]; 
-                nameKey:#seudoHhistory;
+                nameKey:#pseudoHistory;
                 isButton: false) 
         beforeIndex:1.
 
     "/ menu addItem:(MenuItem label:'') beforeIndex:1.
 
-    item := MenuItem labeled:(Text string:' ' emphasis:(#backgroundColor->DefaultViewBackgroundColor)).
-    item value:#selection.
-    menu addItem:item beforeIndex:1.
+    toggleItem := MenuItem labeled:(Text string:' ' emphasis:(#backgroundColor->DefaultViewBackgroundColor)).
+    toggleItem value:#selection.
+    menu addItem:toggleItem beforeIndex:1.
 
     self menu:menu.
 
     self do:[:anItem|
-        anItem value == #selection ifTrue:[
+        anItem == toggleItem ifTrue:[
             anItem indication:enabledChannel
         ] ifFalse:[
             anItem enabled:enabledChannel.
@@ -585,5 +585,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.49 2008-05-16 16:41:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.50 2008-05-17 10:41:40 cg Exp $'
 ! !