#!/bin/sh

REP_LOAD_PATH="__lispdir__"
export REP_LOAD_PATH

exec rep "$0" "$@"

!#

#| sawfish-about.jl.in -- helper process for sawfish about dialog

   $Id: sawfish-about.jl.in,v 1.10 2003/01/12 20:35:21 jsh Exp $

   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
	  rep.i18n.gettext
	  sawfish.gtk.stock)

  (unless (get-command-line-option "--disable-nls")
    (bindtextdomain "sawfish" "__localedir__")
    (textdomain "sawfish"))

  (define title "Sawfish")
  (define version "__version__")
  (define copyright "(C) 1999-2000 John Harper; (C) 2000 Eazel, Inc")
  (define authors `("John Harper <jsh@eazel.com>"
		    ,(_ "and many others...")))
  (define comments (_ "Sawfish manages your windows extensibly."))
  (define logo "sawfish-logo.png")

  (let* ((hbox (gtk-hbox-new t 0))
	 (ref (make-url-widget "http://sawfish.wikia.com/"
				(_ "Sawfish homepage"))))
    (gtk-box-pack-start hbox ref)
    (gtk-widget-show-all hbox)
    (let ((widget (about-dialog title version copyright
				authors comments
				#:logo logo
				#:extra hbox)))
      (g-signal-connect widget "destroy"
			(lambda () (throw 'out)))
      (catch 'out
	(setq interrupt-mode 'exit)
	(recursive-edit)))))

;; Local variables:
;; major-mode: lisp-mode
;; End:
