From bd0254c5af565e77d383bbad6d7a671958aa80fd Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Tue, 29 Jul 2014 16:26:21 -0400
Subject: [PATCH] *further refined workaround for the open panels and stuck
ctrl key
---
pd/src/pd.tk | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index c9bcad17e..a115189cc 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -1233,8 +1233,10 @@ proc menu_new {} {
proc reset_ctrl_on_popup_window {} {
global menu_windowlist
set first_patch_window_name [lindex $menu_windowlist 0 1]
- pdtk_canvas_sendkey $first_patch_window_name.c 0 Control_L null 0 1 -1
- pdtk_canvas_sendkey $first_patch_window_name.c 0 Control_R null 0 1 -1
+ if { $first_patch_window_name != "" } {
+ pdtk_canvas_sendkey $first_patch_window_name.c 0 Control_L null 0 1 -1
+ pdtk_canvas_sendkey $first_patch_window_name.c 0 Control_R null 0 1 -1
+ }
}
################## the "Open" menu command #########################
--
GitLab