--- a/SimpleView.st	Tue May 21 21:09:26 1996 +0200
+++ b/SimpleView.st	Tue May 21 21:20:36 1996 +0200
@@ -5637,16 +5637,15 @@
      ih    "{ Class:SmallInteger }"
      orgX  
      orgY  "{ Class:SmallInteger }"
-     newOrigin t|
+     newOrigin|
 
     hCont := self heightOfContents.
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
         hCont := (transformation applyScaleY:hCont) rounded.
-        t := transformation translation.
-        orgY := t y negated.
-        orgX := t x negated.
+        orgY := transformation translationY negated.
+        orgX := transformation translationX negated.
     ].
 
     count := nPixels.
@@ -5687,7 +5686,7 @@
     ].
     self originChanged:(0 @ count).
 
-    "Modified: 21.5.1996 / 21:07:06 / cg"
+    "Modified: 21.5.1996 / 21:18:24 / cg"
 !
 
 scrollLeft:nPixels
@@ -5696,14 +5695,13 @@
     |count "{ Class:SmallInteger }"
      m2    "{ Class:SmallInteger }"
      h     "{ Class:SmallInteger }"
-     orgX orgY newOrigin t|
+     orgX orgY newOrigin|
 
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
-        t := transformation translation.
-        orgY := t y negated.
-        orgX := t x negated.
+        orgY := transformation translationY negated.
+        orgX := transformation translationX negated.
     ].
 
     count := nPixels.
@@ -5743,7 +5741,7 @@
     ].
     self originChanged:(count negated @ 0).
 
-    "Modified: 21.5.1996 / 21:07:37 / cg"
+    "Modified: 21.5.1996 / 21:18:38 / cg"
 !
 
 scrollRight:nPixels
@@ -5754,16 +5752,15 @@
      h     "{ Class:SmallInteger }" 
      wCont 
      iw    "{ Class:SmallInteger }"
-     orgX orgY newOrigin t|
+     orgX orgY newOrigin|
 
     wCont := self widthOfContents.
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
         wCont := (transformation applyScaleX:wCont) rounded.
-        t := transformation translation.
-        orgY := t y negated.
-        orgX := t x negated.
+        orgY := transformation translationY negated.
+        orgX := transformation translationX negated.
     ].
 
     count := nPixels.
@@ -5806,7 +5803,7 @@
     ].
     self originChanged:(count @ 0).
 
-    "Modified: 21.5.1996 / 21:07:52 / cg"
+    "Modified: 21.5.1996 / 21:18:46 / cg"
 !
 
 scrollTo:newOrigin 
@@ -5823,15 +5820,13 @@
      dY   "{ Class:SmallInteger }"
      m2   "{ Class:SmallInteger }"
      orgX "{ Class:SmallInteger }"
-     orgY "{ Class:SmallInteger }" 
-     t|
+     orgY "{ Class:SmallInteger }" |
 
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
-        t := transformation translation.
-        orgY := t y negated.
-        orgX := t x negated.
+        orgY := transformation translationY negated.
+        orgX := transformation translationX negated.
     ].
     dX := newOrigin x - orgX.
     dY := newOrigin y - orgY.
@@ -5863,7 +5858,7 @@
     ].
     self originChanged:(dX @ dY).
 
-    "Modified: 21.5.1996 / 21:08:05 / cg"
+    "Modified: 21.5.1996 / 21:18:58 / cg"
 !
 
 scrollUp:nPixels
@@ -5875,14 +5870,13 @@
      h     "{ Class:SmallInteger }"
      orgX
      orgY  "{ Class:SmallInteger }"
-     newOrigin t|
+     newOrigin|
 
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
-        t := transformation translation.
-        orgY := t y negated.
-        orgX := t x negated.
+        orgY := transformation translationY negated.
+        orgX := transformation translationX negated.
     ].
 
     count := nPixels.
@@ -5922,7 +5916,7 @@
     ].
     self originChanged:(0 @ count negated).
 
-    "Modified: 21.5.1996 / 21:08:19 / cg"
+    "Modified: 21.5.1996 / 21:19:06 / cg"
 ! !
 
 !SimpleView methodsFor:'startup'!
@@ -6336,6 +6330,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.91 1996-05-21 19:09:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.92 1996-05-21 19:19:58 cg Exp $'
 ! !
 SimpleView initialize!