--- a/LicenceBox.st	Tue Feb 18 15:45:17 2014 +0100
+++ b/LicenceBox.st	Tue Feb 18 15:47:39 2014 +0100
@@ -187,7 +187,7 @@
 
     super initialize.
 
-    displayHeight := device usableHeight.
+    displayHeight := self graphicsDevice usableHeight.
     nLines := displayHeight // 25.
 
 "/    (displayHeight < 800) ifTrue:[
@@ -225,15 +225,15 @@
 mapped
     super mapped.
 
-    device platformName = 'WIN32' ifTrue:[
-	"/ kludge
-	[
-	    Delay waitForSeconds:0.5.
-	    self raise.
-	    self activate.
-	    self setForegroundWindow.
-	    self activate.
-	] fork.
+    self graphicsDevice platformName = #WIN32 ifTrue:[
+        "/ kludge
+        [
+            Delay waitForSeconds:0.5.
+            self raise.
+            self activate.
+            self setForegroundWindow.
+            self activate.
+        ] fork.
     ].
 
     "
@@ -339,11 +339,12 @@
 !LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.28 2009-11-17 13:30:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.29 2014-02-18 14:47:39 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.28 2009-11-17 13:30:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.29 2014-02-18 14:47:39 stefan Exp $'
 ! !
 
+
 LicenceBox initialize!