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 {} { ...@@ -1122,6 +1122,7 @@ proc pdtk_ping {} {
proc pdtk_check {canvas x message default} { proc pdtk_check {canvas x message default} {
global pd_nt global pd_nt
raise $canvas raise $canvas
reset_ctrl_on_popup_window
if {$pd_nt == 1} { if {$pd_nt == 1} {
set answer [tk_messageBox -message $x -type yesno -default $default \ set answer [tk_messageBox -message $x -type yesno -default $default \
-icon question] -icon question]
...@@ -1143,6 +1144,7 @@ proc pdtk_check {canvas x message default} { ...@@ -1143,6 +1144,7 @@ proc pdtk_check {canvas x message default} {
proc pdtk_canvas_menuclose {window reply} { proc pdtk_canvas_menuclose {window reply} {
global pd_nt global pd_nt
raise $window raise $window
reset_ctrl_on_popup_window
set filename [wm title $window] set filename [wm title $window]
set message [format {Do you wish to save the changes you made in "%s"?} $filename] 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" \ set answer [tk_messageBox -message $message -type yesnocancel -default "yes" \
...@@ -2466,7 +2468,7 @@ proc put_K12_objects {name object} { ...@@ -2466,7 +2468,7 @@ proc put_K12_objects {name object} {
if { $k12_mode == 1 } { if { $k12_mode == 1 } {
pd [concat $name dirty 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 \;]
} }
} }
......
Supports Markdown
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