--- a/ObjectView.st	Wed Feb 09 20:25:14 2000 +0100
+++ b/ObjectView.st	Fri Feb 11 14:11:31 2000 +0100
@@ -3183,9 +3183,9 @@
 !
 
 zoomIn
-    self zoomIn:2
-
-    "Modified: 27.4.1996 / 10:08:50 / cg"
+    self zoomIn:1.5
+
+    "Modified: / 10.2.2000 / 21:14:41 / cg"
 !
 
 zoomIn:factor
@@ -3193,20 +3193,20 @@
         transformation := WindowingTransformation scale:1 translation:0
     ].
     transformation := WindowingTransformation 
-                                scale:(transformation scale / factor)
-                                translation:0.
+                                scale:(transformation scale * factor)
+                                translation:(transformation translation * factor) rounded.
     self contentsChanged.
     self setInnerClip.
     self invalidate.
 
-    "Created: 27.4.1996 / 10:08:39 / cg"
-    "Modified: 29.5.1996 / 16:20:46 / cg"
+    "Created: / 27.4.1996 / 10:08:39 / cg"
+    "Modified: / 10.2.2000 / 21:11:11 / cg"
 !
 
 zoomOut
-    self zoomOut:2
-
-    "Modified: 27.4.1996 / 10:09:27 / cg"
+    self zoomOut:1.5
+
+    "Modified: / 10.2.2000 / 21:14:46 / cg"
 !
 
 zoomOut:factor
@@ -3214,18 +3214,18 @@
         transformation := WindowingTransformation scale:1 translation:0
     ].
     transformation := WindowingTransformation 
-                        scale:(transformation scale * factor)
-                        translation:0.
+                        scale:(transformation scale / factor)
+                        translation:(transformation translation / factor) rounded.
     self contentsChanged.
     self setInnerClip.
     self invalidate
 
-    "Created: 27.4.1996 / 10:09:19 / cg"
-    "Modified: 29.5.1996 / 16:20:49 / cg"
+    "Created: / 27.4.1996 / 10:09:19 / cg"
+    "Modified: / 10.2.2000 / 21:10:52 / cg"
 ! !
 
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.81 1999-12-08 20:48:58 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.82 2000-02-11 13:11:31 cg Exp $'
 ! !