--- a/FramedBox.st	Thu Aug 31 07:01:01 1995 +0200
+++ b/FramedBox.st	Thu Sep 07 14:46:28 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.14 1995-08-11 16:07:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.15 1995-09-07 12:44:58 claus Exp $
 '!
 
 !FramedBox class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.14 1995-08-11 16:07:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.15 1995-09-07 12:44:58 claus Exp $
 "
 !
 
@@ -338,9 +338,15 @@
     "set the frames labelstring"
 
     (label ~= aString) ifTrue:[
-	label := aString.
+	aString isEmpty ifTrue:[
+	    label := nil
+	] ifFalse:[
+	    label := aString.
+	].
 	self redrawIfShown
     ]
+
+    "Modified: 5.9.1995 / 17:20:05 / claus"
 !
 
 foregroundColor
@@ -360,11 +366,21 @@
 
 frameShown
     "return true, if frame is shown;
-     if false, oly the label is shown"
+     if false, oly the label is shown.
+     OBSOLETE; use #showFrame."
 
     ^ showFrame
 !
 
+showFrame
+    "return if the view shows its frame.
+     If false, only the label is drawn"
+
+    ^ showFrame
+
+    "Modified: 5.9.1995 / 17:21:37 / claus"
+!
+
 showFrame:aBoolean
     "turn on/off showing of the frame -
      without a frame, only the label is shown at its position"
@@ -417,6 +433,16 @@
     horizontalSpace := aNumber
 !
 
+horizontalSpace
+    "return the number of pixels by which the frame is inset horizontally.
+     The default, nil, lets the box compute the horizontal inset from the
+     labels font height."
+
+    ^ horizontalSpace
+
+    "Modified: 5.9.1995 / 17:24:21 / claus"
+!
+
 layout
     "OBSOLETE compatibility interface. Will vanish"
 
@@ -424,11 +450,16 @@
     ^ labelPosition
 !
 
-layout:aSymbol
-    "OBSOLETE compatibility interface. Will vanish"
+layout:something
+    "OBSOLETE compatibility interface. Will vanish.
+     In the meantime, try to figure out what is meant ... a kludge"
+
+    something isLayout ifTrue:[^ super layout:something].
 
     self obsoleteMethodWarning:'use #labelPosition:'.
-    ^ self labelPosition:aSymbol
+    ^ self labelPosition:something
+
+    "Modified: 31.8.1995 / 23:07:00 / claus"
 ! !
 
 !FramedBox methodsFor:'initialization'!