equal
deleted
inserted
replaced
221 "/ startBlocks will be evaluated after the thread-scheduler have been started |
221 "/ startBlocks will be evaluated after the thread-scheduler have been started |
222 "/ and the displays event dispatcher is running. |
222 "/ and the displays event dispatcher is running. |
223 "/ |
223 "/ |
224 Smalltalk isPlugin ifFalse:[ |
224 Smalltalk isPlugin ifFalse:[ |
225 Smalltalk addStartBlock:[ |
225 Smalltalk addStartBlock:[ |
|
226 |i fn| |
|
227 |
226 "/ |
228 "/ |
227 "/ start some views ... |
229 "/ start some views ... |
228 "/ you can add all stuff you'd like to come up by default |
230 "/ you can add all stuff you'd like to come up by default |
229 "/ the first time. |
231 "/ the first time. |
230 "/ |
232 "/ |
260 "/ |
262 "/ |
261 "/ FileBrowserV2 open. |
263 "/ FileBrowserV2 open. |
262 |
264 |
263 UserPreferences current flyByHelpActive ifTrue:[ |
265 UserPreferences current flyByHelpActive ifTrue:[ |
264 FlyByHelp start |
266 FlyByHelp start |
|
267 ]. |
|
268 |
|
269 "/ an additional --run <file> argument... |
|
270 (i := Smalltalk commandLineArguments indexOf:'--run') ~~ 0 ifTrue:[ |
|
271 fn := Smalltalk commandLineArguments at:i+1. |
|
272 ('private.rc [info]: executing "',fn,'"...') infoPrintCR. |
|
273 Smalltalk fileIn:fn. |
265 ] |
274 ] |
266 ]. |
275 ]. |
267 ]. |
276 ]. |
268 |
277 |
269 ! |
278 ! |