[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.284.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 30 14:42:39 UTC 2021
Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.284.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.284
Author: mt
Time: 30 December 2021, 3:42:38.688748 pm
UUID: e558fca4-27dc-5949-b08f-c5ddff318500
Ancestors: ToolBuilder-Morphic-mt.283
Complements Morphic-mt.1835
=============== Diff against ToolBuilder-Morphic-mt.283 ===============
Item was changed:
----- Method: MorphicToolBuilder>>buildPluggablePanel: (in category 'widgets required') -----
buildPluggablePanel: aSpec
| widget |
widget := self panelClass new.
self register: widget id: aSpec name.
widget model: aSpec model.
"Set child dependent layout properties."
widget wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [false]).
self setLayoutHintsFor: widget spec: aSpec.
widget layoutInset: (aSpec padding ifNil: [0]).
widget cellGap: (aSpec spacing ifNil: [
widget wantsPaneSplitters
ifTrue: [ProportionalSplitterMorph gripThickness]
+ ifFalse: [(2 * RealEstateAgent scaleFactor) truncated]]).
- ifFalse: [2]]).
"Now create the children."
aSpec children isSymbol
ifTrue: [
widget getChildrenSelector: aSpec children.
widget update: aSpec children]
ifFalse: [
self buildAll: aSpec children in: widget].
self setFrame: aSpec frame in: widget.
self setLayout: aSpec layout in: widget.
parent ifNotNil:[self add: widget to: parent].
widget borderWidth: 0.
self buildHelpFor: widget spec: aSpec.
widget color: Color transparent.
^ widget!
More information about the Squeak-dev
mailing list
|