2202 If it came via tabbing, the view is notified differently, to allow |
2202 If it came via tabbing, the view is notified differently, to allow |
2203 for special highlighting (i.e. drawing a focus-border around itself)" |
2203 for special highlighting (i.e. drawing a focus-border around itself)" |
2204 |
2204 |
2205 |prevFocusView myDisplay| |
2205 |prevFocusView myDisplay| |
2206 |
2206 |
2207 "/'focusToView:' print. aViewOrNil print. |
2207 "/'focusToView:' print. aViewOrNil print. |
2208 "/' (prev: ' print. focusView print. ')' printCR. |
2208 "/' (prev: ' print. focusView print. ')' printCR. |
2209 |
2209 |
2210 myDisplay := self graphicsDevice. |
2210 myDisplay := self graphicsDevice. |
2211 myDisplay notNil ifTrue:[ |
2211 myDisplay notNil ifTrue:[ |
2212 "/ |
2212 "/ |
2213 "/ take the focus from whichEver view had it previously |
2213 "/ take the focus from whichEver view had it previously |
2214 "/ |
2214 "/ |
2215 prevFocusView := myDisplay focusView. |
2215 prevFocusView := myDisplay focusView. |
2216 prevFocusView ~~ aViewOrNil ifTrue:[ |
2216 prevFocusView ~~ aViewOrNil ifTrue:[ |
2217 "/'take focus from ' print. prevFocusView printCR. |
2217 "/'take focus from ' print. prevFocusView printCR. |
2218 self class takeFocusFromDevice:myDisplay. |
2218 self class takeFocusFromDevice:myDisplay. |
2219 ]. |
2219 ]. |
2220 ]. |
2220 ]. |
2221 |
2221 |
2222 myDisplay focusView:aViewOrNil. |
2222 myDisplay focusView:aViewOrNil. |
2227 "/ into a topView which had a focusView |
2227 "/ into a topView which had a focusView |
2228 "/ cg: disabled 5.jun.08 |
2228 "/ cg: disabled 5.jun.08 |
2229 focusCameViaTabOrNil notNil ifTrue:[ |
2229 focusCameViaTabOrNil notNil ifTrue:[ |
2230 focusByTab := focusCameViaTabOrNil "or:[focusByTab]". |
2230 focusByTab := focusCameViaTabOrNil "or:[focusByTab]". |
2231 ]. |
2231 ]. |
2232 false ifTrue:[ |
2232 false ifTrue:[ |
2233 focusView showFocus:focusByTab. |
2233 focusView showFocus:focusByTab. |
2234 'give focus to ' print. aViewOrNil printCR. |
2234 'give focus to ' print. aViewOrNil printCR. |
2235 self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true. |
2235 self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true. |
2236 ]. |
2236 ]. |
2237 ]. |
2237 ]. |
2238 ^ self |
2238 ^ self |
2239 ]. |
2239 ]. |
2240 |
2240 |
2241 focusView notNil ifTrue:[ |
2241 focusView notNil ifTrue:[ |
2242 "/ lost explicit focus |
2242 "/ lost explicit focus |
2243 focusView == aViewOrNil ifTrue:[ |
2243 focusView == aViewOrNil ifTrue:[ |
2244 "/'give focus to ' print. aViewOrNil printCR. |
2244 "/'give focus to ' print. aViewOrNil printCR. |
2245 self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true. |
2245 self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true. |
2246 ^ self |
2246 ^ self |
2247 ]. |
2247 ]. |
2248 ]. |
2248 ]. |
2249 |
2249 |
2250 self setFocusView:aViewOrNil. |
2250 self setFocusView:aViewOrNil. |
2251 focusView notNil ifTrue:[ |
2251 focusView notNil ifTrue:[ |
2252 "/ got explicit focus |
2252 "/ got explicit focus |
2253 aViewOrNil showFocus:(focusCameViaTabOrNil ? true). |
2253 aViewOrNil showFocus:(focusCameViaTabOrNil ? true). |
2254 "/'give focus to ' print. aViewOrNil printCR. |
2254 "/'give focus to ' print. aViewOrNil printCR. |
2255 self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true. |
2255 self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true. |
2256 focusCameViaTabOrNil notNil ifTrue:[ |
2256 focusCameViaTabOrNil notNil ifTrue:[ |
2257 focusByTab := focusCameViaTabOrNil. |
2257 focusByTab := focusCameViaTabOrNil. |
2258 ] |
2258 ] |
2259 ]. |
2259 ]. |
2803 ! ! |
2803 ! ! |
2804 |
2804 |
2805 !WindowGroup class methodsFor:'documentation'! |
2805 !WindowGroup class methodsFor:'documentation'! |
2806 |
2806 |
2807 version |
2807 version |
2808 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $' |
2808 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.323 2013-08-29 16:46:18 cg Exp $' |
2809 ! |
2809 ! |
2810 |
2810 |
2811 version_CVS |
2811 version_CVS |
2812 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $' |
2812 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.323 2013-08-29 16:46:18 cg Exp $' |
2813 ! ! |
2813 ! ! |
2814 |
2814 |
2815 |
2815 |
2816 WindowGroup initialize! |
2816 WindowGroup initialize! |