{-# options_haddock prune #-}
-- |XClipboardEvent Data Type, Internal
module Helic.Data.XClipboardEvent where

import Helic.Data.Selection (Selection)

data XClipboardEvent =
  XClipboardEvent {
    XClipboardEvent -> Text
text :: Text,
    XClipboardEvent -> Selection
selection :: Selection
  }
  deriving stock (XClipboardEvent -> XClipboardEvent -> Bool
(XClipboardEvent -> XClipboardEvent -> Bool)
-> (XClipboardEvent -> XClipboardEvent -> Bool)
-> Eq XClipboardEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XClipboardEvent -> XClipboardEvent -> Bool
$c/= :: XClipboardEvent -> XClipboardEvent -> Bool
== :: XClipboardEvent -> XClipboardEvent -> Bool
$c== :: XClipboardEvent -> XClipboardEvent -> Bool
Eq, Int -> XClipboardEvent -> ShowS
[XClipboardEvent] -> ShowS
XClipboardEvent -> String
(Int -> XClipboardEvent -> ShowS)
-> (XClipboardEvent -> String)
-> ([XClipboardEvent] -> ShowS)
-> Show XClipboardEvent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XClipboardEvent] -> ShowS
$cshowList :: [XClipboardEvent] -> ShowS
show :: XClipboardEvent -> String
$cshow :: XClipboardEvent -> String
showsPrec :: Int -> XClipboardEvent -> ShowS
$cshowsPrec :: Int -> XClipboardEvent -> ShowS
Show)