--- a/WindowingTransformation.st	Sat Jun 13 13:55:14 1998 +0200
+++ b/WindowingTransformation.st	Sat Jun 13 13:59:43 1998 +0200
@@ -254,7 +254,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.15 1996-12-30 15:59:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.16 1998-06-13 11:59:43 cg Exp $'
 ! !
 
 !WindowingTransformation methodsFor:'accessing'!
@@ -270,26 +270,24 @@
 scale:aScale
     "Set the receiver's scale to aScale, a Point or Number."
 
-    aScale isNil ifTrue:[
-	scale := aScale
-    ] ifFalse:[
-	scale := aScale asPoint.
+    (scale := aScale) notNil ifTrue:[
+        scale := aScale asPoint.
     ].
+
+    "Modified: / 13.6.1998 / 13:56:12 / cg"
 !
 
 scale:aScale translation:aTranslation
     "sets the scale to aScale and the translation to aTranslation."
 
-    aScale isNil ifTrue:[
-	scale := aScale
-    ] ifFalse:[
-	scale := aScale asPoint.
+    (scale := aScale) notNil ifTrue:[
+        scale := aScale asPoint.
     ].
-    aTranslation isNil ifTrue:[
-	translation := aTranslation
-    ] ifFalse:[
-	translation := aTranslation asPoint
+    (translation := aTranslation) notNil ifTrue:[
+        translation := aTranslation asPoint
     ]
+
+    "Modified: / 13.6.1998 / 13:55:51 / cg"
 !
 
 scaleOfOne
@@ -326,11 +324,11 @@
 translation:aTranslation
     "Set the receiver's translation to aTranslation, a Point or Number."
 
-    aTranslation isNil ifTrue:[
-	translation := aTranslation
-    ] ifFalse:[
-	translation := aTranslation asPoint
+    (translation := aTranslation) notNil ifTrue:[
+        translation := aTranslation asPoint
     ]
+
+    "Modified: / 13.6.1998 / 13:56:02 / cg"
 !
 
 translationX