--- a/DevWorkst.st	Fri Nov 21 13:57:58 1997 +0100
+++ b/DevWorkst.st	Fri Nov 21 14:00:33 1997 +0100
@@ -2085,6 +2085,16 @@
     ^ self subclassResponsibility
 !
 
+createWindowFor:aView type:typeSymbol origin:org extent:ext 
+        minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv 
+        style:styleSymbol inputOnly:inp 
+        label:label owner:owner 
+        icon:icn iconMask:icnM iconView:icnV
+    "must be implemented by a concrete class"
+
+    ^ self subclassResponsibility
+!
+
 destroyGC:aGCId
     "destroy a GC"
 
@@ -5800,6 +5810,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.243 1997-11-15 18:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.244 1997-11-21 13:00:33 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Fri Nov 21 13:57:58 1997 +0100
+++ b/DeviceWorkstation.st	Fri Nov 21 14:00:33 1997 +0100
@@ -2085,6 +2085,16 @@
     ^ self subclassResponsibility
 !
 
+createWindowFor:aView type:typeSymbol origin:org extent:ext 
+        minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv 
+        style:styleSymbol inputOnly:inp 
+        label:label owner:owner 
+        icon:icn iconMask:icnM iconView:icnV
+    "must be implemented by a concrete class"
+
+    ^ self subclassResponsibility
+!
+
 destroyGC:aGCId
     "destroy a GC"
 
@@ -5800,6 +5810,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.243 1997-11-15 18:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.244 1997-11-21 13:00:33 cg Exp $'
 ! !
 DeviceWorkstation initialize!