7 lines
177 B
Text
7 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
|