--- a/ScaleTransform.st	Mon Nov 09 15:15:47 2015 +0100
+++ b/ScaleTransform.st	Fri Nov 13 11:57:30 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -203,6 +205,15 @@
         ^ p
     ].
     ^ p * scale
+!
+
+transformRectangle:aRectangle 
+    "Apply the receiver to a rectangle, returning a new rectangle."
+
+    scale isNil ifTrue:[
+        ^ aRectangle.
+    ].
+    ^ aRectangle scaledBy:scale.
 ! !
 
 !ScaleTransform methodsFor:'printing & storing'!
@@ -308,10 +319,10 @@
 !ScaleTransform class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ScaleTransform.st,v 1.3 2015-01-22 14:23:48 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ScaleTransform.st,v 1.3 2015-01-22 14:23:48 cg Exp $'
+    ^ '$Header$'
 ! !