--- a/LicenceBox.st	Wed Apr 22 17:27:39 1998 +0200
+++ b/LicenceBox.st	Thu Apr 23 11:40:55 1998 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 23-sep-1996 at 18:24:31'                   !
-
 DialogBox subclass:#LicenceBox
 	instanceVariableNames:'accepted destroySemaphore fileName'
 	classVariableNames:'LicenceRejectSignal'
@@ -19,7 +17,7 @@
 	category:'Views-DialogBoxes'
 !
 
-!LicenceBox  class methodsFor:'documentation'!
+!LicenceBox class methodsFor:'documentation'!
 
 copyright
 "
@@ -61,7 +59,7 @@
 "
 ! !
 
-!LicenceBox  class methodsFor:'initialization'!
+!LicenceBox class methodsFor:'initialization'!
 
 initialize
     LicenceRejectSignal isNil ifTrue:[
@@ -75,7 +73,7 @@
     "
 ! !
 
-!LicenceBox  class methodsFor:'instance creation'!
+!LicenceBox class methodsFor:'instance creation'!
 
 open
     "open myself modal and return true if accepted, false otherwise"
@@ -89,7 +87,7 @@
     "Modified: 9.9.1996 / 17:52:48 / stefan"
 ! !
 
-!LicenceBox  class methodsFor:'Signal constants'!
+!LicenceBox class methodsFor:'Signal constants'!
 
 licenceRejectSignal
     "licence has been rejected by user"
@@ -163,31 +161,39 @@
     |fn sysFile|
 
     fileName isNil ifTrue:[
-	fileName := fn := resources at:'LICENCEFILE' default:nil.
-	fileName isNil ifTrue:[
-	     fileName := fn := 'doc/online/english/LICENCE_STX.html'.
-	].
-	fileName asFilename exists ifFalse:[
-	    fileName := Smalltalk getSystemFileName:fileName.
-	    fileName isNil ifTrue:[
-		fileName := '../../' , fn.
-		fileName asFilename exists ifFalse:[
-		    fileName := Smalltalk getSystemFileName:'doc/online/german/LICENCE_STX.html'.
-		    fileName isNil ifTrue:[
-			fileName := '../../doc/online/german/LICENCE_STX.html'.
-		    ]
-		].
-	    ].
-	].
-	fileName asFilename exists ifFalse:[
-	    fileName := nil
-	].
+        fileName := fn := resources at:'LICENCEFILE' default:nil.
+        fileName isNil ifTrue:[
+            Smalltalk releaseIdentification = 'ST/X_free_demo_vsn' ifTrue:[
+                fn := 'doc/online/english/LICENCE_DEMO_STX.html'.
+            ] ifFalse:[
+                fn := 'doc/online/english/LICENCE_STX.html'.
+            ].
+            fileName := fn.
+        ].
+
+        fileName asFilename exists ifFalse:[
+            fileName := Smalltalk getSystemFileName:fileName.
+            fileName isNil ifTrue:[
+                fileName := '../../' , fn.
+                fileName asFilename exists ifFalse:[
+                    fileName := Smalltalk getSystemFileName:'doc/online/german/LICENCE_STX.html'.
+                    fileName isNil ifTrue:[
+                        fileName := '../../doc/online/german/LICENCE_STX.html'.
+                    ]
+                ].
+            ].
+        ].
+        fileName asFilename exists ifFalse:[
+            fileName := nil
+        ].
     ].
     ^ fileName 
 
     "
      LicenceBox new licenceFile
     "
+
+    "Modified: / 23.4.1998 / 11:40:25 / cg"
 !
 
 licenceText
@@ -224,9 +230,9 @@
 
 ! !
 
-!LicenceBox  class methodsFor:'documentation'!
+!LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.8 1997-09-15 20:45:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.9 1998-04-23 09:40:55 cg Exp $'
 ! !
 LicenceBox initialize!