Revision as of 12:24, 20 June 2021 (view source) rosettacode>Higgs (→‎{{header\|Tcl}}) ← Older edit		Revision as of 12:27, 20 June 2021 (view source) rosettacode>Higgs m (→‎{{header\|Tcl}}) Newer edit →
Line 1,461: set y [expr {[winfo pointery .] - [winfo rooty $curWindow]}] tk_messageBox -message "the mouse is at ($x,$y) in window $curWindow"</lang> screen coordinates <lang tcl>package require Tk ~~<lang tcl>~~puts "monitor/display coordinate x = [winfo pointerx .]"</lang> =={{header\|Visual Basic}}==

Mouse position (view source)