equal
deleted
inserted
replaced
1469 self hideSelection. |
1469 self hideSelection. |
1470 device flush. |
1470 device flush. |
1471 ]. |
1471 ]. |
1472 selectionHiddenLevel := selectionHiddenLevel + 1. |
1472 selectionHiddenLevel := selectionHiddenLevel + 1. |
1473 |
1473 |
1474 aBlock ensure:[ |
1474 aBlock |
1475 selectionHiddenLevel := selectionHiddenLevel - 1. |
1475 ensure:[ |
1476 selectionHiddenLevel == 0 ifTrue:[ |
1476 selectionHiddenLevel == 1 ifTrue:[ |
1477 setOfSuperViewsSizeChanged notEmpty ifTrue:[ |
1477 "/ careful to decrement selectionHiddenLevel AFTER the sizeChanged; |
1478 coll := self minClosedViewSetFor:setOfSuperViewsSizeChanged. |
1478 "/ otherwise, we get endless recursion here. |
1479 coll do:[:aView| aView sizeChanged:nil]. |
1479 setOfSuperViewsSizeChanged notEmpty ifTrue:[ |
1480 setOfSuperViewsSizeChanged := IdentitySet new |
1480 coll := self minClosedViewSetFor:setOfSuperViewsSizeChanged. |
|
1481 coll do:[:aView| aView sizeChanged:nil]. |
|
1482 setOfSuperViewsSizeChanged := IdentitySet new |
|
1483 ]. |
|
1484 selectionHiddenLevel := selectionHiddenLevel - 1. |
|
1485 self showSelection. |
|
1486 ] ifFalse:[ |
|
1487 selectionHiddenLevel := selectionHiddenLevel - 1. |
1481 ]. |
1488 ]. |
1482 self showSelection. |
|
1483 ] |
1489 ] |
1484 ] |
|
1485 ! |
1490 ! |
1486 |
1491 |
1487 withoutSelectionDo:aBlock |
1492 withoutSelectionDo:aBlock |
1488 "evaluate aBlock while selection is nilled |
1493 "evaluate aBlock while selection is nilled |
1489 " |
1494 " |