--- a/ObjectView.st	Sat Dec 20 01:08:10 2014 +0100
+++ b/ObjectView.st	Mon Dec 22 00:32:07 2014 +0100
@@ -725,7 +725,7 @@
         "
         currentTransformation := gc transformation.
         currentTransformation notNil ifTrue:[
-            rootPoint := currentTransformation applyTo:rootPoint.
+            rootPoint := currentTransformation transformPoint:rootPoint.
         ].
 
         "
@@ -799,8 +799,8 @@
         "
         currentTransformation := gc transformation.
         currentTransformation notNil ifTrue:[
-            p1 := currentTransformation applyTo:p1.
-            p2 := currentTransformation applyTo:p2.
+            p1 := currentTransformation transformPoint:p1.
+            p2 := currentTransformation transformPoint:p2.
         ].
         "
          translate to screen
@@ -943,7 +943,7 @@
             "
             currentTransformation := gc transformation.
             currentTransformation notNil ifTrue:[
-                p := currentTransformation applyTo:p.
+                p := currentTransformation transformPoint:p.
             ].
             "
              translate to screen
@@ -1009,7 +1009,7 @@
         currentTransformation := gc transformation.
         currentTransformation notNil ifTrue:[
             scale := currentTransformation scale.
-            p := currentTransformation applyTo:p.
+            p := currentTransformation transformPoint:p.
         ].
         "
          translate to screen
@@ -3532,10 +3532,10 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.144 2014-11-29 13:11:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.145 2014-12-21 23:32:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.144 2014-11-29 13:11:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.145 2014-12-21 23:32:07 cg Exp $'
 ! !