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>
Sun, 14 Mar 1999 14:25:05 +0100
changeset 2507 daaf44f27cdd
parent 2506 221b75206a75
child 2508 008953d74e91
checkin from browser
WGroup.st file | annotate | diff | comparison | revisions
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WGroup.st	Sun Mar 14 14:01:00 1999 +0100
+++ b/WGroup.st	Sun Mar 14 14:25:05 1999 +0100
@@ -1667,18 +1667,23 @@
 !
 
 focusView:aViewOrNil byTab:focusCameViaTab
-    "give focus to aViewOrNil"
+    "give focus to aViewOrNil.
+     The focusCameViaTab argument specifies if the focus came via
+     tabbing or by pointer-movement/automatic.
+     If it came via tabbing, the view is notified differently, to allow
+     for special highlighting (i.e. drawing a focus-border around itself)"
 
-    |prevFocusView|
+    |prevFocusView myDisplay|
 
-    prevFocusView := FocusViewPerDisplay at:self device ifAbsent:nil.
+    myDisplay := self graphicsDevice.
+    prevFocusView := FocusViewPerDisplay at:myDisplay ifAbsent:nil.
 
     (prevFocusView notNil 
     and:[prevFocusView ~~ aViewOrNil]) ifTrue:[
         prevFocusView showNoFocus:true.
         prevFocusView hasKeyboardFocus:false.
     ].
-    FocusViewPerDisplay at:self device put:aViewOrNil.
+    FocusViewPerDisplay at:myDisplay put:aViewOrNil.
 
     focusView == aViewOrNil ifTrue:[
         focusView notNil ifTrue:[
@@ -1989,6 +1994,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.158 1999-03-14 12:59:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.159 1999-03-14 13:25:05 cg Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Sun Mar 14 14:01:00 1999 +0100
+++ b/WindowGroup.st	Sun Mar 14 14:25:05 1999 +0100
@@ -1667,18 +1667,23 @@
 !
 
 focusView:aViewOrNil byTab:focusCameViaTab
-    "give focus to aViewOrNil"
+    "give focus to aViewOrNil.
+     The focusCameViaTab argument specifies if the focus came via
+     tabbing or by pointer-movement/automatic.
+     If it came via tabbing, the view is notified differently, to allow
+     for special highlighting (i.e. drawing a focus-border around itself)"
 
-    |prevFocusView|
+    |prevFocusView myDisplay|
 
-    prevFocusView := FocusViewPerDisplay at:self device ifAbsent:nil.
+    myDisplay := self graphicsDevice.
+    prevFocusView := FocusViewPerDisplay at:myDisplay ifAbsent:nil.
 
     (prevFocusView notNil 
     and:[prevFocusView ~~ aViewOrNil]) ifTrue:[
         prevFocusView showNoFocus:true.
         prevFocusView hasKeyboardFocus:false.
     ].
-    FocusViewPerDisplay at:self device put:aViewOrNil.
+    FocusViewPerDisplay at:myDisplay put:aViewOrNil.
 
     focusView == aViewOrNil ifTrue:[
         focusView notNil ifTrue:[
@@ -1989,6 +1994,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.158 1999-03-14 12:59:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.159 1999-03-14 13:25:05 cg Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview