Mouse position: Difference between revisions

Please specify if the window may be externally created.

<br><br>

 

=={{header|ActionScript}}==

This shows the mouse position in a text field at the bottom-right corner

and updates when the mouse is moved.

package {

 

}

 

=={{header|Ada}}==

It returns mouse coordinates relatively to a window (internally created).

The following program shows a button, which when pressed indicates coordinates of the mouse pointer relatively to the main window:

with Gtk.Button; use Gtk.Button;

with Gtk.Label; use Gtk.Label;

Gtk.Main.Main;

 

=={{header|AmigaBASIC}}==

 

 

WHILE 1

m=MOUSE(0)

PRINT MOUSE(1),MOUSE(2)

 

=={{header|AppleScript}}==

System Events can report the position of the currently active window. The mouse's location is retrieved with help from AppleScriptObjC. This will be relative to the bottom-left corner of the screen. Therefore, we also retrieve the screen's height.

 

 

tell application id "com.apple.SystemEvents" to tell ¬

end tell

 

 

{{out}}

=={{header|AutoHotkey}}==

The window may be an externally created window.

MouseGetPos, x, y ; Gets x/y pos relative to active window

WinGetActiveTitle, WinTitle ; Gets active window title

Traytip, Mouse position, x: %x%`ny: %y%`rWindow: %WinTitle%, 4 ; Displays the info as a Traytip for 4 seconds

 

===with DllCall===

