# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 925735532 -7200
# Node ID c1f2727a424bf31da0c99d20596b92c2a5ef8b02
# Parent  f3edd1f7eae345af7633a3d64e1531dee2d95529
checkin from browser

diff -r f3edd1f7eae3 -r c1f2727a424b DevWorkst.st
--- a/DevWorkst.st	Mon May 03 14:36:29 1999 +0200
+++ b/DevWorkst.st	Mon May 03 14:45:32 1999 +0200
@@ -2773,10 +2773,13 @@
 displayPointX:x y:y in:aDrawableId with:aGCId
     "draw a point"
 
-    self displayLineFromX:x y:y toX:x y:y with:aGCId.
-"/    ^ self subclassResponsibility
-
-    "Modified: / 3.5.1999 / 14:17:21 / cg"
+    "/ could use
+    "/ self displayLineFromX:x y:y toX:x y:y in:aDrawableId with:aGCId.
+    "/ but then, we had to care for lineWidth & style ...
+
+    ^ self subclassResponsibility
+
+    "Modified: / 3.5.1999 / 14:26:32 / cg"
 !
 
 displayPolygon:aPolygon in:aDrawableId with:aGCId
@@ -6224,6 +6227,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.285 1999-05-03 12:36:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.286 1999-05-03 12:45:32 cg Exp $'
 ! !
 DeviceWorkstation initialize!
diff -r f3edd1f7eae3 -r c1f2727a424b DeviceWorkstation.st
--- a/DeviceWorkstation.st	Mon May 03 14:36:29 1999 +0200
+++ b/DeviceWorkstation.st	Mon May 03 14:45:32 1999 +0200
@@ -2773,10 +2773,13 @@
 displayPointX:x y:y in:aDrawableId with:aGCId
     "draw a point"
 
-    self displayLineFromX:x y:y toX:x y:y with:aGCId.
-"/    ^ self subclassResponsibility
-
-    "Modified: / 3.5.1999 / 14:17:21 / cg"
+    "/ could use
+    "/ self displayLineFromX:x y:y toX:x y:y in:aDrawableId with:aGCId.
+    "/ but then, we had to care for lineWidth & style ...
+
+    ^ self subclassResponsibility
+
+    "Modified: / 3.5.1999 / 14:26:32 / cg"
 !
 
 displayPolygon:aPolygon in:aDrawableId with:aGCId
@@ -6224,6 +6227,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.285 1999-05-03 12:36:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.286 1999-05-03 12:45:32 cg Exp $'
 ! !
 DeviceWorkstation initialize!