--- a/DisplayRootView.st	Thu Apr 03 16:39:02 2014 +0200
+++ b/DisplayRootView.st	Thu Apr 03 16:39:59 2014 +0200
@@ -207,9 +207,11 @@
      This is done by performing an action (enabling button events of
      root window), which will fail if a window manager is running."
 
-    self graphicsDevice platformName = 'WIN32' ifTrue:[^ true].
+    |device|
 
-    self graphicsDevice class deviceErrorSignal handle:[:ex |
+    device := self graphicsDevice.
+    device isWindowsPlatform ifTrue:[^ true].
+    device class deviceErrorSignal handle:[:ex |
         ^ false.
     ] do:[
         self enableButtonEvents.
@@ -226,6 +228,6 @@
 !DisplayRootView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.41 2014-03-20 16:58:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.42 2014-04-03 14:39:59 cg Exp $'
 ! !