1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/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:
|
