private.rc
changeset 672 43a67655f4f2
parent 670 7f89ef33a8cf
child 678 728aff120ee7
--- 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.
+    ].
 ].
 
 !