equal
deleted
inserted
replaced
449 |
449 |
450 setOfViews isCollection ifFalse:[ |
450 setOfViews isCollection ifFalse:[ |
451 setOfViews notNil ifTrue:[^ Array with:setOfViews] |
451 setOfViews notNil ifTrue:[^ Array with:setOfViews] |
452 ifFalse:[^ nil] |
452 ifFalse:[^ nil] |
453 ]. |
453 ]. |
454 |
|
455 ^ setOfViews select:[:aView| |
454 ^ setOfViews select:[:aView| |
456 (setOfViews detect:[:v|aView isComponentOf:v] ifNone:nil) isNil |
455 (setOfViews detect:[:v|aView isComponentOf:v] ifNone:nil) isNil |
457 ] |
456 ] |
458 ! |
457 ! |
459 |
458 |
1267 self selectionChanged |
1266 self selectionChanged |
1268 ] |
1267 ] |
1269 |
1268 |
1270 ! |
1269 ! |
1271 |
1270 |
|
1271 selection:something |
|
1272 "change selection to something |
|
1273 " |
|
1274 self select:something |
|
1275 ! |
|
1276 |
1272 selectionChanged |
1277 selectionChanged |
1273 "called whenever the selection changed |
1278 "called whenever the selection changed |
1274 " |
1279 " |
1275 self subclassResponsibility |
1280 self subclassResponsibility |
1276 |
1281 |
1657 ] |
1662 ] |
1658 ] |
1663 ] |
1659 |
1664 |
1660 ! |
1665 ! |
1661 |
1666 |
1662 setDimension:aLayout |
1667 setExtent:anExtent |
|
1668 "change extent for all selected objects |
|
1669 " |
|
1670 self transaction:#extent dimensionDo:[:v| |
|
1671 v geometryLayout:nil. |
|
1672 v extent:anExtent. |
|
1673 ]. |
|
1674 |
|
1675 "Modified: 28.2.1997 / 12:49:00 / cg" |
|
1676 ! |
|
1677 |
|
1678 setLayout:aLayout |
1663 "change layout for all selected objects |
1679 "change layout for all selected objects |
1664 " |
1680 " |
1665 self transaction:#layout dimensionDo:[:v| |
1681 self transaction:#layout dimensionDo:[:v| |
1666 v geometryLayout:(aLayout copy) |
1682 v geometryLayout:(aLayout copy) |
1667 ]. |
1683 ]. |
1668 |
1684 |
1669 ! |
1685 ! |
1670 |
1686 |
1671 setExtent:anExtent |
|
1672 "change extent for all selected objects |
|
1673 " |
|
1674 self transaction:#extent dimensionDo:[:v| |
|
1675 v geometryLayout:nil. |
|
1676 v extent:anExtent. |
|
1677 ]. |
|
1678 |
|
1679 "Modified: 28.2.1997 / 12:49:00 / cg" |
|
1680 ! |
|
1681 |
|
1682 setToDefaultExtent |
1687 setToDefaultExtent |
1683 "change extent of all selected views to their default extent |
1688 "change extent of all selected views to their default extent |
1684 " |
1689 " |
1685 self transaction:#defaultExtent dimensionDo:[:v| |
1690 self transaction:#defaultExtent dimensionDo:[:v| |
1686 self resize:v corner:(v computeOrigin + (v preferredExtent)) |
1691 self resize:v corner:(v computeOrigin + (v preferredExtent)). |
|
1692 self halt. |
1687 ] |
1693 ] |
1688 |
1694 |
1689 ! |
1695 ! |
1690 |
1696 |
1691 setToDefaultHeight |
1697 setToDefaultHeight |
2287 ! |
2293 ! |
2288 |
2294 |
2289 openUndoMenu |
2295 openUndoMenu |
2290 "open undo menu |
2296 "open undo menu |
2291 " |
2297 " |
2292 self selection:nil. |
2298 self select:nil. |
2293 undoHistory openUndoMenu |
2299 undoHistory openUndoMenu |
2294 ! |
2300 ! |
2295 |
2301 |
2296 removeUndoHistory |
2302 removeUndoHistory |
2297 "delete total undo history |
2303 "delete total undo history |