Sophie

Sophie

distrib > Mandriva > 2009.1 > x86_64 > media > main-testing > by-pkgid > 2292bb029a6b72bf3992f7f601b8fa3b > files > 2096

fpc-2.2.4-1.1mdv2009.1.x86_64.rpm

program newt1;


(* a newt basic sample program *)

uses newt;


begin
    newtInit();
    newtCls();

    newtDrawRootText(0, 0,'Some root text');
    newtDrawRootText(0, 1,'Press a key to display a help line   ');

    newtPushHelpLine(nil);

    newtRefresh();

    newtWaitForKey;

    newtPushHelpLine('A help line');

    newtDrawRootText(0, 1,'Press a key to hide the help line    ');
    newtRefresh();
    newtWaitForKey;

    newtPopHelpLine();
    newtRefresh();
    newtDrawRootText(0, 1,'Press a key to exit                  ');
    newtWaitForKey;

    newtFinished();
end.