--- a/ObjView.st Wed Jun 05 11:41:49 1996 +0200
+++ b/ObjView.st Wed Jun 05 11:42:33 1996 +0200
@@ -1291,12 +1291,13 @@
redrawX:x y:y width:w height:h
|redrawFrame |
+ redrawFrame := Rectangle left:x top:y width:w height:h.
+ self clearRectangle:redrawFrame.
((contents size ~~ 0) or:[gridShown]) ifTrue:[
- redrawFrame := Rectangle left:x top:y width:w height:h.
self redrawObjectsInVisible:redrawFrame
]
- "Modified: 8.5.1996 / 21:01:32 / cg"
+ "Modified: 5.6.1996 / 10:42:19 / cg"
! !
!ObjectView methodsFor:'grid manipulation'!
@@ -2879,5 +2880,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.46 1996-06-04 19:20:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.47 1996-06-05 09:42:33 cg Exp $'
! !
--- a/ObjectView.st Wed Jun 05 11:41:49 1996 +0200
+++ b/ObjectView.st Wed Jun 05 11:42:33 1996 +0200
@@ -1291,12 +1291,13 @@
redrawX:x y:y width:w height:h
|redrawFrame |
+ redrawFrame := Rectangle left:x top:y width:w height:h.
+ self clearRectangle:redrawFrame.
((contents size ~~ 0) or:[gridShown]) ifTrue:[
- redrawFrame := Rectangle left:x top:y width:w height:h.
self redrawObjectsInVisible:redrawFrame
]
- "Modified: 8.5.1996 / 21:01:32 / cg"
+ "Modified: 5.6.1996 / 10:42:19 / cg"
! !
!ObjectView methodsFor:'grid manipulation'!
@@ -2879,5 +2880,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.46 1996-06-04 19:20:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.47 1996-06-05 09:42:33 cg Exp $'
! !