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>
Thu, 20 May 1999 18:35:21 +0200
changeset 2692 79a3b3d740f9
parent 2691 26dd87552563
child 2693 8de1d8fd9a55
checkin from browser
WGroup.st file | annotate | diff | comparison | revisions
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WGroup.st	Thu May 20 18:34:11 1999 +0200
+++ b/WGroup.st	Thu May 20 18:35:21 1999 +0200
@@ -1613,6 +1613,8 @@
 
     |prevFocusView myDisplay i|
 
+"/    'focusRequest:' print. aView print. 
+
     myDisplay := self graphicsDevice.
     (myDisplay notNil 
     and:[myDisplay activateOnClick:nil]) ifTrue:[
@@ -1626,21 +1628,21 @@
             "/ a view from another windowGroup requests the focus.
             "/ Do not grant this, if in windows-activateOnClick mode.
 
-"/          'focusRequest not granted' printCR.
+"/            ' not granted' printCR.
             myDisplay setInputFocusTo:prevFocusView.
             ^ false
         ].
-    ] ifFalse:[
-        "/ 'focusRequest granted' printCR.
     ].
 
+"/    ' granted' printCR.
+
     (focusView isNil or:[focusByTab not]) ifTrue:[
         self focusView:aView byTab:false.
         ^ true
     ].
     ^ false
 
-    "Modified: / 20.5.1999 / 16:11:21 / cg"
+    "Modified: / 20.5.1999 / 18:30:31 / cg"
 !
 
 focusSequence
@@ -1733,6 +1735,8 @@
 
     |i prevFocusView prevFocusCameViaTab myDisplay|
 
+"/  'focusToView:' print. aViewOrNil printCR. 
+
     myDisplay := self graphicsDevice.
     myDisplay notNil ifTrue:[
         "/
@@ -1792,7 +1796,7 @@
      top windowGroup focusView:v1.
     "
 
-    "Modified: 31.5.1996 / 21:13:25 / cg"
+    "Modified: / 20.5.1999 / 18:30:16 / cg"
 !
 
 indexOfFocusViewInFocusSequence
@@ -2064,6 +2068,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.173 1999-05-20 16:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.174 1999-05-20 16:35:21 cg Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Thu May 20 18:34:11 1999 +0200
+++ b/WindowGroup.st	Thu May 20 18:35:21 1999 +0200
@@ -1613,6 +1613,8 @@
 
     |prevFocusView myDisplay i|
 
+"/    'focusRequest:' print. aView print. 
+
     myDisplay := self graphicsDevice.
     (myDisplay notNil 
     and:[myDisplay activateOnClick:nil]) ifTrue:[
@@ -1626,21 +1628,21 @@
             "/ a view from another windowGroup requests the focus.
             "/ Do not grant this, if in windows-activateOnClick mode.
 
-"/          'focusRequest not granted' printCR.
+"/            ' not granted' printCR.
             myDisplay setInputFocusTo:prevFocusView.
             ^ false
         ].
-    ] ifFalse:[
-        "/ 'focusRequest granted' printCR.
     ].
 
+"/    ' granted' printCR.
+
     (focusView isNil or:[focusByTab not]) ifTrue:[
         self focusView:aView byTab:false.
         ^ true
     ].
     ^ false
 
-    "Modified: / 20.5.1999 / 16:11:21 / cg"
+    "Modified: / 20.5.1999 / 18:30:31 / cg"
 !
 
 focusSequence
@@ -1733,6 +1735,8 @@
 
     |i prevFocusView prevFocusCameViaTab myDisplay|
 
+"/  'focusToView:' print. aViewOrNil printCR. 
+
     myDisplay := self graphicsDevice.
     myDisplay notNil ifTrue:[
         "/
@@ -1792,7 +1796,7 @@
      top windowGroup focusView:v1.
     "
 
-    "Modified: 31.5.1996 / 21:13:25 / cg"
+    "Modified: / 20.5.1999 / 18:30:16 / cg"
 !
 
 indexOfFocusViewInFocusSequence
@@ -2064,6 +2068,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.173 1999-05-20 16:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.174 1999-05-20 16:35:21 cg Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview