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