--- a/private.rc Fri Dec 16 16:43:29 2005 +0100
+++ b/private.rc Mon Dec 19 19:04:13 2005 +0100
@@ -91,7 +91,7 @@
"/ MenuView defaultFont:(MenuView defaultFont size:10).
].
-"/ add my private directories to the searchPath ...
+"/ add my private directories to the systemPath ...
"/ This does not make sense in your environment.
"/ However, I leave the code here to show how its done.
"/
@@ -217,44 +217,47 @@
"/ startBlocks will be evaluated after the thread-scheduler have been started
"/ and the displays event dispatcher is running.
"/
-Smalltalk addStartBlock:[
- "/
- "/ start some views ...
- "/ you can add all stuff you'd like to come up by default
- "/ the first time.
- "/
-
- 'private.rc [info]: starting main-menu...' infoPrintCR.
- Text new. "/ to avoid visible messages in minitalk
-
- NewLauncher open.
- ((Smalltalk commandLineArguments includes:'--quick')
- or:[(Smalltalk commandLineArguments includes:'--faststart')
- or:[(Smalltalk commandLineArguments includes:'--fastStart')]])
- ifFalse:[
+(Smalltalk commandLineArguments includes:'--browserWindow:') ifFalse:[
+ Smalltalk addStartBlock:[
"/
- "/ disable this if you don't like the other window to come up
+ "/ start some views ...
+ "/ you can add all stuff you'd like to come up by default
+ "/ the first time.
"/
- WorkspaceApplication openSystemWorkspace.
- ].
+
+ 'private.rc [info]: starting main-menu...' infoPrintCR.
+ Text new. "/ to avoid visible messages in minitalk
+
+ NewLauncher open.
- "/
- "/ start a SystemBrowser
- "/ - I dont want one (using Launcher)
- "/
- "/ NewSystemBrowser open.
+ ((Smalltalk commandLineArguments includes:'--quick')
+ or:[(Smalltalk commandLineArguments includes:'--faststart')
+ or:[(Smalltalk commandLineArguments includes:'--fastStart')]])
+ ifFalse:[
+ "/
+ "/ disable this if you don't like the other window to come up
+ "/
+ WorkspaceApplication openSystemWorkspace.
+ ].
- "/
- "/ start a FileBrowser
- "/ - I dont want one (using Launcher)
- "/
- "/ FileBrowserV2 open.
+ "/
+ "/ start a SystemBrowser
+ "/ - I dont want one (using Launcher)
+ "/
+ "/ NewSystemBrowser open.
- "/
- "/ start a Workspace
- "/ - I dont want one (using Launcher)
- "/
- "/ WorkspaceApplication open.
+ "/
+ "/ start a FileBrowser
+ "/ - I dont want one (using Launcher)
+ "/
+ "/ FileBrowserV2 open.
+
+ "/
+ "/ start a Workspace
+ "/ - I dont want one (using Launcher)
+ "/
+ "/ WorkspaceApplication open.
+ ].
].
!