fpc/packages/newt/examples/newt2.pas

program newt2;

uses newt;



var

    form, b1, b2 : newtComponent;

begin

    newtInit();
    newtCls();

    newtOpenWindow(10, 5, 40, 6, 'Button Sample');

    b1 := newtButton(10, 1, 'Ok');
    b2 := newtCompactButton(22, 2, 'Cancel');
    form := newtForm(Nil, Nil, 0);
    newtFormAddComponents(form, b1, b2, Nil);

    newtRunForm(form);

    newtFormDestroy(form);
    newtFinished();
end.