1266 "apply block with selection hidden (no handles) |
1266 "apply block with selection hidden (no handles) |
1267 " |
1267 " |
1268 |coll| |
1268 |coll| |
1269 |
1269 |
1270 selectionHiddenLevel == 0 ifTrue:[ |
1270 selectionHiddenLevel == 0 ifTrue:[ |
1271 self hideSelection. |
1271 self hideSelection. |
1272 device flush. |
1272 device flush. |
1273 ]. |
1273 ]. |
1274 selectionHiddenLevel := selectionHiddenLevel + 1. |
1274 selectionHiddenLevel := selectionHiddenLevel + 1. |
1275 |
1275 |
1276 aBlock valueNowOrOnUnwindDo:[ |
1276 aBlock ensure:[ |
1277 selectionHiddenLevel == 1 ifTrue:[ |
1277 selectionHiddenLevel == 1 ifTrue:[ |
1278 setOfSuperViewsSizeChanged notEmpty ifTrue:[ |
1278 setOfSuperViewsSizeChanged notEmpty ifTrue:[ |
1279 coll := self minSetOfSuperViews:setOfSuperViewsSizeChanged. |
1279 coll := self minSetOfSuperViews:setOfSuperViewsSizeChanged. |
1280 coll do:[:aView| aView sizeChanged:nil]. |
1280 coll do:[:aView| aView sizeChanged:nil]. |
1281 setOfSuperViewsSizeChanged := IdentitySet new |
1281 setOfSuperViewsSizeChanged := IdentitySet new |
1282 ]. |
1282 ]. |
1283 selectionHiddenLevel := 0. |
1283 selectionHiddenLevel := 0. |
1284 self selectionDo:[:aView| self showSelected:aView]. |
1284 self selectionDo:[:aView| self showSelected:aView]. |
1285 ] ifFalse:[ |
1285 ] ifFalse:[ |
1286 selectionHiddenLevel := selectionHiddenLevel - 1. |
1286 selectionHiddenLevel := selectionHiddenLevel - 1. |
1287 ] |
1287 ] |
1288 ] |
1288 ] |
1289 |
|
1290 ! |
1289 ! |
1291 |
1290 |
1292 withoutSelectionDo:aBlock |
1291 withoutSelectionDo:aBlock |
1293 "evaluate aBlock while selection is nilled |
1292 "evaluate aBlock while selection is nilled |
1294 " |
1293 " |