--- a/Geometric.st Wed Feb 22 18:57:26 2017 +0100
+++ b/Geometric.st Wed Feb 22 18:58:25 2017 +0100
@@ -421,7 +421,7 @@
attributes are used. The default here is to display the outline."
"/ what a kludge - Dolphin and Squeak mean: printOn:;
- "/ ST/X (and some old ST80's) mean: draw-yourself on.
+ "/ old ST80 means: draw-yourself on a GC.
(aGCOrStream isStream) ifTrue:[
^ super displayOn:aGCOrStream
].
@@ -436,6 +436,8 @@
r := Rectangle origin:10@10 corner:100@100.
r displayOn:v.
"
+
+ "Modified (comment): / 22-02-2017 / 16:48:07 / cg"
!
displayStrokedOn:aGC