741 assignKeyboardFocusTo:aConsumer

   742     |wg|

   743 

   744     wg := self windowGroup .

   745     self graphicsDevice isWindowsPlatform ifTrue:[

   746         wg focusView:aConsumer byTab:true.

   747     ] ifFalse:[

   748         aConsumer requestFocus.

   749         "/ consumer requestFocus. - could be denied; but we force it here

   750         wg focusView:aConsumer byTab:false.

   751     ].

   752 !

   753 

   754 assignKeyboardFocusToFirstInputField

   755     "assign the keyboard focus to the first first keyboardConsumer.

   756      (in older versions, this used to favour inputfields over editFields;

   757       see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)"

   758 

   759     |firstInputField firstConsumer firstCursorConsumer consumer|

   760 

   761     self allSubViewsDo:[:v |

   762         v shown ifTrue:[

   763             (firstInputField isNil and:[v isInputField]) ifTrue:[

   764                 firstInputField := v

   765             ].

   766             (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[

   767                 firstConsumer := v

   768             ].

   769             (firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[

   770                 firstCursorConsumer := v

   771             ].

   772         ].

   773     ].

   774     (firstInputField notNil and:[self preferFirstInputFieldWhenAssigningInitialFocus]) ifTrue:[

   775         consumer := firstInputField.

   776     ].

   777     consumer := (consumer ? firstConsumer ? firstCursorConsumer).

   778     "/ Transcript showCR:consumer.

   779     consumer notNil ifTrue:[

   780         self assignKeyboardFocusTo:consumer

   781     ].

   782 

   783     "Modified: / 29-08-2006 / 14:32:30 / cg"

   784 !

   785