diff options
author | Alessio Treglia <alessio@debian.org> | 2011-03-24 09:13:51 +0100 |
---|---|---|
committer | Alessio Treglia <alessio@debian.org> | 2011-03-24 09:13:51 +0100 |
commit | e5328e59987b90c4e98959510b810510e384650d (patch) | |
tree | 0f140b79d942c4654701d8fb4cfe2f1dd904f9f0 /gtk-effects-utils.scm | |
parent | 36cf8384e5699cda3f1ca607753fe4d4a8515b01 (diff) |
Imported Upstream version 12.0
Diffstat (limited to 'gtk-effects-utils.scm')
-rw-r--r-- | gtk-effects-utils.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gtk-effects-utils.scm b/gtk-effects-utils.scm index 24a3eb5..6e773b5 100644 --- a/gtk-effects-utils.scm +++ b/gtk-effects-utils.scm @@ -75,10 +75,12 @@ (if target-ok-callback (begin (gtk_widget_set_sensitive ok-button (target-ok-callback)) - (add-watcher (lambda () (gtk_widget_set_sensitive ok-button (target-ok-callback))))) + (hook-push effects-hook + (lambda () (gtk_widget_set_sensitive ok-button (target-ok-callback))))) (begin (gtk_widget_set_sensitive ok-button (not (null? (sounds)))) - (add-watcher (lambda () (gtk_widget_set_sensitive ok-button (not (null? (sounds)))))))) + (hook-push effects-hook + (lambda () (gtk_widget_set_sensitive ok-button (not (null? (sounds)))))))) (g_object_set_data (G_OBJECT new-dialog) "ok-button" (GPOINTER ok-button)) new-dialog)) @@ -162,7 +164,7 @@ (logior GTK_FILL GTK_SHRINK) 0 0)) (gtk_widget_show label) - (gtk_range_set_update_policy (GTK_RANGE (GTK_SCALE scale)) GTK_UPDATE_CONTINUOUS) + (if (not (provided? 'gtk3)) (gtk_range_set_update_policy (GTK_RANGE (GTK_SCALE scale)) GTK_UPDATE_CONTINUOUS)) (gtk_scale_set_digits (GTK_SCALE scale) (if use-log 0 |