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 ()