- let entry = GEdit.entry ~packing:dialog#textDialogVBox#add () in
- ignore (dialog#textDialogOkButton#connect#clicked (fun _ ->
+ let entry = GEdit.entry ~packing:dialog#emptyDialogVBox#add () in
+ entry#misc#grab_focus ();
+ ignore (dialog#emptyDialogOkButton#connect#clicked (fun _ ->