← Back to branch summary

~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

Viewing changes to scripts/sawfish-about.jl.in

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2002-01-20 17:42:28 UTC
  • Revision ID: james.westby@ubuntu.com-20020120174228-4q1ydztbkvfq1ht2
Tags: upstream-1.0.1.20020116
Import upstream version 1.0.1.20020116

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/sawfish-about.jl.in
 
1
#!/bin/sh
 
2
 
 
3
REP_LOAD_PATH="__lispdir__"
 
4
export REP_LOAD_PATH
 
5
 
 
6
exec rep "$0" "$@"
 
7
 
 
8
!#
 
9
 
 
10
#| sawfish-about.jl.in -- helper process for sawfish about dialog
 
11
 
 
12
   $Id: sawfish-about.jl.in,v 1.9 2001/05/10 05:09:07 jsh Exp $
 
13
 
 
14
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
 
15
 
 
16
   This file is part of sawfish.
 
17
 
 
18
   sawfish is free software; you can redistribute it and/or modify it
 
19
   under the terms of the GNU General Public License as published by
 
20
   the Free Software Foundation; either version 2, or (at your option)
 
21
   any later version.
 
22
 
 
23
   sawfish is distributed in the hope that it will be useful, but
 
24
   WITHOUT ANY WARRANTY; without even the implied warranty of
 
25
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
26
   GNU General Public License for more details.
 
27
 
 
28
   You should have received a copy of the GNU General Public License
 
29
   along with sawfish; see the file COPYING.  If not, write to
 
30
   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
31
|#
 
32
 
 
33
(structure ()
 
34
 
 
35
    (open rep
 
36
          gui.gtk
 
37
          rep.system
 
38
          rep.io.files
 
39
          rep.i18n.gettext
 
40
          sawfish.gtk.stock)
 
41
 
 
42
  (unless (get-command-line-option "--disable-nls")
 
43
    (bindtextdomain "sawfish" "__localedir__")
 
44
    (textdomain "sawfish"))
 
45
 
 
46
  (define title "Sawfish")
 
47
  (define version "__version__")
 
48
  (define copyright "(C) 1999-2000 John Harper; (C) 2000 Eazel, Inc")
 
49
  (define authors `("John Harper <jsh@eazel.com>"
 
50
                    ,(_ "and many others...")))
 
51
  (define comments (_ "Sawfish manages your windows extensibly."))
 
52
  (define logo "sawfish-logo.png")
 
53
 
 
54
  (let* ((hbox (gtk-hbox-new t 0))
 
55
         (ref (make-url-widget "http://sawmill.sourceforge.net/"
 
56
                                (_ "Sawfish homepage"))))
 
57
    (gtk-box-pack-start hbox ref)
 
58
    (gtk-widget-show-all hbox)
 
59
    (let ((widget (about-dialog title version copyright
 
60
                                authors comments
 
61
                                #:logo logo
 
62
                                #:extra hbox)))
 
63
      (gtk-signal-connect widget "destroy"
 
64
                          (lambda () (throw 'out)))
 
65
      (catch 'out
 
66
        (setq interrupt-mode 'exit)
 
67
        (recursive-edit)))))
 
68
 
 
69
;; Local variables:
 
70
;; major-mode: lisp-mode
 
71
;; End: