463 "/

   464 "/ Ask user to accept Licence.

   465 "/ exit, if rejected.

   466 "/

   467 "/ You may find this annoying - but lawers say: "this is a must ..." ;-)

   468 "/ (it will not be shown when coming up via a snapshot image)

   469 "/ Also, the licenceBox can be suppressed with a command-line argument;

   470 "/ however, if you do so, we assume you have read & accepted it at least

   471 "/ once (since this command-line-argument is not documented, you obviously

   472 "/ read the code below).

   473 

   474 "/

   475 "/ WARNING: read the licence text before you:

   476 "/      - disable the code below,

   477 "/      - or start stx with a suppress argument.

   478 "/

   479 

   480 (Smalltalk isStandAloneApp not

   481  and:[Smalltalk isPlugin not

   482  and:[Display notNil

   483 ]]) ifTrue:[

   484     ((Smalltalk commandLineArguments includes:'--noLicenceBox')

   485      or:[(Smalltalk commandLineArguments includes:'--quick')

   486      or:[(Smalltalk commandLineArguments includes:'--faststart')

   487      or:[(Smalltalk commandLineArguments includes:'--fastStart')

   488     ]]]) ifFalse:[

   489 	Smalltalk addStartBlock:[

   490 	    'smalltalk.rc [info]: show licence conditions...' infoPrintCR.

   491 	    LicenceBox autoload.

   492 	    LicenceBox licenceRejectSignal handle:[:ex|

   493 		Smalltalk exit

   494 	    ] do:[

   495 		Display exitOnLastClose:false.

   496 		(LicenceBox open) ifFalse:[

   497 		    'smalltalk.rc [info]: licence conditions not accepted.' infoPrintCR.

   498 		    Smalltalk exit

   499 		].

   500 		Class withoutUpdatingChangesDo:[

   501 		    Smalltalk removeClass:LicenceBox.

   502 		].

   503 	    ].

   504 	]

   505     ]

   506 ].