adding an entry to a view

Hello lablgtk,
I'm adding an entry to a view, the result is three lines of uneven height
how do I make it so that every line of my view has the same height?
here's the code:

let _ =
  let source_window = GWindow.window () in
  let view = GText.view  ~packing:source_window#add  () in
  let t = view#buffer in
    t#insert "hello \nhello ";
    view#add_child_at_anchor (GEdit.entry () :> GObj.widget)
(t#create_child_anchor (t#end_iter));
    t#insert "oh no\nhello";
    source_window#show ();
    GMain.Main.main ()

_______________________________________________
Lablgtk mailing list
[email protected]
http://yquem.inria.fr/cgi-bin/mailman/listinfo/lablgtk