RosettaCodeData/Task/Mouse-position/Racket/mouse-position.rkt

#lang racket/gui
(define-values [point _] (get-current-mouse-state))
(send point get-x)
(send point get-y)
A-M baby 2013-04-10 21:29:02 -07:00			`#lang racket/gui`
update 2013-06-05 21:47:54 +00:00			`(define-values [point _] (get-current-mouse-state))`
A-M baby 2013-04-10 21:29:02 -07:00			`(send point get-x)`
			`(send point get-y)`