ColorMenu.st
changeset 476 8a93a1f8213a
parent 422 b28cfebfef40
child 583 4753eec71973
--- a/ColorMenu.st	Sat Jul 26 17:14:49 1997 +0200
+++ b/ColorMenu.st	Mon Jul 28 12:19:09 1997 +0200
@@ -73,7 +73,7 @@
 menu
     "get the Menu
     "
-    |col submenu string menu|
+    |col submenu string|
 
     Menu isNil ifTrue:[
         Menu   := self menuSpec decodeAsLiteralArray.
@@ -100,7 +100,7 @@
             ]
         ].
     ].
-  ^ Menu
+    ^ Menu
 "
 Menu := nil
 "
@@ -297,8 +297,6 @@
 initialize
     "setup menu
     "
-    |col submenu string holder|
-
     super initialize.
     self verticalLayout:false.
     self fitFirstPanel:false.
@@ -339,5 +337,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.2 1997-06-17 10:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.3 1997-07-28 10:18:31 cg Exp $'
 ! !