--- a/Geometric.st	Mon Feb 10 14:47:06 1997 +0100
+++ b/Geometric.st	Mon Feb 10 19:07:00 1997 +0100
@@ -292,6 +292,14 @@
 
     "Created: 8.5.1996 / 14:38:09 / cg"
     "Modified: 8.5.1996 / 18:23:00 / cg"
+!
+
+asVisualComponent
+    "return a wrapper on the receiver, which responds to VisualComponent messages."
+
+    ^ self asStroker
+
+    "Created: 10.2.1997 / 12:04:27 / cg"
 ! !
 
 !Geometric methodsFor:'displaying'!
@@ -365,8 +373,28 @@
     "Modified: 10.2.1997 / 13:40:00 / cg"
 ! !
 
+!Geometric methodsFor:'transforming'!
+
+scaledBy:scaleAmount 
+    "return a copy of the receiver, which is scaled by the argument,
+     a point or number"
+
+    ^ self subclassResponsibility
+
+    "Created: 10.2.1997 / 12:05:45 / cg"
+!
+
+translatedBy:scaleAmount 
+    "return a copy of the receiver, which is translated by the argument,
+     a point or number"
+
+    ^ self subclassResponsibility
+
+    "Created: 10.2.1997 / 12:05:56 / cg"
+! !
+
 !Geometric class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.21 1997-02-10 13:47:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.22 1997-02-10 18:07:00 cg Exp $'
 ! !