module GI.Gtk.Flags
(
UIManagerItemType(..) ,
TreeModelFlags(..) ,
ToolPaletteDragTargets(..) ,
TextSearchFlags(..) ,
TargetFlags(..) ,
StateFlags(..) ,
RegionFlags(..) ,
RecentFilterFlags(..) ,
RcFlags(..) ,
PlacesOpenFlags(..) ,
JunctionSides(..) ,
InputHints(..) ,
IconLookupFlags(..) ,
FileFilterFlags(..) ,
DialogFlags(..) ,
DestDefaults(..) ,
DebugFlag(..) ,
CellRendererState(..) ,
CalendarDisplayOptions(..) ,
AttachOptions(..) ,
ApplicationInhibitFlags(..) ,
AccelFlags(..) ,
) 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 UIManagerItemType =
UIManagerItemTypeAuto
| UIManagerItemTypeMenubar
| UIManagerItemTypeMenu
| UIManagerItemTypeToolbar
| UIManagerItemTypePlaceholder
| UIManagerItemTypePopup
| UIManagerItemTypeMenuitem
| UIManagerItemTypeToolitem
| UIManagerItemTypeSeparator
| UIManagerItemTypeAccelerator
| UIManagerItemTypePopupWithAccels
| AnotherUIManagerItemType Int
deriving (Show, Eq)
instance Enum UIManagerItemType where
fromEnum UIManagerItemTypeAuto = 0
fromEnum UIManagerItemTypeMenubar = 1
fromEnum UIManagerItemTypeMenu = 2
fromEnum UIManagerItemTypeToolbar = 4
fromEnum UIManagerItemTypePlaceholder = 8
fromEnum UIManagerItemTypePopup = 16
fromEnum UIManagerItemTypeMenuitem = 32
fromEnum UIManagerItemTypeToolitem = 64
fromEnum UIManagerItemTypeSeparator = 128
fromEnum UIManagerItemTypeAccelerator = 256
fromEnum UIManagerItemTypePopupWithAccels = 512
fromEnum (AnotherUIManagerItemType k) = k
toEnum 0 = UIManagerItemTypeAuto
toEnum 1 = UIManagerItemTypeMenubar
toEnum 2 = UIManagerItemTypeMenu
toEnum 4 = UIManagerItemTypeToolbar
toEnum 8 = UIManagerItemTypePlaceholder
toEnum 16 = UIManagerItemTypePopup
toEnum 32 = UIManagerItemTypeMenuitem
toEnum 64 = UIManagerItemTypeToolitem
toEnum 128 = UIManagerItemTypeSeparator
toEnum 256 = UIManagerItemTypeAccelerator
toEnum 512 = UIManagerItemTypePopupWithAccels
toEnum k = AnotherUIManagerItemType k
foreign import ccall "gtk_ui_manager_item_type_get_type" c_gtk_ui_manager_item_type_get_type ::
IO GType
instance BoxedEnum UIManagerItemType where
boxedEnumType _ = c_gtk_ui_manager_item_type_get_type
instance IsGFlag UIManagerItemType
data TreeModelFlags =
TreeModelFlagsItersPersist
| TreeModelFlagsListOnly
| AnotherTreeModelFlags Int
deriving (Show, Eq)
instance Enum TreeModelFlags where
fromEnum TreeModelFlagsItersPersist = 1
fromEnum TreeModelFlagsListOnly = 2
fromEnum (AnotherTreeModelFlags k) = k
toEnum 1 = TreeModelFlagsItersPersist
toEnum 2 = TreeModelFlagsListOnly
toEnum k = AnotherTreeModelFlags k
foreign import ccall "gtk_tree_model_flags_get_type" c_gtk_tree_model_flags_get_type ::
IO GType
instance BoxedEnum TreeModelFlags where
boxedEnumType _ = c_gtk_tree_model_flags_get_type
instance IsGFlag TreeModelFlags
data ToolPaletteDragTargets =
ToolPaletteDragTargetsItems
| ToolPaletteDragTargetsGroups
| AnotherToolPaletteDragTargets Int
deriving (Show, Eq)
instance Enum ToolPaletteDragTargets where
fromEnum ToolPaletteDragTargetsItems = 1
fromEnum ToolPaletteDragTargetsGroups = 2
fromEnum (AnotherToolPaletteDragTargets k) = k
toEnum 1 = ToolPaletteDragTargetsItems
toEnum 2 = ToolPaletteDragTargetsGroups
toEnum k = AnotherToolPaletteDragTargets k
foreign import ccall "gtk_tool_palette_drag_targets_get_type" c_gtk_tool_palette_drag_targets_get_type ::
IO GType
instance BoxedEnum ToolPaletteDragTargets where
boxedEnumType _ = c_gtk_tool_palette_drag_targets_get_type
instance IsGFlag ToolPaletteDragTargets
data TextSearchFlags =
TextSearchFlagsVisibleOnly
| TextSearchFlagsTextOnly
| TextSearchFlagsCaseInsensitive
| AnotherTextSearchFlags Int
deriving (Show, Eq)
instance Enum TextSearchFlags where
fromEnum TextSearchFlagsVisibleOnly = 1
fromEnum TextSearchFlagsTextOnly = 2
fromEnum TextSearchFlagsCaseInsensitive = 4
fromEnum (AnotherTextSearchFlags k) = k
toEnum 1 = TextSearchFlagsVisibleOnly
toEnum 2 = TextSearchFlagsTextOnly
toEnum 4 = TextSearchFlagsCaseInsensitive
toEnum k = AnotherTextSearchFlags k
foreign import ccall "gtk_text_search_flags_get_type" c_gtk_text_search_flags_get_type ::
IO GType
instance BoxedEnum TextSearchFlags where
boxedEnumType _ = c_gtk_text_search_flags_get_type
instance IsGFlag TextSearchFlags
data TargetFlags =
TargetFlagsSameApp
| TargetFlagsSameWidget
| TargetFlagsOtherApp
| TargetFlagsOtherWidget
| AnotherTargetFlags Int
deriving (Show, Eq)
instance Enum TargetFlags where
fromEnum TargetFlagsSameApp = 1
fromEnum TargetFlagsSameWidget = 2
fromEnum TargetFlagsOtherApp = 4
fromEnum TargetFlagsOtherWidget = 8
fromEnum (AnotherTargetFlags k) = k
toEnum 1 = TargetFlagsSameApp
toEnum 2 = TargetFlagsSameWidget
toEnum 4 = TargetFlagsOtherApp
toEnum 8 = TargetFlagsOtherWidget
toEnum k = AnotherTargetFlags k
foreign import ccall "gtk_target_flags_get_type" c_gtk_target_flags_get_type ::
IO GType
instance BoxedEnum TargetFlags where
boxedEnumType _ = c_gtk_target_flags_get_type
instance IsGFlag TargetFlags
data StateFlags =
StateFlagsNormal
| StateFlagsActive
| StateFlagsPrelight
| StateFlagsSelected
| StateFlagsInsensitive
| StateFlagsInconsistent
| StateFlagsFocused
| StateFlagsBackdrop
| StateFlagsDirLtr
| StateFlagsDirRtl
| StateFlagsLink
| StateFlagsVisited
| StateFlagsChecked
| AnotherStateFlags Int
deriving (Show, Eq)
instance Enum StateFlags where
fromEnum StateFlagsNormal = 0
fromEnum StateFlagsActive = 1
fromEnum StateFlagsPrelight = 2
fromEnum StateFlagsSelected = 4
fromEnum StateFlagsInsensitive = 8
fromEnum StateFlagsInconsistent = 16
fromEnum StateFlagsFocused = 32
fromEnum StateFlagsBackdrop = 64
fromEnum StateFlagsDirLtr = 128
fromEnum StateFlagsDirRtl = 256
fromEnum StateFlagsLink = 512
fromEnum StateFlagsVisited = 1024
fromEnum StateFlagsChecked = 2048
fromEnum (AnotherStateFlags k) = k
toEnum 0 = StateFlagsNormal
toEnum 1 = StateFlagsActive
toEnum 2 = StateFlagsPrelight
toEnum 4 = StateFlagsSelected
toEnum 8 = StateFlagsInsensitive
toEnum 16 = StateFlagsInconsistent
toEnum 32 = StateFlagsFocused
toEnum 64 = StateFlagsBackdrop
toEnum 128 = StateFlagsDirLtr
toEnum 256 = StateFlagsDirRtl
toEnum 512 = StateFlagsLink
toEnum 1024 = StateFlagsVisited
toEnum 2048 = StateFlagsChecked
toEnum k = AnotherStateFlags k
foreign import ccall "gtk_state_flags_get_type" c_gtk_state_flags_get_type ::
IO GType
instance BoxedEnum StateFlags where
boxedEnumType _ = c_gtk_state_flags_get_type
instance IsGFlag StateFlags
data RegionFlags =
RegionFlagsEven
| RegionFlagsOdd
| RegionFlagsFirst
| RegionFlagsLast
| RegionFlagsOnly
| RegionFlagsSorted
| AnotherRegionFlags Int
deriving (Show, Eq)
instance Enum RegionFlags where
fromEnum RegionFlagsEven = 1
fromEnum RegionFlagsOdd = 2
fromEnum RegionFlagsFirst = 4
fromEnum RegionFlagsLast = 8
fromEnum RegionFlagsOnly = 16
fromEnum RegionFlagsSorted = 32
fromEnum (AnotherRegionFlags k) = k
toEnum 1 = RegionFlagsEven
toEnum 2 = RegionFlagsOdd
toEnum 4 = RegionFlagsFirst
toEnum 8 = RegionFlagsLast
toEnum 16 = RegionFlagsOnly
toEnum 32 = RegionFlagsSorted
toEnum k = AnotherRegionFlags k
foreign import ccall "gtk_region_flags_get_type" c_gtk_region_flags_get_type ::
IO GType
instance BoxedEnum RegionFlags where
boxedEnumType _ = c_gtk_region_flags_get_type
instance IsGFlag RegionFlags
data RecentFilterFlags =
RecentFilterFlagsUri
| RecentFilterFlagsDisplayName
| RecentFilterFlagsMimeType
| RecentFilterFlagsApplication
| RecentFilterFlagsGroup
| RecentFilterFlagsAge
| AnotherRecentFilterFlags Int
deriving (Show, Eq)
instance Enum RecentFilterFlags where
fromEnum RecentFilterFlagsUri = 1
fromEnum RecentFilterFlagsDisplayName = 2
fromEnum RecentFilterFlagsMimeType = 4
fromEnum RecentFilterFlagsApplication = 8
fromEnum RecentFilterFlagsGroup = 16
fromEnum RecentFilterFlagsAge = 32
fromEnum (AnotherRecentFilterFlags k) = k
toEnum 1 = RecentFilterFlagsUri
toEnum 2 = RecentFilterFlagsDisplayName
toEnum 4 = RecentFilterFlagsMimeType
toEnum 8 = RecentFilterFlagsApplication
toEnum 16 = RecentFilterFlagsGroup
toEnum 32 = RecentFilterFlagsAge
toEnum k = AnotherRecentFilterFlags k
foreign import ccall "gtk_recent_filter_flags_get_type" c_gtk_recent_filter_flags_get_type ::
IO GType
instance BoxedEnum RecentFilterFlags where
boxedEnumType _ = c_gtk_recent_filter_flags_get_type
instance IsGFlag RecentFilterFlags
data RcFlags =
RcFlagsFg
| RcFlagsBg
| RcFlagsText
| RcFlagsBase
| AnotherRcFlags Int
deriving (Show, Eq)
instance Enum RcFlags where
fromEnum RcFlagsFg = 1
fromEnum RcFlagsBg = 2
fromEnum RcFlagsText = 4
fromEnum RcFlagsBase = 8
fromEnum (AnotherRcFlags k) = k
toEnum 1 = RcFlagsFg
toEnum 2 = RcFlagsBg
toEnum 4 = RcFlagsText
toEnum 8 = RcFlagsBase
toEnum k = AnotherRcFlags k
foreign import ccall "gtk_rc_flags_get_type" c_gtk_rc_flags_get_type ::
IO GType
instance BoxedEnum RcFlags where
boxedEnumType _ = c_gtk_rc_flags_get_type
instance IsGFlag RcFlags
data PlacesOpenFlags =
PlacesOpenFlagsNormal
| PlacesOpenFlagsNewTab
| PlacesOpenFlagsNewWindow
| AnotherPlacesOpenFlags Int
deriving (Show, Eq)
instance Enum PlacesOpenFlags where
fromEnum PlacesOpenFlagsNormal = 1
fromEnum PlacesOpenFlagsNewTab = 2
fromEnum PlacesOpenFlagsNewWindow = 4
fromEnum (AnotherPlacesOpenFlags k) = k
toEnum 1 = PlacesOpenFlagsNormal
toEnum 2 = PlacesOpenFlagsNewTab
toEnum 4 = PlacesOpenFlagsNewWindow
toEnum k = AnotherPlacesOpenFlags k
foreign import ccall "gtk_places_open_flags_get_type" c_gtk_places_open_flags_get_type ::
IO GType
instance BoxedEnum PlacesOpenFlags where
boxedEnumType _ = c_gtk_places_open_flags_get_type
instance IsGFlag PlacesOpenFlags
data JunctionSides =
JunctionSidesNone
| JunctionSidesCornerTopleft
| JunctionSidesCornerTopright
| JunctionSidesCornerBottomleft
| JunctionSidesCornerBottomright
| JunctionSidesTop
| JunctionSidesBottom
| JunctionSidesLeft
| JunctionSidesRight
| AnotherJunctionSides Int
deriving (Show, Eq)
instance Enum JunctionSides where
fromEnum JunctionSidesNone = 0
fromEnum JunctionSidesCornerTopleft = 1
fromEnum JunctionSidesCornerTopright = 2
fromEnum JunctionSidesCornerBottomleft = 4
fromEnum JunctionSidesCornerBottomright = 8
fromEnum JunctionSidesTop = 3
fromEnum JunctionSidesBottom = 12
fromEnum JunctionSidesLeft = 5
fromEnum JunctionSidesRight = 10
fromEnum (AnotherJunctionSides k) = k
toEnum 0 = JunctionSidesNone
toEnum 1 = JunctionSidesCornerTopleft
toEnum 2 = JunctionSidesCornerTopright
toEnum 3 = JunctionSidesTop
toEnum 4 = JunctionSidesCornerBottomleft
toEnum 5 = JunctionSidesLeft
toEnum 8 = JunctionSidesCornerBottomright
toEnum 10 = JunctionSidesRight
toEnum 12 = JunctionSidesBottom
toEnum k = AnotherJunctionSides k
foreign import ccall "gtk_junction_sides_get_type" c_gtk_junction_sides_get_type ::
IO GType
instance BoxedEnum JunctionSides where
boxedEnumType _ = c_gtk_junction_sides_get_type
instance IsGFlag JunctionSides
data InputHints =
InputHintsNone
| InputHintsSpellcheck
| InputHintsNoSpellcheck
| InputHintsWordCompletion
| InputHintsLowercase
| InputHintsUppercaseChars
| InputHintsUppercaseWords
| InputHintsUppercaseSentences
| InputHintsInhibitOsk
| AnotherInputHints Int
deriving (Show, Eq)
instance Enum InputHints where
fromEnum InputHintsNone = 0
fromEnum InputHintsSpellcheck = 1
fromEnum InputHintsNoSpellcheck = 2
fromEnum InputHintsWordCompletion = 4
fromEnum InputHintsLowercase = 8
fromEnum InputHintsUppercaseChars = 16
fromEnum InputHintsUppercaseWords = 32
fromEnum InputHintsUppercaseSentences = 64
fromEnum InputHintsInhibitOsk = 128
fromEnum (AnotherInputHints k) = k
toEnum 0 = InputHintsNone
toEnum 1 = InputHintsSpellcheck
toEnum 2 = InputHintsNoSpellcheck
toEnum 4 = InputHintsWordCompletion
toEnum 8 = InputHintsLowercase
toEnum 16 = InputHintsUppercaseChars
toEnum 32 = InputHintsUppercaseWords
toEnum 64 = InputHintsUppercaseSentences
toEnum 128 = InputHintsInhibitOsk
toEnum k = AnotherInputHints k
foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type ::
IO GType
instance BoxedEnum InputHints where
boxedEnumType _ = c_gtk_input_hints_get_type
instance IsGFlag InputHints
data IconLookupFlags =
IconLookupFlagsNoSvg
| IconLookupFlagsForceSvg
| IconLookupFlagsUseBuiltin
| IconLookupFlagsGenericFallback
| IconLookupFlagsForceSize
| IconLookupFlagsForceRegular
| IconLookupFlagsForceSymbolic
| IconLookupFlagsDirLtr
| IconLookupFlagsDirRtl
| AnotherIconLookupFlags Int
deriving (Show, Eq)
instance Enum IconLookupFlags where
fromEnum IconLookupFlagsNoSvg = 1
fromEnum IconLookupFlagsForceSvg = 2
fromEnum IconLookupFlagsUseBuiltin = 4
fromEnum IconLookupFlagsGenericFallback = 8
fromEnum IconLookupFlagsForceSize = 16
fromEnum IconLookupFlagsForceRegular = 32
fromEnum IconLookupFlagsForceSymbolic = 64
fromEnum IconLookupFlagsDirLtr = 128
fromEnum IconLookupFlagsDirRtl = 256
fromEnum (AnotherIconLookupFlags k) = k
toEnum 1 = IconLookupFlagsNoSvg
toEnum 2 = IconLookupFlagsForceSvg
toEnum 4 = IconLookupFlagsUseBuiltin
toEnum 8 = IconLookupFlagsGenericFallback
toEnum 16 = IconLookupFlagsForceSize
toEnum 32 = IconLookupFlagsForceRegular
toEnum 64 = IconLookupFlagsForceSymbolic
toEnum 128 = IconLookupFlagsDirLtr
toEnum 256 = IconLookupFlagsDirRtl
toEnum k = AnotherIconLookupFlags k
foreign import ccall "gtk_icon_lookup_flags_get_type" c_gtk_icon_lookup_flags_get_type ::
IO GType
instance BoxedEnum IconLookupFlags where
boxedEnumType _ = c_gtk_icon_lookup_flags_get_type
instance IsGFlag IconLookupFlags
data FileFilterFlags =
FileFilterFlagsFilename
| FileFilterFlagsUri
| FileFilterFlagsDisplayName
| FileFilterFlagsMimeType
| AnotherFileFilterFlags Int
deriving (Show, Eq)
instance Enum FileFilterFlags where
fromEnum FileFilterFlagsFilename = 1
fromEnum FileFilterFlagsUri = 2
fromEnum FileFilterFlagsDisplayName = 4
fromEnum FileFilterFlagsMimeType = 8
fromEnum (AnotherFileFilterFlags k) = k
toEnum 1 = FileFilterFlagsFilename
toEnum 2 = FileFilterFlagsUri
toEnum 4 = FileFilterFlagsDisplayName
toEnum 8 = FileFilterFlagsMimeType
toEnum k = AnotherFileFilterFlags k
foreign import ccall "gtk_file_filter_flags_get_type" c_gtk_file_filter_flags_get_type ::
IO GType
instance BoxedEnum FileFilterFlags where
boxedEnumType _ = c_gtk_file_filter_flags_get_type
instance IsGFlag FileFilterFlags
data DialogFlags =
DialogFlagsModal
| DialogFlagsDestroyWithParent
| DialogFlagsUseHeaderBar
| AnotherDialogFlags Int
deriving (Show, Eq)
instance Enum DialogFlags where
fromEnum DialogFlagsModal = 1
fromEnum DialogFlagsDestroyWithParent = 2
fromEnum DialogFlagsUseHeaderBar = 4
fromEnum (AnotherDialogFlags k) = k
toEnum 1 = DialogFlagsModal
toEnum 2 = DialogFlagsDestroyWithParent
toEnum 4 = DialogFlagsUseHeaderBar
toEnum k = AnotherDialogFlags k
foreign import ccall "gtk_dialog_flags_get_type" c_gtk_dialog_flags_get_type ::
IO GType
instance BoxedEnum DialogFlags where
boxedEnumType _ = c_gtk_dialog_flags_get_type
instance IsGFlag DialogFlags
data DestDefaults =
DestDefaultsMotion
| DestDefaultsHighlight
| DestDefaultsDrop
| DestDefaultsAll
| AnotherDestDefaults Int
deriving (Show, Eq)
instance Enum DestDefaults where
fromEnum DestDefaultsMotion = 1
fromEnum DestDefaultsHighlight = 2
fromEnum DestDefaultsDrop = 4
fromEnum DestDefaultsAll = 7
fromEnum (AnotherDestDefaults k) = k
toEnum 1 = DestDefaultsMotion
toEnum 2 = DestDefaultsHighlight
toEnum 4 = DestDefaultsDrop
toEnum 7 = DestDefaultsAll
toEnum k = AnotherDestDefaults k
foreign import ccall "gtk_dest_defaults_get_type" c_gtk_dest_defaults_get_type ::
IO GType
instance BoxedEnum DestDefaults where
boxedEnumType _ = c_gtk_dest_defaults_get_type
instance IsGFlag DestDefaults
data DebugFlag =
DebugFlagMisc
| DebugFlagPlugsocket
| DebugFlagText
| DebugFlagTree
| DebugFlagUpdates
| DebugFlagKeybindings
| DebugFlagMultihead
| DebugFlagModules
| DebugFlagGeometry
| DebugFlagIcontheme
| DebugFlagPrinting
| DebugFlagBuilder
| DebugFlagSizeRequest
| DebugFlagNoCssCache
| DebugFlagBaselines
| DebugFlagPixelCache
| DebugFlagNoPixelCache
| DebugFlagInteractive
| DebugFlagTouchscreen
| DebugFlagActions
| AnotherDebugFlag Int
deriving (Show, Eq)
instance Enum DebugFlag where
fromEnum DebugFlagMisc = 1
fromEnum DebugFlagPlugsocket = 2
fromEnum DebugFlagText = 4
fromEnum DebugFlagTree = 8
fromEnum DebugFlagUpdates = 16
fromEnum DebugFlagKeybindings = 32
fromEnum DebugFlagMultihead = 64
fromEnum DebugFlagModules = 128
fromEnum DebugFlagGeometry = 256
fromEnum DebugFlagIcontheme = 512
fromEnum DebugFlagPrinting = 1024
fromEnum DebugFlagBuilder = 2048
fromEnum DebugFlagSizeRequest = 4096
fromEnum DebugFlagNoCssCache = 8192
fromEnum DebugFlagBaselines = 16384
fromEnum DebugFlagPixelCache = 32768
fromEnum DebugFlagNoPixelCache = 65536
fromEnum DebugFlagInteractive = 131072
fromEnum DebugFlagTouchscreen = 262144
fromEnum DebugFlagActions = 524288
fromEnum (AnotherDebugFlag k) = k
toEnum 1 = DebugFlagMisc
toEnum 2 = DebugFlagPlugsocket
toEnum 4 = DebugFlagText
toEnum 8 = DebugFlagTree
toEnum 16 = DebugFlagUpdates
toEnum 32 = DebugFlagKeybindings
toEnum 64 = DebugFlagMultihead
toEnum 128 = DebugFlagModules
toEnum 256 = DebugFlagGeometry
toEnum 512 = DebugFlagIcontheme
toEnum 1024 = DebugFlagPrinting
toEnum 2048 = DebugFlagBuilder
toEnum 4096 = DebugFlagSizeRequest
toEnum 8192 = DebugFlagNoCssCache
toEnum 16384 = DebugFlagBaselines
toEnum 32768 = DebugFlagPixelCache
toEnum 65536 = DebugFlagNoPixelCache
toEnum 131072 = DebugFlagInteractive
toEnum 262144 = DebugFlagTouchscreen
toEnum 524288 = DebugFlagActions
toEnum k = AnotherDebugFlag k
foreign import ccall "gtk_debug_flag_get_type" c_gtk_debug_flag_get_type ::
IO GType
instance BoxedEnum DebugFlag where
boxedEnumType _ = c_gtk_debug_flag_get_type
instance IsGFlag DebugFlag
data CellRendererState =
CellRendererStateSelected
| CellRendererStatePrelit
| CellRendererStateInsensitive
| CellRendererStateSorted
| CellRendererStateFocused
| CellRendererStateExpandable
| CellRendererStateExpanded
| AnotherCellRendererState Int
deriving (Show, Eq)
instance Enum CellRendererState where
fromEnum CellRendererStateSelected = 1
fromEnum CellRendererStatePrelit = 2
fromEnum CellRendererStateInsensitive = 4
fromEnum CellRendererStateSorted = 8
fromEnum CellRendererStateFocused = 16
fromEnum CellRendererStateExpandable = 32
fromEnum CellRendererStateExpanded = 64
fromEnum (AnotherCellRendererState k) = k
toEnum 1 = CellRendererStateSelected
toEnum 2 = CellRendererStatePrelit
toEnum 4 = CellRendererStateInsensitive
toEnum 8 = CellRendererStateSorted
toEnum 16 = CellRendererStateFocused
toEnum 32 = CellRendererStateExpandable
toEnum 64 = CellRendererStateExpanded
toEnum k = AnotherCellRendererState k
foreign import ccall "gtk_cell_renderer_state_get_type" c_gtk_cell_renderer_state_get_type ::
IO GType
instance BoxedEnum CellRendererState where
boxedEnumType _ = c_gtk_cell_renderer_state_get_type
instance IsGFlag CellRendererState
data CalendarDisplayOptions =
CalendarDisplayOptionsShowHeading
| CalendarDisplayOptionsShowDayNames
| CalendarDisplayOptionsNoMonthChange
| CalendarDisplayOptionsShowWeekNumbers
| CalendarDisplayOptionsShowDetails
| AnotherCalendarDisplayOptions Int
deriving (Show, Eq)
instance Enum CalendarDisplayOptions where
fromEnum CalendarDisplayOptionsShowHeading = 1
fromEnum CalendarDisplayOptionsShowDayNames = 2
fromEnum CalendarDisplayOptionsNoMonthChange = 4
fromEnum CalendarDisplayOptionsShowWeekNumbers = 8
fromEnum CalendarDisplayOptionsShowDetails = 32
fromEnum (AnotherCalendarDisplayOptions k) = k
toEnum 1 = CalendarDisplayOptionsShowHeading
toEnum 2 = CalendarDisplayOptionsShowDayNames
toEnum 4 = CalendarDisplayOptionsNoMonthChange
toEnum 8 = CalendarDisplayOptionsShowWeekNumbers
toEnum 32 = CalendarDisplayOptionsShowDetails
toEnum k = AnotherCalendarDisplayOptions k
foreign import ccall "gtk_calendar_display_options_get_type" c_gtk_calendar_display_options_get_type ::
IO GType
instance BoxedEnum CalendarDisplayOptions where
boxedEnumType _ = c_gtk_calendar_display_options_get_type
instance IsGFlag CalendarDisplayOptions
data AttachOptions =
AttachOptionsExpand
| AttachOptionsShrink
| AttachOptionsFill
| AnotherAttachOptions Int
deriving (Show, Eq)
instance Enum AttachOptions where
fromEnum AttachOptionsExpand = 1
fromEnum AttachOptionsShrink = 2
fromEnum AttachOptionsFill = 4
fromEnum (AnotherAttachOptions k) = k
toEnum 1 = AttachOptionsExpand
toEnum 2 = AttachOptionsShrink
toEnum 4 = AttachOptionsFill
toEnum k = AnotherAttachOptions k
foreign import ccall "gtk_attach_options_get_type" c_gtk_attach_options_get_type ::
IO GType
instance BoxedEnum AttachOptions where
boxedEnumType _ = c_gtk_attach_options_get_type
instance IsGFlag AttachOptions
data ApplicationInhibitFlags =
ApplicationInhibitFlagsLogout
| ApplicationInhibitFlagsSwitch
| ApplicationInhibitFlagsSuspend
| ApplicationInhibitFlagsIdle
| AnotherApplicationInhibitFlags Int
deriving (Show, Eq)
instance Enum ApplicationInhibitFlags where
fromEnum ApplicationInhibitFlagsLogout = 1
fromEnum ApplicationInhibitFlagsSwitch = 2
fromEnum ApplicationInhibitFlagsSuspend = 4
fromEnum ApplicationInhibitFlagsIdle = 8
fromEnum (AnotherApplicationInhibitFlags k) = k
toEnum 1 = ApplicationInhibitFlagsLogout
toEnum 2 = ApplicationInhibitFlagsSwitch
toEnum 4 = ApplicationInhibitFlagsSuspend
toEnum 8 = ApplicationInhibitFlagsIdle
toEnum k = AnotherApplicationInhibitFlags k
foreign import ccall "gtk_application_inhibit_flags_get_type" c_gtk_application_inhibit_flags_get_type ::
IO GType
instance BoxedEnum ApplicationInhibitFlags where
boxedEnumType _ = c_gtk_application_inhibit_flags_get_type
instance IsGFlag ApplicationInhibitFlags
data AccelFlags =
AccelFlagsVisible
| AccelFlagsLocked
| AccelFlagsMask
| AnotherAccelFlags Int
deriving (Show, Eq)
instance Enum AccelFlags where
fromEnum AccelFlagsVisible = 1
fromEnum AccelFlagsLocked = 2
fromEnum AccelFlagsMask = 7
fromEnum (AnotherAccelFlags k) = k
toEnum 1 = AccelFlagsVisible
toEnum 2 = AccelFlagsLocked
toEnum 7 = AccelFlagsMask
toEnum k = AnotherAccelFlags k
foreign import ccall "gtk_accel_flags_get_type" c_gtk_accel_flags_get_type ::
IO GType
instance BoxedEnum AccelFlags where
boxedEnumType _ = c_gtk_accel_flags_get_type
instance IsGFlag AccelFlags