Ada gtkada "Hello World"

安装环境

#Debian 10
#安装gtkada
sudo apt install libgtkada18-dev libgtkada18

#安装gprbuild
sudo apt install gprbuild

文件

#目录树
.
├── build.gpr	[工程文件]
├── gtkada_hello.adb	[源文件]
└── obj		[目标文件目录]

-- 文件：build.gpr

with "gtkada.gpr";

project Build is
   for Source_Dirs use (".");	-- 源文件目录
   for Object_Dir use "./obj";	-- 中间文件目录
   for Exec_Dir use ".";	-- 可执行文件目录
   for Main use ("gtkada_hello.adb"); 	-- 主程序
end Build;

工程文件语法移步 GNAT Project Manager

-- 文件：gtkada_hello.adb

with Gtk.Main;		use Gtk.Main;
with Gtk.Button;	use Gtk.Button;
with Gtk.Window;	use Gtk.Window;
with Gtk.Enums;		use Gtk.Enums;

procedure GtkAda_Hello is
	Window : Gtk_Window;
	Button : Gtk_Button;
begin
	Init;
	Gtk_New (Window, Window_Toplevel);
	Set_Border_Width (Window, 10);

	Gtk_New (Button, "Hello World");
	Add (Window, Button);
	Show_All(Window);
	Main;
end GtkAda_Hello;

构建

# 以下方法任一可行
gnatmake -P build.gpr
gprbuild -P build.gpr
gprbuild

运行