Source: [https://github.com/jNizM/AHK_DllCall_WinAPI/ GetCursorPos @github] by jNizM

{

static POINT, init := VarSetCapacity(POINT, 8, 0) && NumPut(8, POINT, "Int")

. "POINT structure`n`n"

. "x-coordinate:`t`t" GetCursorPos[0] "`n"

Source: [https://github.com/jNizM/AHK_DllCall_WinAPI/ GetPhysicalCursorPos @github] by jNizM

{

static POINT, init := VarSetCapacity(POINT, 8, 0) && NumPut(8, POINT, "Int")

. "POINT structure`n`n"

. "x-coordinate:`t`t" GetPhysicalCursorPos[0] "`n"

 

=={{header|BBC BASIC}}==

The mouse coordinates are relative to the bottom-left corner

of the BBC BASIC main output window:

 

=={{header|C}}==

{{libheader|Xlib}}

#include <X11/Xlib.h>

 

(void)XCloseDisplay(d); /* and close the display */

return 0;

 

=={{header|c_sharp|C#}}==

Writes the absolute Mouse Position of the Screen into the Console

using System;

using System.Windows.Forms;

}

}

 

=={{header|Clojure}}==

 

=={{header|Common Lisp}}==

With the ltk library.

 

(ql:quickload "ltk")

(in-package :ltk-user)

;; create a small window. Enter the mouse to see lots of events.

(bind *tk* "<Motion>" #'motion))

This prints a lot of events of the form

 

Shows mouse-position on a label on the form.

 

Y: Integer);

begin

lblMousePosition.Caption := ('X:' + IntToStr(X) + ', Y:' + IntToStr(Y));

 

 

with the help of Windows and classes units.

 

{$APPTYPE CONSOLE}

uses

sleep(300);

end

 

=={{header|EasyLang}}==

 

 

 

=={{header|EchoLisp}}==

When the '''plot''' library is loaded, the mouse position - relative to the plotting area coordinates, is displayed inside the info panel.

(lib 'plot)

(plot-x-minmax 10) ; set logical dimensions of plotting area

;; the mouse position is displayed as , for example, [ x: 5.6 y : 88.7]

;; 0 <= x <= 10, 0 <= y <= 100

 

--[[User:Neo.abhinav|Neo.abhinav]] 17:00, 6 May 2011 (UTC)

 

=={{header|Elm}}==

import Mouse

 

main : Signal Element

main =

 

=={{header|Emacs Lisp}}==

the frame the mouse is over and where the mouse is within that frame can be obtained with

 

 

Or <code>mouse-position</code> for characters instead of pixels.

=={{header|ERRE}}==

This example program, taken from distribution disk, shows the mouse position in a text field at the bottom-right corner and updates when the mouse is moved.

!

! MOUSE WITH 'MOUSE.LIB' LIBRARY

CLS

END PROGRAM

 

=={{header|F_Sharp|F#}}==

If the question was for the point relative to the current window,

life would be much simpler.

open System.Runtime.InteropServices

 

ScreenToClient(hwnd, &ptFs) |> ignore

ptFs

 

=={{header|Factor}}==

Works only in the graphical listener.

Replaces the text in the button with the relative and absolute coordinates of the mouse

[ drop children>> pop drop ] [ >label add-gadget drop ] 2bi ;

: present-locations ( loc1 loc2 -- string )

]

<border-button> gadget. ;

 

=={{header|FreeBASIC}}==

Also includes the state of the mouse wheel and mouse buttons, since these are provided by the same subroutine that provides the cursor position.

 

type MOUSE

'mouse position, button state, wheel state

print "Wheel scrolls: ", mouse.wheel," "

end if

 

=={{header|Gambas}}==

this is the only widget that can track pointer movement within gambas.

 

PUBLIC SUB Form1_MouseMove()

PRINT mouse.X

PRINT Mouse.Y

END

 

=={{header|Go}}==

<br>

The active window may be externally created.

 

import (

fmt.Println("Problem when finding PID(s) of", name)

}

 

{{out}}

=={{header|Groovy}}==

Based on Java solution:

Thread.sleep(1000)

def p = java.awt.MouseInfo.pointerInfo.location

println "${it}: x=${p.@x} y=${p.@y}"

 

Sample output:

Mouse click positions for windows created internally.

X and Y are in units of current xy axes (optional: invisible).

AXIS(WINdowhandle=handle, MouSeCall=Mouse_Callback, MouSeX=X, MouSeY=Y)

END

SUBROUTINE Mouse_Callback()

WRITE(Messagebox, Name) X, Y

 

=={{header|Icon}} and {{header|Unicon}}==

In Icon/Unicon the mouse position may be tracked between button presses for any window created by the program.

The following code snippet taken from the Icon Graphics Book on page 197-198 shows how to track the mouse.

px := WAttrib("pointerx")

py := WAttrib("pointery")

WDelay(5) # wait and share processor

}

 

=={{header|Java}}==

{{works with|Java|1.5+}}

The mouse position can be checked at any time by calling

This returns a point on the entire screen, rather than relative to a particular window. This call can be combined with <code>getLocation()</code> from any <code>Component</code> (including a <code>Frame</code>, which is a window) to get the location relative to that <code>Component</code>.

 

One of many ways to add an event listener:

 

var position = { x: e.clientX, y: e.clientY }

 

In the above example, the window may not be external.

 

=={{header|Julia}}==

 

const win = GtkWindow("Get Mouse Position", 600, 800)

signal_connect(endit, win, :destroy)

wait(c)

 

=={{header|Kotlin}}==

{{trans|Groovy}}

 

import java.awt.MouseInfo

println("${it}: x = ${"%-4d".format(p.x)} y = ${"%-4d".format(p.y)}")

}

Sample output:

{{out}}

This example gets the mouse position based on the active window.

Click on other windows to get relative mouse position based on those windows.

 

UpperLeftX = DisplayWidth-WindowWidth

y = point.y.struct

CursorPos$=x; ",";y

 

=={{header|Lingo}}==

 

-- Method 1:

-- this script in either the stack script or the card script to get position relative to the current stack window

148,521 -- relative to current screen

 

=={{header|LiveCode Builder}}==

LiveCode Builder (LCB) is a slightly lower level, strictly typed variant of LiveCode Script (LCS) used for making add-on extensions to LiveCode Script

 

use com.livecode.widget -- include the required module

--- in your handler:

put the mouse position into tPosition

put my bounds into tRect

if tPosition is within tRect then

log "mouse position is within the widget bounds"

end if

 

=={{header|Logo}}==

 

=={{header|M2000 Interpreter}}==

Module Checkit {

\\ works when console is the active window

}

CheckIt

 

 

=={{header|MATLAB}}==

 

=={{header|MAXScript}}==

Creates a window on the screen and shows mouse position as it moves.

 

try destroydialog mousePos catch ()

 

 

createdialog mousepos

 

=={{header|MiniScript}}==

{{works with|Mini Micro}}

 

=={{header|Nanoquery}}==

 

// a function to handle the mouse moved event

w.setSize(500, 500)

w.setHandler(w.mouseMoved, mouse_moved)

 

=={{header|Nim}}==

{{libheader|gintro}}

import gintro/gdk except Window

 

let app = newApplication(Application, "Rosetta.MousePosition")

discard app.connect("activate", activate)

 

{{out}}

 

=={{header|OCaml}}==

 

let () =

 

xCloseDisplay d;

 

=={{header|Octave}}==

To get the X,Y coordinates of N mouse clicks in the current figure,

one can use this:

Example:

<pre>>> [X, Y, BUTTONS] = ginput(4)

2

</pre>

 

=={{header|Oz}}==

Repeatedly shows the mouse coordinates relative to the foremost window of the application.

[QTk] = {Module.link ['x-oz://system/wp/QTk.ozf']}

WindowClosed = {NewCell false}

#", y: "#(Winfo.pointery - Winfo.rooty))}

{Delay 250}

 

=={{header|Perl}}==

When you move the mouse over the created window,

the mouse position get printed and the program terminates.

use SDL::Events;

use SDLx::App;

} );

$app->run;

{{out}}

<pre>x=15 y=304</pre>

Note that canvasmotion coordinates are relative to the top left of the canvas, whereas the other two are absolute.

{{libheader|Phix/pGUI}}

include pGUI.e

 

IupClose()

end procedure

 

=={{header|PicoLisp}}==

The returned value is (X . Y), where X is the

column and Y the line number.

(prog2

(prin "^[[?9h") # Mouse reporting on

(- (char (key)) 32)

(- (char (key)) 32) ) )

{{out}}

<pre>: (mousePosition)

=={{header|PureBasic}}==

The mouse position can be obtained by these two commands:

This example repeatedly shows the mouse coordinates

relative to the window created in the application.

#Label_txt = 0

#MousePos_txt = 1

SetGadgetText(#MousePos_txt,"(" + Str(x) + "," + Str(y) + ")")

ForEver

 

=={{header|Processing}}==

size(640, 480);

}

ellipse(mouseX, mouseY, 5, 5); // graphic output example

println("x:" + mouseX + " y:" + mouseY);

 

==={{header|Processing Python mode}}===

size(640, 480)

 

# mouseX and mouseY provide the current mouse position

ellipse(mouseX, mouseY, 5, 5) # graphic output example

 

=={{header|Python}}==

 

Code is based on post in Daniweb: http://www.daniweb.com/forums/post616327.html#post616327 by ZZucker

import Tkinter as tk

 

 

root.mainloop()

----------------

#simple way of ,get cursor xy data

 

win.bind("<Motion>",xy)

mainloop()

 

=={{header|Racket}}==

The mouse position can be queried at any time with a function in a GUI context.

 

#lang racket/gui

(define-values [point _] (get-current-mouse-state))

(send point get-x)

(send point get-y)

 

=={{header|Raku}}==

(formerly Perl 6)

{{works with|rakudo/jvm|2013-12-03}}

 

given MouseInfo.getPointerInfo.getLocation {

say .getX, 'x', .getY;

 

An implementation that will work on any X11 windowing system. Reports mouse position, window ID# and window name for whichever window the mouse pointer is over. Automatically moves mouse for hands-off testing purposes.

 

{{works with|Rakudo|2018.11}}

my $xdo = Xdo.new;

 

}

 

 

=={{header|Ring}}==

The movement procedure uses the mouse position information

 

Load "guilib.ring"

 

}

