File : test_output_window.adb


with Ada.Text_IO; use Ada.Text_IO;
with Output_Windows;
use Output_Windows;

procedure Test_Output_Window is
   Display : Output_Window_Type:=Output_Window("Test for Output Window");

begin
   Create_Box(Display,"Items",8);
   Create_Box(Display,"Degrees",220.0);
   Create_Box(Display,"Name","Frank White");
   Wait(Display);
   Put_Line("Test Completed");
end Test_Output_Window;