Ada Programming/Libraries/GUI/QtAda

with Qt_Ada.Application;
with Qt4.Push_Buttons.Constructors;
with Qt4.Strings;
 
procedure Main is
   Hello : Qt4.Push_Buttons.Q_Push_Button_Access;
 
begin
   Qt_Ada.Application.Initialize;
 
   Hello :=
     Qt4.Push_Buttons.Constructors.Create
      (Qt4.Strings.From_Utf_16 ("Hello world!"));
   Hello.Resize (100, 30);
   Hello.Show;
   Qt_Ada.Application.Execute;
 
   Qt_Ada.Application.Finalize;
end Main;