handleAffectedViews:aViewOrSeqOfViews
change borderColor instead of width to force a redraw
--- 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
"