module GI.Gtk.Objects.Expander
(
Expander(..) ,
ExpanderK ,
toExpander ,
noExpander ,
expanderGetExpanded ,
expanderGetLabel ,
expanderGetLabelFill ,
expanderGetLabelWidget ,
expanderGetResizeToplevel ,
expanderGetSpacing ,
expanderGetUseMarkup ,
expanderGetUseUnderline ,
expanderNew ,
expanderNewWithMnemonic ,
expanderSetExpanded ,
expanderSetLabel ,
expanderSetLabelFill ,
expanderSetLabelWidget ,
expanderSetResizeToplevel ,
expanderSetSpacing ,
expanderSetUseMarkup ,
expanderSetUseUnderline ,
ExpanderExpandedPropertyInfo ,
constructExpanderExpanded ,
getExpanderExpanded ,
setExpanderExpanded ,
ExpanderLabelPropertyInfo ,
constructExpanderLabel ,
getExpanderLabel ,
setExpanderLabel ,
ExpanderLabelFillPropertyInfo ,
constructExpanderLabelFill ,
getExpanderLabelFill ,
setExpanderLabelFill ,
ExpanderLabelWidgetPropertyInfo ,
constructExpanderLabelWidget ,
getExpanderLabelWidget ,
setExpanderLabelWidget ,
ExpanderResizeToplevelPropertyInfo ,
constructExpanderResizeToplevel ,
getExpanderResizeToplevel ,
setExpanderResizeToplevel ,
ExpanderSpacingPropertyInfo ,
constructExpanderSpacing ,
getExpanderSpacing ,
setExpanderSpacing ,
ExpanderUseMarkupPropertyInfo ,
constructExpanderUseMarkup ,
getExpanderUseMarkup ,
setExpanderUseMarkup ,
ExpanderUseUnderlinePropertyInfo ,
constructExpanderUseUnderline ,
getExpanderUseUnderline ,
setExpanderUseUnderline ,
ExpanderActivateCallback ,
ExpanderActivateCallbackC ,
ExpanderActivateSignalInfo ,
afterExpanderActivate ,
expanderActivateCallbackWrapper ,
expanderActivateClosure ,
mkExpanderActivateCallback ,
noExpanderActivateCallback ,
onExpanderActivate ,
) 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
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
newtype Expander = Expander (ForeignPtr Expander)
foreign import ccall "gtk_expander_get_type"
c_gtk_expander_get_type :: IO GType
type instance ParentTypes Expander = ExpanderParentTypes
type ExpanderParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Expander where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_expander_get_type
class GObject o => ExpanderK o
instance (GObject o, IsDescendantOf Expander o) => ExpanderK o
toExpander :: ExpanderK o => o -> IO Expander
toExpander = unsafeCastTo Expander
noExpander :: Maybe Expander
noExpander = Nothing
type ExpanderActivateCallback =
IO ()
noExpanderActivateCallback :: Maybe ExpanderActivateCallback
noExpanderActivateCallback = Nothing
type ExpanderActivateCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkExpanderActivateCallback :: ExpanderActivateCallbackC -> IO (FunPtr ExpanderActivateCallbackC)
expanderActivateClosure :: ExpanderActivateCallback -> IO Closure
expanderActivateClosure cb = newCClosure =<< mkExpanderActivateCallback wrapped
where wrapped = expanderActivateCallbackWrapper cb
expanderActivateCallbackWrapper ::
ExpanderActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
expanderActivateCallbackWrapper _cb _ _ = do
_cb
onExpanderActivate :: (GObject a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId
onExpanderActivate obj cb = liftIO $ connectExpanderActivate obj cb SignalConnectBefore
afterExpanderActivate :: (GObject a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId
afterExpanderActivate obj cb = connectExpanderActivate obj cb SignalConnectAfter
connectExpanderActivate :: (GObject a, MonadIO m) =>
a -> ExpanderActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectExpanderActivate obj cb after = liftIO $ do
cb' <- mkExpanderActivateCallback (expanderActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
getExpanderExpanded :: (MonadIO m, ExpanderK o) => o -> m Bool
getExpanderExpanded obj = liftIO $ getObjectPropertyBool obj "expanded"
setExpanderExpanded :: (MonadIO m, ExpanderK o) => o -> Bool -> m ()
setExpanderExpanded obj val = liftIO $ setObjectPropertyBool obj "expanded" val
constructExpanderExpanded :: Bool -> IO ([Char], GValue)
constructExpanderExpanded val = constructObjectPropertyBool "expanded" val
data ExpanderExpandedPropertyInfo
instance AttrInfo ExpanderExpandedPropertyInfo where
type AttrAllowedOps ExpanderExpandedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderExpandedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ExpanderExpandedPropertyInfo = ExpanderK
type AttrGetType ExpanderExpandedPropertyInfo = Bool
type AttrLabel ExpanderExpandedPropertyInfo = "Expander::expanded"
attrGet _ = getExpanderExpanded
attrSet _ = setExpanderExpanded
attrConstruct _ = constructExpanderExpanded
getExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m T.Text
getExpanderLabel obj = liftIO $ getObjectPropertyString obj "label"
setExpanderLabel :: (MonadIO m, ExpanderK o) => o -> T.Text -> m ()
setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" val
constructExpanderLabel :: T.Text -> IO ([Char], GValue)
constructExpanderLabel val = constructObjectPropertyString "label" val
data ExpanderLabelPropertyInfo
instance AttrInfo ExpanderLabelPropertyInfo where
type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK
type AttrGetType ExpanderLabelPropertyInfo = T.Text
type AttrLabel ExpanderLabelPropertyInfo = "Expander::label"
attrGet _ = getExpanderLabel
attrSet _ = setExpanderLabel
attrConstruct _ = constructExpanderLabel
getExpanderLabelFill :: (MonadIO m, ExpanderK o) => o -> m Bool
getExpanderLabelFill obj = liftIO $ getObjectPropertyBool obj "label-fill"
setExpanderLabelFill :: (MonadIO m, ExpanderK o) => o -> Bool -> m ()
setExpanderLabelFill obj val = liftIO $ setObjectPropertyBool obj "label-fill" val
constructExpanderLabelFill :: Bool -> IO ([Char], GValue)
constructExpanderLabelFill val = constructObjectPropertyBool "label-fill" val
data ExpanderLabelFillPropertyInfo
instance AttrInfo ExpanderLabelFillPropertyInfo where
type AttrAllowedOps ExpanderLabelFillPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderLabelFillPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ExpanderLabelFillPropertyInfo = ExpanderK
type AttrGetType ExpanderLabelFillPropertyInfo = Bool
type AttrLabel ExpanderLabelFillPropertyInfo = "Expander::label-fill"
attrGet _ = getExpanderLabelFill
attrSet _ = setExpanderLabelFill
attrConstruct _ = constructExpanderLabelFill
getExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m Widget
getExpanderLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget
setExpanderLabelWidget :: (MonadIO m, ExpanderK o, WidgetK a) => o -> a -> m ()
setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val
constructExpanderLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue)
constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" val
data ExpanderLabelWidgetPropertyInfo
instance AttrInfo ExpanderLabelWidgetPropertyInfo where
type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK
type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK
type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget
type AttrLabel ExpanderLabelWidgetPropertyInfo = "Expander::label-widget"
attrGet _ = getExpanderLabelWidget
attrSet _ = setExpanderLabelWidget
attrConstruct _ = constructExpanderLabelWidget
getExpanderResizeToplevel :: (MonadIO m, ExpanderK o) => o -> m Bool
getExpanderResizeToplevel obj = liftIO $ getObjectPropertyBool obj "resize-toplevel"
setExpanderResizeToplevel :: (MonadIO m, ExpanderK o) => o -> Bool -> m ()
setExpanderResizeToplevel obj val = liftIO $ setObjectPropertyBool obj "resize-toplevel" val
constructExpanderResizeToplevel :: Bool -> IO ([Char], GValue)
constructExpanderResizeToplevel val = constructObjectPropertyBool "resize-toplevel" val
data ExpanderResizeToplevelPropertyInfo
instance AttrInfo ExpanderResizeToplevelPropertyInfo where
type AttrAllowedOps ExpanderResizeToplevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderResizeToplevelPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ExpanderResizeToplevelPropertyInfo = ExpanderK
type AttrGetType ExpanderResizeToplevelPropertyInfo = Bool
type AttrLabel ExpanderResizeToplevelPropertyInfo = "Expander::resize-toplevel"
attrGet _ = getExpanderResizeToplevel
attrSet _ = setExpanderResizeToplevel
attrConstruct _ = constructExpanderResizeToplevel
getExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> m Int32
getExpanderSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"
setExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> Int32 -> m ()
setExpanderSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val
constructExpanderSpacing :: Int32 -> IO ([Char], GValue)
constructExpanderSpacing val = constructObjectPropertyCInt "spacing" val
data ExpanderSpacingPropertyInfo
instance AttrInfo ExpanderSpacingPropertyInfo where
type AttrAllowedOps ExpanderSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ExpanderSpacingPropertyInfo = ExpanderK
type AttrGetType ExpanderSpacingPropertyInfo = Int32
type AttrLabel ExpanderSpacingPropertyInfo = "Expander::spacing"
attrGet _ = getExpanderSpacing
attrSet _ = setExpanderSpacing
attrConstruct _ = constructExpanderSpacing
getExpanderUseMarkup :: (MonadIO m, ExpanderK o) => o -> m Bool
getExpanderUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup"
setExpanderUseMarkup :: (MonadIO m, ExpanderK o) => o -> Bool -> m ()
setExpanderUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val
constructExpanderUseMarkup :: Bool -> IO ([Char], GValue)
constructExpanderUseMarkup val = constructObjectPropertyBool "use-markup" val
data ExpanderUseMarkupPropertyInfo
instance AttrInfo ExpanderUseMarkupPropertyInfo where
type AttrAllowedOps ExpanderUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderUseMarkupPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ExpanderUseMarkupPropertyInfo = ExpanderK
type AttrGetType ExpanderUseMarkupPropertyInfo = Bool
type AttrLabel ExpanderUseMarkupPropertyInfo = "Expander::use-markup"
attrGet _ = getExpanderUseMarkup
attrSet _ = setExpanderUseMarkup
attrConstruct _ = constructExpanderUseMarkup
getExpanderUseUnderline :: (MonadIO m, ExpanderK o) => o -> m Bool
getExpanderUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline"
setExpanderUseUnderline :: (MonadIO m, ExpanderK o) => o -> Bool -> m ()
setExpanderUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val
constructExpanderUseUnderline :: Bool -> IO ([Char], GValue)
constructExpanderUseUnderline val = constructObjectPropertyBool "use-underline" val
data ExpanderUseUnderlinePropertyInfo
instance AttrInfo ExpanderUseUnderlinePropertyInfo where
type AttrAllowedOps ExpanderUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ExpanderUseUnderlinePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ExpanderUseUnderlinePropertyInfo = ExpanderK
type AttrGetType ExpanderUseUnderlinePropertyInfo = Bool
type AttrLabel ExpanderUseUnderlinePropertyInfo = "Expander::use-underline"
attrGet _ = getExpanderUseUnderline
attrSet _ = setExpanderUseUnderline
attrConstruct _ = constructExpanderUseUnderline
type instance AttributeList Expander = ExpanderAttributeList
type ExpanderAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("label-fill", ExpanderLabelFillPropertyInfo), '("label-widget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("resize-toplevel", ExpanderResizeToplevelPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-markup", ExpanderUseMarkupPropertyInfo), '("use-underline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data ExpanderActivateSignalInfo
instance SignalInfo ExpanderActivateSignalInfo where
type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback
connectSignal _ = connectExpanderActivate
type instance SignalList Expander = ExpanderSignalList
type ExpanderSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_expander_new" gtk_expander_new ::
CString ->
IO (Ptr Expander)
expanderNew ::
(MonadIO m) =>
T.Text ->
m Expander
expanderNew label = liftIO $ do
label' <- textToCString label
result <- gtk_expander_new label'
checkUnexpectedReturnNULL "gtk_expander_new" result
result' <- (newObject Expander) result
freeMem label'
return result'
foreign import ccall "gtk_expander_new_with_mnemonic" gtk_expander_new_with_mnemonic ::
CString ->
IO (Ptr Expander)
expanderNewWithMnemonic ::
(MonadIO m) =>
Maybe (T.Text) ->
m Expander
expanderNewWithMnemonic label = liftIO $ do
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
result <- gtk_expander_new_with_mnemonic maybeLabel
checkUnexpectedReturnNULL "gtk_expander_new_with_mnemonic" result
result' <- (newObject Expander) result
freeMem maybeLabel
return result'
foreign import ccall "gtk_expander_get_expanded" gtk_expander_get_expanded ::
Ptr Expander ->
IO CInt
expanderGetExpanded ::
(MonadIO m, ExpanderK a) =>
a ->
m Bool
expanderGetExpanded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_expanded _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_get_label" gtk_expander_get_label ::
Ptr Expander ->
IO CString
expanderGetLabel ::
(MonadIO m, ExpanderK a) =>
a ->
m T.Text
expanderGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_label _obj'
checkUnexpectedReturnNULL "gtk_expander_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_get_label_fill" gtk_expander_get_label_fill ::
Ptr Expander ->
IO CInt
expanderGetLabelFill ::
(MonadIO m, ExpanderK a) =>
a ->
m Bool
expanderGetLabelFill _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_label_fill _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_get_label_widget" gtk_expander_get_label_widget ::
Ptr Expander ->
IO (Ptr Widget)
expanderGetLabelWidget ::
(MonadIO m, ExpanderK a) =>
a ->
m Widget
expanderGetLabelWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_label_widget _obj'
checkUnexpectedReturnNULL "gtk_expander_get_label_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_get_resize_toplevel" gtk_expander_get_resize_toplevel ::
Ptr Expander ->
IO CInt
expanderGetResizeToplevel ::
(MonadIO m, ExpanderK a) =>
a ->
m Bool
expanderGetResizeToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_resize_toplevel _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_get_spacing" gtk_expander_get_spacing ::
Ptr Expander ->
IO Int32
expanderGetSpacing ::
(MonadIO m, ExpanderK a) =>
a ->
m Int32
expanderGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_spacing _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_expander_get_use_markup" gtk_expander_get_use_markup ::
Ptr Expander ->
IO CInt
expanderGetUseMarkup ::
(MonadIO m, ExpanderK a) =>
a ->
m Bool
expanderGetUseMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_use_markup _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_get_use_underline" gtk_expander_get_use_underline ::
Ptr Expander ->
IO CInt
expanderGetUseUnderline ::
(MonadIO m, ExpanderK a) =>
a ->
m Bool
expanderGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_expander_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_expander_set_expanded" gtk_expander_set_expanded ::
Ptr Expander ->
CInt ->
IO ()
expanderSetExpanded ::
(MonadIO m, ExpanderK a) =>
a ->
Bool ->
m ()
expanderSetExpanded _obj expanded = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expanded' = (fromIntegral . fromEnum) expanded
gtk_expander_set_expanded _obj' expanded'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_expander_set_label" gtk_expander_set_label ::
Ptr Expander ->
CString ->
IO ()
expanderSetLabel ::
(MonadIO m, ExpanderK a) =>
a ->
Maybe (T.Text) ->
m ()
expanderSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_expander_set_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
foreign import ccall "gtk_expander_set_label_fill" gtk_expander_set_label_fill ::
Ptr Expander ->
CInt ->
IO ()
expanderSetLabelFill ::
(MonadIO m, ExpanderK a) =>
a ->
Bool ->
m ()
expanderSetLabelFill _obj label_fill = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let label_fill' = (fromIntegral . fromEnum) label_fill
gtk_expander_set_label_fill _obj' label_fill'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_expander_set_label_widget" gtk_expander_set_label_widget ::
Ptr Expander ->
Ptr Widget ->
IO ()
expanderSetLabelWidget ::
(MonadIO m, ExpanderK a, WidgetK b) =>
a ->
Maybe (b) ->
m ()
expanderSetLabelWidget _obj label_widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel_widget <- case label_widget of
Nothing -> return nullPtr
Just jLabel_widget -> do
let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget
return jLabel_widget'
gtk_expander_set_label_widget _obj' maybeLabel_widget
touchManagedPtr _obj
whenJust label_widget touchManagedPtr
return ()
foreign import ccall "gtk_expander_set_resize_toplevel" gtk_expander_set_resize_toplevel ::
Ptr Expander ->
CInt ->
IO ()
expanderSetResizeToplevel ::
(MonadIO m, ExpanderK a) =>
a ->
Bool ->
m ()
expanderSetResizeToplevel _obj resize_toplevel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resize_toplevel' = (fromIntegral . fromEnum) resize_toplevel
gtk_expander_set_resize_toplevel _obj' resize_toplevel'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_expander_set_spacing" gtk_expander_set_spacing ::
Ptr Expander ->
Int32 ->
IO ()
expanderSetSpacing ::
(MonadIO m, ExpanderK a) =>
a ->
Int32 ->
m ()
expanderSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_expander_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
foreign import ccall "gtk_expander_set_use_markup" gtk_expander_set_use_markup ::
Ptr Expander ->
CInt ->
IO ()
expanderSetUseMarkup ::
(MonadIO m, ExpanderK a) =>
a ->
Bool ->
m ()
expanderSetUseMarkup _obj use_markup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_markup' = (fromIntegral . fromEnum) use_markup
gtk_expander_set_use_markup _obj' use_markup'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_expander_set_use_underline" gtk_expander_set_use_underline ::
Ptr Expander ->
CInt ->
IO ()
expanderSetUseUnderline ::
(MonadIO m, ExpanderK a) =>
a ->
Bool ->
m ()
expanderSetUseUnderline _obj use_underline = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let use_underline' = (fromIntegral . fromEnum) use_underline
gtk_expander_set_use_underline _obj' use_underline'
touchManagedPtr _obj
return ()