[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
|