let show_about_dialog () =
try !about_dialog ()
with Not_found ->
let dialog = GWindow.about_dialog
~authors:
[(Printf.sprintf "%s <%s>"
Ed_messages.software_author
Ed_messages.software_author_mail)]
~name: Ed_messages.software
~version: Cam_installation.software_version
~website: "http://www.gna.org/projects/cameleon"
~website_label: "The Cameleon website"
~position: `CENTER
~copyright: Ed_messages.software_copyright
~logo: (GdkPixbuf.from_file window_pixmap)
~modal: true
()
in
about_dialog := dialog#present ;
ignore(dialog#connect#response (fun _ -> dialog#misc#hide()));
dialog#show ()