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.
tabbed focus fix
authorca
Thu, 09 Dec 1999 13:44:48 +0100
changeset 3103 e268c88767f6
parent 3102 6413dce618e6
child 3104 edc88b280153
tabbed focus fix
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WindowGroup.st	Thu Dec 09 13:39:16 1999 +0100
+++ b/WindowGroup.st	Thu Dec 09 13:44:48 1999 +0100
@@ -1330,8 +1330,12 @@
                         "/ XXX: move to dispatchEvent
                         event isButtonPressEvent ifTrue:[
                             (evView wantsFocusWithButtonPress) ifTrue:[
-                                evView requestFocus.
-                                "/ self focusView:evView.
+                                "/ cannot use 'evView requestFocus' here,
+                                "/ since we want to enforce it without giving the
+                                "/ view a chance to circumvent this.
+
+                                "/ evView requestFocus.
+                                self focusView:evView.
                             ].
                         ].
 
@@ -2113,6 +2117,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.194 1999-12-08 20:52:07 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.195 1999-12-09 12:44:48 ca Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview