--- a/KeyboardProcessor.st	Wed Feb 27 15:55:22 2008 +0100
+++ b/KeyboardProcessor.st	Sat Mar 08 15:20:20 2008 +0100
@@ -284,7 +284,15 @@
                     ^ true
                 ].
             ].
-        ].        
+        ].
+        "/ support ALT-F4 (close window)
+        (key == #CloseWindowRequest) ifTrue:[
+            app notNil ifTrue:[
+                app closeRequest
+            ] ifFalse:[
+                topView closeRequest
+            ].
+        ].
     ].
 
     "/ let view dispatch it.
@@ -331,5 +339,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.42 2008-02-26 21:47:57 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.43 2008-03-08 14:20:20 cg Exp $'
 ! !