--- a/FramedBox.st	Wed May 29 16:16:35 1996 +0200
+++ b/FramedBox.st	Wed May 29 16:38:27 1996 +0200
@@ -266,10 +266,10 @@
 
     (font ~= aFont) ifTrue:[
         super font:aFont.
-        self redrawIfShown
+        self invalidate
     ]
 
-    "Modified: 22.5.1996 / 12:36:20 / cg"
+    "Modified: 29.5.1996 / 16:17:50 / cg"
 !
 
 foregroundColor
@@ -282,9 +282,11 @@
     "set the frame labels foreground color"
 
     aColor ~= fgColor ifTrue:[
-	fgColor := aColor.
-	self redrawIfShown
+        fgColor := aColor.
+        self invalidate
     ]
+
+    "Modified: 29.5.1996 / 16:17:54 / cg"
 !
 
 frameShown
@@ -341,15 +343,16 @@
     "set the frames labelstring"
 
     (label ~= aString) ifTrue:[
-	aString isEmpty ifTrue:[
-	    label := nil
-	] ifFalse:[
-	    label := aString.
-	].
-	self redrawIfShown
+        aString isEmpty ifTrue:[
+            label := nil
+        ] ifFalse:[
+            label := aString.
+        ].
+        self invalidate
     ]
 
     "Modified: 5.9.1995 / 17:20:05 / claus"
+    "Modified: 29.5.1996 / 16:17:56 / cg"
 !
 
 labelPosition
@@ -362,13 +365,15 @@
 labelPosition:aSymbol
     "define the position of the label;
      aSymbol may be one of: 
-	#topLeft, #topCenter, #topRight;
-	#bottomLeft, #bottomCenter or #bottomRight"
+        #topLeft, #topCenter, #topRight;
+        #bottomLeft, #bottomCenter or #bottomRight"
 
     labelPosition ~~ aSymbol ifTrue:[
-	labelPosition := aSymbol.
-	self redrawIfShown
+        labelPosition := aSymbol.
+        self invalidate
     ]
+
+    "Modified: 29.5.1996 / 16:17:58 / cg"
 !
 
 layout
@@ -404,9 +409,11 @@
      without a frame, only the label is shown at its position"
 
     aBoolean ~~ showFrame ifTrue:[
-	showFrame := aBoolean.
-	self redrawIfShown
+        showFrame := aBoolean.
+        self invalidate
     ]
+
+    "Modified: 29.5.1996 / 16:17:59 / cg"
 !
 
 verticalSpace
@@ -542,8 +549,10 @@
 !FramedBox methodsFor:'event handling'!
 
 sizeChanged:how
-    self redrawIfShown.
+    self invalidate.
     super sizeChanged:how
+
+    "Modified: 29.5.1996 / 16:18:13 / cg"
 ! !
 
 !FramedBox methodsFor:'initialization'!
@@ -574,15 +583,6 @@
     "Modified: 10.1.1996 / 14:38:40 / cg"
 ! !
 
-!FramedBox methodsFor:'private'!
-
-redrawIfShown
-    shown ifTrue:[
-	self clear.
-	self redraw
-    ]
-! !
-
 !FramedBox methodsFor:'queries'!
 
 preferredExtent
@@ -650,5 +650,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.26 1996-05-29 10:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.27 1996-05-29 14:35:34 cg Exp $'
 ! !