--- 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)