--- a/MenuPanel.st	Sat Apr 25 23:13:10 1998 +0200
+++ b/MenuPanel.st	Sun Apr 26 00:33:55 1998 +0200
@@ -1606,7 +1606,7 @@
 
 drawEdgesForX:x y:y width:w height:height isSelected:aBool
 
-    |level r2 r h|
+    |level|
 
     level := aBool ifTrue:[onLevel] ifFalse:[offLevel].
 
@@ -2379,8 +2379,6 @@
 initStyle
     "initialize style specific stuff"
 
-    |font|
-
     super initStyle.
 
     onLevel   := DefaultHilightLevel.
@@ -2389,9 +2387,6 @@
 
     groupDividerSize := DefaultGroupDividerSize.
     fitFirstPanel := DefaultFitFirstPanel.
-
-
-
 !
 
 initialize
@@ -2484,9 +2479,9 @@
     "unmap view. If we have a popup supermenu, it will get all keyboard and
      mouse events.
     "
-    |sensor|
 
     self clearLastActiveMenu.
+
     "/
     "/ Kludge for X11: after grabbing and ungrabbing other views may get buttonMotionEvents
     "/ when a mouse button is still pressed. To avoid this we grab the mouse for the superview.
@@ -2727,8 +2722,6 @@
     "
     self do:[:el| (el containsPointX:x y:y) ifTrue:[^el] ].
   ^ nil
-
-
 !
 
 superMenuAtX:x y:y
@@ -2745,8 +2738,6 @@
         ]
     ].
   ^ nil
-
-
 ! !
 
 !MenuPanel methodsFor:'queries'!
@@ -2755,8 +2746,6 @@
     "returns true if an item could be drawn otherwise false
     "
     ^ (mustRearrange not and:[shown])
-
-
 !
 
 containsPoint:aPoint
@@ -2768,9 +2757,10 @@
 containsPointX:x y:y
     "returns true if point is contained by the view
     "
-    |ext|
-
     ^ (x between:0 and:width) and:[y between:0 and:height]
+
+"/    |ext|
+"/
 "/    (x >= 0 and:[y >= 0]) ifTrue:[
 "/        ext := self computeExtent.
 "/      ^ (x < ext x and:[y < ext y])
@@ -4086,7 +4076,7 @@
 !
 
 findSubMenuIn:aRecv
-    |subm keys argument|
+    |subm argument|
 
     subm := nil.
 
@@ -4534,6 +4524,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.81 1998-04-25 21:13:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.82 1998-04-25 22:33:55 cg Exp $'
 ! !
 MenuPanel initialize!