--- a/ColorMenu.st Wed Oct 29 17:12:09 1997 +0100
+++ b/ColorMenu.st Wed Oct 29 17:42:32 1997 +0100
@@ -109,8 +109,9 @@
menuSpec
"specification used to build the Menu
"
-
- <resource: #menu>
+"
+Menu := nil
+"
^ #(#Menu #(
(#MenuItem
@@ -124,15 +125,25 @@
#value: 'Color gray'
#submenu:
#(#Menu #( #(#MenuItem #value: 'Color white' )
+ #(#MenuItem #value: 'Color gray:95' )
#(#MenuItem #value: 'Color gray:90' )
+ #(#MenuItem #value: 'Color gray:85' )
#(#MenuItem #value: 'Color gray:80' )
+ #(#MenuItem #value: 'Color gray:75' )
#(#MenuItem #value: 'Color gray:70' )
+ #(#MenuItem #value: 'Color gray:65' )
#(#MenuItem #value: 'Color gray:60' )
+ #(#MenuItem #value: 'Color gray:55' )
#(#MenuItem #value: 'Color gray:50' )
+ #(#MenuItem #value: 'Color gray:45' )
#(#MenuItem #value: 'Color gray:40' )
+ #(#MenuItem #value: 'Color gray:35' )
#(#MenuItem #value: 'Color gray:30' )
+ #(#MenuItem #value: 'Color gray:25' )
#(#MenuItem #value: 'Color gray:20' )
+ #(#MenuItem #value: 'Color gray:15' )
#(#MenuItem #value: 'Color gray:10' )
+ #(#MenuItem #value: 'Color gray:5' )
#(#MenuItem #value: 'Color black' )
)
nil
@@ -145,8 +156,27 @@
#(#Menu #(
#(#MenuItem #value: 'Color blue lightened lightened' )
#(#MenuItem #value: 'Color blue lightened' )
- #(#MenuItem #value: 'Color blue' )
- #(#MenuItem #value: 'Color blue darkened' )
+ #(#MenuItem #value: 'Color red:0 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:10 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:20 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:30 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:40 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:50 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:60 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:70 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:80 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:90 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:10 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:20 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:30 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:40 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:50 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:60 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:70 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:80 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:90 blue:100' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:100' )
)
nil
nil
@@ -158,8 +188,27 @@
#(#Menu #(
#(#MenuItem #value: 'Color red lightened lightened' )
#(#MenuItem #value: 'Color red lightened' )
- #(#MenuItem #value: 'Color red' )
- #(#MenuItem #value: 'Color red darkened' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:10 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:20 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:30 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:40 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:50 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:60 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:70 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:80 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:90 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:10' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:20' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:30' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:40' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:50' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:60' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:70' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:80' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:90' )
+ #(#MenuItem #value: 'Color red:100 green:0 blue:100' )
)
nil
nil
@@ -171,15 +220,27 @@
#(#Menu #(
#(#MenuItem #value: 'Color green lightened lightened' )
#(#MenuItem #value: 'Color green lightened' )
- #(#MenuItem #value: 'Color green' )
- #(#MenuItem #value: 'Color green darkened' )
- #(#MenuItem #value: 'Color green darkened darkened' )
- #(#MenuItem #value: 'Color red:100 green:100 blue:0' )
- #(#MenuItem #value: '(Color red:100 green:100 blue:0) darkened' )
- #(#MenuItem #value: '(Color red:100 green:100 blue:0) darkened darkened' )
- #(#MenuItem #value: 'Color red:0 green:100 blue:100' )
- #(#MenuItem #value: '(Color red:0 green:100 blue:100) darkened' )
- #(#MenuItem #value: '(Color red:0 green:100 blue:100) darkened darkened' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:10 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:20 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:30 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:40 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:50 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:60 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:70 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:80 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:90 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:100 green:100 blue:0' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:10' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:20' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:30' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:40' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:50' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:60' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:70' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:80' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:90' )
+ #(#MenuItem #value: 'Color red:0 green:100 blue:100' )
)
nil
nil
@@ -190,7 +251,14 @@
nil
)
- "Modified: / 27.10.1997 / 17:11:50 / cg"
+! !
+
+!ColorMenu class methodsFor:'release resources'!
+
+releaseResources
+ "called by application to release the Menu and thus the allocate Colors
+ "
+ Menu := nil
! !
!ColorMenu methodsFor:'accept'!
@@ -341,5 +409,5 @@
!ColorMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.4 1997-10-28 20:08:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.5 1997-10-29 16:42:32 ca Exp $'
! !