1861 (Menu new fromLiteralArrayEncoding:(DataSetBuilder menuToolbar)) startUp |
1861 (Menu new fromLiteralArrayEncoding:(DataSetBuilder menuToolbar)) startUp |
1862 " |
1862 " |
1863 |
1863 |
1864 <resource: #menu> |
1864 <resource: #menu> |
1865 |
1865 |
1866 ^ |
1866 ^ |
1867 |
1867 #(Menu |
1868 #(#Menu |
1868 ( |
1869 |
1869 (MenuItem |
1870 #( |
1870 activeHelpKey: fileNew |
1871 #(#MenuItem |
1871 label: 'New' |
1872 #label: 'New' |
1872 itemValue: doNew |
1873 #isButton: true |
1873 translateLabel: true |
1874 #value: #doNew |
1874 isButton: true |
1875 #activeHelpKey: #fileNew |
1875 labelImage: (ResourceRetriever ToolbarIconLibrary newDataSet24x24Icon) |
1876 #labelImage: #(#ResourceRetriever #Icon #newIcon) |
1876 ) |
1877 ) |
1877 (MenuItem |
1878 #(#MenuItem |
1878 activeHelpKey: fileLoad |
1879 #label: 'Load' |
1879 label: 'Load' |
1880 #isButton: true |
1880 itemValue: doLoad |
1881 #value: #doLoad |
1881 translateLabel: true |
1882 #activeHelpKey: #fileLoad |
1882 isButton: true |
1883 #labelImage: #(#ResourceRetriever #Icon #loadIcon) |
1883 submenuChannel: menuHistory |
1884 ) |
1884 labelImage: (ResourceRetriever ToolbarIconLibrary load22x22Icon) |
1885 #(#MenuItem |
1885 ) |
1886 #label: 'Save' |
1886 |
1887 #isButton: true |
1887 (MenuItem |
1888 #value: #doSave |
1888 activeHelpKey: fileSave |
1889 #activeHelpKey: #fileSave |
1889 label: 'Save' |
1890 #labelImage: #(#ResourceRetriever #Icon #saveIcon) |
1890 itemValue: doSave |
1891 ) |
1891 translateLabel: true |
1892 #(#MenuItem |
1892 isButton: true |
1893 #label: '' |
1893 labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon) |
1894 ) |
1894 ) |
1895 #(#MenuItem |
1895 (MenuItem |
1896 #label: 'Cut' |
1896 label: '' |
1897 #isButton: true |
1897 ) |
1898 #value: #doCut |
1898 (MenuItem |
1899 #activeHelpKey: #editCut |
1899 activeHelpKey: editCut |
1900 #enabled: #isColumnSelected |
1900 enabled: isColumnSelected |
1901 #labelImage: #(#ResourceRetriever #Icon #cutIcon) |
1901 label: 'Cut' |
1902 ) |
1902 itemValue: doCut |
1903 #(#MenuItem |
1903 translateLabel: true |
1904 #label: 'Copy' |
1904 isButton: true |
1905 #isButton: true |
1905 labelImage: (ResourceRetriever Icon cutIcon) |
1906 #value: #doCopy |
1906 ) |
1907 #activeHelpKey: #editCopy |
1907 (MenuItem |
1908 #enabled: #isColumnSelected |
1908 activeHelpKey: editCopy |
1909 #labelImage: #(#ResourceRetriever #Icon #copyIcon) |
1909 enabled: isColumnSelected |
1910 ) |
1910 label: 'Copy' |
1911 #(#MenuItem |
1911 itemValue: doCopy |
1912 #label: 'Paste' |
1912 translateLabel: true |
1913 #isButton: true |
1913 isButton: true |
1914 #value: #doPaste |
1914 labelImage: (ResourceRetriever Icon copyIcon) |
1915 #activeHelpKey: #editPaste |
1915 ) |
1916 #enabled: #valueOfCanPaste |
1916 (MenuItem |
1917 #labelImage: #(#ResourceRetriever #Icon #pasteIcon) |
1917 activeHelpKey: editPaste |
1918 ) |
1918 enabled: valueOfCanPaste |
1919 #(#MenuItem |
1919 label: 'Paste' |
1920 #label: 'Delete' |
1920 itemValue: doPaste |
1921 #isButton: true |
1921 translateLabel: true |
1922 #value: #doDelete |
1922 isButton: true |
1923 #activeHelpKey: #editDelete |
1923 labelImage: (ResourceRetriever Icon pasteIcon) |
1924 #enabled: #isColumnSelected |
1924 ) |
1925 #labelImage: #(#ResourceRetriever #Icon #deleteIcon) |
1925 (MenuItem |
1926 ) |
1926 activeHelpKey: editDelete |
1927 #(#MenuItem |
1927 enabled: isColumnSelected |
1928 #label: '' |
1928 label: 'Delete' |
1929 ) |
1929 itemValue: doDelete |
1930 #(#MenuItem |
1930 translateLabel: true |
1931 #label: 'Add Column' |
1931 isButton: true |
1932 #isButton: true |
1932 labelImage: (ResourceRetriever Icon deleteIcon) |
1933 #value: #doCreateColumn |
1933 ) |
1934 #activeHelpKey: #addColumn |
1934 (MenuItem |
1935 #enabled: #columnIsNotEditing |
1935 label: '' |
1936 #labelImage: #(#ResourceRetriever nil #newColumnIcon) |
1936 ) |
1937 ) |
1937 (MenuItem |
1938 #(#MenuItem |
1938 activeHelpKey: addColumn |
1939 #label: '' |
1939 enabled: columnIsNotEditing |
1940 ) |
1940 label: 'Add Column' |
1941 #(#MenuItem |
1941 itemValue: doCreateColumn |
1942 #label: 'Move Up' |
1942 translateLabel: true |
1943 #isButton: true |
1943 isButton: true |
1944 #value: #doMoveColumn: |
1944 labelImage: (ResourceRetriever nil newColumnIcon) |
1945 #activeHelpKey: #editMoveUp |
1945 ) |
1946 #enabled: #isColumnSelected |
1946 (MenuItem |
1947 #argument: #up |
1947 label: '' |
1948 #labelImage: #(#ResourceRetriever #Icon #upIcon) |
1948 ) |
1949 ) |
1949 (MenuItem |
1950 #(#MenuItem |
1950 activeHelpKey: editMoveUp |
1951 #label: 'Move Down' |
1951 enabled: isColumnSelected |
1952 #isButton: true |
1952 label: 'Move Up' |
1953 #value: #doMoveColumn: |
1953 itemValue: doMoveColumn: |
1954 #activeHelpKey: #editMoveDown |
1954 translateLabel: true |
1955 #enabled: #isColumnSelected |
1955 isButton: true |
1956 #argument: #down |
1956 labelImage: (ResourceRetriever Icon upIcon) |
1957 #labelImage: #(#ResourceRetriever #Icon #downIcon) |
1957 argument: up |
1958 ) |
1958 ) |
1959 ) nil |
1959 (MenuItem |
1960 nil |
1960 activeHelpKey: editMoveDown |
|
1961 enabled: isColumnSelected |
|
1962 label: 'Move Down' |
|
1963 itemValue: doMoveColumn: |
|
1964 translateLabel: true |
|
1965 isButton: true |
|
1966 labelImage: (ResourceRetriever Icon downIcon) |
|
1967 argument: down |
|
1968 ) |
|
1969 ) |
|
1970 nil |
|
1971 nil |
1961 ) |
1972 ) |
1962 ! ! |
1973 ! ! |
1963 |
1974 |
1964 !DataSetBuilder methodsFor:'accessing'! |
1975 !DataSetBuilder methodsFor:'accessing'! |
1965 |
1976 |