[sawfish] lisp/sawfish/ui/widgets/frame-style.jl: make cursor invisible in the textview + set wrap-mode to wor

[Christopher Bratusek <chrisb src gnome org>]

commit 4bad3581c68958479ea890f283abc9f73bf663ce
Author: chrisb <zanghar freenet de>
Date:   Wed Sep 23 20:01:26 2009 +0200

    lisp/sawfish/ui/widgets/frame-style.jl: make cursor invisible in the textview + set wrap-mode to word-char

 ChangeLog                              |    2 ++
 lisp/sawfish/ui/widgets/frame-style.jl |    3 ++-
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 18b35c1..0126428 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@
 	* lisp/sawfish/wm/ext/fdo-menu.jl: small fix in the exile function [Matthew Love]
 
 	* lisp/sawfish/ui/widgets/frame-style.jl: also support tar.lzma and tar.xz here
+	                                          make cursor invisible in the textview
+						  set wrap-mode to word-char
 
 2009-09-22  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/viewport.jl: string-change
diff --git a/lisp/sawfish/ui/widgets/frame-style.jl b/lisp/sawfish/ui/widgets/frame-style.jl
index 9344b95..df8c4ea 100644
--- a/lisp/sawfish/ui/widgets/frame-style.jl
+++ b/lisp/sawfish/ui/widgets/frame-style.jl
@@ -62,7 +62,8 @@
       (gtk-box-pack-start vbox readme-scroller t t)
       (gtk-box-pack-start vbox hbox nil nil)
       (gtk-label-set-justify doc-label 'left)
-      ;;(gtk-text-view-set-wrap-mode readme-text-view 'word)
+      (gtk-text-view-set-cursor-visible readme-text-view nil)
+      (gtk-text-view-set-wrap-mode readme-text-view 'word-char)
       (gtk-text-view-set-editable readme-text-view nil)
       (gtk-editable-set-editable (gtk-combo-entry combo) nil)
       (gtk-scrolled-window-set-policy readme-scroller 'automatic 'automatic)