equal
deleted
inserted
replaced
13 |
13 |
14 |
14 |
15 "{ Package: 'stx:libtool' }" |
15 "{ Package: 'stx:libtool' }" |
16 |
16 |
17 AbstractLauncherApplication subclass:#NewLauncher |
17 AbstractLauncherApplication subclass:#NewLauncher |
18 instanceVariableNames:'isMainLauncher helpIsOn useNewSettinsApplication' |
18 instanceVariableNames:'isMainLauncher helpIsOn useNewSettingsApplication' |
19 classVariableNames:'UserAddedMenuItems UserAddedToolBarItems' |
19 classVariableNames:'UserAddedMenuItems UserAddedToolBarItems' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Interface-Smalltalk' |
21 category:'Interface-Smalltalk' |
22 ! |
22 ! |
23 |
23 |
1873 #(#MenuItem |
1873 #(#MenuItem |
1874 #activeHelpKey: #settings |
1874 #activeHelpKey: #settings |
1875 #label: 'Settings' |
1875 #label: 'Settings' |
1876 #nameKey: #settings |
1876 #nameKey: #settings |
1877 #translateLabel: true |
1877 #translateLabel: true |
1878 #isVisible: #useOldSettinsApplication |
1878 #isVisible: #useOldSettingsApplication |
1879 #submenuChannel: #settingsMenu |
1879 #submenuChannel: #settingsMenu |
1880 #keepLinkedMenu: true |
1880 #keepLinkedMenu: true |
1881 ) |
1881 ) |
1882 #(#MenuItem |
1882 #(#MenuItem |
1883 #activeHelpKey: #windows |
1883 #activeHelpKey: #windows |
2470 #translateLabel: true |
2470 #translateLabel: true |
2471 #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage And Compress') |
2471 #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage And Compress') |
2472 ) |
2472 ) |
2473 #(#MenuItem |
2473 #(#MenuItem |
2474 #label: '-' |
2474 #label: '-' |
2475 #isVisible: #useNewSettinsApplication |
2475 #isVisible: #useNewSettingsApplication |
2476 ) |
2476 ) |
2477 #(#MenuItem |
2477 #(#MenuItem |
2478 #activeHelpKey: #systemMemory |
2478 #activeHelpKey: #systemMemory |
2479 #label: 'Settings...' |
2479 #label: 'Settings...' |
2480 #itemValue: #openSettings |
2480 #itemValue: #openSettings |
2481 #translateLabel: true |
2481 #translateLabel: true |
2482 #isVisible: #useNewSettinsApplication |
2482 #isVisible: #useNewSettingsApplication |
2483 ) |
2483 ) |
2484 ) |
2484 ) |
2485 nil |
2485 nil |
2486 nil |
2486 nil |
2487 ) |
2487 ) |
3686 preferredExtent |
3686 preferredExtent |
3687 |
3687 |
3688 ^super preferredExtent max: Screen current extent // (2.5 @ 3.5) |
3688 ^super preferredExtent max: Screen current extent // (2.5 @ 3.5) |
3689 ! |
3689 ! |
3690 |
3690 |
3691 useNewSettinsApplication |
3691 useNewSettingsApplication |
3692 |
3692 |
3693 useNewSettinsApplication isNil ifTrue:[ |
3693 useNewSettingsApplication isNil ifTrue:[ |
3694 useNewSettinsApplication := UserPreferences current useNewSettinsApplication |
3694 useNewSettingsApplication := UserPreferences current useNewSettingsApplication |
3695 ]. |
3695 ]. |
3696 ^ useNewSettinsApplication |
3696 ^ useNewSettingsApplication |
3697 ! |
3697 ! |
3698 |
3698 |
3699 useOldSettinsApplication |
3699 useOldSettingsApplication |
3700 |
3700 |
3701 ^ self useNewSettinsApplication not |
3701 ^ self useNewSettingsApplication not |
3702 ! ! |
3702 ! ! |
3703 |
3703 |
3704 !NewLauncher methodsFor:'startup / release'! |
3704 !NewLauncher methodsFor:'startup / release'! |
3705 |
3705 |
3706 allButOpenInterface:anInterface |
3706 allButOpenInterface:anInterface |
4158 ! ! |
4158 ! ! |
4159 |
4159 |
4160 !NewLauncher class methodsFor:'documentation'! |
4160 !NewLauncher class methodsFor:'documentation'! |
4161 |
4161 |
4162 version |
4162 version |
4163 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.282 2002-12-13 16:30:18 penk Exp $' |
4163 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.283 2002-12-16 17:25:31 penk Exp $' |
4164 ! ! |
4164 ! ! |