Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed focusIn focus assignment
authorClaus Gittinger <cg@exept.de>
Thu, 20 May 1999 18:36:20 +0200
changeset 2694 cd43c17060af
parent 2693 8de1d8fd9a55
child 2695 5d9794d67a5a
changed focusIn focus assignment
StandardSystemView.st file | annotate | diff | comparison | revisions
StdSysV.st file | annotate | diff | comparison | revisions 
--- a/StandardSystemView.st	Thu May 20 18:35:46 1999 +0200
+++ b/StandardSystemView.st	Thu May 20 18:36:20 1999 +0200
@@ -869,14 +869,16 @@
     |v|
 
     windowGroup notNil ifTrue:[
-        (v := windowGroup focusView) notNil ifTrue:[
+        (v := windowGroup focusView) isNil ifTrue:[
+            self assignKeyboardFocusToFirstInputField.
+        ] ifFalse:[
             "/ v requestFocus.  - will be denied; but we must force it here
             windowGroup focusView:v byTab:false.
         ]
     ].
     super focusIn
 
-    "Modified: 25.2.1997 / 23:19:46 / cg"
+    "Modified: / 20.5.1999 / 18:13:52 / cg"
 !
 
 focusOut
@@ -1441,6 +1443,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.113 1999-05-06 15:10:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.114 1999-05-20 16:36:20 cg Exp $'
 ! !
 StandardSystemView initialize!
--- a/StdSysV.st	Thu May 20 18:35:46 1999 +0200
+++ b/StdSysV.st	Thu May 20 18:36:20 1999 +0200
@@ -869,14 +869,16 @@
     |v|
 
     windowGroup notNil ifTrue:[
-        (v := windowGroup focusView) notNil ifTrue:[
+        (v := windowGroup focusView) isNil ifTrue:[
+            self assignKeyboardFocusToFirstInputField.
+        ] ifFalse:[
             "/ v requestFocus.  - will be denied; but we must force it here
             windowGroup focusView:v byTab:false.
         ]
     ].
     super focusIn
 
-    "Modified: 25.2.1997 / 23:19:46 / cg"
+    "Modified: / 20.5.1999 / 18:13:52 / cg"
 !
 
 focusOut
@@ -1441,6 +1443,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.113 1999-05-06 15:10:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.114 1999-05-20 16:36:20 cg Exp $'
 ! !
 StandardSystemView initialize!
hg/stx-libview