Bert Freudenberg uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-bf.43.mcz==================== Summary ====================
Name: PreferenceBrowser-bf.43
Author: bf
Time: 4 March 2010, 12:16:47.804 pm
UUID: e5fa5ebe-421e-464f-a543-c66644198852
Ancestors: PreferenceBrowser-ar.42
- make browsing senders of pragma preferences work
=============== Diff against PreferenceBrowser-ar.42 ===============
Item was added:
+ ----- Method: Preference>>selectors (in category '*PreferenceBrowser') -----
+ selectors
+ "for browsing senders"
+ ^{name}!
Item was added:
+ ----- Method: PragmaPreference>>selectors (in category '*PreferenceBrowser') -----
+ selectors
+ "for browsing senders"
+ ^ {getter. setter}!
Item was changed:
----- Method: PBPreferenceView>>offerPreferenceNameMenu: (in category 'user interface') -----
offerPreferenceNameMenu: aPreferenceBrowser
"the user clicked on a preference name -- put up a menu"
| aMenu |
aMenu := MenuMorph new
defaultTarget: self preference;
addTitle: self preference name.
(Preferences okayToChangeProjectLocalnessOf: self preference name) ifTrue:
[aMenu addUpdating: #isProjectLocalString target: self preference action: #toggleProjectLocalness.
aMenu balloonTextForLastItem: 'Some preferences are best applied uniformly to all projects, and others are best set by each individual project. If this item is checked, then this preference will be printed in bold and will have a separate value for each project'].
+ aMenu add: 'browse senders' translated target: self systemNavigation selector: #browseAllSelect:name:autoSelect: argumentList: {[:m | self preference selectors anySatisfy: [:sel | m hasLiteralThorough: sel]]. 'Preference senders: {1}' translated format: {self preference name}. self preference selectors first}.
- aMenu add: 'browse senders' translated target: self systemNavigation selector: #browseAllCallsOn: argument: self preference name.
aMenu balloonTextForLastItem: 'This will open a method-list browser on all methods that the send the preference "', self preference name, '".'.
aMenu add: 'show category...' target: aPreferenceBrowser selector: #findCategoryFromPreference: argument: self preference name.
aMenu balloonTextForLastItem: 'Allows you to find out which category, or categories, this preference belongs to.'.
Smalltalk isMorphic ifTrue:
[aMenu add: 'hand me a button for this preference' target: self selector: #tearOffButton.
aMenu balloonTextForLastItem: 'Will give you a button that governs this preference, which you may deposit wherever you wish'].
aMenu add: 'copy this name to clipboard' target: self preference selector: #copyName.
aMenu balloonTextForLastItem: 'Copy the name of the preference to the text clipboard, so that you can paste into code somewhere'.
aMenu popUpInWorld!
Locked
