changed #updateSelectionFromModel:
fix selection problem if canvas is hidden (not shown).
--- a/UIPainterView.st Fri Sep 21 13:48:14 2007 +0200
+++ b/UIPainterView.st Tue Sep 25 20:53:03 2007 +0200
@@ -1960,8 +1960,7 @@
"
|list|
- self shown ifFalse:[^ self].
-
+ "/ do not return here if not shown - we NEED the correct selection
selectionHiddenLevel == 0 ifTrue:[
aSelOrNil size ~~ 0 ifTrue:[
list := OrderedCollection new.
@@ -1969,13 +1968,13 @@
self selectionDo:[:el|
(aSelOrNil includes:el) ifFalse:[list add:el]
].
- self showUnselected:list.
+ self shown ifTrue:[self showUnselected:list].
] ifFalse:[
- self hideSelection.
+ self shown ifTrue:[self hideSelection].
]
].
self setSelection:aSelOrNil withRedraw:false.
- self showSelection
+ self shown ifTrue:[ self showSelection ].
! !
!UIPainterView methodsFor:'specification'!