changeset 1917 | 53832fa044f1 |
parent 1883 | 577a267a87cb |
child 1940 | 0f9be199d1c5 |
1916:c91c39976bef | 1917:53832fa044f1 |
---|---|
2001 translateLabel: true |
2001 translateLabel: true |
2002 isButton: true |
2002 isButton: true |
2003 labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon) |
2003 labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon) |
2004 ) |
2004 ) |
2005 (MenuItem |
2005 (MenuItem |
2006 label: '' |
2006 label: '-' |
2007 ) |
2007 ) |
2008 (MenuItem |
2008 (MenuItem |
2009 activeHelpKey: fileNew |
2009 activeHelpKey: fileNew |
2010 label: 'New' |
2010 label: 'New' |
2011 itemValue: doNew |
2011 itemValue: doNew |
2028 translateLabel: true |
2028 translateLabel: true |
2029 isButton: true |
2029 isButton: true |
2030 labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) |
2030 labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) |
2031 ) |
2031 ) |
2032 (MenuItem |
2032 (MenuItem |
2033 label: '' |
2033 label: '-' |
2034 ) |
|
2035 (MenuItem |
|
2036 activeHelpKey: editUndo |
|
2037 enabled: hasUndoHistoryHolder |
|
2038 label: 'Undo' |
|
2039 itemValue: undoLast |
|
2040 translateLabel: true |
|
2041 isButton: true |
|
2042 labelImage: (ResourceRetriever XPToolbarIconLibrary undoIcon) |
|
2043 ) |
|
2044 (MenuItem |
|
2045 label: '-' |
|
2034 ) |
2046 ) |
2035 (MenuItem |
2047 (MenuItem |
2036 activeHelpKey: editCut |
2048 activeHelpKey: editCut |
2037 enabled: valueOfCanCut |
2049 enabled: valueOfCanCut |
2038 label: 'Cut' |
2050 label: 'Cut' |
2068 isButton: true |
2080 isButton: true |
2069 isVisible: false |
2081 isVisible: false |
2070 labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon) |
2082 labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon) |
2071 ) |
2083 ) |
2072 (MenuItem |
2084 (MenuItem |
2073 label: '' |
2085 label: '-' |
2074 ) |
2086 ) |
2075 (MenuItem |
2087 (MenuItem |
2076 activeHelpKey: moveWidgetUp |
2088 activeHelpKey: moveWidgetUp |
2077 enabled: canChangeOrderInContainer |
2089 enabled: canChangeOrderInContainer |
2078 label: 'Move Up' |
2090 label: 'Move Up' |
2107 translateLabel: true |
2119 translateLabel: true |
2108 isButton: true |
2120 isButton: true |
2109 labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetLeftDownIcon) |
2121 labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetLeftDownIcon) |
2110 ) |
2122 ) |
2111 (MenuItem |
2123 (MenuItem |
2112 label: '' |
2124 label: '-' |
2113 startGroup: right |
2125 startGroup: right |
2114 ) |
2126 ) |
2115 (MenuItem |
2127 (MenuItem |
2116 activeHelpKey: settingsCanvas |
2128 activeHelpKey: settingsCanvas |
2117 label: 'Canvas' |
2129 label: 'Canvas' |
2334 hasOneSelectionOtherThanCanvas |
2346 hasOneSelectionOtherThanCanvas |
2335 "returns a value holder which is true in case that one widget is selected |
2347 "returns a value holder which is true in case that one widget is selected |
2336 other than the root" |
2348 other than the root" |
2337 |
2349 |
2338 ^ builder booleanValueAspectFor:#hasOneSelectionOtherThanCanvas |
2350 ^ builder booleanValueAspectFor:#hasOneSelectionOtherThanCanvas |
2351 ! |
|
2352 |
|
2353 hasUndoHistory |
|
2354 ^ self painter hasUndoHistory |
|
2339 ! |
2355 ! |
2340 |
2356 |
2341 helpIcon |
2357 helpIcon |
2342 |
2358 |
2343 ^Icon helpIcon |
2359 ^Icon helpIcon |
2806 ^specClass printString, ' >> ', specSelector |
2822 ^specClass printString, ' >> ', specSelector |
2807 |
2823 |
2808 "Modified: / 20.6.1998 / 16:49:16 / cg" |
2824 "Modified: / 20.6.1998 / 16:49:16 / cg" |
2809 ! ! |
2825 ! ! |
2810 |
2826 |
2827 !UIPainter methodsFor:'help spec'! |
|
2828 |
|
2829 flyByHelpSpec |
|
2830 |spec| |
|
2831 |
|
2832 spec := self class flyByHelpSpec. |
|
2833 spec at:#editUndo put:(resources string:'Undo (%1)' |
|
2834 with:(resources string:self painter undoHistory labelOfLastUndo)). |
|
2835 ^ spec |
|
2836 ! |
|
2837 |
|
2838 helpSpec |
|
2839 |spec| |
|
2840 |
|
2841 spec := self class helpSpec. |
|
2842 spec at:#editUndo put:(resources string:'Undo (%1)' |
|
2843 with:(resources string:self painter undoHistory labelOfLastUndo)). |
|
2844 ^ spec |
|
2845 ! ! |
|
2846 |
|
2811 !UIPainter methodsFor:'menus-dynamic'! |
2847 !UIPainter methodsFor:'menus-dynamic'! |
2812 |
2848 |
2813 menuEdit |
2849 menuEdit |
2814 ^ [ |
2850 ^ [ |
2815 |m i| |
2851 |m i| |
2816 |
2852 |
2817 m := self class menuEdit. |
2853 m := self class menuEdit. |
2818 m := m decodeAsLiteralArray. |
2854 m := m decodeAsLiteralArray. |
2819 i := m detectItem:[:item | item nameKey == #undo] ifNone:nil. |
2855 i := m detectItem:[:item | item nameKey == #undo] ifNone:nil. |
2820 i notNil ifTrue:[ |
2856 i notNil ifTrue:[ |
2821 i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')') |
2857 i label:(resources string:(i label , ' (%1)') |
2858 with:(resources string:self painter undoHistory labelOfLastUndo)). |
|
2822 ]. |
2859 ]. |
2823 "/ m receiver:self. -- now done in findGuiResources ... |
2860 "/ m receiver:self. -- now done in findGuiResources ... |
2824 m findGuiResourcesIn:self. |
2861 m findGuiResourcesIn:self. |
2825 m |
2862 m |
2826 ]. |
2863 ]. |