equal
deleted
inserted
replaced
1245 ! |
1245 ! |
1246 |
1246 |
1247 updateSelectionFromModel:aSelOrNil |
1247 updateSelectionFromModel:aSelOrNil |
1248 "update selection from a new selection |
1248 "update selection from a new selection |
1249 " |
1249 " |
|
1250 |aSet| |
|
1251 |
1250 selectionHiddenLevel == 0 ifTrue:[ |
1252 selectionHiddenLevel == 0 ifTrue:[ |
1251 aSelOrNil size ~~ 0 ifTrue:[ |
1253 aSelOrNil size ~~ 0 ifTrue:[ |
1252 self selectionDo:[:el| (aSelOrNil includes:el) ifFalse:[self showUnselected:el] ] |
1254 self selectionDo:[:el| |
|
1255 (aSelOrNil includes:el) ifFalse:[ |
|
1256 aSet isNil ifTrue:[ |
|
1257 aSet := IdentitySet new |
|
1258 ]. |
|
1259 self showUnselected:el addAffectedViewsTo:aSet. |
|
1260 ] |
|
1261 ]. |
|
1262 self handleAffectedViews:aSet. |
1253 ] ifFalse:[ |
1263 ] ifFalse:[ |
1254 self selectionDo:[:el| self showUnselected:el ] |
1264 self hideSelection. |
1255 ] |
1265 ] |
1256 ]. |
1266 ]. |
1257 self setSelection:aSelOrNil withRedraw:false. |
1267 self setSelection:aSelOrNil withRedraw:false. |
1258 self showSelection |
1268 self showSelection |
1259 |
1269 |