GPS によって生成されたテンプレートからの次のプログラムを使用して、GPS で少し遊びたいと思っていました。
ビルドして実行しようとするとウィンドウが表示されませんが、実行可能ファイルが作成されたフォルダーに移動すると、実行可能ファイルを実行してウィンドウを表示できます。このタブが作成されたことはわかりますが、アプリケーションが表示されません。
with Gtk.Box; use Gtk.Box;
with Gtk.Label; use Gtk.Label;
with Gtk.Widget; use Gtk.Widget;
with Gtk.Main;
with Gtk.Window; use Gtk.Window;
procedure Main is
Win : Gtk_Window;
Label : Gtk_Label;
Box : Gtk_Vbox;
begin
-- Initialize GtkAda.
Gtk.Main.Init;
-- Create a window with a size of 400x400
Gtk_New (Win);
Win.Set_Default_Size (400, 400);
-- Create a box to organize vertically the contents of the window
Gtk_New_Vbox (Box);
Win.Add (Box);
-- Add a label
Gtk_New (Label, "Hello world.");
Box.Add (Label);
-- Show the window
Win.Show_All;
-- Start the Gtk+ main loop
Gtk.Main.Main;
end Main;
プログラムが実行されていることを確認Ada.Text_IO.Put_Line("Hello, World!");
し、ソースを挿入しようとしましたが、[実行] タブに従って実行されているようです。