[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.150.mcz

karl ramberg karlramberg at gmail.com
Thu Nov 5 09:00:44 UTC 2015


Hi,
there is a somewhat related issue with scroll panes.
In for example HelpBrowser you scroll down in the text pane with a long
text.
Then you click on an other help topic with a long text.
The new help topic opens in a scrolled down pane.

When opening a new topic the scrolling should be reset.

Karl

On Wed, Nov 4, 2015 at 10:33 AM, <commits at source.squeak.org> wrote:

> Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project
> The Trunk:
> http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.150.mcz
>
> ==================== Summary ====================
>
> Name: ToolBuilder-Morphic-mt.150
> Author: mt
> Time: 4 November 2015, 10:33:51.502 am
> UUID: 4df461c0-47b8-4cda-a915-4277646038fb
> Ancestors: ToolBuilder-Morphic-mt.149
>
> Adds support for overriding scrollbar policies in trees.
>
> =============== Diff against ToolBuilder-Morphic-mt.149 ===============
>
> Item was changed:
>   ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category
> 'widgets required') -----
>   buildPluggableTree: aSpec
>         | widget |
>         widget := self treeClass new.
>         self register: widget id: aSpec name.
>         widget model: aSpec model.
>         widget getSelectedPathSelector: aSpec getSelectedPath.
>         widget setSelectedSelector: aSpec setSelected.
>         widget getSelectedSelector: aSpec getSelected.
>         widget setSelectedParentSelector: aSpec setSelectedParent.
>         widget getChildrenSelector: aSpec getChildren.
>         widget hasChildrenSelector: aSpec hasChildren.
>         widget getLabelSelector: aSpec label.
>         widget getIconSelector: aSpec icon.
>         widget getHelpSelector: aSpec help.
>         widget getMenuSelector: aSpec menu.
>         widget keystrokeActionSelector: aSpec keyPress.
>         widget nodeClass: aSpec nodeClass.
>         widget getRootsSelector: aSpec roots.
>         widget autoDeselect: aSpec autoDeselect.
>         widget dropItemSelector: aSpec dropItem.
>         widget wantsDropSelector: aSpec dropAccept.
>         widget dragItemSelector: aSpec dragItem.
>         widget columns: aSpec columns.
>
> +       "Override default scroll bar policies if needed. Widget will use
> preference values otherwise."
> +       aSpec hScrollBarPolicy ifNotNil: [:policy |
> +               policy caseOf: {
> +                       [#always] -> [widget alwaysShowHScrollBar].
> +                       [#never] -> [widget hideHScrollBarIndefinitely].
> +                       [#whenNeeded] -> [widget
> showHScrollBarOnlyWhenNeeded]. } ].
> +       aSpec vScrollBarPolicy ifNotNil: [:policy |
> +               policy caseOf: {
> +                       [#always] -> [widget alwaysShowVScrollBar].
> +                       [#never] -> [widget hideVScrollBarIndefinitely].
> +                       [#whenNeeded] -> [widget
> showVScrollBarOnlyWhenNeeded]. } ].
> +
>         self setFrame: aSpec frame in: widget.
>         self setLayoutHintsFor: widget spec: aSpec.
>
>         parent ifNotNil:[self add: widget to: parent].
>   "     panes ifNotNil:[
>                 aSpec roots ifNotNil:[panes add: aSpec roots].
>         ].      "
>         ^widget!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20151105/125f77fb/attachment-0001.htm


More information about the Squeak-dev mailing list