[sawfish: 3/6] Revert "small behaviour change in scheme-boolean"

[Christopher Bratusek <chrisb src gnome org>]

commit 0b55ebf1a9829d4a45bb4e7b691cc362ea2472e0
Author: Teika kazura <teika lavabit com>
Date:   Sat Sep 25 14:13:09 2010 +0900

    Revert "small behaviour change in scheme-boolean"
    
    This reverts commit b961a052fcedd2545117082b7d3236a84acd49ad.
    
    * This commit solves one problem, but brings in another. Since the next
      release is coming, it is reverted for the moment.
    * The changelog is not reverted, but revert itself will be recorded.

 lisp/sawfish/gtk/widgets/scheme-boolean.jl |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/gtk/widgets/scheme-boolean.jl b/lisp/sawfish/gtk/widgets/scheme-boolean.jl
index 9164b5c..afb27e2 100644
--- a/lisp/sawfish/gtk/widgets/scheme-boolean.jl
+++ b/lisp/sawfish/gtk/widgets/scheme-boolean.jl
@@ -28,12 +28,17 @@
           sawfish.gtk.widgets.simple-dialog)
 
   (define (make-item changed-callback)
-    (let ((widget (gtk-toggle-button-new-with-label (_ "Enable"))))
+    (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"))))
       (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)