------------------------------------------------------------------------------
--                                                                          --
--   A very simple JEWL.Simple_Windows application: hello world.            --
--   Author: Ned Okie
--   Date: November 25, 2012
--
------------------------------------------------------------------------------

with JEWL.Simple_Windows;
use  JEWL.Simple_Windows;
procedure hello is

    -- Declare and create a window
    My_Frame : Frame_Type := Frame (200, 150, "Hello World Example", 'Q');

    -- Declare and create a label in the window
    Message   : Label_Type :=
                Label (My_Frame, (10,75), 140, 20, "", Centre);
begin
    -- Set the text of the label
    Set_Text (Message, "Hello World!");
    -- Wait for commands (only Q in this case)
    loop
        case Next_Command is
            when 'Q' =>
                Close (My_Frame);
                exit;
            when others =>
                null;
        end case;
    end loop;
end hello;