method clear = on_eval <- (fun () -> ()); on_complete <- (fun () -> ()); on_text_changed <- (fun () -> ()); more_key_bindings <- []; history <- None; self#set_text ""