Commit 42f56bcc authored by Guillaume Melquiond's avatar Guillaume Melquiond

Add some text to the command entry to make it more intuitive.

parent bbb09824
......@@ -870,7 +870,10 @@ let monitor =
~xalign:0.0
~packing:(hbox22221#pack ?from:None ?expand:None ?fill:None ?padding:None) ()
let command_entry = GEdit.entry ~packing:hbox22221#add ()
let command_entry =
GEdit.entry
~text:"type commands here"
~packing:hbox22221#add ()
(* Part 2.2.2.2.2 contains messages returned by the IDE/server *)
let messages_notebook = GPack.notebook ~packing:vbox2222#add ()
......@@ -1254,6 +1257,15 @@ let (_ : GtkSignal.id) =
~callback:(fun () -> add_command list_commands command_entry#text;
interp command_entry#text)
(* remove the helper text from the command entry the first time it gets the focus *)
let () =
let id = ref None in
let callback _ =
clear_command_entry ();
GtkSignal.disconnect command_entry#as_entry (Opt.get !id);
false in
id := Some (command_entry#event#connect#focus_in ~callback)
let on_selected_row r =
try
let id = get_node_id r#iter in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment