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