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;