--- a/LicenceBox.st	Tue Sep 10 14:54:57 1996 +0200
+++ b/LicenceBox.st	Wed Sep 11 12:51:59 1996 +0200
@@ -1,3 +1,15 @@
+"
+ 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.
+"
+
 DialogBox subclass:#LicenceBox
 	instanceVariableNames:'accepted destroySemaphore'
 	classVariableNames:'LicenceRejectSignal'
@@ -142,27 +154,40 @@
 !LicenceBox methodsFor:'private'!
 
 licenceText
-   "get licence text"
+    "get licence text"
 
-   |file|
+    |fn file|
 
-   file := resources at:'LICENCEFILE' default:nil.
-   file isNil ifTrue:[
-	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 asFilename exists ifFalse:[
-       ^ 'oops - you are not allowed to remove the LICENSE file !!'
-   ].
-   ^ file asFilename readStream contents.
+    file := fn := resources at:'LICENCEFILE' default:nil.
+    file isNil ifTrue:[
+         file := fn := 'doc/online/english/LICENCE.STX.html'.
+    ].
+    file asFilename exists ifFalse:[
+        file := Smalltalk getSystemFileName:file.
+        file isNil ifTrue:[
+            file := '../../' , fn.
+            file asFilename exists ifFalse:[
+                file := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'.
+                file isNil ifTrue:[
+                    file := '../../doc/online/german/LICENCE.STX.html'.
+                ]
+            ]
+        ].
+    ].
+    file asFilename exists ifFalse:[
+        ^ 'oops - you are not allowed to remove the LICENSE file !!'
+    ].
+    ^ file asFilename readStream contents.
 
-    "Created: 6.9.1996 / 12:17:07 / stefan"
-    "Modified: 10.9.1996 / 14:47:41 / cg"
+    "
+     self open
+    "
+
 ! !
 
+!LicenceBox  class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.5 1996-09-11 10:51:59 cg Exp $'
+! !
 LicenceBox initialize!