从头开始创建Gtkada小部件

要从头开始创建Gtkada小部件，需要以下步骤：

1. 引入必要的包和模块：

with Gtk.Main;
with Gtk.Widget;

2. 创建一个新的Ada程序，并在其中实现主过程：

procedure Main is
begin
   -- 主过程代码
   null;
end Main;

3. 在主过程中，初始化GTK并创建主窗口：

   Gtk.Main.Init;
   declare
      MainWindow : Gtk.Widget.Gtk_Widget;
   begin
      -- 创建主窗口
      MainWindow := Gtk.Widget.Create_Widget (Gtk.Widget.Gtk_Window);
   end;

4. 设置主窗口的属性和大小：

      -- 设置主窗口的标题
      Gtk.Widget.Set_Property (MainWindow, "title", "Hello Gtkada");
      
      -- 设置主窗口的大小
      Gtk.Widget.Set_Property (MainWindow, "default-width", 300);
      Gtk.Widget.Set_Property (MainWindow, "default-height", 200);

5. 显示主窗口并启动GTK主循环：

      -- 显示主窗口
      Gtk.Widget.Show (MainWindow);
      
      -- 启动GTK主循环
      Gtk.Main.Main;

完整的示例程序如下所示：

with Gtk.Main;
with Gtk.Widget;

procedure Main is
begin
   Gtk.Main.Init;
   declare
      MainWindow : Gtk.Widget.Gtk_Widget;
   begin
      MainWindow := Gtk.Widget.Create_Widget (Gtk.Widget.Gtk_Window);
      
      Gtk.Widget.Set_Property (MainWindow, "title", "Hello Gtkada");
      Gtk.Widget.Set_Property (MainWindow, "default-width", 300);
      Gtk.Widget.Set_Property (MainWindow, "default-height", 200);
      
      Gtk.Widget.Show (MainWindow);
      
      Gtk.Main.Main;
   end;
end Main;

这个示例程序创建了一个简单的主窗口，并设置了标题和大小。然后，显示主窗口并启动GTK主循环，使程序保持运行状态。你可以根据需要进一步添加其他小部件和功能。