Mercurial Mercurial > hg > stx-libview / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
WindowGroup.st
changeset 5676 d5d971d044ef
parent 5584 57e0a4a74d0e
child 5691 b2381760f050
equal deleted inserted replaced
5675:51d438d3033c 5676:d5d971d044ef 
  2145      If it came via tabbing, the view is notified differently, to allow
 
  2145      If it came via tabbing, the view is notified differently, to allow
 
  2146      for special highlighting (i.e. drawing a focus-border around itself)"
 
  2146      for special highlighting (i.e. drawing a focus-border around itself)"
 
  2147 
  2147 
  2148     |prevFocusView myDisplay|
 
  2148     |prevFocusView myDisplay|
 
  2149 
  2149 
  2150 "/ 'focusToView:' print. aViewOrNil printCR. 
  2150 "/'focusToView:' print. aViewOrNil print. 
       
  2151 "/' (prev: ' print.  focusView print. ')' printCR.
 
  2151 
  2152 
  2152     myDisplay := self graphicsDevice.
 
  2153     myDisplay := self graphicsDevice.
 
  2153     myDisplay notNil ifTrue:[
 
  2154     myDisplay notNil ifTrue:[
 
  2154         "/
 
  2155         "/
 
  2155         "/ take the focus from whichEver view had it previously
 
  2156         "/ take the focus from whichEver view had it previously
 
  2156         "/
 
  2157         "/
 
  2157         prevFocusView := myDisplay focusView.
 
  2158         prevFocusView := myDisplay focusView.
 
  2158         prevFocusView ~~ aViewOrNil ifTrue:[
 
  2159         prevFocusView ~~ aViewOrNil ifTrue:[
 
  2159 "/ 'take focus from ' print. prevFocusView printCR. 
  2160 "/'take focus from ' print. prevFocusView printCR. 
  2160             self class takeFocusFromDevice:myDisplay.
 
  2161             self class takeFocusFromDevice:myDisplay.
 
  2161         ].
 
  2162         ].
 
  2162     ].
 
  2163     ].
 
  2163 
  2164 
  2164     myDisplay focusView:aViewOrNil.
 
  2165     myDisplay focusView:aViewOrNil.
 
  2169             "/ into a topView which had a focusView
 
  2170             "/ into a topView which had a focusView
 
  2170             "/ cg: disabled 5.jun.08
 
  2171             "/ cg: disabled 5.jun.08
 
  2171             focusCameViaTabOrNil notNil ifTrue:[
 
  2172             focusCameViaTabOrNil notNil ifTrue:[
 
  2172                 focusByTab := focusCameViaTabOrNil "or:[focusByTab]".
 
  2173                 focusByTab := focusCameViaTabOrNil "or:[focusByTab]".
 
  2173             ].
 
  2174             ].
 
       
  2175 false ifTrue:[
 
  2174             focusView showFocus:focusByTab.
 
  2176             focusView showFocus:focusByTab.
 
  2175 "/ 'give focus to ' print. aViewOrNil printCR. 
  2177 'give focus to ' print. aViewOrNil printCR. 
  2176             self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
 
  2178             self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
 
       
  2179 ].
 
  2177         ].
 
  2180         ].
 
  2178         ^ self
 
  2181         ^ self
 
  2179     ].
 
  2182     ].
 
  2180 
  2183 
  2181     focusView notNil ifTrue:[
 
  2184     focusView notNil ifTrue:[
 
  2182         "/ lost explicit focus
 
  2185         "/ lost explicit focus
 
  2183         focusView == aViewOrNil ifTrue:[
 
  2186         focusView == aViewOrNil ifTrue:[
 
  2184 "/ 'give focus to ' print. aViewOrNil printCR. 
  2187 "/'give focus to ' print. aViewOrNil printCR. 
  2185             self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
 
  2188             self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
 
  2186             ^ self
 
  2189             ^ self
 
  2187         ].
 
  2190         ].
 
  2188     ].
 
  2191     ].
 
  2189 
  2192 
  2190     self setFocusView:aViewOrNil.
 
  2193     self setFocusView:aViewOrNil.
 
  2191     focusView notNil ifTrue:[
 
  2194     focusView notNil ifTrue:[
 
  2192         "/ got explicit focus
 
  2195         "/ got explicit focus
 
  2193         aViewOrNil showFocus:(focusCameViaTabOrNil ? true).
 
  2196         aViewOrNil showFocus:(focusCameViaTabOrNil ? true).
 
  2194 "/ 'give focus to ' print. aViewOrNil printCR. 
  2197 "/'give focus to ' print. aViewOrNil printCR. 
  2195         self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
 
  2198         self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
 
  2196         focusCameViaTabOrNil notNil ifTrue:[
 
  2199         focusCameViaTabOrNil notNil ifTrue:[
 
  2197             focusByTab := focusCameViaTabOrNil.
 
  2200             focusByTab := focusCameViaTabOrNil.
 
  2198         ]
 
  2201         ]
 
  2199     ].
 
  2202     ].
 
  2206      v2 := EditTextView origin:0.0@0.5 corner:1.0@1.0 in:top.
 
  2209      v2 := EditTextView origin:0.0@0.5 corner:1.0@1.0 in:top.
 
  2207      top open.
 
  2210      top open.
 
  2208      top windowGroup focusView:v1.
 
  2211      top windowGroup focusView:v1.
 
  2209     "
 
  2212     "
 
  2210 
  2213 
  2211     "Modified: / 08-11-2006 / 12:17:55 / cg"
 
  2214     "Modified: / 20-01-2011 / 22:39:57 / cg"
 
  2212 !
 
  2215 !
 
  2213 
  2216 
  2214 focusViewUnmapped
 
  2217 focusViewUnmapped
 
  2215     "the view which currently had the focus was unmapped"
 
  2218     "the view which currently had the focus was unmapped"
 
  2216 
  2219 
  2718 ! !
 
  2721 ! !
 
  2719 
  2722 
  2720 !WindowGroup class methodsFor:'documentation'!
 
  2723 !WindowGroup class methodsFor:'documentation'!
 
  2721 
  2724 
  2722 version
 
  2725 version
 
  2723     ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.309 2010-07-28 01:34:59 cg Exp $'
 
  2726     ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.310 2011-01-20 21:40:37 cg Exp $'
 
  2724 !
 
  2727 !
 
  2725 
  2728 
  2726 version_CVS
 
  2729 version_CVS
 
  2727     ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.309 2010-07-28 01:34:59 cg Exp $'
 
  2730     ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.310 2011-01-20 21:40:37 cg Exp $'
 
  2728 ! !
 
  2731 ! !
 
  2729 
  2732 
  2730 WindowGroup initialize!
 
  2733 WindowGroup initialize!
hg/stx-libview