equal
deleted
inserted
replaced
3073 !NewLauncher methodsFor:'change & update'! |
3073 !NewLauncher methodsFor:'change & update'! |
3074 |
3074 |
3075 update:something with:aParameter from:changedObject |
3075 update:something with:aParameter from:changedObject |
3076 "care for project changes & update my infoView" |
3076 "care for project changes & update my infoView" |
3077 |
3077 |
3078 (something == helpIsOn) ifTrue:[ |
3078 ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo]. |
3079 self toggleActiveHelp:helpIsOn value |
3079 super update:something with:aParameter from:changedObject. |
3080 ]. |
|
3081 ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo] |
|
3082 ! |
3080 ! |
3083 |
3081 |
3084 updateInfo |
3082 updateInfo |
3085 "update the infoView from the current project" |
3083 "update the infoView from the current project" |
3086 |
3084 |
3916 !NewLauncher methodsFor:'user actions-help'! |
3914 !NewLauncher methodsFor:'user actions-help'! |
3917 |
3915 |
3918 activeHelp |
3916 activeHelp |
3919 |
3917 |
3920 helpIsOn isNil ifTrue:[ |
3918 helpIsOn isNil ifTrue:[ |
3921 helpIsOn := FlyByHelp isActive asValue. |
3919 helpIsOn := PluggableAdaptor new |
3922 helpIsOn addDependent:self. |
3920 getBlock:[:m | UserPreferences current flyByHelpActive] |
|
3921 putBlock:[:m :newValue | UserPreferences current flyByHelpActive:newValue] |
|
3922 updateBlock:nil. |
|
3923 "/ helpIsOn addDependent:self. |
3923 ]. |
3924 ]. |
3924 ^ helpIsOn |
3925 ^ helpIsOn |
3925 ! |
3926 ! |
3926 |
3927 |
3927 toggleFlyByHelp:aBoolean |
3928 toggleFlyByHelp:aBoolean |
4036 ! ! |
4037 ! ! |
4037 |
4038 |
4038 !NewLauncher class methodsFor:'documentation'! |
4039 !NewLauncher class methodsFor:'documentation'! |
4039 |
4040 |
4040 version |
4041 version |
4041 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.320 2004-12-14 15:00:56 cg Exp $' |
4042 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.321 2005-01-14 11:22:39 cg Exp $' |
4042 ! ! |
4043 ! ! |