--- a/ModalBox.st	Sat Apr 24 22:04:18 1999 +0200
+++ b/ModalBox.st	Sat Apr 24 22:05:30 1999 +0200
@@ -249,17 +249,6 @@
     ^ self
 !
 
-assignKeyboardFocusToFirstInputField
-    "assign the keyboard focus to the first input field"
-
-    self allSubViewsDo:[:v |
-        v isInputField ifTrue:[
-            self windowGroup focusView:v.
-            ^ self
-        ]
-    ].
-!
-
 create
     super create.
     shadowView notNil ifTrue:[
@@ -891,6 +880,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.65 1999-04-23 17:39:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.66 1999-04-24 20:05:30 cg Exp $'
 ! !
 ModalBox initialize!