Mouse position: Difference between revisions

m (→‎{{header|Phix}}: IupCloseOnEscape no longer needed)
Line 859:
w.setHandler(w.mouseMoved, mouse_moved)
w.show()</lang>
 
=={{header|Nim}}==
{{libheader|gintro}}
<lang Nim>import gintro/[glib, gobject, gtk, gio]
import gintro/gdk except Window
 
#---------------------------------------------------------------------------------------------------
 
proc onButtonPress(window: ApplicationWindow; event: Event; data: pointer): bool =
echo event.getCoords()
result = true
 
#---------------------------------------------------------------------------------------------------
 
proc activate(app: Application) =
## Activate the application.
 
let window = app.newApplicationWindow()
window.setTitle("Mouse position")
window.setSizeRequest(640, 480)
 
discard window.connect("button-press-event", onButtonPress, pointer(nil))
 
window.showAll()
 
#———————————————————————————————————————————————————————————————————————————————————————————————————
 
let app = newApplication(Application, "Rosetta.MousePosition")
discard app.connect("activate", activate)
discard app.run()</lang>
 
{{out}}
Sample output:
<pre>(136.631591796875, 91.27691650390625)
(308.6276245117188, 148.8543090820312)
(387.9143676757812, 332.2145385742188)
(191.778076171875, 368.4205932617188)
(76.43170166015625, 418.7800903320312)
(298.4449462890625, 451.6014404296875)
(9.709716796875, 11.10366821289062)
(636.892333984375, 476.888671875)
(4.505615234375, 4.832611083984375)
(631.4815673828125, 5.864105224609375)
(6.33782958984375, 475.9739379882812)</pre>
 
=={{header|OCaml}}==
Anonymous user