Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.337.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.337 Author: mt Time: 17 April 2023, 11:22:54.720908 am UUID: 2ca79462-b98a-084c-b553-a04703eec8e1 Ancestors: ToolBuilder-Morphic-mt.336
Complement Morphic-mt.2105
=============== Diff against ToolBuilder-Morphic-mt.336 ===============
Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category 'widgets required') ----- buildPluggableTree: aSpec | widget | widget := self treeClass new. self register: widget id: aSpec name.
widget getLabelSelector: aSpec label. widget getIconSelector: aSpec icon.
widget model: aSpec model. widget nodeClass: aSpec nodeClass.
widget getRootsSelector: aSpec roots. widget getChildrenSelector: aSpec getChildren. widget hasChildrenSelector: aSpec hasChildren. + + aSpec autoExpand isSymbol + ifTrue: [widget autoExpandSelector: aSpec autoExpand] + ifFalse: [widget autoExpand: aSpec autoExpand]. + widget autoExpand ifTrue: [widget update: aSpec roots]. widget filterMode: aSpec filterMode. widget searchMode: aSpec searchMode.
widget getSelectedPathSelector: aSpec getSelectedPath. widget setSelectedPathSelector: aSpec setSelectedPath. widget getSelectedSelector: aSpec getSelected. widget setSelectedSelector: aSpec setSelected.
widget setSelectedParentSelector: aSpec setSelectedParent.
widget getHelpSelector: aSpec help. widget getMenuSelector: aSpec menu.
widget keystrokeActionSelector: aSpec keyPress. widget autoDeselect: aSpec autoDeselect. widget doubleClickSelector: aSpec doubleClick. widget dropItemSelector: aSpec dropItem. widget wantsDropSelector: aSpec dropAccept. widget dragItemSelector: aSpec dragItem. widget dragStartedSelector: aSpec dragStarted. widget dragTypeSelector: aSpec dragType. 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!