method start = fun () ->
    glade#toplevel#set_modal true;
    glade#toplevel#show ()