--- a/DevWorkst.st	Mon May 31 17:32:31 1999 +0200
+++ b/DevWorkst.st	Tue Jun 01 20:52:48 1999 +0200
@@ -1870,6 +1870,18 @@
     "Modified: / 4.5.1999 / 12:58:04 / cg"
 !
 
+supportsRoundShapedViews
+    "return true, if this workstation supports round shaped
+     (elliptical & circular) windows.
+     Should be reimplemented in concrete classes which do support this."
+
+    ^ false
+
+    "
+     Display supportsRoundShapedViews 
+    "
+!
+
 supportsViewBackgroundPixmap:aForm
     "return true, if the device allows the given pixmap as
      viewBackground. If false is returned,
@@ -6396,6 +6408,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.299 1999-05-27 12:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.300 1999-06-01 18:52:48 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Mon May 31 17:32:31 1999 +0200
+++ b/DeviceWorkstation.st	Tue Jun 01 20:52:48 1999 +0200
@@ -1870,6 +1870,18 @@
     "Modified: / 4.5.1999 / 12:58:04 / cg"
 !
 
+supportsRoundShapedViews
+    "return true, if this workstation supports round shaped
+     (elliptical & circular) windows.
+     Should be reimplemented in concrete classes which do support this."
+
+    ^ false
+
+    "
+     Display supportsRoundShapedViews 
+    "
+!
+
 supportsViewBackgroundPixmap:aForm
     "return true, if the device allows the given pixmap as
      viewBackground. If false is returned,
@@ -6396,6 +6408,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.299 1999-05-27 12:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.300 1999-06-01 18:52:48 cg Exp $'
 ! !
 DeviceWorkstation initialize!