layoutdemo1 :-
new(D, dialog('Layout Demo 1')),
send(D, append,
new(BTS, dialog_group(buttons, group))),
send(BTS, gap, size(0, 30)),
send(BTS, append, button(add)),
send(BTS, append, button(rename), below),
send(BTS, append, button(delete), below),
send(BTS, layout_dialog),
send(D, append, new(LB, list_browser), right),
send(D, append, new(TI, text_item(name, ''))),
send(LB, alignment, left),
send(D, layout),
send(LB, bottom_side, BTS?bottom_side),
send(LB, right_side, TI?right_side),
send(D, open).