91 New applications will no longer be built as subclasses of standardSystemView. |
91 New applications will no longer be built as subclasses of standardSystemView. |
92 |
92 |
93 See #customization for information regarding your own private |
93 See #customization for information regarding your own private |
94 launcher functions. |
94 launcher functions. |
95 |
95 |
|
96 Notice: |
|
97 Since there can only be one SystemTranscript, opening a new launcher |
|
98 will automatically close the current one (except for a remote launcher, |
|
99 opened on another display). |
|
100 |
96 [author:] |
101 [author:] |
97 Claus Gittinger |
102 Claus Gittinger |
98 |
103 |
99 [see also:] |
104 [see also:] |
100 Examples_misc::MyLauncher |
105 Examples_misc::MyLauncher |
101 |
106 |
102 [start with:] |
107 [start with:] |
103 Launcher open |
108 Launcher open |
|
109 " |
|
110 ! |
|
111 |
|
112 examples |
|
113 " |
|
114 As ST/X can handle multiple screens, there is nothing (except fear ;-) |
|
115 from preventing you to work with your friend in the same image. |
|
116 To do this, evaluate: |
|
117 [exBegin] |
|
118 |display2| |
|
119 |
|
120 display2 := XWorkstation new initializeFor:'sgi:0'. |
|
121 display2 isNil ifTrue:[ |
|
122 self warn:'cannot connect.'. |
|
123 ] ifFalse:[ |
|
124 display2 startDispatch. |
|
125 display2 keyboardMap:(Display keyboardMap). |
|
126 Launcher openOnDevice:display2. |
|
127 ] |
|
128 [exEnd] |
|
129 But you should be somewhat careful, the other guy may change things so |
|
130 that you are blocked (start high prio processes, change classes etc.) |
|
131 Anyway, a nice demo .... |
104 " |
132 " |
105 ! ! |
133 ! ! |
106 |
134 |
107 !Launcher class methodsFor:'accessing'! |
135 !Launcher class methodsFor:'accessing'! |
108 |
136 |
2741 "Modified: 8.1.1997 / 14:54:08 / cg" |
2769 "Modified: 8.1.1997 / 14:54:08 / cg" |
2742 ! ! |
2770 ! ! |
2743 |
2771 |
2744 !Launcher methodsFor:'actions - tools'! |
2772 !Launcher methodsFor:'actions - tools'! |
2745 |
2773 |
|
2774 browseAllBreakAndTracePoints |
|
2775 "open a browser showing all breakPointed/traced methods |
|
2776 (but, to get rid of them, there is also a menu itme to remove them all)" |
|
2777 |
|
2778 |methods| |
|
2779 |
|
2780 methods := WrappedMethod allInstances. |
|
2781 SystemBrowser browseMethods:methods title:'all breakPointed/traced methods' |
|
2782 |
|
2783 "Modified: 14.1.1997 / 12:51:17 / cg" |
|
2784 "Created: 14.1.1997 / 12:55:23 / cg" |
|
2785 ! |
|
2786 |
2746 compressingGarbageCollect |
2787 compressingGarbageCollect |
2747 "perform a compressing garbageCollect" |
2788 "perform a compressing garbageCollect" |
2748 |
2789 |
2749 ObjectMemory verboseGarbageCollect |
2790 ObjectMemory verboseGarbageCollect |
2750 |
2791 |
3732 put:(PopUpMenu |
3774 put:(PopUpMenu |
3733 labels:(resources array:#( |
3775 labels:(resources array:#( |
3734 'garbage collect' |
3776 'garbage collect' |
3735 'garbage collect & compress' |
3777 'garbage collect & compress' |
3736 '-' |
3778 '-' |
|
3779 'find all break/trace points' |
3737 'remove all break/trace points' |
3780 'remove all break/trace points' |
3738 )) |
3781 )) |
3739 selectors:#( |
3782 selectors:#( |
3740 #garbageCollect |
3783 #garbageCollect |
3741 #compressingGarbageCollect |
3784 #compressingGarbageCollect |
3742 nil |
3785 nil |
|
3786 #browseAllBreakAndTracePoints |
3743 #removeAllBreakAndTracePoints |
3787 #removeAllBreakAndTracePoints |
3744 ) |
3788 ) |
3745 receiver:self). |
3789 receiver:self). |
3746 |
3790 |
3747 m subMenuAt:#hardcopy |
3791 m subMenuAt:#hardcopy |