--- a/LicenceBox.st	Tue Mar 09 22:47:30 1999 +0100
+++ b/LicenceBox.st	Tue Mar 09 23:29:30 1999 +0100
@@ -133,8 +133,15 @@
 
     super initialize.
 
-    smallScreen := (Display height < 1024).
-    nLines := smallScreen ifTrue:[20] ifFalse:[40].
+    (Display height < 1024) ifTrue:[
+        (Display height < 768) ifTrue:[
+	    nLines := 20
+	] ifFalse:[
+	    nLines := 30
+	]
+    ] ifFalse:[
+        nLines := 40
+    ].
 
     accepted := false.
 
@@ -165,31 +172,31 @@
     |fn sysFile|
 
     fileName isNil ifTrue:[
-        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 := 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 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 
 
@@ -237,6 +244,6 @@
 !LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.10 1999-03-08 11:28:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.11 1999-03-09 22:29:30 cg Exp $'
 ! !
 LicenceBox initialize!