Создание табуляции с Gtkada

Question

Я пытаюсь настроить HMI в Ada с Gtkada, и я хочу иметь вкладки (Notebooks на языке 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; 

Answer 1

Заменитель Win.Show с Win.Show_All. Show не является рекурсивным и не укажет, что ноутбук появится. Кроме того, вы можете добавить Notebook.Show.