--- a/smalltalk.rc Fri Mar 05 14:58:44 1999 +0100
+++ b/smalltalk.rc Sat Mar 06 01:25:29 1999 +0100
@@ -322,27 +322,32 @@
"/
"/ Ask user to accept Licence.
"/ exit, if rejected.
+"/
"/ You may find this annoying - but lawers say: "this is a must ..." ;-)
"/ (it will not be shown when coming up via a snapshot image)
+"/ Also, the licenceBox can be suppressed with a command-line argument;
+"/ however, if you do so, we assume you have read & accepted it at least
+"/ once (since this command-line-argument is not documented, you obviously
+"/ read the code below).
-Smalltalk addStartBlock:[
- 'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
+"/
+"/ WARNING: read the licence text before you disable the code below,
+"/ or start stx with a suppress argument.
+"/
-"/ MessageTally spyOn:[
-"/ Class withoutUpdatingChangesDo:[
-"/ 'patches [info]: installing autoloaded classes ...' infoPrintCR.
-"/ Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
-"/ ].
-"/ ].
+(Smalltalk commandLineArguments includes:'--noLicenceBox') ifFalse:[
+ Smalltalk addStartBlock:[
+ 'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
+
+ LicenceBox autoload.
- LicenceBox autoload.
-
- LicenceBox licenceRejectSignal handle:[:ex|
- Smalltalk exit
- ] do:[
- (LicenceBox open) ifFalse:[Smalltalk exit].
- Smalltalk at:#LicenceBox put:nil.
- ].
+ LicenceBox licenceRejectSignal handle:[:ex|
+ Smalltalk exit
+ ] do:[
+ (LicenceBox open) ifFalse:[Smalltalk exit].
+ Smalltalk at:#LicenceBox put:nil.
+ ].
+ ]
].
"/