[sawfish] improved look of the sawfish-config error-dialog

[Christopher Bratusek <chrisb src gnome org>]

commit b41c2a81430731009cf6fe4afb24b783b439118e
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Aug 21 07:20:09 2010 +0200

    improved look of the sawfish-config error-dialog

 ChangeLog                 |    3 +++
 lisp/sawfish/cfg/shell.jl |    6 +++++-
 2 files changed, 8 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 1fb56b6..886c3f4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2010-08-21  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/cfg/shell.jl: improved look of the error-dialog
+
 2010-08-21  Teika kazura <teika lavabit com>
 	* README.IMPORTANT
 	* lisp/sawfish/wm.jl
diff --git a/lisp/sawfish/cfg/shell.jl b/lisp/sawfish/cfg/shell.jl
index 1446baf..69e9253 100644
--- a/lisp/sawfish/cfg/shell.jl
+++ b/lisp/sawfish/cfg/shell.jl
@@ -267,9 +267,13 @@
     ;; Prints error and never returns.
     (let ((window (gtk-window-new 'toplevel))
 	  (vbox (gtk-vbox-new nil box-spacing))
-	  (label (gtk-label-new "Sawfish configurator needs a running Sawfish. Aborting."))
+	  (label (gtk-label-new "Sawfish's configurator needs a running Sawfish. Aborting."))
 	  (button (stock-button 'ok))
 	  (func (lambda () (throw 'quit 1))))
+      (gtk-window-set-title window "SawfishConfig error")
+      (gtk-container-set-border-width window 10)
+      (gtk-label-set-line-wrap label t)
+      (gtk-widget-set-size-request label 225 45)
       (g-signal-connect window "delete_event" func)
       (gtk-container-add window vbox)
       (g-signal-connect button "clicked" func)