--- a/SimpleView.st Fri Jun 13 10:53:26 1997 +0200
+++ b/SimpleView.st Mon Jun 16 12:07:59 1997 +0200
@@ -5290,28 +5290,31 @@
mustRepaintRight := false.
mustRepaintBottom := false.
- (level ~~ 0) ifTrue:[
- "clear the old edges"
-
- newWidth > width ifTrue:[
- self clippingRectangle:nil.
- self paint:viewBackground.
- self fillDeviceRectangleX:(width - margin)
- y:0
- width:margin
- height:height.
- mustRepaintRight := true.
- oldWidth := width
- ].
- newHeight > height ifTrue:[
- self clippingRectangle:nil.
- self paint:viewBackground.
- self fillDeviceRectangleX:0
- y:(height - margin)
- width:width
- height:margin.
- mustRepaintBottom := true.
- oldHeight := height
+
+ shown ifTrue:[
+ (level ~~ 0) ifTrue:[
+ "clear the old edges"
+
+ newWidth > width ifTrue:[
+ self clippingRectangle:nil.
+ self paint:viewBackground.
+ self fillDeviceRectangleX:(width - margin)
+ y:0
+ width:margin
+ height:height.
+ mustRepaintRight := true.
+ oldWidth := width
+ ].
+ newHeight > height ifTrue:[
+ self clippingRectangle:nil.
+ self paint:viewBackground.
+ self fillDeviceRectangleX:0
+ y:(height - margin)
+ width:width
+ height:margin.
+ mustRepaintBottom := true.
+ oldHeight := height
+ ]
]
].
@@ -5348,15 +5351,17 @@
self sizeChanged:how
].
- (mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
- self clippingRectangle:nil.
- mustRedrawBottomEdge ifTrue:[
- self drawBottomEdge
+ shown ifTrue:[
+ (mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
+ self clippingRectangle:nil.
+ mustRedrawBottomEdge ifTrue:[
+ self drawBottomEdge
+ ].
+ mustRedrawRightEdge ifTrue:[
+ self drawRightEdge
+ ].
+ self clippingRectangle:innerClipRect
].
- mustRedrawRightEdge ifTrue:[
- self drawRightEdge
- ].
- self clippingRectangle:innerClipRect
].
mustRepaintRight ifTrue:[
@@ -6395,7 +6400,7 @@
and (if repairNow is true), force the receiver to repair all of its
damaged areas right now."
- |sensor wg|
+ |sensor|
shown ifTrue:[
(sensor := self sensor) notNil ifTrue:[
@@ -7363,6 +7368,6 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.214 1997-06-11 14:09:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.215 1997-06-16 10:07:59 cg Exp $'
! !
SimpleView initialize!