--- a/TransparentBox.st	Tue Feb 18 17:06:52 2014 +0100
+++ b/TransparentBox.st	Tue Feb 18 18:13:02 2014 +0100
@@ -97,7 +97,7 @@
 computeShape
     | subViews w h |
 
-    device supportsArbitraryShapedViews ifFalse:[^self].
+    self graphicsDevice supportsArbitraryShapedViews ifFalse:[^self].
 
     w := self extent x.
     h := self extent y.
@@ -121,5 +121,6 @@
 !TransparentBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TransparentBox.st,v 1.4 2008-01-22 22:32:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TransparentBox.st,v 1.5 2014-02-18 17:13:02 stefan Exp $'
 ! !
+