1692 (MenuItem |
1692 (MenuItem |
1693 label: '-' |
1693 label: '-' |
1694 ) |
1694 ) |
1695 (MenuItem |
1695 (MenuItem |
1696 activeHelpKey: editCut |
1696 activeHelpKey: editCut |
1697 enabled: valueOfCanCut |
1697 enabled: canCutHolder |
1698 label: 'Cut' |
1698 label: 'Cut' |
1699 itemValue: deleteSelection |
1699 itemValue: deleteSelection |
1700 translateLabel: true |
1700 translateLabel: true |
1701 ) |
1701 ) |
1702 (MenuItem |
1702 (MenuItem |
1703 activeHelpKey: editCopy |
1703 activeHelpKey: editCopy |
1704 enabled: valueOfCanCopy |
1704 enabled: canCopyHolder |
1705 label: 'Copy' |
1705 label: 'Copy' |
1706 itemValue: copySelection |
1706 itemValue: copySelection |
1707 translateLabel: true |
1707 translateLabel: true |
1708 ) |
1708 ) |
1709 (MenuItem |
1709 (MenuItem |
1710 activeHelpKey: pasteBuffer |
1710 activeHelpKey: pasteBuffer |
1711 enabled: valueOfCanPaste |
1711 enabled: canPasteHolder |
1712 label: 'Paste' |
1712 label: 'Paste' |
1713 itemValue: pasteBuffer |
1713 itemValue: pasteBuffer |
1714 translateLabel: true |
1714 translateLabel: true |
1715 ) |
1715 ) |
1716 (MenuItem |
1716 (MenuItem |
1717 activeHelpKey: pasteWithLayout |
1717 activeHelpKey: pasteWithLayout |
1718 enabled: valueOfCanPasteWithKeepingLayout |
1718 enabled: canPasteKeepingLayoutHolder |
1719 label: 'Paste with Layout' |
1719 label: 'Paste with Layout' |
1720 itemValue: pasteWithLayout |
1720 itemValue: pasteWithLayout |
1721 translateLabel: true |
1721 translateLabel: true |
1722 ) |
1722 ) |
1723 (MenuItem |
1723 (MenuItem |
1724 activeHelpKey: editPaste |
1724 activeHelpKey: editPaste |
1725 enabled: valueOfCanPasteWithKeepingLayout |
1725 enabled: canPasteKeepingLayoutHolder |
1726 label: 'Paste Keeping Absolute Position' |
1726 label: 'Paste Keeping Absolute Position' |
1727 itemValue: pasteKeepingPosition |
1727 itemValue: pasteKeepingPosition |
1728 translateLabel: true |
1728 translateLabel: true |
1729 ) |
1729 ) |
1730 (MenuItem |
1730 (MenuItem |
1731 activeHelpKey: editDelete |
1731 activeHelpKey: editDelete |
1732 enabled: valueOfCanCut |
1732 enabled: canCutHolder |
1733 label: 'Delete' |
1733 label: 'Delete' |
1734 itemValue: deleteTotalSelection |
1734 itemValue: deleteTotalSelection |
1735 translateLabel: true |
1735 translateLabel: true |
1736 ) |
1736 ) |
1737 (MenuItem |
1737 (MenuItem |
2081 (MenuItem |
2081 (MenuItem |
2082 label: '-' |
2082 label: '-' |
2083 ) |
2083 ) |
2084 (MenuItem |
2084 (MenuItem |
2085 activeHelpKey: editCut |
2085 activeHelpKey: editCut |
2086 enabled: valueOfCanCut |
2086 enabled: canCutHolder |
2087 label: 'Cut' |
2087 label: 'Cut' |
2088 itemValue: deleteSelection |
2088 itemValue: deleteSelection |
2089 translateLabel: true |
2089 translateLabel: true |
2090 isButton: true |
2090 isButton: true |
2091 labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon) |
2091 labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon) |
2092 ) |
2092 ) |
2093 (MenuItem |
2093 (MenuItem |
2094 activeHelpKey: editCopy |
2094 activeHelpKey: editCopy |
2095 enabled: valueOfCanCopy |
2095 enabled: canCopyHolder |
2096 label: 'Copy' |
2096 label: 'Copy' |
2097 itemValue: copySelection |
2097 itemValue: copySelection |
2098 translateLabel: true |
2098 translateLabel: true |
2099 isButton: true |
2099 isButton: true |
2100 labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon) |
2100 labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon) |
2101 ) |
2101 ) |
2102 (MenuItem |
2102 (MenuItem |
2103 activeHelpKey: editPaste |
2103 activeHelpKey: editPaste |
2104 enabled: valueOfCanPasteWithKeepingLayout |
2104 enabled: canPasteKeepingLayoutHolder |
2105 label: 'Paste With Layout' |
2105 label: 'Paste With Layout' |
2106 itemValue: pasteWithLayout |
2106 itemValue: pasteWithLayout |
2107 translateLabel: true |
2107 translateLabel: true |
2108 isButton: true |
2108 isButton: true |
2109 labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon) |
2109 labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon) |
2110 ) |
2110 ) |
2111 (MenuItem |
2111 (MenuItem |
2112 activeHelpKey: editDelete |
2112 activeHelpKey: editDelete |
2113 enabled: valueOfCanCut |
2113 enabled: canCutHolder |
2114 label: 'Delete' |
2114 label: 'Delete' |
2115 itemValue: deleteTotalSelection |
2115 itemValue: deleteTotalSelection |
2116 translateLabel: true |
2116 translateLabel: true |
2117 isButton: true |
2117 isButton: true |
2118 isVisible: false |
2118 isVisible: false |
2495 |
2504 |
2496 ^ treeView |
2505 ^ treeView |
2497 ! |
2506 ! |
2498 |
2507 |
2499 valueOfCanPasteWithKeepingLayout |
2508 valueOfCanPasteWithKeepingLayout |
2500 |
2509 self obsoleteMethodWarning:'stupid name - use #canPasteKeepingLayoutHolder'. |
2501 |holder| |
2510 ^ self canPasteKeepingLayoutHolder |
2502 (holder := builder bindingAt:#valueOfCanPasteWithKeepingLayout) isNil ifTrue:[ |
|
2503 builder aspectAt:#valueOfCanPasteWithKeepingLayout put:(holder := false asValue). |
|
2504 ]. |
|
2505 ^ holder |
|
2506 |
|
2507 |
|
2508 |
|
2509 ! ! |
2511 ! ! |
2510 |
2512 |
2511 !UIPainter methodsFor:'building editors'! |
2513 !UIPainter methodsFor:'building editors'! |
2512 |
2514 |
2513 openDataSetColumnEditor |
2515 openDataSetColumnEditor |
2815 "/ and:[treeSelection size = 1 |
2817 "/ and:[treeSelection size = 1 |
2816 "/ and:[treeSelection first == 1 |
2818 "/ and:[treeSelection first == 1 |
2817 "/ or: [self canPasteInto: treeView selectedNode contents view]]] |
2819 "/ or: [self canPasteInto: treeView selectedNode contents view]]] |
2818 ]. |
2820 ]. |
2819 |
2821 |
2820 self valueOfCanCut value: canCutOrCopy. |
2822 self canCutHolder value: canCutOrCopy. |
2821 self valueOfCanCopy value: canCutOrCopy. |
2823 self canCopyHolder value: canCutOrCopy. |
2822 self valueOfCanPaste value: canPaste. |
2824 self canPasteHolder value: canPaste. |
2823 self valueOfCanPasteWithKeepingLayout value: (canPaste "& self canKeepLayoutInSelection"). |
2825 self canPasteKeepingLayoutHolder value: (canPaste "& self canKeepLayoutInSelection"). |
2824 |
2826 |
2825 "/ self modifiedChannel value: false. |
2827 "/ self modifiedChannel value: false. |
2826 |
2828 |
2827 "Modified: / 16.7.1998 / 19:13:30 / cg" |
2829 "Modified: / 16.7.1998 / 19:13:30 / cg" |
2828 ! ! |
2830 ! ! |