Commit 2ab03ad0 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

*made K12 object creation more robust (removing susceptibility to relative...

*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)
parent 7a67be7c
......@@ -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 \;]
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment