- (* add root win *)
- connect_button newRoot#addButton
- (fun () ->
- let name = newRoot#buriEntry#text in
- let root = newRoot#rootEntry#text in
- if next_root_must_contain = Some "xxx" then ();
- HLog.error ("implement me: "^root^" "^name);
- newRoot#buriEntry#set_text "";
- newRoot#rootEntry#set_text "";
- newRoot#toplevel#misc#hide());
- connect_button newRoot#chooseRootButton
- (fun () ->
- let path = self#chooseDir () in
- match path with
- | Some path -> newRoot#rootEntry#set_text path
- | None -> ());
- connect_button newRoot#cancelButton
- (fun () -> newRoot#toplevel#misc#hide ());
- ignore(newRoot#toplevel#event#connect#delete
- (fun _ -> newRoot#toplevel#misc#hide();true));