File : test_message_window.adb


with Ada.Text_IO; use Ada.Text_IO;
with Message_Windows;
use Message_Windows;

procedure Test_Message_Window is
   Display : Message_Window_Type:=Message_Window("Test for Message Window");

begin
   Wait(Display);
   Put_Line("Test Completed");
end Test_Message_Window;