Commit 19aa32ad authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

improved focus logic when opening a new patch

parent ebe532a2
......@@ -3083,7 +3083,7 @@ proc pdtk_canvas_new {name width height geometry editable} {
bind $name <FocusIn> "menu_fixeditmenu $name"
# bind $name <FocusOut> { pdtk_noselect %W }
if { $k12_mode == 1 } { pd [concat $name tooltips 1 \;] }
focus $name.c
after 100 [concat focus $name.c]
if { $k12_mode == 1 && $k12_saveas_on_new == 1 } {
after 1000 [concat pdtk_k12_saveas_on_new $name]
......
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