trjp_sawfish

Fork

#!/bin/sh
exec rep --batch "$0" "$@"
!#

;; sawfish-about.jl.in -- helper process for sawfish about dialog
;;
;; Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
;;
;; This file is part of sawfish.
;;
;; sawfish is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; sawfish is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with sawfish; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

(structure ()

  (open rep
    gui.gtk-2.gtk
    rep.system
    rep.io.files)

  (define dialog (gtk-about-dialog-new))
  (gtk-about-dialog-set-program-name dialog "Sawfish")
  (gtk-about-dialog-set-version dialog "__version__ \"__codename__\"")
  (gtk-about-dialog-set-copyright dialog "© 1999-2000 John Harper\
  \n© 2000 Eazel, Inc\
  \n© 2007-2008 Janek Kozicki\
  \n© 2008-2014 Christopher Bratusek et all")
  (gtk-about-dialog-set-license dialog "Sawfish is released under the terms of the\
  \n\n\tGNU General Public License version 2, or (at your option) any later version.\
  \n\nSee the `COPYING' file in the source tree for the full license.\
  \n\nThe Sounds are distributed under the terms of the\
  \n\n\tArtistic License version 2.0.\
  \n\nSee the `COPYING.SOUNDS' file in the source-tree for the full license.")
  (gtk-about-dialog-set-comments dialog "Sawfish manages your windows extensibly")
  (gtk-about-dialog-set-website dialog "http://sawfish.wikia.com")
  (gtk-about-dialog-set-website-label dialog "Sawfish Wiki")
  (gtk-about-dialog-set-authors dialog '("1999-2007: John Harper\
  \n2007-2012: Janek 'Re-Animator' Kozicki, Timo Korvola, Andrea Vetorello, Guillermo S. Romero\
  \n2008-2012: Teika 'Mister X' Kazura\
  \n2008-2014: Christopher 'Flashrider' Bratusek\
  \n2009-2012: Jeremy Hankins, Matthew Love\
  \n2010-2014: fuchur\
  \n1999-2014: All the brave contributors (see `THANKS' in `CONTRIBUTING')"))
  (gtk-about-dialog-set-translator-credits dialog "de: Christian Kirbach, Mario Blättermann, fuchur\
  \nes: Jorge Gonzalez Gonzalez, Jacinto Capote Robles\
  \neu: Inaki Larranaga Murgoitio\
  \nsv: Daniel Nylander\
  \nand the whole GNOME Translation Team!")
  (gtk-about-dialog-set-logo dialog (gdk-pixbuf-new-from-file "__sawfishdir__/sawfish.png"))
  (g-signal-connect dialog "delete_event" (lambda () (throw 'quit 0)))
  (gtk-widget-show-all dialog)

  (g-signal-connect dialog "response"
    (lambda () (throw 'out)))

  (catch 'out
    (setq interrupt-mode 'exit)
    (recursive-edit))

  )

;; Emacs support
;; Local variables:
;; mode: sawfish
;; End: