Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed arg to #originChanged:
authorClaus Gittinger <cg@exept.de>
Wed, 22 May 1996 11:19:17 +0200
changeset 709 6a8d793633ee
parent 708 44d3c22d3ddd
child 710 f80fd1a73956
fixed arg to #originChanged:
SimpleView.st file | annotate | diff | comparison | revisions 
--- a/SimpleView.st	Wed May 22 01:25:47 1996 +0200
+++ b/SimpleView.st	Wed May 22 11:19:17 1996 +0200
@@ -5700,8 +5700,8 @@
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
-        orgY := transformation translationY negated.
-        orgX := transformation translationX negated.
+        orgY := transformation translation y negated.
+        orgX := transformation translation x negated.
     ].
 
     count := nPixels.
@@ -5739,9 +5739,9 @@
             self waitForExpose.
         ]
     ].
-    self originChanged:(count negated @ 0).
-
-    "Modified: 21.5.1996 / 21:18:38 / cg"
+    self originChanged:(count @ 0).
+
+    "Modified: 22.5.1996 / 11:18:27 / cg"
 !
 
 scrollRight:nPixels
@@ -5759,8 +5759,8 @@
         orgY := orgX := 0
     ] ifFalse:[
         wCont := (transformation applyScaleX:wCont) rounded.
-        orgY := transformation translationY negated.
-        orgX := transformation translationX negated.
+        orgY := transformation translation y negated.
+        orgX := transformation translation x negated.
     ].
 
     count := nPixels.
@@ -5801,9 +5801,9 @@
             self waitForExpose.
         ].
     ].
-    self originChanged:(count @ 0).
-
-    "Modified: 21.5.1996 / 21:18:46 / cg"
+    self originChanged:(count negated @ 0).
+
+    "Modified: 22.5.1996 / 11:18:29 / cg"
 !
 
 scrollTo:newOrigin 
@@ -5825,8 +5825,8 @@
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
-        orgY := transformation translationY negated.
-        orgX := transformation translationX negated.
+        orgY := transformation translation y negated.
+        orgX := transformation translation x negated
     ].
     dX := newOrigin x - orgX.
     dY := newOrigin y - orgY.
@@ -5856,9 +5856,9 @@
                      width:(width - m2)
                     height:(height - m2).
     ].
-    self originChanged:(dX @ dY).
-
-    "Modified: 21.5.1996 / 21:18:58 / cg"
+    self originChanged:(dX negated @ dY negated).
+
+    "Modified: 22.5.1996 / 11:18:30 / cg"
 !
 
 scrollUp:nPixels
@@ -5875,8 +5875,8 @@
     transformation isNil ifTrue:[
         orgY := orgX := 0
     ] ifFalse:[
-        orgY := transformation translationY negated.
-        orgX := transformation translationX negated.
+        orgY := transformation translation y negated.
+        orgX := transformation translation x negated
     ].
 
     count := nPixels.
@@ -5916,7 +5916,7 @@
     ].
     self originChanged:(0 @ count negated).
 
-    "Modified: 21.5.1996 / 21:19:06 / cg"
+    "Modified: 22.5.1996 / 11:18:32 / cg"
 ! !
 
 !SimpleView methodsFor:'startup'!
@@ -6330,6 +6330,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.92 1996-05-21 19:19:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.93 1996-05-22 09:19:17 cg Exp $'
 ! !
 SimpleView initialize!
hg/stx-libview