--- a/WindowGroup.st	Mon Jul 15 13:53:28 2002 +0200
+++ b/WindowGroup.st	Mon Jul 15 14:27:20 2002 +0200
@@ -1440,8 +1440,8 @@
 
     <resource: #keyboard (#Escape )>
 
-    |event ignore focus firstTop evView evType evArgs
-     modalTops modalTop modalDelegate syntheticEvent keyboardProcessor
+    |event ignore focus firstTop evView
+     modalTops modalTop modalDelegate keyboardProcessor
      busyHookBlock busyHookCalled top|
 
     self processExposeEvents.
@@ -1662,7 +1662,7 @@
     "process only expose events from the damage queue.
      This also handles resize, mapped and unmap events."
 
-    |event view rect x y w h sensor thisProcess|
+    |event view sensor thisProcess|
 
     (sensor := mySensor) isNil ifTrue:[^ self].
     (sensor damageCount ~~ 0) ifTrue:[
@@ -2132,7 +2132,7 @@
      If it came via tabbing, the view is notified differently, to allow
      for special highlighting (i.e. drawing a focus-border around itself)"
 
-    |i prevFocusView myDisplay|
+    |prevFocusView myDisplay|
 
 "/ 'focusToView:' print. aViewOrNil printCR. 
 
@@ -2276,10 +2276,10 @@
 !
 
 processShortcut:aKeyEvent
-    "a  shortcutKey event as forwarded from the keyboardProcessor - if there is the
-     shortcut-key defined process the shortcut and return true otherwise false.
+    "a shortcut key event as forwarded from the keyboardProcessor - if there is the
+     shortcut key defined, process the shortcut and return true - otherwise false.
     "
-    |topView mnemonicView|
+    |topView|
 
     "/ start from current focusView
     (focusView notNil and:[focusView processShortcut:aKeyEvent]) ifTrue:[
@@ -2658,6 +2658,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.241 2002-07-15 11:53:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.242 2002-07-15 12:27:20 stefan Exp $'
 ! !
 WindowGroup initialize!