CLAW - Hello World

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