let show_about_dialog () =
try !about_dialog ()
with Not_found ->
let dialog = GWindow.about_dialog
~comments: Ed_messages.software_about
~version: Cam_installation.software_version
~website: "http://www.gna.org/projects/cameleon"
~position: `CENTER
~name: Ed_messages.software
()
in
about_dialog := dialog#present ;
dialog#show ()