equal
deleted
inserted
replaced
850 ]. |
850 ]. |
851 ]. |
851 ]. |
852 |
852 |
853 "Created: / 5.11.2001 / 17:32:23 / cg" |
853 "Created: / 5.11.2001 / 17:32:23 / cg" |
854 "Modified: / 5.11.2001 / 17:32:38 / cg" |
854 "Modified: / 5.11.2001 / 17:32:38 / cg" |
|
855 ! |
|
856 |
|
857 browseSendersOfIt |
|
858 "open a browser on the senders of the selected text" |
|
859 |
|
860 |sel| |
|
861 |
|
862 sel := self selectionAsString. |
|
863 sel size > 0 ifTrue:[ |
|
864 self windowGroup withWaitCursorDo:[ |
|
865 (UserPreferences current systemBrowserClass) |
|
866 browseAllCallsOn:sel |
|
867 ] |
|
868 ]. |
|
869 |
|
870 "Created: / 5.11.2001 / 17:32:23 / cg" |
|
871 "Modified: / 13.11.2001 / 13:52:41 / cg" |
855 ! |
872 ! |
856 |
873 |
857 doIt |
874 doIt |
858 "user selected 'doIt' from menu; show a wait-cursor, evaluate the code |
875 "user selected 'doIt' from menu; show a wait-cursor, evaluate the code |
859 and finally restore cursor; return result of evaluation" |
876 and finally restore cursor; return result of evaluation" |
1009 ! ! |
1026 ! ! |
1010 |
1027 |
1011 !Workspace class methodsFor:'documentation'! |
1028 !Workspace class methodsFor:'documentation'! |
1012 |
1029 |
1013 version |
1030 version |
1014 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.98 2001-11-13 09:43:08 cg Exp $' |
1031 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.99 2001-11-13 12:56:58 cg Exp $' |
1015 ! ! |
1032 ! ! |