--- 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 $'
! !