equal
deleted
inserted
replaced
839 "the view got the keyboard focus (via the window manager)" |
839 "the view got the keyboard focus (via the window manager)" |
840 |
840 |
841 |v| |
841 |v| |
842 |
842 |
843 windowGroup notNil ifTrue:[ |
843 windowGroup notNil ifTrue:[ |
844 (v := windowGroup focusView) notNil ifTrue:[ |
844 (v := windowGroup focusView) notNil ifTrue:[ |
845 v showFocus:false. |
845 v requestFocus. |
846 ^ self |
846 ^ self |
847 ] |
847 ] |
848 ]. |
848 ]. |
849 super focusIn |
849 super focusIn |
850 |
850 |
851 "Modified: 25.2.1997 / 23:19:46 / cg" |
851 "Modified: 25.2.1997 / 23:19:46 / cg" |
852 ! |
|
853 |
|
854 focusOut |
|
855 "the view lost keyboard focus (via the window manager)" |
|
856 |
|
857 |v| |
|
858 |
|
859 windowGroup notNil ifTrue:[ |
|
860 (v := windowGroup focusView) notNil ifTrue:[ |
|
861 v showNoFocus:false. |
|
862 ^ self |
|
863 ] |
|
864 ]. |
|
865 super focusOut |
|
866 |
|
867 "Modified: 25.2.1997 / 23:19:54 / cg" |
|
868 ! |
852 ! |
869 |
853 |
870 showActivity:someMessage |
854 showActivity:someMessage |
871 "some activityNotification shalt be communicated to |
855 "some activityNotification shalt be communicated to |
872 the user. Forward it to my application (if any). |
856 the user. Forward it to my application (if any). |
1403 ! ! |
1387 ! ! |
1404 |
1388 |
1405 !StandardSystemView class methodsFor:'documentation'! |
1389 !StandardSystemView class methodsFor:'documentation'! |
1406 |
1390 |
1407 version |
1391 version |
1408 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.107 1999-02-13 10:32:16 cg Exp $' |
1392 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.108 1999-03-14 13:01:00 cg Exp $' |
1409 ! ! |
1393 ! ! |
1410 StandardSystemView initialize! |
1394 StandardSystemView initialize! |