Anonymous user
Mouse position: Difference between revisions
→{{header|Tcl}}
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>puts "monitor/display coordinate x = [winfo pointerx .]"</lang>
=={{header|Visual Basic}}==
| |||