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

src/pd.tk

@@ -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 \;]