From 2ab03ad0642fc9c8bf5de6a21028b77fbcdd809f Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Wed, 10 Sep 2014 01:47:12 -0400
Subject: [PATCH] *made K12 object creation more robust (removing
susceptibility to relative paths from the current location) *ensured that the
ctrl key is released when opening various prompts (there may be possibly
others)
---
pd/src/pd.tk | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 2cce6f657..68292d9b9 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -1122,6 +1122,7 @@ proc pdtk_ping {} {
proc pdtk_check {canvas x message default} {
global pd_nt
raise $canvas
+ reset_ctrl_on_popup_window
if {$pd_nt == 1} {
set answer [tk_messageBox -message $x -type yesno -default $default \
-icon question]
@@ -1143,6 +1144,7 @@ proc pdtk_check {canvas x message default} {
proc pdtk_canvas_menuclose {window reply} {
global pd_nt
raise $window
+ reset_ctrl_on_popup_window
set filename [wm title $window]
set message [format {Do you wish to save the changes you made in "%s"?} $filename]
set answer [tk_messageBox -message $message -type yesnocancel -default "yes" \
@@ -2466,7 +2468,7 @@ proc put_K12_objects {name object} {
if { $k12_mode == 1 } {
pd [concat $name dirty 1 \;]
- pd [concat $name obj_abstraction K12/$object 0 20 \;]
+ pd [concat $name obj_abstraction @pd_extra/K12/$object 0 20 \;]
}
}
--
GitLab