Commit 14ee7f49 authored by Guillaume Melquiond's avatar Guillaume Melquiond

Add an explicit coercion so that it compiles with both lablgtk 2.16 and 2.18.

parent f42a0363
......@@ -801,7 +801,7 @@ let info_window ?(callback=(fun () -> ())) mt s =
in
let d = GWindow.message_dialog
~message:s
~message_type:mt
~message_type:(mt :> Gtk.Tags.message_type)
~buttons
~title:"Why3IDE"
~icon:(!Gconfig.why_icon)
......
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