focus
authorClaus Gittinger <cg@exept.de>
Wed, 08 Nov 2006 12:18:05 +0100
changeset 4677 7325d0d21d9a
parent 4676 4c84e69d7a15
child 4678 0d83cc874dc3
focus
WindowGroup.st
--- a/WindowGroup.st	Wed Nov 08 12:14:08 2006 +0100
+++ b/WindowGroup.st	Wed Nov 08 12:18:05 2006 +0100
@@ -2259,7 +2259,7 @@
         ].
     ].
 
-    myDisplay focusView:focusView.
+    myDisplay focusView:aViewOrNil.
 
     focusView == aViewOrNil ifTrue:[
         focusView notNil ifTrue:[
@@ -2301,7 +2301,7 @@
      top windowGroup focusView:v1.
     "
 
-    "Modified: / 08-11-2006 / 12:13:48 / cg"
+    "Modified: / 08-11-2006 / 12:17:55 / cg"
 !
 
 pointerView
@@ -2787,7 +2787,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.283 2006-11-08 11:14:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.284 2006-11-08 11:18:05 cg Exp $'
 ! !
 
 WindowGroup initialize!