--- a/FramedBox.st	Sat Dec 11 02:41:07 1993 +0100
+++ b/FramedBox.st	Sat Dec 11 02:51:34 1993 +0100
@@ -26,7 +26,7 @@
 is controlled by the layout variable, aSymbol which may be one of:
 [#topCenter #topLeft #topRight #bottomLeft #bottomCenter #bottomRight]
 
-$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.3 1993-10-13 02:47:50 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.4 1993-12-11 01:44:32 claus Exp $
 written spring 91 by claus
 '!
 
@@ -134,21 +134,21 @@
     bot := height - halfSep.
     self drawRectangleX:halfSep y:halfSep
                   width:(width - sep) height:(height - sep + 1).
+
     self paint:shadowColor.
-
     left := halfSep - 1.
     top := halfSep - 1.
     bm1 := bot - 1.
-    self displayLineFromX:left y:top
-                      toX:(right - 1) y:top.
-    self displayLineFromX:left y:top
-                      toX:left y:bm1.
+    self displayLineFromX:left y:top toX:(right - 1) y:top.
+    self displayLineFromX:left y:top toX:left y:bm1.
 
     rm3 := right - 3.
-    self displayLineFromX:rm3 y:(halfSep + 1)
-                      toX:rm3 y:bm1.
-    self displayLineFromX:(halfSep + 2) y:(bot - 2)
-                      toX:(right - 2) y:(bot - 2)
+"
+    self displayLineFromX:rm3 y:(halfSep + 1) toX:rm3 y:bm1.
+    self displayLineFromX:(halfSep + 2) y:(bot - 2) toX:(right - 2) y:(bot - 2)
+"
+    self displayLineFromX:rm3 y:(halfSep + 1) toX:rm3 y:bm1-1.
+    self displayLineFromX:(halfSep + 2) y:(bot - 2) toX:(right - 2 - 1) y:(bot - 2)
 !
 
 redraw