equal
deleted
inserted
replaced
1602 !ViewTreeInspectorApplication methodsFor:'menu specs'! |
1602 !ViewTreeInspectorApplication methodsFor:'menu specs'! |
1603 |
1603 |
1604 middleButtonMenu |
1604 middleButtonMenu |
1605 "returns the middleButton menu for the single selected view tree item or nil" |
1605 "returns the middleButton menu for the single selected view tree item or nil" |
1606 |
1606 |
|
1607 <resource: #programMenu > |
|
1608 |
1607 ^ [ |
1609 ^ [ |
1608 |viewTreeItem| |
1610 |viewTreeItem| |
1609 |
1611 |
1610 (viewTreeItem := model selectedItem) notNil ifTrue:[ |
1612 (viewTreeItem := model selectedItem) notNil ifTrue:[ |
1611 viewTreeItem isView ifTrue:[ |
1613 viewTreeItem isView ifTrue:[ |
1617 nil |
1619 nil |
1618 ] |
1620 ] |
1619 ] |
1621 ] |
1620 |
1622 |
1621 "Modified: / 16-08-2017 / 13:48:31 / cg" |
1623 "Modified: / 16-08-2017 / 13:48:31 / cg" |
|
1624 "Modified: / 02-05-2019 / 22:39:49 / Claus Gittinger" |
1622 ! |
1625 ! |
1623 |
1626 |
1624 submenuApplications:aMenu |
1627 submenuApplications:aMenu |
1625 |applications menu item list addBlock| |
1628 |applications menu item list addBlock| |
1626 |
1629 |