diff -r 1ee61b7bb36a -r bfa28b62528c MenuEditor.st
--- 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:[