# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 880117233 -3600
# Node ID 5e75ffd7a09c102722a5f0d08c23fbff91a93b63
# Parent  aa9ef6e21f1518f4e1834d9b1f677363fa11e0e4
checkin from browser

diff -r aa9ef6e21f15 -r 5e75ffd7a09c DevWorkst.st
--- 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!
diff -r aa9ef6e21f15 -r 5e75ffd7a09c DeviceWorkstation.st
--- 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!