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