--- a/SimpleView.st	Fri Mar 07 21:12:27 1997 +0100
+++ b/SimpleView.st	Fri Mar 07 21:14:00 1997 +0100
@@ -3447,7 +3447,11 @@
         b := height - 1.
         super paint:shadowColor.
         super displayDeviceLineFromX:1 y:b toX:r y:b. 
-    ]
+    ].
+
+    self edgeDrawn:#bottom.
+
+    "Modified: 7.3.1997 / 17:59:39 / cg"
 !
 
 drawEdges
@@ -3518,9 +3522,11 @@
     ((edgeStyle == #soft) and:[level > 2]) ifTrue:[
         super paint:(device blackColor).
         super displayDeviceLineFromX:0 y:0 toX:0 y:b. 
-    ]
-
-    "Modified: 13.1.1997 / 23:09:59 / cg"
+    ].
+
+    self edgeDrawn:#left.
+
+    "Modified: 7.3.1997 / 17:59:53 / cg"
 !
 
 drawRightEdge
@@ -3564,7 +3570,11 @@
         r := width - 1.
         super paint:shadowColor.
         super displayDeviceLineFromX:r y:1 toX:r y:b. 
-    ]
+    ].
+
+    self edgeDrawn:#right.
+
+    "Modified: 7.3.1997 / 18:00:02 / cg"
 !
 
 drawTopEdge
@@ -3612,9 +3622,11 @@
     ((edgeStyle == #soft) and:[level > 2]) ifTrue:[
         super paint:(device blackColor).
         super displayDeviceLineFromX:0 y:0 toX:r y:0. 
-    ]
-
-    "Modified: 13.1.1997 / 23:10:06 / cg"
+    ].
+
+    self edgeDrawn:#top.
+
+    "Modified: 7.3.1997 / 18:00:11 / cg"
 !
 
 redrawEdges
@@ -6922,6 +6934,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.187 1997-03-06 21:47:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.188 1997-03-07 20:14:00 cg Exp $'
 ! !
 SimpleView initialize!