--- 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!