private.rc
changeset 217 fdd6854623d6
parent 216 784202865f5f
child 221 4555412bf82f
--- a/private.rc	Fri May 02 10:08:18 1997 +0200
+++ b/private.rc	Fri May 02 10:35:44 1997 +0200
@@ -72,8 +72,15 @@
 "/     I want my #iris style ...
 "/
 Display hasGrayscales ifTrue:[
-    View defaultStyle:#iris.
-"/ View defaultStyle:#motif.
+    OperatingSystem getOSType = 'win32' ifTrue:[
+	View defaultStyle:#mswindows3
+    ] ifFalse:[
+	View defaultStyle:#iris.
+	"/
+	"/ or whatever you like as default ...
+	"/
+	"/ View defaultStyle:#motif.
+    ]
 ] ifFalse:[
     View defaultStyle:#normal
 ].
@@ -94,8 +101,14 @@
 		  and:[domain = 'axept.de' or:[domain = 'exept.de']].
 
 thisIsMySystem ifTrue:[
+    "/
+    "/ I prefer a smaller menu font
+    "/
     MenuView defaultFont:(MenuView defaultFont size:10).
 
+    "/
+    "/ I have additional directories to be searched for
+    "/
     Smalltalk systemPath addFirst:'../../not_delivered'.
     Smalltalk systemPath addFirst:'../../private_classes'.
     Smalltalk systemPath addFirst:'../../fileIn/not_delivered'.
@@ -104,7 +117,7 @@
 
 "/ since smalltalk keeps track of which directories exist
 "/ in the path, this cache has to be flushed whenever new directories
-"/ are added to the path:
+"/ are added to the system path:
 "/
 Smalltalk flushPathCaches.
 
@@ -128,15 +141,15 @@
 "/
 "/ claus:
 "/     I like those fancy cursors :-)
-"/     if you think this is too 'childish', remove the line below ...
+"/     if you think this is too 'childish', remove (comment) the line below ...
 "/
-"/ 'loading fancy cursors ...' infoPrintCR.
+"/ 'setup fancy cursors ...' infoPrintCR.
 Cursor initializeNewCursors.
 
-
 "/ claus:
 "/     The history manager automatically adds a history line to changed
 "/     methods and optionally to a classes history method.
+"/     if you dont like this, comment the following lines.
 "/
 thisIsMySystem ifTrue:[
     HistoryManager notNil ifTrue:[
@@ -148,6 +161,8 @@
 "/ claus:
 "/     I startup the rdoit server process;
 "/     (using rdoit to start ST/X views via window manager menus ...)
+"/     If you like (and want) this to be also started automatically,
+"/     replace the if- by 'true ifTrue:...' or remove the if.
 "/
 "
 thisIsMySystem ifTrue:[
@@ -169,10 +184,11 @@
 "/     Once you get bored about them, make the below unconditional.
 "/     (you can also turn them off in the Launchers settings menu ...)
 "/
-Compiler allowUnderscoreInIdentifier:true. 
-Compiler warnUnderscoreInIdentifier:false. 
-Compiler warnSTXSpecials:false.
-
+thisIsMySystem ifTrue:[
+    Compiler allowUnderscoreInIdentifier:true. 
+    Compiler warnUnderscoreInIdentifier:false. 
+    Compiler warnSTXSpecials:false.
+].
 
 "/ this is a temporary kludge: specify the flags to be used
 "/ when compiling via stc. Primitive compilation (from within the browser)