Commit c1910c06 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

added small delay to the auto-saveas feature for the k12 mode

parent adaf5f63
......@@ -2962,11 +2962,16 @@ proc pdtk_canvas_new {name width height geometry editable} {
focus $name.c
if { $k12_mode == 1 && $k12_saveas_on_new == 1 } {
pd [concat $name menusaveas \;]
set k12_saveas_on_new 0
after 1000 [concat pdtk_k12_saveas_on_new $name]
}
}
proc pdtk_k12_saveas_on_new {name} {
global k12_saveas_on_new
pd [concat $name menusaveas \;]
set k12_saveas_on_new 0
}
proc pdtk_noselect {name} {
set topname [string trimright $name .c]
pd [concat $topname noselect \;]
......
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