← 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: 2005-02-23 16:16:46 UTC
  • mfrom: (1.2.1 upstream) (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050223161646-4id6qyw4h9lkvb0v
Tags: 1:1.3+cvs20050222-1
http://bugs.debian.org/295290
* New cvs release.
* Add an emacs initialisation script to load sawfish.el (Closes: #295290)
* Updated sawfish.el to 1.32

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/sawfish-about.jl.in
9
9
 
10
10
#| sawfish-about.jl.in -- helper process for sawfish about dialog
11
11
 
12
 
   $Id: sawfish-about.jl.in,v 1.9 2001/05/10 05:09:07 jsh Exp $
 
12
   $Id: sawfish-about.jl.in,v 1.10 2003/01/12 20:35:21 jsh Exp $
13
13
 
14
14
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
15
15
 
33
33
(structure ()
34
34
 
35
35
    (open rep
36
 
          gui.gtk
 
36
          gui.gtk-2.gtk
37
37
          rep.system
38
38
          rep.io.files
39
39
          rep.i18n.gettext
60
60
                                authors comments
61
61
                                #:logo logo
62
62
                                #:extra hbox)))
63
 
      (gtk-signal-connect widget "destroy"
64
 
                          (lambda () (throw 'out)))
 
63
      (g-signal-connect widget "destroy"
 
64
                        (lambda () (throw 'out)))
65
65
      (catch 'out
66
66
        (setq interrupt-mode 'exit)
67
67
        (recursive-edit)))))