21 lines
462 B
Plaintext
21 lines
462 B
Plaintext
try destroydialog mousePos catch ()
|
|
|
|
rollout mousePos "Mouse position" width:200
|
|
(
|
|
label mousePosText "Current mouse position:" pos:[0,0]
|
|
label mousePosX "" pos:[130,0]
|
|
label mousePosSep "x" pos:[143,0]
|
|
label mousePosY "" pos:[160,0]
|
|
|
|
timer updateTimer interval:50 active:true
|
|
|
|
on updateTimer tick do
|
|
(
|
|
mousePosX.text = (mouse.screenpos.x as integer) as string
|
|
mousePosY.text = (mouse.screenpos.y as integer) as string
|
|
)
|
|
|
|
)
|
|
|
|
createdialog mousepos
|