--- 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!

--- 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!