changeset 1924 | 9b404092b317 |
parent 1922 | 0897f7cbc0c2 |
child 1927 | f147a2385f07 |
1923:c1bd25dbfcc1 | 1924:9b404092b317 |
---|---|
397 |
397 |
398 #tools |
398 #tools |
399 'Tool functions.' |
399 'Tool functions.' |
400 |
400 |
401 #toolsChangesBrowser |
401 #toolsChangesBrowser |
402 'Open a Changes Browser on changes made to the current smalltalk environment.' |
402 'Open a Changes Browser.' |
403 |
403 |
404 #toolsGUIPainter |
404 #toolsGUIPainter |
405 'Open a GUI Painter for graphical user interface construction.' |
405 'Open a GUI Painter for graphical user interface construction.' |
406 |
406 |
407 #toolsImageEditor |
407 #toolsImageEditor |
426 'Create a new project.' |
426 'Create a new project.' |
427 |
427 |
428 #toolsMiscProjectsSelectProject |
428 #toolsMiscProjectsSelectProject |
429 'Select an existing project and reopen its windows.' |
429 'Select an existing project and reopen its windows.' |
430 |
430 |
431 #toolsNewChangesBrowser |
|
432 'Open the new changes browser.' |
|
433 |
|
431 #toolsOldChangesBrowser |
434 #toolsOldChangesBrowser |
432 'Open the old changes browser.' |
435 'Open the old changes browser.' |
433 |
436 |
434 #toolsProjects |
437 #toolsProjects |
435 '' |
438 '' |
475 |
478 |
476 #windowsViewTreeAllViews |
479 #windowsViewTreeAllViews |
477 'Display the widget hierarchies of all ST/X windows.' |
480 'Display the widget hierarchies of all ST/X windows.' |
478 |
481 |
479 ) |
482 ) |
483 |
|
484 "Modified: / 13.10.1998 / 16:02:36 / cg" |
|
480 ! ! |
485 ! ! |
481 |
486 |
482 !NewLauncher class methodsFor:'image specs'! |
487 !NewLauncher class methodsFor:'image specs'! |
483 |
488 |
484 helpIcon |
489 helpIcon |
868 #label: '-' |
873 #label: '-' |
869 ) |
874 ) |
870 #(#MenuItem |
875 #(#MenuItem |
871 #label: 'Changes Browser' |
876 #label: 'Changes Browser' |
872 #translateLabel: true |
877 #translateLabel: true |
873 #value: #openApplication: |
878 #value: #startChangesBrowser |
874 #activeHelpKey: #toolsChangesBrowser |
879 #activeHelpKey: #toolsChangesBrowser |
875 #argument: 'NewChangesBrowser' |
|
876 #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser') |
880 #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser') |
877 ) |
881 ) |
878 #(#MenuItem |
882 #(#MenuItem |
879 #label: '-' |
883 #label: '-' |
880 ) |
884 ) |
930 ) |
934 ) |
931 #(#MenuItem |
935 #(#MenuItem |
932 #label: '-' |
936 #label: '-' |
933 ) |
937 ) |
934 #(#MenuItem |
938 #(#MenuItem |
939 #label: 'New Changes Browser' |
|
940 #translateLabel: true |
|
941 #value: #startNewChangesBrowser |
|
942 #activeHelpKey: #toolsNewChangesBrowser |
|
943 ) |
|
944 #(#MenuItem |
|
935 #label: 'Old Changes Browser' |
945 #label: 'Old Changes Browser' |
936 #translateLabel: true |
946 #translateLabel: true |
937 #value: #startOldChangesBrowser |
947 #value: #startOldChangesBrowser |
938 #activeHelpKey: #toolsOldChangesBrowser |
948 #activeHelpKey: #toolsOldChangesBrowser |
939 ) |
949 ) |
1104 #label: 'Source And Debugger...' |
1114 #label: 'Source And Debugger...' |
1105 #translateLabel: true |
1115 #translateLabel: true |
1106 #value: #sourceAndDebuggerSettings |
1116 #value: #sourceAndDebuggerSettings |
1107 #activeHelpKey: #settingsSourceAndDebugger |
1117 #activeHelpKey: #settingsSourceAndDebugger |
1108 #enabled: #enableDangerousMenuItemsInRemoteLauncher |
1118 #enabled: #enableDangerousMenuItemsInRemoteLauncher |
1119 ) |
|
1120 #(#MenuItem |
|
1121 #label: 'Tools...' |
|
1122 #translateLabel: true |
|
1123 #value: #toolSettings |
|
1109 ) |
1124 ) |
1110 #(#MenuItem |
1125 #(#MenuItem |
1111 #label: 'Java...' |
1126 #label: 'Java...' |
1112 #translateLabel: true |
1127 #translateLabel: true |
1113 #isVisible: #javaSupportPresent |
1128 #isVisible: #javaSupportPresent |
1724 ) |
1739 ) |
1725 ) nil |
1740 ) nil |
1726 nil |
1741 nil |
1727 ) |
1742 ) |
1728 |
1743 |
1729 "Modified: / 13.10.1998 / 15:14:34 / cg" |
1744 "Modified: / 13.10.1998 / 16:01:26 / cg" |
1730 ! |
1745 ! |
1731 |
1746 |
1732 menuToolbar |
1747 menuToolbar |
1733 "This resource specification was automatically generated |
1748 "This resource specification was automatically generated |
1734 by the MenuEditor of ST/X." |
1749 by the MenuEditor of ST/X." |
1745 |
1760 |
1746 ^ |
1761 ^ |
1747 |
1762 |
1748 #(#Menu |
1763 #(#Menu |
1749 |
1764 |
1750 #( |
1765 #( |
1751 #(#MenuItem |
1766 #(#MenuItem |
1752 #label: 'open workspace' |
1767 #label: 'open workspace' |
1753 #isButton: true |
1768 #isButton: true |
1754 #value: #openApplication: |
1769 #value: #openApplication: |
1755 #activeHelpKey: #toolsWorkspace |
1770 #activeHelpKey: #toolsWorkspace |
1756 #argument: 'Workspace' |
1771 #argument: 'Workspace' |
1757 #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon) |
1772 #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon) |
1758 ) |
1773 ) |
1759 #(#MenuItem |
1774 #(#MenuItem |
1760 #label: 'open file browser' |
1775 #label: 'open file browser' |
1761 #isButton: true |
1776 #isButton: true |
1762 #value: #openApplication: |
1777 #value: #openApplication: |
1763 #activeHelpKey: #fileFileBrowser |
1778 #activeHelpKey: #fileFileBrowser |
1764 #argument: 'FileBrowser' |
1779 #argument: 'FileBrowser' |
1765 #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon) |
1780 #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon) |
1766 ) |
1781 ) |
1767 #(#MenuItem |
1782 #(#MenuItem |
1768 #label: 'save image' |
1783 #label: 'save image' |
1769 #isButton: true |
1784 #isButton: true |
1770 #value: #saveImageAs |
1785 #value: #saveImageAs |
1771 #activeHelpKey: #fileSaveImageAs |
1786 #activeHelpKey: #fileSaveImageAs |
1772 #labelImage: #(#ResourceRetriever nil #saveImageIcon) |
1787 #labelImage: #(#ResourceRetriever nil #saveImageIcon) |
1773 ) |
1788 ) |
1774 #(#MenuItem |
1789 #(#MenuItem |
1775 #label: '' |
1790 #label: '' |
1776 ) |
1791 ) |
1777 #(#MenuItem |
1792 #(#MenuItem |
1778 #label: 'open system browser' |
1793 #label: 'open system browser' |
1779 #isButton: true |
1794 #isButton: true |
1780 #value: #openApplication: |
1795 #value: #openApplication: |
1781 #activeHelpKey: #classesSystemBrowser |
1796 #activeHelpKey: #classesSystemBrowser |
1782 #argument: 'SystemBrowser' |
1797 #argument: 'SystemBrowser' |
1783 #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon) |
1798 #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon) |
1784 ) |
1799 ) |
1785 #(#MenuItem |
1800 #(#MenuItem |
1786 #label: 'System Browser On Class' |
1801 #label: 'System Browser On Class' |
1787 #isButton: true |
1802 #isButton: true |
1788 #activeHelpKey: #classesSystemBrowserOnClass |
1803 #activeHelpKey: #classesSystemBrowserOnClass |
1789 #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon) |
1804 #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon) |
1790 #submenuChannel: #menuClassHistory |
1805 #submenuChannel: #menuClassHistory |
1791 ) |
1806 ) |
1792 #(#MenuItem |
1807 #(#MenuItem |
1793 #label: 'open changes browser' |
1808 #label: 'open changes browser' |
1794 #isButton: true |
1809 #isButton: true |
1795 #value: #openApplication: |
1810 #value: #startChangesBrowser |
1796 #activeHelpKey: #toolsChangesBrowser |
1811 #activeHelpKey: #toolsChangesBrowser |
1797 #argument: 'NewChangesBrowser' |
1812 #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon) |
1798 #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon) |
1813 ) |
1799 ) |
1814 #(#MenuItem |
1800 #(#MenuItem |
1815 #label: '' |
1801 #label: '' |
1816 ) |
1802 ) |
1817 #(#MenuItem |
1803 #(#MenuItem |
1818 #label: 'open GUI Builder' |
1804 #label: 'open GUI Builder' |
1819 #isButton: true |
1805 #isButton: true |
1820 #value: #openApplication: |
1806 #value: #openApplication: |
1821 #activeHelpKey: #toolsGUIPainter |
1807 #activeHelpKey: #toolsGUIPainter |
1822 #argument: 'UIPainter' |
1808 #argument: 'UIPainter' |
1823 #labelImage: #(#ResourceRetriever nil #startUIPainterIcon) |
1809 #labelImage: #(#ResourceRetriever nil #startUIPainterIcon) |
1824 ) |
1810 ) |
1825 #(#MenuItem |
1811 #(#MenuItem |
1826 #label: 'open menu editor' |
1812 #label: 'open menu editor' |
1827 #isButton: true |
1813 #isButton: true |
1828 #value: #openApplication: |
1814 #value: #openApplication: |
1829 #activeHelpKey: #toolsMenuEditor |
1815 #activeHelpKey: #toolsMenuEditor |
1830 #argument: 'MenuEditor' |
1816 #argument: 'MenuEditor' |
1831 #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon) |
1817 #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon) |
1832 ) |
1818 ) |
1833 #(#MenuItem |
1819 #(#MenuItem |
1834 #label: 'open image editor' |
1820 #label: 'open image editor' |
1835 #isButton: true |
1821 #isButton: true |
1836 #value: #openApplication: |
1822 #value: #openApplication: |
1837 #activeHelpKey: #toolsImageEditor |
1823 #activeHelpKey: #toolsImageEditor |
1838 #argument: 'ImageEditor' |
1824 #argument: 'ImageEditor' |
1839 #labelImage: #(#ResourceRetriever nil #startImageEditorIcon) |
1825 #labelImage: #(#ResourceRetriever nil #startImageEditorIcon) |
1840 ) |
1826 ) |
1841 #(#MenuItem |
1827 #(#MenuItem |
1842 #label: '' |
1828 #label: '' |
1843 ) |
1829 ) |
1844 #(#MenuItem |
1830 #(#MenuItem |
1845 #label: 'garbage collect and compress' |
1831 #label: 'garbage collect and compress' |
1846 #isButton: true |
1832 #isButton: true |
1847 #value: #compressingGarbageCollect |
1833 #value: #compressingGarbageCollect |
1848 #activeHelpKey: #systemGarbageCollectAndCompress |
1834 #activeHelpKey: #systemGarbageCollectAndCompress |
1849 #labelImage: #(#ResourceRetriever nil #garbageCollectIcon) |
1835 #labelImage: #(#ResourceRetriever nil #garbageCollectIcon) |
1850 ) |
1836 ) |
1851 #(#MenuItem |
1837 #(#MenuItem |
1852 #label: 'help' |
1838 #label: 'help' |
1853 #translateLabel: true |
1839 #translateLabel: true |
1854 #isButton: true |
1840 #isButton: true |
1855 #startGroup: #right |
1841 #startGroup: #right |
1856 #value: #startDocumentationTool |
1842 #value: #startDocumentationTool |
1857 #activeHelpKey: #helpSTXOnlineDocumentation |
1843 #activeHelpKey: #helpSTXOnlineDocumentation |
1858 #labelImage: #(#ResourceRetriever nil #helpIcon2) |
1844 #labelImage: #(#ResourceRetriever nil #helpIcon2) |
1859 ) |
1845 ) |
1860 ) nil |
1846 ) nil |
1861 nil |
1847 nil |
|
1848 ) |
1862 ) |
1849 |
1863 |
1850 "Modified: / 7.8.1998 / 19:40:36 / cg" |
1864 "Modified: / 13.10.1998 / 15:59:17 / cg" |
1851 ! ! |
1865 ! ! |
1852 |
1866 |
1853 !NewLauncher class methodsFor:'resources'! |
1867 !NewLauncher class methodsFor:'resources'! |
1854 |
1868 |
1855 garbageCollectIcon |
1869 garbageCollectIcon |
3160 Launcher::LauncherDialogs sourceAndDebuggerSettingsFor:self. |
3174 Launcher::LauncherDialogs sourceAndDebuggerSettingsFor:self. |
3161 |
3175 |
3162 "Modified: / 31.7.1998 / 22:47:21 / cg" |
3176 "Modified: / 31.7.1998 / 22:47:21 / cg" |
3163 ! |
3177 ! |
3164 |
3178 |
3179 toolSettings |
|
3180 "open a dialog on tool settings" |
|
3181 |
|
3182 Launcher::LauncherDialogs toolSettingsFor:self. |
|
3183 |
|
3184 "Modified: / 31.7.1998 / 22:46:56 / cg" |
|
3185 "Created: / 13.10.1998 / 15:50:53 / cg" |
|
3186 ! |
|
3187 |
|
3165 viewStyleSetting |
3188 viewStyleSetting |
3166 "open a dialog on viewStyle related settings" |
3189 "open a dialog on viewStyle related settings" |
3167 |
3190 |
3168 Launcher::LauncherDialogs viewStyleSettingsFor:self. |
3191 Launcher::LauncherDialogs viewStyleSettingsFor:self. |
3169 |
3192 |
3365 box showAtPointer. |
3388 box showAtPointer. |
3366 box destroy |
3389 box destroy |
3367 ] |
3390 ] |
3368 ! |
3391 ! |
3369 |
3392 |
3393 startChangesBrowser |
|
3394 "opens the new or old changeBrowser (dep. on userPrefs)" |
|
3395 |
|
3396 UserPreferences current useNewChangesBrowser ifTrue:[ |
|
3397 NewChangesBrowser open |
|
3398 ] ifFalse:[ |
|
3399 ChangesBrowser open |
|
3400 ] |
|
3401 |
|
3402 "Created: / 13.10.1998 / 15:56:46 / cg" |
|
3403 ! |
|
3404 |
|
3370 startNewLauncher |
3405 startNewLauncher |
3371 "opens the new launcher" |
3406 "opens the new launcher" |
3372 |
3407 |
3373 NewLauncher openAt:(self window origin) |
3408 NewLauncher openAt:(self window origin) |
3374 |
3409 |
3577 ! ! |
3612 ! ! |
3578 |
3613 |
3579 !NewLauncher class methodsFor:'documentation'! |
3614 !NewLauncher class methodsFor:'documentation'! |
3580 |
3615 |
3581 version |
3616 version |
3582 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.112 1998-10-13 13:57:08 cg Exp $' |
3617 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.113 1998-10-13 14:47:44 cg Exp $' |
3583 ! ! |
3618 ! ! |