--- a/LicenceBox.st	Tue Sep 23 12:41:01 2014 +0200
+++ b/LicenceBox.st	Thu Sep 25 21:43:38 2014 +0200
@@ -225,7 +225,7 @@
 mapped
     super mapped.
 
-    self graphicsDevice platformName = #WIN32 ifTrue:[
+    self graphicsDevice isWindowsPlatform ifTrue:[
         "/ kludge
         [
             Delay waitForSeconds:0.5.
@@ -339,11 +339,11 @@
 !LicenceBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.29 2014-02-18 14:47:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.30 2014-09-25 19:43:38 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.29 2014-02-18 14:47:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.30 2014-09-25 19:43:38 stefan Exp $'
 ! !