rendered paste bodycreateInterface
| button button2 label splitter |
button2 := Panda.TextEdit new.
button2 frame: (FractionalFrame fractionLeft: 0.5 top: 0 right: 1 bottom: 1 ).
"(OriginExtentFrame origin: (5 @ 5) extent: (75 @ 20))."
" label := DisplayLabel new.
label label: (Label string: 'MyButton').
button addComponent: label.
"
self addComponent: button2.
button := Button new.
button frame: (FractionalFrame fractionLeft: 0 top: 0 right: 0.2 bottom: 1 ).
"(OriginExtentFrame origin: (5 @ 5) extent: (75 @ 20))."
label := DisplayLabel new.
label label: (Label string: 'MyButton2').
button addComponent: label.
self addComponent: button.
splitter := ResizingSplitter new.
splitter frame: (FractionalFrame fractionLeft: 0.2 top: 0 right: 0.3 bottom: 1 ).
splitter "belowRightWidgets: " leftWidgets: (Array with: button);
rightWidgets: (Array with: button2).
splitter beVertical.
self addComponent: splitter.