[sawfish] small behaviour change in scheme-boolean

[Christopher Bratusek <chrisb src gnome org>]

commit b961a052fcedd2545117082b7d3236a84acd49ad
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Sep 21 17:54:11 2010 +0200

    small behaviour change in scheme-boolean

 ChangeLog                                  |    6 +++++-
 lisp/sawfish/gtk/widgets/scheme-boolean.jl |    7 +------
 2 files changed, 6 insertions(+), 7 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index c929fdc..20335ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,10 @@
 2010-09-21  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/gtk/widgets/scheme-boolean.jl: fixed loading widget-dialog,
-	it's now in simple-dialog
+	it's now in simple-dialog. Also change the behaviour a bit: Previously the
+	buttons label changed from "Yes" to "No" depending on state, now it's only
+	"Enable", this to improve window-matcher appearance (scheme-boolean is only
+	used in window-matcher and an revised version (with real fix) will come with
+	Sawfish 3.0.0).
 
 	* debian/sawfish-data.install.in: remove monitor.png from here, too.
 
diff --git a/lisp/sawfish/gtk/widgets/scheme-boolean.jl b/lisp/sawfish/gtk/widgets/scheme-boolean.jl
index afb27e2..9164b5c 100644
--- a/lisp/sawfish/gtk/widgets/scheme-boolean.jl
+++ b/lisp/sawfish/gtk/widgets/scheme-boolean.jl
@@ -28,17 +28,12 @@
           sawfish.gtk.widgets.simple-dialog)
 
   (define (make-item changed-callback)
-    (let ((widget (gtk-toggle-button-new-with-label (_ "Yes"))))
-      (define (update-label)
-	(gtk-label-set-text (car (gtk-container-get-children widget))
-			    (if (gtk-toggle-button-get-active widget)
-				(_ "Yes") (_ "No"))))
+    (let ((widget (gtk-toggle-button-new-with-label (_ "Enable"))))
       (gtk-label-set-justify (car (gtk-container-get-children widget)) 'left)
       (gtk-toggle-button-set-active widget t)
       (g-signal-connect
        widget "toggled"
        (lambda ()
-	 (update-label)
 	 (when changed-callback
 	   (call-callback changed-callback))))
       (gtk-widget-show widget)