--- a/BorderedWrapper.st	Sat Jan 25 18:52:34 1997 +0100
+++ b/BorderedWrapper.st	Mon Jan 27 11:45:45 1997 +0100
@@ -159,6 +159,12 @@
     ^ (super on:aComponent in:aLayout) border:aBorder
 
     "Created: 28.5.1996 / 23:15:00 / cg"
+!
+
+on:aComponent in:aLayout level:threeDLevel
+    ^ (super on:aComponent in:aLayout) level:threeDLevel
+
+    "Created: 25.1.1997 / 16:56:51 / cg"
 ! !
 
 !BorderedWrapper methodsFor:'accessing'!
@@ -277,6 +283,7 @@
     |bounds x y w h r b tX tY bw|
 
     bounds := self bounds.
+
     x := bounds left rounded.
     y := bounds top rounded.
     r := bounds right rounded.
@@ -296,11 +303,7 @@
             bw := borderWidth.
             aGC paint:borderColor.
             0 to:(borderWidth-1) do:[:i |
-                aGC displayRectangleX:x+i y:y+i width:(r-x-i-i+1) height:(b-y-i-i+1).
-"/                aGC displayLineFromX:x+i y:y+i toX:r-i y:y+i.
-"/                aGC displayLineFromX:(r-i) y:y+i toX:(r-i) y:b-i.
-"/                aGC displayLineFromX:x+i y:b-i toX:(r-1-i) y:b-i.
-"/                aGC displayLineFromX:(x+i) y:y+i+1 toX:(x+i) y:b-1-i.
+                aGC displayRectangleX:x+i y:y+i width:(r-x-i-i) height:(b-y-i-i).
             ].
         ]
     ].
@@ -323,7 +326,7 @@
                     style:#iris
     ].
 
-    "Modified: 5.6.1996 / 02:25:45 / cg"
+    "Modified: 27.1.1997 / 11:45:28 / cg"
 ! !
 
 !BorderedWrapper methodsFor:'initialization'!
@@ -381,5 +384,5 @@
 !BorderedWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.7 1997-01-14 17:01:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.8 1997-01-27 10:45:45 cg Exp $'
 ! !