--- a/LicenceBox.st	Tue Sep 10 14:49:26 1996 +0200
+++ b/LicenceBox.st	Tue Sep 10 14:54:57 1996 +0200
@@ -7,41 +7,53 @@
 
 !LicenceBox  class methodsFor:'documentation'!
 
-alize!
+copyright
+"
+ COPYRIGHT (c) 1996 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
 
 documentation
 "
     LicenceBox shows a licence text when opened, an returns true,
     if the licence has been accepted, false otherwise.
+
+    [author:]
+	Stefan Vogel
+
+    [see also:]
+	AboutBox
 "
 !
 
 examples
 "
-                                                [exBegin]
+						[exBegin]
     LicenceRejectSignal handle:[:ex|
-        Transcript showCR:'Licence rejected'.
+	Transcript showCR:'Licence rejected'.
     ] do:[
-        LicenceBox open.
-        Transcript showCR:'Licence accepted'.
+	LicenceBox open.
+	Transcript showCR:'Licence accepted'.
     ] 
-                                                [exEnd]
+						[exEnd]
 "
-!
-
-history
-
-    "Created: 6.9.1996 / 13:29:15 / stefan"
-    "Modified: 9.9.1996 / 14:53:11 / stefan"
 ! !
 
 !LicenceBox  class methodsFor:'initialization'!
 
 initialize
     LicenceRejectSignal isNil ifTrue:[
-        LicenceRejectSignal := ErrorSignal newSignalMayProceed:true.
-        LicenceRejectSignal nameClass:self message:#licenceRejectSignal.
-        LicenceRejectSignal notifierString:'licence rejected by user'.
+	LicenceRejectSignal := ErrorSignal newSignalMayProceed:true.
+	LicenceRejectSignal nameClass:self message:#licenceRejectSignal.
+	LicenceRejectSignal notifierString:'licence rejected by user'.
     ].
 
     "
@@ -112,10 +124,10 @@
 
     (self addTextLabel:(resources string:'Please read the licence terms:')) adjust:#left.
     textView := self addTextBoxOn:nil 
-                        class:HTMLDocumentView
-                        withNumberOfLines:40 
-                        hScrollable:true 
-                        vScrollable:true.
+			class:HTMLDocumentView
+			withNumberOfLines:40 
+			hScrollable:true 
+			vScrollable:true.
     self width:(textView preferredExtentForLines:40 cols:70) x.
     textView setText:(self licenceText).
     self addAbortButtonLabelled:(resources string:'reject licence terms').
@@ -135,14 +147,13 @@
    |file|
 
    file := resources at:'LICENCEFILE' default:nil.
-self halt.
    file isNil ifTrue:[
-        file := 'doc/online/german/LICENCE.STX.html'.
+	file := 'doc/online/german/LICENCE.STX.html'.
    ].
    file asFilename exists ifFalse:[
        file := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'.
        file isNil ifTrue:[
-          file := '../../doc/online/german/LICENCE.STX.html'.
+	  file := '../../doc/online/german/LICENCE.STX.html'.
        ].
    ].
    file asFilename exists ifFalse:[