File : test_async_output_window.adb


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

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

begin
   Create_Box(Display,"Items",1);
   Create_Box(Display,"Degrees",1.0);
   Create_Box(Display,"String","i=1");
   Draw(Display);
   for I in 2..100 loop
     delay 0.3;
     Update_Box(Display,"Items",i);
     Update_Box(Display,"Degrees",Float(I));
     Update_Box(Display,"String","i="&Integer'Image(I));
     Draw(Display);
   end loop;
   Close(Display);
   Put_Line("Test Completed");
end Test_Async_Output_Window;