Bug fix

2022-09-23 12:33:22 +03:00
parent 32013d87a7
commit 123d38b6ae
4 changed files with 25 additions and 18 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -373,6 +373,7 @@ proc FindInFilesDialog {txt {args ""}} {
    # puts $txt
    # set txt $w.frmText.t
    if {$txt ne ""} {
+        focus $txt
        set box [$txt bbox insert]
        set x   [expr [lindex $box 0] + [winfo rootx $txt] ]
        set y   [expr [lindex $box 1] + [winfo rooty $txt] + [lindex $box 3] ]