mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 22:27:53 +02:00
35 lines
588 B
ObjectPascal
35 lines
588 B
ObjectPascal
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.
|