--- a/FramedBox.st	Sat Jun 06 20:03:24 1998 +0200
+++ b/FramedBox.st	Sat Jun 06 20:05:20 1998 +0200
@@ -285,7 +285,7 @@
         ]
     ]
 
-    "Modified: 8.2.1997 / 15:20:35 / cg"
+    "Modified: / 6.6.1998 / 20:05:05 / cg"
 !
 
 foregroundColor
@@ -300,11 +300,11 @@
     aColor ~= fgColor ifTrue:[
         fgColor := aColor.
         shown ifTrue:[
-            self invalidate
+            self invalidateRepairNow:true
         ]
     ]
 
-    "Modified: 8.2.1997 / 15:20:26 / cg"
+    "Modified: / 6.6.1998 / 19:23:14 / cg"
 !
 
 frameShown
@@ -368,12 +368,12 @@
             label := aStringOrImage.
         ].
         shown ifTrue:[
-            self invalidate
+            self invalidateRepairNow:true
         ]
     ]
 
-    "Modified: 5.9.1995 / 17:20:05 / claus"
-    "Modified: 17.2.1997 / 11:08:14 / cg"
+    "Modified: / 5.9.1995 / 17:20:05 / claus"
+    "Modified: / 6.6.1998 / 19:23:17 / cg"
 !
 
 labelPosition
@@ -396,7 +396,7 @@
         ]
     ]
 
-    "Modified: 8.2.1997 / 15:20:11 / cg"
+    "Modified: / 6.6.1998 / 20:04:22 / cg"
 !
 
 layout:something
@@ -450,7 +450,7 @@
         ]
     ]
 
-    "Modified: 8.2.1997 / 15:20:04 / cg"
+    "Modified: / 6.6.1998 / 20:03:50 / cg"
 !
 
 verticalSpace
@@ -469,9 +469,10 @@
      The default, nil, lets the box compute the vertical inset from the
      labels font height."
 
-    verticalSpace := aNumber
+    verticalSpace := aNumber.
 
-    "Created: 10.1.1996 / 14:38:31 / cg"
+    "Created: / 10.1.1996 / 14:38:31 / cg"
+    "Modified: / 6.6.1998 / 20:04:39 / cg"
 ! !
 
 !FramedBox methodsFor:'drawing'!
@@ -715,5 +716,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.36 1997-10-28 20:02:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.37 1998-06-06 18:05:20 cg Exp $'
 ! !