--- a/MenuEditor.st Mon Jul 28 11:58:25 1997 +0200
+++ b/MenuEditor.st Mon Jul 28 12:07:09 1997 +0200
@@ -1586,7 +1586,7 @@
!MenuEditor methodsFor:'startup / release'!
buildFrom:aClass andSelector:aSelector
- |oldClass newClass helpTool|
+ |oldClass newClass|
oldClass := self specClass.
self specClass:aClass.
@@ -1952,7 +1952,7 @@
!
buildFromAspects:aspects
- |name slice|
+ |name|
self isSeparator ifFalse:[
name := label.
@@ -2015,7 +2015,7 @@
!
toAspects:aspects
- |type idx slice|
+ |type|
(type := self separatorType) notNil ifTrue:[
type := self class separatorSlices findFirst:[:el| el first == type ].
@@ -2200,7 +2200,7 @@
buildFromMenu:aMenu
- |spec cls node|
+ |node|
node := self nodeLabel:'menu'.
self subMenu:aMenu parent:node.
@@ -2215,7 +2215,7 @@
menuItem:anItem
- |level node submenu grp ctr sep|
+ |node|
node := self nodeLabel:(anItem label).
node contents buildFromMenuItem:anItem.
@@ -2290,7 +2290,8 @@
self displayLineFromX:x y:yCenter toX:(x + 80) y:yCenter.
type == #double ifTrue:[
- self displayLineFromX:x y:(yCenter + 2) toX:(x + 80) y:(yCenter + 2).
+ y := yCenter + 2.
+ self displayLineFromX:x y:y toX:(x + 80) y:y.
]
]
]
@@ -2481,7 +2482,7 @@
addElement:something
"add something after selection
"
- |node parent index|
+ |node|
(node := self selectedNode) notNil ifTrue:[
node parent notNil ifTrue:[