ok

 

=={{header|Ruby}}==

{{libheader|Shoes}}

 

@position = para "Position : ?, ?", :size => 12, :margin => 10

@position.text = "Position : #{x}, #{y}"

end

 

=={{header|Rust}}==

Prints current location of the mouse cursor relative to any active window.

This example relies on the Windows API.

 

use std::libc::{BOOL, HANDLE, LONG};

}

}

{{out}}

<pre>x: 550, y: 614

=={{header|Scala}}==

 

object MousePosition extends App {

val mouseLocation = MouseInfo.getPointerInfo.getLocation

println (mouseLocation)

 

=={{header|Seed7}}==

and [http://seed7.sourceforge.net/libraries/graph.htm#pointerYPos%28in_PRIMITIVE_WINDOW%29 pointerYPos] from the

[http://seed7.sourceforge.net/libraries/graph.htm graph.s7i] library determine the actual X and Y position of the mouse pointer, relative to the given window:

 

=={{header|Smalltalk}}==

Sending the message <tt>position</tt> to the <tt>activeHand</tt> of the <tt>World</tt> returns a <tt>Point</tt> object:

 

World activeHand position. " (394@649.0)"

 

=={{header|Standard ML}}==

Works with PolyML

val dp = XOpenDisplay "" ;

val w = XCreateSimpleWindow (RootWindow dp) origin (Area {x=0,y=0,w=400,h=300}) 3 0 0xffffff ;

) ;

XQueryPointer focus ;

result: position wrt root window and active window, resp wrt root window and window w

val it =

=={{header|Tcl}}==

{{libheader|Tk}}

set curWindow [lindex [wm stackorder .] end]

# Everything below will work with anything from Tk 8.0 onwards

set x [expr {[winfo pointerx .] - [winfo rootx $curWindow]}]

set y [expr {[winfo pointery .] - [winfo rooty $curWindow]}]

 

=={{header|Visual Basic}}==

(so if the pointer is over a button on the current form,

the event will only fire for the button, ''not'' the form).

'X and Y are in "twips" -- 15 twips per pixel

Me.Print "X:" & X

Me.Print "Y:" & Y

 

The second method uses the [[wp:Windows API|Windows API]],

and can be easily translated to any language that can make API calls.

This example uses a <code>Timer</code> control to check the mouse position.

 

Private Type POINTAPI

Me.Print "X:" & Pt.X

Me.Print "Y:" & Pt.Y

 

=={{header|Wren}}==

{{libheader|DOME}}

import "graphics" for Canvas

import "input" for Mouse

 

static draw(alpha) {}

 

{{out}}

does not make Windows applications (however see "Simple windowed application").

 

if not OpenMouse then Text(0, "A mouse is required")

else [ShowMouse(true);

IntOut(0, GetMousePosition(0)); ChOut(0, ^,);

IntOut(0, GetMousePosition(1)); CrLf(0);

 

{{out|Example output}}