[squeak-dev] The Inbox: PreferenceBrowser-cbc.103.mcz

Chris Cunningham cunningham.cb at gmail.com
Tue Jun 2 03:51:14 UTC 2020


I like the PreferenceBrowser verbiage for [Enter], but the formatting in
mt.103.  Ideally this could pull from that PreferenceBrowser location, and
the PreferenceBrowser help could be updated.  Probably should have included
my preference - sorry about that.

-cbc

On Mon, Jun 1, 2020 at 8:48 PM <commits at source.squeak.org> wrote:

> A new version of PreferenceBrowser was added to project The Inbox:
> http://source.squeak.org/inbox/PreferenceBrowser-cbc.103.mcz
>
> ==================== Summary ====================
>
> Name: PreferenceBrowser-cbc.103
> Author: cbc
> Time: 1 June 2020, 8:47:46.016726 pm
> UUID: a2e0791b-c23c-9044-9d60-4ac9c13e4db0
> Ancestors: PreferenceBrowser-mt.102
>
> Fixes similar issue to mt.103, except uses the test found in
> PreferenceBrowser instead of creating a new text.  This method may be
> superior, since the preference help will be localized in one location.
>
> =============== Diff against PreferenceBrowser-mt.102 ===============
>
> Item was changed:
>   ----- Method: PreferenceWizardMorph>>initializePage04InteractionMore (in
> category 'initialization - pages') -----
>   initializePage04InteractionMore
>
> +       | currentPage pane filterableHelp |
> -       | currentPage pane |
>         currentPage := pages add: self createPage.
>         pane := self createScrollPane.
>
>         currentPage addMorphBack: (self createLabel: 'Choose more
> interaction settings' color: Color white).
>         currentPage addMorphBack: pane.
>
> +       "Next line added because using 'normal' lookup does not find the
> right text."
> +       filterableHelp := Preferences allPreferences
> +               detect:[:pref | pref name = 'Filterable Lists']
> +               ifFound: [:pref | (pref helpString lines joinSeparatedBy:
> ' ') withBlanksTrimmed]
> +               ifNone: [''].
>         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: filterableHelp.
> -               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).
>                 }.!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200601/358bfa34/attachment.html>


More information about the Squeak-dev mailing list