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;