--- a/smalltalk.rc Wed Aug 20 20:32:03 1997 +0200
+++ b/smalltalk.rc Sat Sep 06 19:55:02 1997 +0200
@@ -100,6 +100,7 @@
(Smalltalk getSystemFileName:'resources/SBrowser.rs') isNil ifTrue:[
'***********************************************************************' errorPrintCR.
'***** ATTENTION: please check installation of your resource files' errorPrintCR.
+ '***** I will not be able to give non-english messages' errorPrintCR.
anyWrong := true.
missing := '''resources'' '.
].
@@ -125,6 +126,7 @@
(Smalltalk getSystemFileName:'resources/normal.style') isNil ifTrue:[
'***********************************************************************' errorPrintCR.
'***** ATTENTION: please check installation of your style files' errorPrintCR.
+ '***** I will use a plain b&w viewStyle as a fallBack' errorPrintCR.
anyWrong := true.
missing := missing , '''resources'' '.
].
@@ -241,6 +243,8 @@
"/ (it will not be shown when coming up via a snapshot image)
Smalltalk addStartBlock:[
+ 'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
+
"/ MessageTally spyOn:[
"/ Class withoutUpdatingChangesDo:[
"/ 'patches [info]: installing autoloaded classes ...' infoPrintCR.
@@ -295,18 +299,18 @@
"/ doneWithStartupStuff := Semaphore new.
"/
"/ Smalltalk addStartBlock:[
-"/ [
-"/ doneWithStartupStuff wait.
+"/ [
+"/ doneWithStartupStuff wait.
"/ 'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
"/ ObjectMemory primSnapShotOn:'st.img'
-"/ ] forkAt:1
+"/ ] forkAt:1
"/ ].
"/
"/ Smalltalk addStartBlock:[
-"/ [
-"/ Delay waitForSeconds:10.
-"/ doneWithStartupStuff signal
-"/ ] forkAt:1
+"/ [
+"/ Delay waitForSeconds:10.
+"/ doneWithStartupStuff signal
+"/ ] forkAt:1
"/ ].
"/ ].
!