diff -r 1df0525eeec9 -r ce2a772e73fa UIObjectView.st
--- a/UIObjectView.st	Tue Apr 14 13:34:55 1998 +0200
+++ b/UIObjectView.st	Tue Apr 14 13:35:47 1998 +0200
@@ -880,15 +880,15 @@
 handleAffectedViews:aViewOrSeqOfViews
     "update affected views
     "
-    |bw|
+    |c|
 
     self forEach:aViewOrSeqOfViews do:[:v|
         v shown ifTrue:[
             v fill:v viewBackground.
-            bw := v borderWidth.
-            bw ~~ 0 ifTrue:[
-                v borderWidth:(bw - 1).
-                v borderWidth:bw.
+            v borderWidth ~~ 0 ifTrue:[
+                c := v borderColor.
+                v borderColor:(Color colorId:1).
+                v borderColor:c.
             ].
             v exposeX:0 y:0 width:9999 height:9999
         ]
@@ -909,29 +909,6 @@
     ]
 !
 
-showSelected:aComponent
-    "show object selected
-    "
-    |wasClipped|
-
-    selectionHiddenLevel == 0 ifTrue:[
-        self paint:Color black.
-
-        (wasClipped := clipChildren) ifTrue:[
-            self clippedByChildren:(clipChildren := false). 
-        ].
-
-        self handlesOf:aComponent do:[:rectangle :what|
-            what == #view ifTrue:[self displayRectangle:rectangle]
-                         ifFalse:[self fillRectangle:rectangle]
-        ].
-
-        wasClipped ifTrue:[
-            self clippedByChildren:(clipChildren := true).
-        ]
-    ]
-!
-
 showUnselected:aComponent
     "show object unselected
     "