? -> def
authortz
Thu, 06 Aug 1998 20:18:44 +0200
changeset 1058 2a6e0c07b336
parent 1057 db1bd14803e3
child 1059 18f81ba4860d
? -> def
ColorMenu.st
--- a/ColorMenu.st	Thu Aug 06 16:20:51 1998 +0200
+++ b/ColorMenu.st	Thu Aug 06 20:18:44 1998 +0200
@@ -182,7 +182,7 @@
 
     |item holder color|
 
-    ((item := super accept:anItem) notNil and: [item label ~= '?']) 
+    ((item := super accept:anItem) notNil and: [item label ~= 'def']) 
     ifTrue:
     [
         (holder := self colorHolder) == item ifTrue:
@@ -317,7 +317,7 @@
 
     menu := self class colorMenu:labelsAreColored value:nil.
     menu itemsDo:[:el| el isButton:true].
-    menu addItem:((MenuItem labeled:'?') value: 
+    menu addItem:((MenuItem labeled:'def') value: 
     [
         |defineColor|
         defineColor := DefineColor new color: self color.
@@ -343,7 +343,7 @@
         ] ifFalse:[
             anItem value == #selection ifTrue:[anItem indication:enabledChannel] 
                                       ifFalse:[anItem enabled:false]. 
-            anItem label = '?' ifTrue:[anItem enabled:enabledChannel] 
+            anItem label = 'def' ifTrue:[anItem enabled:enabledChannel] 
         ]
     ]
 ! !
@@ -615,5 +615,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.15 1998-08-06 14:20:51 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.16 1998-08-06 18:18:44 tz Exp $'
 ! !