8 lines
177 B
Text
8 lines
177 B
Text
|
WINDOW(WINdowhandle=handle)
|
||
|
|
AXIS(WINdowhandle=handle, MouSeCall=Mouse_Callback, MouSeX=X, MouSeY=Y)
|
||
|
|
END
|
||
|
|
|
||
|
|
SUBROUTINE Mouse_Callback()
|
||
|
|
WRITE(Messagebox, Name) X, Y
|
||
|
|
END
|