class: View
moved to superview:
#assignKeyboardFocusTo:
#assignKeyboardFocusToFirstInputField
--- a/View.st Tue Feb 24 16:45:26 2015 +0100
+++ b/View.st Tue Feb 24 16:45:44 2015 +0100
@@ -738,51 +738,6 @@
!View methodsFor:'initialization & release'!
-assignKeyboardFocusTo:aConsumer
- |wg|
-
- wg := self windowGroup .
- self graphicsDevice isWindowsPlatform ifTrue:[
- wg focusView:aConsumer byTab:true.
- ] ifFalse:[
- aConsumer requestFocus.
- "/ consumer requestFocus. - could be denied; but we force it here
- wg focusView:aConsumer byTab:false.
- ].
-!
-
-assignKeyboardFocusToFirstInputField
- "assign the keyboard focus to the first first keyboardConsumer.
- (in older versions, this used to favour inputfields over editFields;
- see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)"
-
- |firstInputField firstConsumer firstCursorConsumer consumer|
-
- self allSubViewsDo:[:v |
- v shown ifTrue:[
- (firstInputField isNil and:[v isInputField]) ifTrue:[
- firstInputField := v
- ].
- (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
- firstConsumer := v
- ].
- (firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
- firstCursorConsumer := v
- ].
- ].
- ].
- (firstInputField notNil and:[self preferFirstInputFieldWhenAssigningInitialFocus]) ifTrue:[
- consumer := firstInputField.
- ].
- consumer := (consumer ? firstConsumer ? firstCursorConsumer).
- "/ Transcript showCR:consumer.
- consumer notNil ifTrue:[
- self assignKeyboardFocusTo:consumer
- ].
-
- "Modified: / 29-08-2006 / 14:32:30 / cg"
-!
-
initialize
super initialize.
@@ -826,10 +781,10 @@
!View class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.88 2015-01-12 10:29:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.89 2015-02-24 15:45:44 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.88 2015-01-12 10:29:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.89 2015-02-24 15:45:44 cg Exp $'
! !