[sawfish] make frame-style widgets string translatable

[Christopher Bratusek <chrisb src gnome org>]

commit 04c38c620416b6a3271dcb85c36c82a9510e1424
Author: chrisb <zanghar freenet de>
Date:   Mon May 4 20:31:30 2009 +0200

    make frame-style widgets string translatable
---
 ChangeLog                              |    2 ++
 lisp/sawfish/ui/widgets/frame-style.jl |    2 +-
 2 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 62a7cd1..04339c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -17,6 +17,8 @@
 	* po/sawfish-xgettext
 	* po/update.sh: removed, using intltool instead
 
+	* lisp/sawfish/ui/frame-style.jl: make frame-style string translatable
+
 2009-05-03  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/ui/slot.jl: make defcustoms strings translatable [Alexey I. Froloff]
 
diff --git a/lisp/sawfish/ui/widgets/frame-style.jl b/lisp/sawfish/ui/widgets/frame-style.jl
index 8b72848..5af0a4c 100644
--- a/lisp/sawfish/ui/widgets/frame-style.jl
+++ b/lisp/sawfish/ui/widgets/frame-style.jl
@@ -36,7 +36,7 @@
     (let ((vbox (gtk-vbox-new nil 0))
 	  (hbox (gtk-hbox-new nil 0))
 	  (combo (gtk-combo-new))
-	  (doc-label (gtk-label-new doc))
+	  (doc-label (gtk-label-new (_ doc)))	  
 	  (readme-text-view (gtk-text-view-new))
 	  (readme-scroller (gtk-scrolled-window-new))
 	  (value (car options))