Mercurial Mercurial > hg > stx-libwidg / 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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 08 May 1996 22:03:19 +0200
changeset 619 ea9172634006
parent 618 fc7c7e0ec35d
child 620 f513bc136ab7
checkin from browser
ObjView.st file | annotate | diff | comparison | revisions
ObjectView.st file | annotate | diff | comparison | revisions 
--- a/ObjView.st	Wed May 08 13:52:25 1996 +0200
+++ b/ObjView.st	Wed May 08 22:03:19 1996 +0200
@@ -1073,22 +1073,24 @@
     |vFrame|
 
     (aGC == self) ifTrue:[
-	shown ifFalse:[^ self].
-	vFrame := Rectangle origin:0@0 corner:(width @ height).
-
-	transformation notNil ifTrue:[
-	    vFrame := transformation applyInverseTo:vFrame.
-	].
-	self redrawObjectsIntersecting:vFrame
+        shown ifFalse:[^ self].
+        vFrame := Rectangle left:0 top:0 width:width height:height.
+
+        transformation notNil ifTrue:[
+            vFrame := transformation applyInverseTo:vFrame.
+        ].
+        self redrawObjectsIntersecting:vFrame
     ] ifFalse:[
-	"should loop over pages"
-
-	vFrame := Rectangle origin:(0@0) corner:(9999 @ 9999).
-
-	self objectsIntersecting:vFrame do:[:theObject |
-	    theObject drawIn:aGC
-	]
+        "should loop over pages"
+
+        vFrame := Rectangle left:0 top:0 width:9999 height:9999.
+
+        self objectsIntersecting:vFrame do:[:theObject |
+            theObject drawIn:aGC
+        ]
     ]
+
+    "Modified: 8.5.1996 / 21:01:27 / cg"
 !
 
 redrawScale
@@ -1250,10 +1252,11 @@
     |redrawFrame |
 
     ((contents size ~~ 0) or:[gridShown]) ifTrue:[
-	redrawFrame := Rectangle left:x top:y 
-				width:w height:h.
-	self redrawObjectsInVisible:redrawFrame
+        redrawFrame := Rectangle left:x top:y width:w height:h.
+        self redrawObjectsInVisible:redrawFrame
     ]
+
+    "Modified: 8.5.1996 / 21:01:32 / cg"
 ! !
 
 !ObjectView methodsFor:'grid manipulation'!
@@ -2795,5 +2798,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.35 1996-04-27 18:13:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.36 1996-05-08 20:03:19 cg Exp $'
 ! !
--- a/ObjectView.st	Wed May 08 13:52:25 1996 +0200
+++ b/ObjectView.st	Wed May 08 22:03:19 1996 +0200
@@ -1073,22 +1073,24 @@
     |vFrame|
 
     (aGC == self) ifTrue:[
-	shown ifFalse:[^ self].
-	vFrame := Rectangle origin:0@0 corner:(width @ height).
-
-	transformation notNil ifTrue:[
-	    vFrame := transformation applyInverseTo:vFrame.
-	].
-	self redrawObjectsIntersecting:vFrame
+        shown ifFalse:[^ self].
+        vFrame := Rectangle left:0 top:0 width:width height:height.
+
+        transformation notNil ifTrue:[
+            vFrame := transformation applyInverseTo:vFrame.
+        ].
+        self redrawObjectsIntersecting:vFrame
     ] ifFalse:[
-	"should loop over pages"
-
-	vFrame := Rectangle origin:(0@0) corner:(9999 @ 9999).
-
-	self objectsIntersecting:vFrame do:[:theObject |
-	    theObject drawIn:aGC
-	]
+        "should loop over pages"
+
+        vFrame := Rectangle left:0 top:0 width:9999 height:9999.
+
+        self objectsIntersecting:vFrame do:[:theObject |
+            theObject drawIn:aGC
+        ]
     ]
+
+    "Modified: 8.5.1996 / 21:01:27 / cg"
 !
 
 redrawScale
@@ -1250,10 +1252,11 @@
     |redrawFrame |
 
     ((contents size ~~ 0) or:[gridShown]) ifTrue:[
-	redrawFrame := Rectangle left:x top:y 
-				width:w height:h.
-	self redrawObjectsInVisible:redrawFrame
+        redrawFrame := Rectangle left:x top:y width:w height:h.
+        self redrawObjectsInVisible:redrawFrame
     ]
+
+    "Modified: 8.5.1996 / 21:01:32 / cg"
 ! !
 
 !ObjectView methodsFor:'grid manipulation'!
@@ -2795,5 +2798,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.35 1996-04-27 18:13:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.36 1996-05-08 20:03:19 cg Exp $'
 ! !
hg/stx-libwidg