diff options
Diffstat (limited to '')
-rw-r--r-- | XSelection.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XSelection.hs b/XSelection.hs index 49f2760..45547d7 100644 --- a/XSelection.hs +++ b/XSelection.hs @@ -65,7 +65,7 @@ getSelection = do dpy <- openDisplay "" let dflt = defaultScreen dpy rootw <- rootWindow dpy dflt - win <- createSimpleWindow dpy rootw 0 0 200 100 0 0 0 + win <- createSimpleWindow dpy rootw 0 0 1 1 0 0 0 p <- internAtom dpy "PRIMARY" True ty <- E.catch (E.catch @@ -88,7 +88,7 @@ putSelection text = do dpy <- openDisplay "" let dflt = defaultScreen dpy rootw <- rootWindow dpy dflt - win <- createSimpleWindow dpy rootw 0 0 200 100 0 0 0 + win <- createSimpleWindow dpy rootw 0 0 1 1 0 0 0 p <- internAtom dpy "PRIMARY" True ty <- internAtom dpy "UTF8_STRING" False xSetSelectionOwner dpy p win currentTime |