rpmdepsize_about.ml.in

   1 (* rpmdepsize - visualize the size of RPM dependencies
   2  * @configure_input@
   3  * (C) Copyright 2009 Red Hat Inc.
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  *
  19  * Written by Richard W.M. Jones <rjones@redhat.com>
  20  *)
  21
  22 let callback _ =
  23   let name = "@PACKAGE_NAME@" in
  24   let version = "@PACKAGE_VERSION@" in
  25   let authors = ["Richard W.M. Jones <rjones@redhat.com>"] in
  26   let website = "http://et.redhat.com/~rjones/rpmdepsize/" in
  27   let website_label = "@PACKAGE_NAME@ website" in
  28   let utf8_copyright = "\194\169" in
  29   let copyright = utf8_copyright ^ " 2009 Red Hat Inc." in
  30   let license = "\
  31 This program is free software; you can redistribute it and/or modify
  32 it under the terms of the GNU General Public License as published by
  33 the Free Software Foundation; either version 2 of the License, or
  34 (at your option) any later version.
  35
  36 This program is distributed in the hope that it will be useful,
  37 but WITHOUT ANY WARRANTY; without even the implied warranty of
  38 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  39 GNU General Public License for more details.
  40
  41 You should have received a copy of the GNU General Public License
  42 along with this program; if not, write to the Free Software
  43 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA." in
  44   let dlg =
  45     GWindow.about_dialog
  46       ~name
  47       ~version
  48       ~authors
  49       ~website
  50       ~website_label
  51       ~copyright
  52       ~license
  53       () in
  54   ignore (dlg#run ());
  55   dlg#destroy ()