diff options
Diffstat (limited to 'library/ttk/entry.tcl')
| -rw-r--r-- | library/ttk/entry.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl index ff919f1..3a2363b 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -346,9 +346,13 @@ proc ttk::entry::Press {w x} { focus $w $w instate !readonly { if {$::tk::sdltk} { - lassign [$w bbox insert] xx yy - incr xx [winfo rootx $w] - incr yy [winfo rooty $w] + if {[catch { + lassign [$w bbox insert] xx yy + incr xx [winfo rootx $w] + incr yy [winfo rooty $w] + }]} { + lassign [winfo pointerxy $w] xx yy + } sdltk textinput 1 $xx $yy } } |