with Claw.Basic_Window, Claw.Static;
use Claw.Basic_Window, Claw.Static;
procedure HelloW1 is
Display : Basic_Window_Type;
Text : Static_Type;
begin
Create (Window => Display,
Window_Name => "The Hello Program");
Show (Window => Display, How => Claw.Codes.Show_Startup);
Create (Static => Text, Text => "Hello Windows!",
Parent => Display, Position => (10, 10));
loop
Claw.Yield;
exit when not Is_Valid (Display); -- Becomes False when the user
closes the window.
end loop;
end HelloW1;
For more information about Claw, visit http://www.rrsoftware.com
|
