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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 05 Mar 1999 12:25:00 +0100
changeset 2481 5581242ddb7d
parent 2480 b4ffc5f3377f
child 2482 7e1e4eaa5ce6
checkin from browser
Controll.st file | annotate | diff | comparison | revisions
Controller.st file | annotate | diff | comparison | revisions 
--- a/Controll.st	Fri Mar 05 11:40:06 1999 +0100
+++ b/Controll.st	Fri Mar 05 12:25:00 1999 +0100
@@ -469,29 +469,25 @@
 
     <resource: #keyboard (#Tab #FocusNext #FocusPrevious)>
 
-    |windowGroup|
+    |windowGroup action|
 
     windowGroup := view windowGroup.
-    key == #Tab ifTrue:[
-        windowGroup notNil ifTrue:[
+    windowGroup notNil ifTrue:[
+        action := key.
+        key == #Tab ifTrue:[
             view graphicsDevice shiftDown ifTrue:[
-                windowGroup focusPrevious
+                action := #FocusPrevious.
             ] ifFalse:[
-                windowGroup focusNext
-            ].
-        ]
+                action := #FocusNext.
+            ]
+        ].
+        action == #FocusNext ifTrue:[
+            windowGroup focusNext.
+        ].
+        action == #FocusPrevious ifTrue:[
+            windowGroup focusPrevious.
+        ].
     ].
-    key == #FocusNext ifTrue:[
-        windowGroup notNil ifTrue:[
-            windowGroup focusNext.
-        ]
-    ].
-    key == #FocusPrevious ifTrue:[
-        windowGroup notNil ifTrue:[
-            windowGroup focusPrevious.
-        ]
-    ].
-
     ^ self
 
     "Modified: 28.5.1996 / 20:21:41 / cg"
@@ -586,5 +582,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.46 1997-06-11 11:18:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.47 1999-03-05 11:25:00 cg Exp $'
 ! !
--- a/Controller.st	Fri Mar 05 11:40:06 1999 +0100
+++ b/Controller.st	Fri Mar 05 12:25:00 1999 +0100
@@ -469,29 +469,25 @@
 
     <resource: #keyboard (#Tab #FocusNext #FocusPrevious)>
 
-    |windowGroup|
+    |windowGroup action|
 
     windowGroup := view windowGroup.
-    key == #Tab ifTrue:[
-        windowGroup notNil ifTrue:[
+    windowGroup notNil ifTrue:[
+        action := key.
+        key == #Tab ifTrue:[
             view graphicsDevice shiftDown ifTrue:[
-                windowGroup focusPrevious
+                action := #FocusPrevious.
             ] ifFalse:[
-                windowGroup focusNext
-            ].
-        ]
+                action := #FocusNext.
+            ]
+        ].
+        action == #FocusNext ifTrue:[
+            windowGroup focusNext.
+        ].
+        action == #FocusPrevious ifTrue:[
+            windowGroup focusPrevious.
+        ].
     ].
-    key == #FocusNext ifTrue:[
-        windowGroup notNil ifTrue:[
-            windowGroup focusNext.
-        ]
-    ].
-    key == #FocusPrevious ifTrue:[
-        windowGroup notNil ifTrue:[
-            windowGroup focusPrevious.
-        ]
-    ].
-
     ^ self
 
     "Modified: 28.5.1996 / 20:21:41 / cg"
@@ -586,5 +582,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.46 1997-06-11 11:18:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.47 1999-03-05 11:25:00 cg Exp $'
 ! !
hg/stx-libview