--- a/MenuView.st	Mon Jul 28 12:23:41 1997 +0200
+++ b/MenuView.st	Mon Jul 28 12:25:22 1997 +0200
@@ -2347,7 +2347,7 @@
 !
 
 shortKeyStringFor:aSymbolicKey
-    |untranslatedKey x|
+    |untranslatedKey|
 
     "/ this is somewhat complicated: we have the symbolic key at hand,
     "/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
@@ -2458,7 +2458,7 @@
     "
 
     |line lineNr y isSpecial isSeparatingLine 
-     isDoubleLine right clr1 clr2 key|
+     isDoubleLine right clr1 clr2|
 
     line := self visibleAt:visLineNr.
 
@@ -2645,5 +2645,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.105 1997-06-04 11:20:44 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.106 1997-07-28 10:24:44 cg Exp $'
 ! !

--- a/PopUpMenu.st	Mon Jul 28 12:23:41 1997 +0200
+++ b/PopUpMenu.st	Mon Jul 28 12:25:22 1997 +0200
@@ -1140,8 +1140,6 @@
 !
 
 buttonRelease:button x:x y:y
-    |now|
-
     realized ifFalse:[^ self].
 
     "/
@@ -1326,5 +1324,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.65 1997-06-04 11:21:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.66 1997-07-28 10:25:22 cg Exp $'
 ! !