redraw the border when unselecting the element
authorClaus Gittinger <cg@exept.de>
Sat, 22 May 1999 09:12:13 +0200
changeset 1130 7ab9098da7bd
parent 1129 2b88876d7976
child 1131 4721b93b9cdc
redraw the border when unselecting the element
UIGalleryView.st
--- a/UIGalleryView.st	Fri May 21 21:33:17 1999 +0200
+++ b/UIGalleryView.st	Sat May 22 09:12:13 1999 +0200
@@ -648,7 +648,7 @@
     |r currSel|
 
     (currSel := selection) isNil ifTrue:[
-	^ self
+        ^ self
     ].
     shown ifFalse:[^ self].
     selection := nil.
@@ -656,27 +656,27 @@
     self clippedByChildren:false.
 
     self handlesOf:currSel do:[:aRectangle|
-	self clearRectangle:aRectangle
+        self clearRectangle:aRectangle
     ].
     self clippedByChildren:true.
     r := currSel bounds.
 
     subViews do:[:sv|
-	|absOrg absFrame|
+        |absOrg absFrame|
 
-	sv ~~ inputView ifTrue:[
-	    (sv bounds intersects:r) ifTrue:[
-		"/ sv borderColor:(Color gray:5).
-		sv borderColor:(Color black).
+        sv ~~ inputView ifTrue:[
+            (sv bounds intersects:r) ifTrue:[
+                sv borderColor:(Color white).           "/ to force a redraw
+                sv borderColor:(Color black).
 
-		sv withAllSubViewsDo:[:v|
-		    v realized ifTrue:[
-			v fill:v viewBackground.
-			v exposeX:0 y:0 width:v width height:v height.
-		    ]
-		]
-	    ]
-	]
+                sv withAllSubViewsDo:[:v|
+                    v realized ifTrue:[
+                        v fill:v viewBackground.
+                        v exposeX:0 y:0 width:v width height:v height.
+                    ]
+                ]
+            ]
+        ]
     ].
     selection := currSel.