--- a/LicenceBox.st	Tue Nov 17 14:29:02 2009 +0100
+++ b/LicenceBox.st	Tue Nov 17 14:30:19 2009 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 DialogBox subclass:#LicenceBox
@@ -188,7 +187,7 @@
 
     super initialize.
 
-    displayHeight := Display usableExtent y.
+    displayHeight := device usableHeight.
     nLines := displayHeight // 25.
 
 "/    (displayHeight < 800) ifTrue:[
@@ -205,10 +204,10 @@
 
     (self addTextLabel:(resources string:'Please read the licence terms:')) adjust:#left.
     textView := self addTextBoxOn:nil
-			class:HTMLDocumentView
-			withNumberOfLines:nLines
-			hScrollable:true
-			vScrollable:true.
+                        class:HTMLDocumentView
+                        withNumberOfLines:nLines
+                        hScrollable:true
+                        vScrollable:true.
 
     self width:(textView preferredExtentForLines:nLines cols:70) x.
     textView setText:(self licenceText).
@@ -340,7 +339,11 @@
 !LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.27 2008-05-14 10:48:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.28 2009-11-17 13:30:19 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.28 2009-11-17 13:30:19 cg Exp $'
 ! !
 
 LicenceBox initialize!