equal
deleted
inserted
replaced
734 |
734 |
735 ! ! |
735 ! ! |
736 |
736 |
737 !View methodsFor:'initialization & release'! |
737 !View methodsFor:'initialization & release'! |
738 |
738 |
|
739 assignKeyboardFocusTo:aConsumer |
|
740 |wg| |
|
741 |
|
742 wg := self windowGroup . |
|
743 self graphicsDevice isWindowsPlatform ifTrue:[ |
|
744 wg focusView:aConsumer byTab:true. |
|
745 ] ifFalse:[ |
|
746 aConsumer requestFocus. |
|
747 "/ consumer requestFocus. - could be denied; but we force it here |
|
748 wg focusView:aConsumer byTab:false. |
|
749 ]. |
|
750 ! |
|
751 |
739 assignKeyboardFocusToFirstInputField |
752 assignKeyboardFocusToFirstInputField |
740 "assign the keyboard focus to the first first keyboardConsumer. |
753 "assign the keyboard focus to the first first keyboardConsumer. |
741 (in older versions, this used to favour inputfields over editFields; |
754 (in older versions, this used to favour inputfields over editFields; |
742 see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)" |
755 see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)" |
743 |
756 |
757 self preferFirstInputFieldWhenAssigningInitialFocus ifTrue:[ |
770 self preferFirstInputFieldWhenAssigningInitialFocus ifTrue:[ |
758 consumer := firstInputField. |
771 consumer := firstInputField. |
759 ]. |
772 ]. |
760 consumer := (consumer ? firstConsumer ? firstCursorConsumer). |
773 consumer := (consumer ? firstConsumer ? firstCursorConsumer). |
761 consumer notNil ifTrue:[ |
774 consumer notNil ifTrue:[ |
762 self graphicsDevice isWindowsPlatform ifTrue:[ |
775 self assignKeyboardFocusTo:consumer |
763 self windowGroup focusView:consumer byTab:true. |
|
764 ] ifFalse:[ |
|
765 consumer requestFocus. |
|
766 "/ consumer requestFocus. - could be denied; but we force it here |
|
767 self windowGroup focusView:consumer byTab:false. |
|
768 ]. |
|
769 ]. |
776 ]. |
770 |
777 |
771 "Modified: / 29-08-2006 / 14:32:30 / cg" |
778 "Modified: / 29-08-2006 / 14:32:30 / cg" |
772 ! |
779 ! |
773 |
780 |
812 ! ! |
819 ! ! |
813 |
820 |
814 !View class methodsFor:'documentation'! |
821 !View class methodsFor:'documentation'! |
815 |
822 |
816 version |
823 version |
817 ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.84 2014-04-03 14:34:55 cg Exp $' |
824 ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.85 2014-06-13 21:07:01 cg Exp $' |
818 ! ! |
825 ! ! |
819 |
826 |