*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 19 Mar 1999 22:15:50 +0100
changeset 1267 10577a2ca319
parent 1266 20df0cbfaf95
child 1268 37066c039eb3
*** empty log message ***
MenuPanel.st
--- a/MenuPanel.st	Fri Mar 19 22:14:17 1999 +0100
+++ b/MenuPanel.st	Fri Mar 19 22:15:50 1999 +0100
@@ -2800,7 +2800,6 @@
 initialize
     "set default configuration
     "
-    |style|
 
     super initialize.
 
@@ -3789,8 +3788,6 @@
 choiceValue:something
     "set choice value
     "
-    |old|
-
     self adornment choiceValue:something.
     self updateRawLabel.
 
@@ -4047,7 +4044,6 @@
 !
 
 update:something with:aParameter from:changedObject
-    |indicator|
 
     changedObject == self indication ifTrue:[
         ^ self indicationChanged
@@ -4185,7 +4181,7 @@
     "draw label
     "
     |y x h l t scKey cLb cLa img fg asc arrow hrzInset 
-     buttonLevel isSelected clr|
+     buttonLevel isSelected|
 
     self isVisible ifFalse:[^ self].
 
@@ -5403,6 +5399,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.149 1999-03-19 07:20:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.150 1999-03-19 21:15:50 cg Exp $'
 ! !
 MenuPanel initialize!