xtest (empty) → 0.1

raw patch · 4 files changed

+135/−0 lines, 4 filesdep +X11dep +basesetup-changed

Dependencies added: X11, base

Files

• Graphics/X11/XTest.hs +49/−0
• LICENSE +30/−0
• Setup.hs +2/−0
• xtest.cabal +54/−0

@@ -0,0 +1,49 @@+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.X11.XTest+  (fakeMotion,+   fakeButtonPress,+   movePointer)+  where++import Graphics.X11.Xlib+import Foreign.C.Types++-- FFI imports++-- XTestFakeButtonEvent(display, button, is_press, delay)+foreign import ccall unsafe "X11/extensions/XTest.h XTestFakeButtonEvent"+    xFakeButtonEvent :: Display -> Button -> Bool -> Time -> IO Status++foreign import ccall unsafe "X11/extensions/XTest.h XTestFakeMotionEvent"+    xFakeMotionEvent :: Display -> CInt -> CInt -> CInt -> Time -> IO Status++-- | Create fake pointer motion event.+fakeMotion :: Display      -- +           -> ScreenNumber --+           -> Int          -- ^ X+           -> Int          -- ^ Y+           -> IO ()+fakeMotion dpy sid x y = do+  xFakeMotionEvent dpy (fromIntegral sid) (fromIntegral x) (fromIntegral y) 0+  return ()++-- | Create fake mouse button click event.+fakeButtonPress :: Display+                -> Button  -- ^ Mouse button number+                -> IO ()+fakeButtonPress dpy button = do+  xFakeButtonEvent dpy button True 0+  xFakeButtonEvent dpy button False 0+  return ()++-- | Move mouse pointer.+movePointer :: Display+            -> ScreenNumber+            -> XID          -- ^ Root window XID+            -> Int          -- ^ delta X+            -> Int          -- ^ delta Y+            -> IO ()+movePointer dpy sid root dx dy = do+ (_,_,_,x,y,_,_,_) <- queryPointer dpy root+ fakeMotion dpy sid (fromIntegral x + dx) (fromIntegral y + dy)+

@@ -0,0 +1,30 @@+Copyright (c)2011, Ilya Portnov++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Ilya Portnov nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,54 @@+-- xtest.cabal auto-generated by cabal init. For additional options,+-- see+-- http://www.haskell.org/cabal/release/cabal-latest/doc/users-guide/authors.html#pkg-descr.+-- The name of the package.+Name:                xtest++-- The package version. See the Haskell package versioning policy+-- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for+-- standards guiding when and how versions should be incremented.+Version:             0.1++-- A short (one-line) description of the package.+Synopsis:            Thin FFI bindings to X11 XTest library++-- A longer description of the package.+Description:         This package provides bindings to some functions from X11 XTest+                     extension client library (-lXtst).++-- The license under which the package is released.+License:             BSD3++-- The file containing the license text.+License-file:        LICENSE++-- The package author(s).+Author:              Ilya Portnov++-- An email address to which users can send suggestions, bug reports,+-- and patches.+Maintainer:          portnov84@rambler.ru++-- A copyright notice.+-- Copyright:           ++Category:            Graphics++Build-type:          Simple++-- Extra files to be distributed with the package, such as examples or+-- a README.+-- Extra-source-files:  ++-- Constraint on the version of Cabal needed to build this package.+Cabal-version:       >=1.2+++Library+  -- Modules exported by the library.+  Exposed-modules:     Graphics.X11.XTest+  +  -- Packages needed in order to build this package.+  Build-depends:       base >= 4 && < 5, X11 >= 1.5+  extra-libraries:    "Xtst"+