gtk - Tab creation with Gtkada -

-

i'm trying set hmi in ada gtkada , want have tabs (notebooks in gtk language).

i didn't found lot of documentation gtkada, here wrote doesn't work, have idea why? simple grey window opening.

with gtk.main;      use gtk.main; gtk.window;    use gtk.window; gtk.enums;     use gtk.enums; gtk.notebook;  use gtk.notebook; gtk.button;    use gtk.button; gtk.label;     use gtk.label;   procedure ihm    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;

substitute win.show win.show_all. show not recursive , not tell notebook show up. alternatively, can add notebook.show.


Comments

Post a Comment

Popular posts from this blog

Unable to remove the www from url on https using .htaccess -

-
i want remove www site url. ie. https://www.domainname.com.au https://domainname.com.au . i have tried various .htacces code nothing work me. here present code remove www http not work https. rewriteengine on rewritebase / rewritecond %{http_host} ^www\.(.*)$ [nc] rewriterule ^/(.*)$ http://%1/$1 [r=301,l] rewritecond %{https} off rewriterule ^(.*)$ https://domainname.com.au/$1 [r=301,l] rewriterule ^code-of-conducts/(.*)/$ code-of-conducts.php?type=$1 rewriterule ^parents/post-a-job/(.*)/edit/$ parents/post-a-job.php?action=edit&id=$1 rewriterule ^parents/post-a-job/(.*)/$ parents/post-a-job.php?job_type=$1 rewriterule ^parents/open-jobs/(.*)/delete/$ parents/open-jobs.php?action=delete&id=$1 rewriterule ^parent-profile/(.*)/$ parent-profile.php?id=$1 rewriterule ^parents/job-details/(.*)$ parents/job-details.php?applied_id=$1 rewriterule ^sitterprofile/(.*)/$ sitterprofile.php?id=$1 rewriterule ^sitter/job-board/state/(.*)/page/(.*)/$ sitter/job-board.ph...
Read more