[sawfish] UTF-8 Support in lisp.sawfish.gtk.widget

[Christopher Bratusek <chrisb src gnome org>]

commit 2fb347302a020133f542dc6d7a7d56a89ec0be7a
Author: chrisb <zanghar freenet de>
Date:   Mon Jun 1 07:23:54 2009 +0200

    UTF-8 Support in lisp.sawfish.gtk.widget
---
 ChangeLog                  |    5 ++++-
 lisp/sawfish/gtk/widget.jl |    5 +++--
 man/news.texi              |    2 ++
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 97b486d..186c688 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,7 @@
-2009-05-30  Christopher Bratusek <zanghar freenet de>
+2009-06-01  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/gtk/widget.jl: UTF-8 Support
+
+2009-05-31  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/goups.jl
 	* lisp/sawfish/wm/ext/beos-window-menu.jl: UTF-8 Support [Wang Diancheng]
 
diff --git a/lisp/sawfish/gtk/widget.jl b/lisp/sawfish/gtk/widget.jl
index adf691b..3105b43 100644
--- a/lisp/sawfish/gtk/widget.jl
+++ b/lisp/sawfish/gtk/widget.jl
@@ -48,6 +48,7 @@
     ((open rep
 	   gui.gtk-2.gtk
 	   rep.system
+	   rep.util.utf8
 	   rep.regexp)
      (access rep.structures))
 
@@ -173,8 +174,8 @@
   ;; returns (LABEL-STRING . TOOLTIP-STRING-OR-NIL)
   (define (tooltip-split doc)
     (if (string-match "\n\n\\s*" doc)
-	(cons (substring doc 0 (match-start))
-	      (substring doc (match-end)))
+	(cons (utf8-substring (_ doc) 0 (match-start))
+	      (utf8-substring (_ doc) (match-end)))
       (cons doc nil)))
 
   (define (tooltip-set widget tip-string #!optional (key "Foo"))
diff --git a/man/news.texi b/man/news.texi
index 2b9be5a..65fc4a5 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -75,6 +75,8 @@ To use the old style, put @code{(define-special-variable customize-program "sawf
 
 @item UTF-8 Support in Windowmenus [Wang Diancheng]
 
+ item UTF-8 Support in GTK Widgets [Christopher Bratusek]
+
 @item Tabbed Windowing Support [Yann Hodique, Scott Scriven, Nathan Froyd, Christopher Bratusek]
 
 @item Tabbed Windowing Support: Raise Tabs on hover [Christopher Bratusek]