# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 831585799 -7200
# Node ID ea91726340065f1462531d31020b290188e15cf0
# Parent  fc7c7e0ec35d299bd1bb23cce4ba3b135351d6fa
checkin from browser

diff -r fc7c7e0ec35d -r ea9172634006 ObjView.st
--- 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 $'
 ! !
diff -r fc7c7e0ec35d -r ea9172634006 ObjectView.st
--- 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 $'
 ! !