AdaPower Logged in as Guest
Ada Tools and Resources

Ada 95 Reference Manual
Ada Source Code Treasury
Bindings and Packages
Ada FAQ


Join >
Home >
Articles >
Getting Started >
Ada FAQ >
Source Treasury >
Books & Tutorials >
Packages for Reuse >
Latest Additions >
Ada Projects >
Press Releases >
Ada Audio / Video >
Home Pages >
Links >
Contact >
About >
Login >
Back
Claw Hello World (Tom Moran)

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


(c) 1998-2004 All Rights Reserved David Botton