let log_window () =
let window = GWindow.window ~kind: `TOPLEVEL ~show: false
~width: 500 ~height: 600 ()
~title: "Cameleon log"
in
ignore (window#event#connect#delete (fun _ -> window#misc#hide (); true));
let vbox = GPack.vbox ~packing: window#add () in
let v = new box () in
ignore(vbox#pack ~expand: true v#box);
let wb_close = GButton.button
~label: Cam_messages.close
~packing: (vbox#pack ~expand: false)
()
in
ignore (wb_close#connect#clicked window#misc#hide);
Cam_hooks.set_display_message (v#print "Black");
Cam_hooks.set_warning_message (v#print "Orange");
Cam_hooks.set_error_message (v#print "Red");
window