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