--- a/SimpleView.st	Sun Apr 03 17:09:29 2016 +0100
+++ b/SimpleView.st	Sun Apr 03 19:22:51 2016 +0100
@@ -3170,7 +3170,7 @@
 
     |extent shapeForm borderForm w h f|
 
-"/    self graphicsDevice supportsPolygonShapedViews ifTrue:[
+"/    device supportsPolygonShapedViews ifTrue:[
 "/        "/ TODO: add code for mswin
 "/    ].