--- a/SimpleView.st Wed Feb 21 18:03:05 1996 +0100
+++ b/SimpleView.st Thu Feb 22 18:51:09 1996 +0100
@@ -1065,26 +1065,32 @@
|oldMargin how|
(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
- self is3D ifTrue:[
- level := aNumber.
- oldMargin := margin.
- margin := level abs.
-
- realized ifTrue:[
- margin ~~ oldMargin ifTrue:[
- (margin > oldMargin) ifTrue:[
- how := #smaller
- ] ifFalse:[
- how := #larger
- ].
- self sizeChanged:how.
- self setInnerClip.
- ].
- shown ifTrue:[
- self redrawEdges
- ]
- ]
- ]
+ self is3D ifTrue:[
+ level := aNumber.
+ oldMargin := margin.
+ margin := level abs.
+
+ realized ifTrue:[
+ margin ~~ oldMargin ifTrue:[
+ (margin > oldMargin) ifTrue:[
+ how := #smaller
+ ] ifFalse:[
+ how := #larger
+ ].
+ self sizeChanged:how.
+ self setInnerClip.
+ ].
+ shown ifTrue:[
+ margin ~~ oldMargin ifTrue:[
+ self clear.
+ self redrawX:margin y:margin
+ width:width-(margin*2)
+ height:height-(margin*2)
+ ].
+ self redrawEdges.
+ ]
+ ]
+ ]
]
!
@@ -5876,6 +5882,6 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.54 1996-02-19 22:59:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.55 1996-02-22 17:51:09 ca Exp $'
! !
SimpleView initialize!