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.
skip disabled views when stepping focus
authorca
Fri, 21 Feb 1997 20:17:42 +0100
changeset 1364 ba84e05c1622
parent 1363 3a02d26cbc35
child 1365 37a9e7ac4dbc
skip disabled views when stepping focus
WGroup.st file | annotate | diff | comparison | revisions
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WGroup.st	Fri Feb 21 20:13:22 1997 +0100
+++ b/WGroup.st	Fri Feb 21 20:17:42 1997 +0100
@@ -1172,7 +1172,11 @@
         next := (focusSequence at:index).
         next realized not ifTrue:[
             next := nil
-        ].
+        ] ifFalse:[
+            next enabled ifFalse:[
+                next := nil
+            ]
+        ]
     ].
 
     self focusView:next
@@ -1218,6 +1222,10 @@
         prev := (focusSequence at:index).
         prev realized not ifTrue:[
             prev := nil
+        ] ifFalse:[
+            prev enabled ifFalse:[
+                prev := nil
+            ]
         ].
     ].
 
@@ -1499,6 +1507,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.105 1997-02-12 13:20:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.106 1997-02-21 19:17:42 ca Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Fri Feb 21 20:13:22 1997 +0100
+++ b/WindowGroup.st	Fri Feb 21 20:17:42 1997 +0100
@@ -1172,7 +1172,11 @@
         next := (focusSequence at:index).
         next realized not ifTrue:[
             next := nil
-        ].
+        ] ifFalse:[
+            next enabled ifFalse:[
+                next := nil
+            ]
+        ]
     ].
 
     self focusView:next
@@ -1218,6 +1222,10 @@
         prev := (focusSequence at:index).
         prev realized not ifTrue:[
             prev := nil
+        ] ifFalse:[
+            prev enabled ifFalse:[
+                prev := nil
+            ]
         ].
     ].
 
@@ -1499,6 +1507,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.105 1997-02-12 13:20:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.106 1997-02-21 19:17:42 ca Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview