Status: Accepted
Owner:
[hidden email]
Labels: Milestone-1.2 Type-RequestForEnhancement
New issue 3594 by
[hidden email]: Expander needs tweaking to enable
resize in a TableLayout
http://code.google.com/p/pharo/issues/detail?id=3594The attached change set from Gary makes the following code to work:
| container morph1 morph2 morph3 ex1 ex2 ex3 sp1 sp2|
morph1 := (PanelMorph new fillStyle: (SolidFillStyle color: Color red))
hResizing: #spaceFill;
vResizing: #spaceFill.
morph2 := (PanelMorph new fillStyle: (SolidFillStyle color: Color blue))
hResizing: #spaceFill;
vResizing: #spaceFill.
morph3 := (PanelMorph new fillStyle: (SolidFillStyle color: Color yellow))
hResizing: #spaceFill;
vResizing: #spaceFill.
ex1 := (UITheme builder newExpander: 'Red' for: morph1)
spaceFillWeight: 1;
expanded: true.
ex2 := (UITheme builder newExpander: 'Blue' for: morph2)
spaceFillWeight: 2;
expanded: true.
ex3 := (UITheme builder newExpander: 'Yellow' for: morph3)
spaceFillWeight: 2;
expanded: true.
sp1 := EdgeGripMorph new
target: ex1;
edgeName: #bottom;
vResizing: #rigid;
extent: 24 @ ProportionalSplitterMorph splitterWidth;
on: #mouseDown send: #expandedSizingRigid to: ex1.
sp2 := EdgeGripMorph new
target: ex2;
edgeName: #bottom;
vResizing: #rigid;
extent: 24 @ ProportionalSplitterMorph splitterWidth;
on: #mouseDown send: #expandedSizingRigid to: ex2.
container := UITheme builder newColumn: { ex1. sp1. ex2. sp2. ex3}.
container cellInset: 0.
container extent: 400@400.
container openInWindow.
Locked
