--- a/VisualRegion.st	Tue Feb 08 11:51:20 2000 +0100
+++ b/VisualRegion.st	Tue Feb 08 16:32:57 2000 +0100
@@ -182,11 +182,15 @@
      1-pixels, to define the shapes (take a look at the XShape spec, for more info)
     "
     isElliptical ifTrue:[
-        self makeRoundViewShapeWithBorder:lineWidth.
+        self makeRoundViewShapeWithBorder:lineWidth opaque:isOpaque.
     ] ifFalse:[
-        self borderShape:nil.
-        self viewShape:nil.
-        self borderWidth:lineWidth.
+        isOpaque ifFalse:[
+            self makeTransparentRectangularViewShapeWithBorder:lineWidth
+        ] ifTrue:[
+            self borderShape:nil.
+            self viewShape:nil.
+            self borderWidth:lineWidth.
+        ]
     ].
     ^ self.
 
@@ -236,5 +240,5 @@
 !VisualRegion class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualRegion.st,v 1.6 1999-09-20 06:58:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualRegion.st,v 1.7 2000-02-08 15:32:57 cg Exp $'
 ! !