ModalBox.st
changeset 4179 d3a1cfe411db
parent 4178 e176977f5f2c
child 4197 1984b2ba83de
--- a/ModalBox.st	Mon May 17 17:12:25 2004 +0200
+++ b/ModalBox.st	Mon May 17 18:50:36 2004 +0200
@@ -384,15 +384,8 @@
 !
 
 realize
-    |widget|
-
     super realize.
-    (windowGroup notNil 
-    and:[(widget := windowGroup defaultKeyboardConsumer) notNil]) ifTrue:[
-        windowGroup focusView:widget byTab:false.
-    ] ifFalse:[
-        self assignInitialKeyboardFocus.
-    ].
+    self assignInitialKeyboardFocus.
 
     "Modified: / 3.5.1996 / 23:48:04 / stefan"
     "Modified: / 20.5.1999 / 18:17:34 / cg"
@@ -662,8 +655,6 @@
 "/        self getKeyboardFocus.
 "/        self enableEnterLeaveEvents
 "/"/    ]
-
-   
 !
 
 open
@@ -919,7 +910,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.86 2004-05-17 15:12:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.87 2004-05-17 16:50:36 cg Exp $'
 ! !
 
 ModalBox initialize!