module GI.Atk.Flags
(
HyperlinkStateFlags(..) ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
data HyperlinkStateFlags =
HyperlinkStateFlagsInline
| AnotherHyperlinkStateFlags Int
deriving (Show, Eq)
instance Enum HyperlinkStateFlags where
fromEnum HyperlinkStateFlagsInline = 1
fromEnum (AnotherHyperlinkStateFlags k) = k
toEnum 1 = HyperlinkStateFlagsInline
toEnum k = AnotherHyperlinkStateFlags k
foreign import ccall "atk_hyperlink_state_flags_get_type" c_atk_hyperlink_state_flags_get_type ::
IO GType
instance BoxedEnum HyperlinkStateFlags where
boxedEnumType _ = c_atk_hyperlink_state_flags_get_type
instance IsGFlag HyperlinkStateFlags