From 34eda41baa879d37d000b459763500598c5d88d2 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Thu, 28 Feb 2013 19:35:19 -0500
Subject: [PATCH] further refinements to the IO error on/off logic
---
pd/src/pd.tk | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 5cb1c9cda..299ab9256 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -6178,19 +6178,21 @@ proc pdtk_pd_meters {indb outdb inclip outclip} {
set sched_dio_off 0
proc pdtk_pd_dio {red} {
-# puts stderr [concat dio $red]
+ #puts stderr [concat dio $red]
global pd_nt
global sched_dio_off
if {$red == 1} {
+ #puts stderr on
+ after cancel $sched_dio_off
+ set sched_dio_off [after 1000 pdtk_pd_dio 0]
if {[info tclversion] >= 8.5 && $pd_nt == 0} {
.controls.dio configure -style IOErrorOn.TButton
} else {
.controls.dio configure -background red -activebackground red
}
- set current_window $tkcanvas
- after cancel $sched_dio_off
- set sched_dio_off [after 1000 pdtk_pd_dio 0]
+ set current_window $tkcanvas
} else {
+ #puts stderr off
if {[info tclversion] >= 8.5 && $pd_nt == 0} {
.controls.dio configure -style IOErrorOff.TButton
} else {
--
GitLab