[sawfish] mark sawfish.gtk.widget-test as broken

[Christopher Bratusek <chrisb src gnome org>]

commit 9766f427a844439a1ae1132fbdc43799b9b61bb2
Author: chrisb <zanghar freenet de>
Date:   Sun Sep 20 10:48:48 2009 +0200

    mark sawfish.gtk.widget-test as broken

 ChangeLog                       |    2 ++
 lisp/sawfish/gtk/widget-test.jl |   11 +++++++++--
 2 files changed, 11 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index fa81da4..29ab2ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,8 @@
 
 	* man/faq.texi: updated
 
+	* lisp/sawfish/gtk/widget-text.jl: mark as broken
+
 2009-09-19  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/commands/user.jl
 	* lisp/sawfish/wm/workspace.jl: move display-workspace-name & helpers to workspace.jl
diff --git a/lisp/sawfish/gtk/widget-test.jl b/lisp/sawfish/gtk/widget-test.jl
index 7501715..cd05a75 100644
--- a/lisp/sawfish/gtk/widget-test.jl
+++ b/lisp/sawfish/gtk/widget-test.jl
@@ -23,6 +23,12 @@
 
 (define-structure sawfish.gtk.widget-test
 
+ ;;;;; This is broken, it kills sawfish, test it:            ;
+  ;;;; sawfish-client                                        ;;
+   ;;; (require 'sawfish.gtk.widget-test)                    ;;;
+    ;; (test-widget '(optional (choice one two three)) 'two) ;;;;
+     ; now move the window -> X Window System error -> kill  ;;;;;
+
     (export test-widget)
 
     (open rep
@@ -48,6 +54,7 @@
 	(gtk-widget-show-all window)
 	(unwind-protect
 	    (catch 'done
-	      (recursive-edit))
-	  (gtk-widget-destroy window)
+	      (recursive-edit)
+	      (gtk-widget-destroy window))
 	  (gdk-flush))))))
+