[sawfish] removed make-url-widget function, use newly introduced GtkLinkButton from rep-gtk

[Christopher Bratusek <chrisb src gnome org>]

commit a2c9fe3783cb89f00a19e06ba738f778a0bfbd85
Author: chrisb <zanghar freenet de>
Date:   Wed Jul 29 21:09:35 2009 +0200

    removed make-url-widget function, use newly introduced GtkLinkButton from rep-gtk

 ChangeLog                   |    5 +++++
 lisp/sawfish/gtk/stock.jl   |    5 +----
 scripts/sawfish-about.jl.in |    7 +++----
 3 files changed, 9 insertions(+), 8 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index d48389b..f71d4ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,6 +8,11 @@
 
 	* lisp/sawfish/wm/ext/match-window.jl: added window-name matcher
 
+	* lisp/sawfish/gtk/stock.jl: remove make-url-widget function as we now got GtkLinkButton in rep-gtk
+
+	* scripts/sawfish-about.jl.in: use GtkLinkButton instead of make-url-widget
+	                               updated Johns Mail
+
 2009-07-28  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/frames.jl: make doc-windows unframed [Timo Korvola]
 
diff --git a/lisp/sawfish/gtk/stock.jl b/lisp/sawfish/gtk/stock.jl
index c508f01..b59fc58 100644
--- a/lisp/sawfish/gtk/stock.jl
+++ b/lisp/sawfish/gtk/stock.jl
@@ -107,7 +107,4 @@
       (when extra
 	(gtk-box-pack-end box extra))
       (gtk-widget-show-all box)
-      (simple-dialog "About" box)))
-
-  (define (make-url-widget url label)
-    (gtk-label-new (format nil "%s <%s>" label url))))
+      (simple-dialog "About" box))))
diff --git a/scripts/sawfish-about.jl.in b/scripts/sawfish-about.jl.in
index 9ac2100..cd7ee27 100644
--- a/scripts/sawfish-about.jl.in
+++ b/scripts/sawfish-about.jl.in
@@ -36,8 +36,7 @@ exec rep "$0" "$@"
 	  gui.gtk-2.gtk
 	  rep.system
 	  rep.io.files
-	  rep.i18n.gettext
-	  sawfish.gtk.stock)
+	  rep.i18n.gettext)
 
   (unless (get-command-line-option "--disable-nls")
     (bindtextdomain "sawfish" "__localedir__")
@@ -46,13 +45,13 @@ exec rep "$0" "$@"
   (define title "Sawfish")
   (define version "__version__")
   (define copyright "(C) 1999-2000 John Harper; (C) 2000 Eazel, Inc")
-  (define authors `("John Harper <jsh eazel com>"
+  (define authors `("John Harper <jsh unfactored org>"
 		    ,(_ "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/";
+	 (ref (gtk-link-button-new-with-label "http://sawfish.wikia.com/";
 				(_ "Sawfish homepage"))))
     (gtk-box-pack-start hbox ref)
     (gtk-widget-show-all hbox)