equal
deleted
inserted
replaced
73 "/ wait forEver |
73 "/ wait forEver |
74 "/ Semaphore new wait. |
74 "/ Semaphore new wait. |
75 ! |
75 ! |
76 |
76 |
77 startInBrowserWithWindowID:windowID parameters:parameters |
77 startInBrowserWithWindowID:windowID parameters:parameters |
78 parameters infoPrintCR. |
78 |appClassName appClass src| |
|
79 |
|
80 appClassName := parameters at:'application' ifAbsent:nil. |
|
81 appClassName notNil ifTrue:[ |
|
82 appClass := Smalltalk classNamed:appClassName. |
|
83 appClass notNil ifTrue:[ |
|
84 self |
|
85 start:appClass |
|
86 inWindowWithID:windowID |
|
87 parameters:parameters. |
|
88 ^ self. |
|
89 ]. |
|
90 ]. |
|
91 |
|
92 src := parameters at:'src' ifAbsent:nil. |
|
93 src notNil ifTrue:[ |
|
94 self halt. |
|
95 ^ self. |
|
96 ]. |
79 |
97 |
80 self |
98 self |
81 start:(WorkspaceApplication ? Workspace) |
99 start:NewLauncher |
82 inWindowWithID:windowID |
100 inWindowWithID:windowID |
83 parameters:parameters |
101 parameters:parameters. |
84 |
102 |
85 " |
103 " |
86 |v| |
104 |v| |
87 |
105 |
88 v := StandardSystemView new. |
106 v := StandardSystemView new. |
134 ! ! |
152 ! ! |
135 |
153 |
136 !PluginSupport class methodsFor:'documentation'! |
154 !PluginSupport class methodsFor:'documentation'! |
137 |
155 |
138 version |
156 version |
139 ^ '$Header: /cvs/stx/stx/libbasic/PluginSupport.st,v 1.9 2005-12-21 22:38:16 cg Exp $' |
157 ^ '$Header: /cvs/stx/stx/libbasic/PluginSupport.st,v 1.10 2005-12-21 22:47:56 cg Exp $' |
140 ! ! |
158 ! ! |