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