Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.103.mcz==================== Summary ====================
Name: PreferenceBrowser-mt.103
Author: mt
Time: 29 April 2020, 8:45:37.770261 pm
UUID: b939aeb0-0229-c14b-94fe-2fd07189ecb8
Ancestors: PreferenceBrowser-mt.102
Fixes a bug with some redundant tooltip ... because that quick-and-dirty way to find existing preferences did not work out.
Note that the preference wizard can provide its own namespace for preferences with custom state/getter and setter messages. Luckily, much of the wizard's selection matches something from the system-wide Preferences.
Look at the wizard as something that provides a nice first contact to set up important stuff in the environment. That "stuff" is not necessarily present in Preferences but maybe also in some specific class such as for pragma preferences. So the wizard acts as a GoF Facade.
=============== Diff against PreferenceBrowser-mt.102 ===============
Item was changed:
----- Method: PreferenceWizardMorph>>initializePage04InteractionMore (in category 'initialization - pages') -----
initializePage04InteractionMore
| currentPage pane |
currentPage := pages add: self createPage.
pane := self createScrollPane.
currentPage addMorphBack: (self createLabel: 'Choose more interaction settings' color: Color white).
currentPage addMorphBack: pane.
pane scroller firstSubmorph addAllMorphsBack: {
self createCheckbox: 'Windows raise on click' translated for: #WindowsRaiseOnClick help: #(window raise).
self createCheckbox: 'Windows always active' for: #WindowsAlwaysActive help: #(window content active).
self createCheckbox: 'Window buttons always active' translated for: #WindowButtonsAlwaysActive help: #(window control active).
self createVerticalSpace.
self createCheckbox: 'Smart horizontal splitters' translated for: #SmartHorizontalSplitters help: #(horizontal splitter).
self createCheckbox: 'Smart vertical splitters' translated for: #SmartVerticalSplitters help: #(vertical splitter).
self createVerticalSpace.
+ self createCheckbox: 'Filterable lists and trees' translated for: #FilterableLists help: 'Type something to filter lists. Press [return] to clear the filter. Press [backspace] to clear and restore prior selection.' translated.
- self createCheckbox: 'Filterable lists and trees' translated for: #FilterableLists help: #(filterable).
self createCheckbox: 'Filters clear if unfocused' translated for: #ClearFilterAutomatically help: #(filter clear).
self createVerticalSpace.
self createCheckbox: 'Attach tools to mouse' translated for: #AttachToolsToMouse help: #(tools attach).
}.!
Locked
