On Mon, Aug 06, 2007 at 11:38:34AM +0200, Andrea Rossato wrote:
Hi,
with this patch the we can write applications with cut and paste capabilities.
just to test it, this does the job of sselp (http://www.suckless.org/download/sselp-0.1.tar.gz). cool, isn't it? ciao andrea the code: module Main where import Graphics.X11.Xlib import Graphics.X11.Xlib.Extras import System.Exit (exitWith, ExitCode(..)) import Data.Maybe import Data.Char main :: IO () main = do dpy <- openDisplay "" let dflt = defaultScreen dpy scr = defaultScreenOfDisplay dpy rootw <- rootWindow dpy dflt win <- createSimpleWindow dpy rootw 0 0 200 100 0 0 0 p <- internAtom dpy "PRIMARY" True clp <- internAtom dpy "BLITZ_SEL_STRING" False xConvertSelection dpy p sTRING clp win currentTime allocaXEvent $ \e -> do nextEvent dpy e ev <- getEvent e if ev_event_type ev == selectionNotify then do res <- getWindowProperty8 dpy clp win putStrLn $ map (chr . fromIntegral) . fromMaybe [] $ res else do putStrLn "failed!" destroyWindow dpy win exitWith ExitSuccess