--- a/DisplayTransform.st	Wed Jun 13 22:56:21 2018 +0200
+++ b/DisplayTransform.st	Thu Jun 14 10:32:44 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
               All Rights Reserved
@@ -109,19 +111,25 @@
                         localPoint -> localTransform -> globalTransform -> globalPoint
 
                 "
-        self isIdentity ifTrue:[^ aTransformation].
+        self isIdentityTransformation ifTrue:[^ aTransformation].
         aTransformation isIdentityTransformation ifTrue:[^ self].
-        ^ CompositeTransform new globalTransform: self
-                                                        localTransform: aTransformation
+        ^ CompositeTransform new 
+                globalTransform: self
+                localTransform: aTransformation
+
+    "Modified: / 14-06-2018 / 10:31:37 / Claus Gittinger"
 ! !
 
 !DisplayTransform methodsFor:'converting'!
 
 asCompositeTransform
-	"Represent the receiver as a composite transformation"
-	^CompositeTransform new
-		globalTransform: self
-		localTransform: self species identity
+    "Represent the receiver as a composite transformation"
+
+    ^CompositeTransform new
+            globalTransform: self
+            localTransform: self species identity
+
+    "Modified: / 14-06-2018 / 10:31:50 / Claus Gittinger"
 !
 
 asMatrixTransform2x3
@@ -181,19 +189,31 @@
 !DisplayTransform methodsFor:'transforming points'!
 
 applyInverseTo:aPoint
-    ^ self invertPoint: aPoint
+    self subclassResponsibility
+    "/ ^ self invertPoint: aPoint
+
+    "Modified: / 14-06-2018 / 10:29:56 / Claus Gittinger"
 !
 
 applyScaleX:aNumber
-    ^ (self transformPoint: aNumber @ 0) x
+    self subclassResponsibility
+    "/ ^ (self transformPoint: aNumber @ 0) x
+
+    "Modified: / 14-06-2018 / 10:30:11 / Claus Gittinger"
 !
 
 applyScaleY:aNumber
-    ^ (self transformPoint: 0 @ aNumber) y
+    self subclassResponsibility
+    "/ ^ (self transformPoint: 0 @ aNumber) y
+
+    "Modified: / 14-06-2018 / 10:30:17 / Claus Gittinger"
 !
 
 applyTo:aPoint
-    ^ self transformPoint: aPoint
+    self subclassResponsibility
+    "/ ^ self transformPoint: aPoint
+
+    "Modified: / 14-06-2018 / 10:30:24 / Claus Gittinger"
 !
 
 globalPointToLocal: aPoint