All pastes #273023 Raw Edit

Someone

public text v1 · immutable
·published 2006-12-09 14:41 UTC
rendered paste body
createInterface
    | 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.