--- a/WindowGroup.st Thu Aug 29 16:41:14 2013 +0200
+++ b/WindowGroup.st Thu Aug 29 18:46:18 2013 +0200
@@ -2204,8 +2204,8 @@
|prevFocusView myDisplay|
-"/'focusToView:' print. aViewOrNil print.
-"/' (prev: ' print. focusView print. ')' printCR.
+ "/'focusToView:' print. aViewOrNil print.
+ "/' (prev: ' print. focusView print. ')' printCR.
myDisplay := self graphicsDevice.
myDisplay notNil ifTrue:[
@@ -2214,7 +2214,7 @@
"/
prevFocusView := myDisplay focusView.
prevFocusView ~~ aViewOrNil ifTrue:[
-"/'take focus from ' print. prevFocusView printCR.
+ "/'take focus from ' print. prevFocusView printCR.
self class takeFocusFromDevice:myDisplay.
].
].
@@ -2229,11 +2229,11 @@
focusCameViaTabOrNil notNil ifTrue:[
focusByTab := focusCameViaTabOrNil "or:[focusByTab]".
].
-false ifTrue:[
- focusView showFocus:focusByTab.
-'give focus to ' print. aViewOrNil printCR.
- self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
-].
+ false ifTrue:[
+ focusView showFocus:focusByTab.
+ 'give focus to ' print. aViewOrNil printCR.
+ self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
+ ].
].
^ self
].
@@ -2241,7 +2241,7 @@
focusView notNil ifTrue:[
"/ lost explicit focus
focusView == aViewOrNil ifTrue:[
-"/'give focus to ' print. aViewOrNil printCR.
+ "/'give focus to ' print. aViewOrNil printCR.
self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
^ self
].
@@ -2251,7 +2251,7 @@
focusView notNil ifTrue:[
"/ got explicit focus
aViewOrNil showFocus:(focusCameViaTabOrNil ? true).
-"/'give focus to ' print. aViewOrNil printCR.
+ "/'give focus to ' print. aViewOrNil printCR.
self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
focusCameViaTabOrNil notNil ifTrue:[
focusByTab := focusCameViaTabOrNil.
@@ -2805,11 +2805,11 @@
!WindowGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.323 2013-08-29 16:46:18 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.323 2013-08-29 16:46:18 cg Exp $'
! !