--- a/ColorMenu.st Thu Apr 09 15:20:57 1998 +0200
+++ b/ColorMenu.st Thu Apr 09 20:30:30 1998 +0200
@@ -89,58 +89,37 @@
#( red
red:
- #( lightened 100 80 60 40 )
+ #( lightened 100 87 67 50 33)
)
#( green
green:
- #( lightened 100 80 60 40 )
+ #( lightened 100 87 67 50 33)
)
#( blue
blue:
- #( lightened 100 80 60 40 )
+ #( lightened 100 87 67 50 33)
)
#( cyan
- #'cyan:magenta:yellow:'
- #(
- lightened
- #( 100 0 0 )
- #( 100 20 20 )
- #( 100 40 40 )
- #( 100 60 60 )
- #( 100 80 80 )
- )
+ cyan:
+ #( lightened 100 87 67 50 33)
)
#( magenta
- #'cyan:magenta:yellow:'
- #(
- lightened
- #( 0 100 0 )
- #( 20 100 20 )
- #( 40 100 40 )
- #( 60 100 60 )
- #( 80 100 80 )
- )
+ magenta:
+ #( lightened 100 87 67 50 33)
)
#( yellow
- #'cyan:magenta:yellow:'
- #(
- lightened
- #( 0 0 100 )
- #( 20 20 100 )
- #( 40 40 100 )
- #( 60 60 100 )
- #( 80 80 100 )
- )
+ yellow:
+ #( lightened 100 87 67 50 33)
)
#( orange
#orange:
- #( lightened 100 80 60 40 )
+ #( lightened 100 87 67 50 33)
)
)
@@ -165,7 +144,9 @@
(aSlice at:3) do:[:el||sitem label|
el isSymbol ifTrue:[
color := el == #lightened ifTrue:[mainCol perform:el] ifFalse:[Color perform:el].
- label := el.
+ self colorDefinition first ~~ aSlice
+ ifTrue: [label := (colOp upTo: $:), ' ', el]
+ ifFalse:[label := el].
] ifFalse:[
el isNumber ifTrue:[
color := Color perform:colOp with:el.
@@ -364,5 +345,5 @@
!ColorMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.12 1998-04-01 13:13:42 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.13 1998-04-09 18:30:30 tz Exp $'
! !