smalltalk.rc
changeset 609 f0f51d4a0066
parent 568 15e0e2736c8b
child 612 24f576a3f1c6
--- a/smalltalk.rc	Sat Mar 20 01:09:02 2004 +0100
+++ b/smalltalk.rc	Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
 "/
 "/ $Header$
 "/
@@ -58,7 +59,7 @@
     cpu = 'sparc' ifTrue:[
 	"/ for now, disable if we detect running on a sparcV10;
 	"/ Reason:
-	"/   we do not have v10 machines here at Exept (they even do not exist at this time), 
+	"/   we do not have v10 machines here at Exept (they even do not exist at this time),
 	"/   and therefore have no way of checking if it runs on v10.
 	"/  I dont want ST/X to crash on your side in that case ...
 	"/  ... better run a bit slower than not running at all.
@@ -81,8 +82,8 @@
 
 ObjectMemory infoPrinting:false.
 "/ Smalltalk loadBinaries:true.
-Compiler allowUnderscoreInIdentifier:true. 
-Compiler warnUnderscoreInIdentifier:false. 
+Compiler allowUnderscoreInIdentifier:true.
+Compiler warnUnderscoreInIdentifier:false.
 Compiler warnSTXSpecials:false.
 !
 
@@ -129,7 +130,7 @@
     "/ only use the local packages.
     "/
     '../../projects/smalltalk' asFilename exists ifTrue:[
-	Smalltalk packagePath removeAll; add:'../../..'.    
+	Smalltalk packagePath removeAll; add:'../../..'.
 	'smalltalk.rc [info]: setting packagePath for local operation' printCR.
     ].
 
@@ -137,7 +138,7 @@
     "/ any additional local packages ?.
     "/
     'packages' asFilename exists ifTrue:[
-	 Smalltalk packagePath addFirst:'./packages'.    
+	 Smalltalk packagePath addFirst:'./packages'.
 	 "/ 'additional local packages' printCR.
     ].
     "/ 'packagePath: ' print. Smalltalk packagePath printCR.
@@ -178,7 +179,7 @@
 	 Smalltalk fileInClassLibrary:'XWorkstation' inPackage:'stx:libview'.
 	 OperatingSystem isMSWINDOWSlike ifTrue:[
 	     Smalltalk fileInClassLibrary:'WinWorkstation' inPackage:'stx:libview'.
-	 ].  
+	 ].
     ].
     openDisplay := true.
 ].
@@ -252,7 +253,7 @@
 "/ and install all nonExisting classes as autoloaded
 "/
 
-Class withoutUpdatingChangesDo:[ 
+Class withoutUpdatingChangesDo:[
     |needToReactivate|
 
     HistoryManager notNil ifTrue:[
@@ -300,7 +301,7 @@
 "/ (see ObjectMemory>>documentation)
 "/ Claus: I moved this to the private.rc file
 "/
-"/ ObjectMemory incrementalGCLimit:100000. 
+"/ ObjectMemory incrementalGCLimit:100000.
 
 "/
 "/ this starts the incremental GC when freeSpace drops below a limit
@@ -308,24 +309,24 @@
 "/ (see ObjectMemory>>documentation)
 "/ Claus: I moved this to the private.rc file
 "/
-"/ ObjectMemory freeSpaceGCLimit:300000. 
+"/ ObjectMemory freeSpaceGCLimit:300000.
 
 "/ experimental: try to always keep some bytes in the pocket
 "/ this changes the memory policy, to start the background collector whenever
-"/ freespace drops below 250k or 500k have been allocated since the last GC. 
+"/ freespace drops below 250k or 500k have been allocated since the last GC.
 "/ AND to allocate more memory, if (after the collect) less than 1Mb is free.
 "/ Doing so makes the system behave better if lots of memory is required
 "/ for short periods of time, since it prepares itself for that situation
 "/ during idle time. (I often walk around in the fileBrowser, loading big
 "/ files like XWorkstation.st or SystemBrowser.st ....)
 
-ObjectMemory freeSpaceGCAmount:1000000. 
-ObjectMemory freeSpaceGCLimit:250000. 
-ObjectMemory incrementalGCLimit:500000. 
+ObjectMemory freeSpaceGCAmount:1000000.
+ObjectMemory freeSpaceGCLimit:250000.
+ObjectMemory incrementalGCLimit:500000.
 ObjectMemory oldSpaceIncrement:500000.
 ObjectMemory oldSpaceCompressLimit:0.   "/ temporary kludge
-ObjectMemory startBackgroundCollectorAt:5. 
-ObjectMemory startBackgroundFinalizationAt:5. 
+ObjectMemory startBackgroundCollectorAt:5.
+ObjectMemory startBackgroundFinalizationAt:5.
 
 "/ this limits the amount of memory which is allocated for oldSpace
 "/ (for example to prevent ST/X from taking memory from other processes)
@@ -513,7 +514,7 @@
 "/ just a quick check, if this ST/X installation seems to
 "/ be halfway complete (it happened to some people, that
 "/ their source/resource directories were not installed)
-"/ - better to warn early ... 
+"/ - better to warn early ...
 "/
 |anyWrong missing|
 Smalltalk isStandAloneApp ifFalse:[
@@ -617,9 +618,9 @@
  'st.img' asFilename exists ifFalse:[
    '.' asFilename isWritable ifTrue:[
      |doneWithStartupStuff|
- 
+
      doneWithStartupStuff := Semaphore new.
- 
+
      Smalltalk addStartBlock:[
       [
 	  doneWithStartupStuff wait.
@@ -627,7 +628,7 @@
 	     ObjectMemory primSnapShotOn:'st.img'
       ] forkAt:1
      ].
- 
+
      Smalltalk addStartBlock:[
       [
 	  Delay waitForSeconds:10.