1

我正在尝试使用 Gtkada 在 Ada 中设置 HMI，并且我想要有标签（Gtk 语言的笔记本）。

我没有找到很多关于 Gtkada 的文档，这是我写的，但它不起作用，你知道为什么吗？只有一个简单的灰色窗口正在打开。

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


procedure IHM is
   Win                          : Gtk_Window;
   Notebook                     : Gtk_Notebook;
   GenerationButton             : Gtk_Button;
   Label_Generation             : Gtk_Label;
begin
   Init;

   Gtk_New (Win, Window_Toplevel);
   Gtk_New (GenerationButton);
   Gtk_New (Notebook);
   Gtk_New (Label_Generation, "Generation");
   Notebook.Append_Page (GenerationButton, Label_Generation);
   Win.Set_Title ("Generator");
   Win.Set_Default_Size (1200, 800);
   Win.Set_Position (Win_Pos_Center);
   Win.Add (Notebook);
   Win.Show;

   Main;
end IHM;
4

1 回答 1

1

替换Win.Show为Win.Show_All。Show不是递归的，不会告诉笔记本出现。或者，您可以添加Notebook.Show.

于 2013-08-28T10:19:40.920 回答