module GI.Gtk.Objects.Label
(
Label(..) ,
LabelK ,
toLabel ,
noLabel ,
labelGetAngle ,
labelGetAttributes ,
labelGetCurrentUri ,
labelGetEllipsize ,
labelGetJustify ,
labelGetLabel ,
labelGetLayout ,
labelGetLayoutOffsets ,
labelGetLineWrap ,
labelGetLineWrapMode ,
labelGetLines ,
labelGetMaxWidthChars ,
labelGetMnemonicKeyval ,
labelGetMnemonicWidget ,
labelGetSelectable ,
labelGetSelectionBounds ,
labelGetSingleLineMode ,
labelGetText ,
labelGetTrackVisitedLinks ,
labelGetUseMarkup ,
labelGetUseUnderline ,
labelGetWidthChars ,
labelGetXalign ,
labelGetYalign ,
labelNew ,
labelNewWithMnemonic ,
labelSelectRegion ,
labelSetAngle ,
labelSetAttributes ,
labelSetEllipsize ,
labelSetJustify ,
labelSetLabel ,
labelSetLineWrap ,
labelSetLineWrapMode ,
labelSetLines ,
labelSetMarkup ,
labelSetMarkupWithMnemonic ,
labelSetMaxWidthChars ,
labelSetMnemonicWidget ,
labelSetPattern ,
labelSetSelectable ,
labelSetSingleLineMode ,
labelSetText ,
labelSetTextWithMnemonic ,
labelSetTrackVisitedLinks ,
labelSetUseMarkup ,
labelSetUseUnderline ,
labelSetWidthChars ,
labelSetXalign ,
labelSetYalign ,
LabelAnglePropertyInfo ,
constructLabelAngle ,
getLabelAngle ,
setLabelAngle ,
LabelAttributesPropertyInfo ,
constructLabelAttributes ,
getLabelAttributes ,
setLabelAttributes ,
LabelCursorPositionPropertyInfo ,
getLabelCursorPosition ,
LabelEllipsizePropertyInfo ,
constructLabelEllipsize ,
getLabelEllipsize ,
setLabelEllipsize ,
LabelJustifyPropertyInfo ,
constructLabelJustify ,
getLabelJustify ,
setLabelJustify ,
LabelLabelPropertyInfo ,
constructLabelLabel ,
getLabelLabel ,
setLabelLabel ,
LabelLinesPropertyInfo ,
constructLabelLines ,
getLabelLines ,
setLabelLines ,
LabelMaxWidthCharsPropertyInfo ,
constructLabelMaxWidthChars ,
getLabelMaxWidthChars ,
setLabelMaxWidthChars ,
LabelMnemonicKeyvalPropertyInfo ,
getLabelMnemonicKeyval ,
LabelMnemonicWidgetPropertyInfo ,
constructLabelMnemonicWidget ,
getLabelMnemonicWidget ,
setLabelMnemonicWidget ,
LabelPatternPropertyInfo ,
constructLabelPattern ,
setLabelPattern ,
LabelSelectablePropertyInfo ,
constructLabelSelectable ,
getLabelSelectable ,
setLabelSelectable ,
LabelSelectionBoundPropertyInfo ,
getLabelSelectionBound ,
LabelSingleLineModePropertyInfo ,
constructLabelSingleLineMode ,
getLabelSingleLineMode ,
setLabelSingleLineMode ,
LabelTrackVisitedLinksPropertyInfo ,
constructLabelTrackVisitedLinks ,
getLabelTrackVisitedLinks ,
setLabelTrackVisitedLinks ,
LabelUseMarkupPropertyInfo ,
constructLabelUseMarkup ,
getLabelUseMarkup ,
setLabelUseMarkup ,
LabelUseUnderlinePropertyInfo ,
constructLabelUseUnderline ,
getLabelUseUnderline ,
setLabelUseUnderline ,
LabelWidthCharsPropertyInfo ,
constructLabelWidthChars ,
getLabelWidthChars ,
setLabelWidthChars ,
LabelWrapPropertyInfo ,
constructLabelWrap ,
getLabelWrap ,
setLabelWrap ,
LabelWrapModePropertyInfo ,
constructLabelWrapMode ,
getLabelWrapMode ,
setLabelWrapMode ,
LabelXalignPropertyInfo ,
constructLabelXalign ,
getLabelXalign ,
setLabelXalign ,
LabelYalignPropertyInfo ,
constructLabelYalign ,
getLabelYalign ,
setLabelYalign ,
LabelActivateCurrentLinkCallback ,
LabelActivateCurrentLinkCallbackC ,
LabelActivateCurrentLinkSignalInfo ,
afterLabelActivateCurrentLink ,
labelActivateCurrentLinkCallbackWrapper ,
labelActivateCurrentLinkClosure ,
mkLabelActivateCurrentLinkCallback ,
noLabelActivateCurrentLinkCallback ,
onLabelActivateCurrentLink ,
LabelActivateLinkCallback ,
LabelActivateLinkCallbackC ,
LabelActivateLinkSignalInfo ,
afterLabelActivateLink ,
labelActivateLinkCallbackWrapper ,
labelActivateLinkClosure ,
mkLabelActivateLinkCallback ,
noLabelActivateLinkCallback ,
onLabelActivateLink ,
LabelCopyClipboardCallback ,
LabelCopyClipboardCallbackC ,
LabelCopyClipboardSignalInfo ,
afterLabelCopyClipboard ,
labelCopyClipboardCallbackWrapper ,
labelCopyClipboardClosure ,
mkLabelCopyClipboardCallback ,
noLabelCopyClipboardCallback ,
onLabelCopyClipboard ,
LabelMoveCursorCallback ,
LabelMoveCursorCallbackC ,
LabelMoveCursorSignalInfo ,
afterLabelMoveCursor ,
labelMoveCursorCallbackWrapper ,
labelMoveCursorClosure ,
mkLabelMoveCursorCallback ,
noLabelMoveCursorCallback ,
onLabelMoveCursor ,
LabelPopulatePopupCallback ,
LabelPopulatePopupCallbackC ,
LabelPopulatePopupSignalInfo ,
afterLabelPopulatePopup ,
labelPopulatePopupCallbackWrapper ,
labelPopulatePopupClosure ,
mkLabelPopulatePopupCallback ,
noLabelPopulatePopupCallback ,
onLabelPopulatePopup ,
) 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
import qualified GI.Pango as Pango
newtype Label = Label (ForeignPtr Label)
foreign import ccall "gtk_label_get_type"
c_gtk_label_get_type :: IO GType
type instance ParentTypes Label = LabelParentTypes
type LabelParentTypes = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Label where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_label_get_type
class GObject o => LabelK o
instance (GObject o, IsDescendantOf Label o) => LabelK o
toLabel :: LabelK o => o -> IO Label
toLabel = unsafeCastTo Label
noLabel :: Maybe Label
noLabel = Nothing
type LabelActivateCurrentLinkCallback =
IO ()
noLabelActivateCurrentLinkCallback :: Maybe LabelActivateCurrentLinkCallback
noLabelActivateCurrentLinkCallback = Nothing
type LabelActivateCurrentLinkCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkLabelActivateCurrentLinkCallback :: LabelActivateCurrentLinkCallbackC -> IO (FunPtr LabelActivateCurrentLinkCallbackC)
labelActivateCurrentLinkClosure :: LabelActivateCurrentLinkCallback -> IO Closure
labelActivateCurrentLinkClosure cb = newCClosure =<< mkLabelActivateCurrentLinkCallback wrapped
where wrapped = labelActivateCurrentLinkCallbackWrapper cb
labelActivateCurrentLinkCallbackWrapper ::
LabelActivateCurrentLinkCallback ->
Ptr () ->
Ptr () ->
IO ()
labelActivateCurrentLinkCallbackWrapper _cb _ _ = do
_cb
onLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId
onLabelActivateCurrentLink obj cb = liftIO $ connectLabelActivateCurrentLink obj cb SignalConnectBefore
afterLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId
afterLabelActivateCurrentLink obj cb = connectLabelActivateCurrentLink obj cb SignalConnectAfter
connectLabelActivateCurrentLink :: (GObject a, MonadIO m) =>
a -> LabelActivateCurrentLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelActivateCurrentLink obj cb after = liftIO $ do
cb' <- mkLabelActivateCurrentLinkCallback (labelActivateCurrentLinkCallbackWrapper cb)
connectSignalFunPtr obj "activate-current-link" cb' after
type LabelActivateLinkCallback =
T.Text ->
IO Bool
noLabelActivateLinkCallback :: Maybe LabelActivateLinkCallback
noLabelActivateLinkCallback = Nothing
type LabelActivateLinkCallbackC =
Ptr () ->
CString ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkLabelActivateLinkCallback :: LabelActivateLinkCallbackC -> IO (FunPtr LabelActivateLinkCallbackC)
labelActivateLinkClosure :: LabelActivateLinkCallback -> IO Closure
labelActivateLinkClosure cb = newCClosure =<< mkLabelActivateLinkCallback wrapped
where wrapped = labelActivateLinkCallbackWrapper cb
labelActivateLinkCallbackWrapper ::
LabelActivateLinkCallback ->
Ptr () ->
CString ->
Ptr () ->
IO CInt
labelActivateLinkCallbackWrapper _cb _ uri _ = do
uri' <- cstringToText uri
result <- _cb uri'
let result' = (fromIntegral . fromEnum) result
return result'
onLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId
onLabelActivateLink obj cb = liftIO $ connectLabelActivateLink obj cb SignalConnectBefore
afterLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId
afterLabelActivateLink obj cb = connectLabelActivateLink obj cb SignalConnectAfter
connectLabelActivateLink :: (GObject a, MonadIO m) =>
a -> LabelActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelActivateLink obj cb after = liftIO $ do
cb' <- mkLabelActivateLinkCallback (labelActivateLinkCallbackWrapper cb)
connectSignalFunPtr obj "activate-link" cb' after
type LabelCopyClipboardCallback =
IO ()
noLabelCopyClipboardCallback :: Maybe LabelCopyClipboardCallback
noLabelCopyClipboardCallback = Nothing
type LabelCopyClipboardCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkLabelCopyClipboardCallback :: LabelCopyClipboardCallbackC -> IO (FunPtr LabelCopyClipboardCallbackC)
labelCopyClipboardClosure :: LabelCopyClipboardCallback -> IO Closure
labelCopyClipboardClosure cb = newCClosure =<< mkLabelCopyClipboardCallback wrapped
where wrapped = labelCopyClipboardCallbackWrapper cb
labelCopyClipboardCallbackWrapper ::
LabelCopyClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
labelCopyClipboardCallbackWrapper _cb _ _ = do
_cb
onLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId
onLabelCopyClipboard obj cb = liftIO $ connectLabelCopyClipboard obj cb SignalConnectBefore
afterLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId
afterLabelCopyClipboard obj cb = connectLabelCopyClipboard obj cb SignalConnectAfter
connectLabelCopyClipboard :: (GObject a, MonadIO m) =>
a -> LabelCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelCopyClipboard obj cb after = liftIO $ do
cb' <- mkLabelCopyClipboardCallback (labelCopyClipboardCallbackWrapper cb)
connectSignalFunPtr obj "copy-clipboard" cb' after
type LabelMoveCursorCallback =
MovementStep ->
Int32 ->
Bool ->
IO ()
noLabelMoveCursorCallback :: Maybe LabelMoveCursorCallback
noLabelMoveCursorCallback = Nothing
type LabelMoveCursorCallbackC =
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkLabelMoveCursorCallback :: LabelMoveCursorCallbackC -> IO (FunPtr LabelMoveCursorCallbackC)
labelMoveCursorClosure :: LabelMoveCursorCallback -> IO Closure
labelMoveCursorClosure cb = newCClosure =<< mkLabelMoveCursorCallback wrapped
where wrapped = labelMoveCursorCallbackWrapper cb
labelMoveCursorCallbackWrapper ::
LabelMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
labelMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do
let step' = (toEnum . fromIntegral) step
let extend_selection' = (/= 0) extend_selection
_cb step' count extend_selection'
onLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId
onLabelMoveCursor obj cb = liftIO $ connectLabelMoveCursor obj cb SignalConnectBefore
afterLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId
afterLabelMoveCursor obj cb = connectLabelMoveCursor obj cb SignalConnectAfter
connectLabelMoveCursor :: (GObject a, MonadIO m) =>
a -> LabelMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelMoveCursor obj cb after = liftIO $ do
cb' <- mkLabelMoveCursorCallback (labelMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
type LabelPopulatePopupCallback =
Menu ->
IO ()
noLabelPopulatePopupCallback :: Maybe LabelPopulatePopupCallback
noLabelPopulatePopupCallback = Nothing
type LabelPopulatePopupCallbackC =
Ptr () ->
Ptr Menu ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkLabelPopulatePopupCallback :: LabelPopulatePopupCallbackC -> IO (FunPtr LabelPopulatePopupCallbackC)
labelPopulatePopupClosure :: LabelPopulatePopupCallback -> IO Closure
labelPopulatePopupClosure cb = newCClosure =<< mkLabelPopulatePopupCallback wrapped
where wrapped = labelPopulatePopupCallbackWrapper cb
labelPopulatePopupCallbackWrapper ::
LabelPopulatePopupCallback ->
Ptr () ->
Ptr Menu ->
Ptr () ->
IO ()
labelPopulatePopupCallbackWrapper _cb _ menu _ = do
menu' <- (newObject Menu) menu
_cb menu'
onLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId
onLabelPopulatePopup obj cb = liftIO $ connectLabelPopulatePopup obj cb SignalConnectBefore
afterLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId
afterLabelPopulatePopup obj cb = connectLabelPopulatePopup obj cb SignalConnectAfter
connectLabelPopulatePopup :: (GObject a, MonadIO m) =>
a -> LabelPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectLabelPopulatePopup obj cb after = liftIO $ do
cb' <- mkLabelPopulatePopupCallback (labelPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
getLabelAngle :: (MonadIO m, LabelK o) => o -> m Double
getLabelAngle obj = liftIO $ getObjectPropertyDouble obj "angle"
setLabelAngle :: (MonadIO m, LabelK o) => o -> Double -> m ()
setLabelAngle obj val = liftIO $ setObjectPropertyDouble obj "angle" val
constructLabelAngle :: Double -> IO ([Char], GValue)
constructLabelAngle val = constructObjectPropertyDouble "angle" val
data LabelAnglePropertyInfo
instance AttrInfo LabelAnglePropertyInfo where
type AttrAllowedOps LabelAnglePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelAnglePropertyInfo = (~) Double
type AttrBaseTypeConstraint LabelAnglePropertyInfo = LabelK
type AttrGetType LabelAnglePropertyInfo = Double
type AttrLabel LabelAnglePropertyInfo = "Label::angle"
attrGet _ = getLabelAngle
attrSet _ = setLabelAngle
attrConstruct _ = constructLabelAngle
getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList
getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList
setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m ()
setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val
constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue)
constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val
data LabelAttributesPropertyInfo
instance AttrInfo LabelAttributesPropertyInfo where
type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList
type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK
type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList
type AttrLabel LabelAttributesPropertyInfo = "Label::attributes"
attrGet _ = getLabelAttributes
attrSet _ = setLabelAttributes
attrConstruct _ = constructLabelAttributes
getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32
getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position"
data LabelCursorPositionPropertyInfo
instance AttrInfo LabelCursorPositionPropertyInfo where
type AttrAllowedOps LabelCursorPositionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint LabelCursorPositionPropertyInfo = (~) ()
type AttrBaseTypeConstraint LabelCursorPositionPropertyInfo = LabelK
type AttrGetType LabelCursorPositionPropertyInfo = Int32
type AttrLabel LabelCursorPositionPropertyInfo = "Label::cursor-position"
attrGet _ = getLabelCursorPosition
attrSet _ = undefined
attrConstruct _ = undefined
getLabelEllipsize :: (MonadIO m, LabelK o) => o -> m Pango.EllipsizeMode
getLabelEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize"
setLabelEllipsize :: (MonadIO m, LabelK o) => o -> Pango.EllipsizeMode -> m ()
setLabelEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val
constructLabelEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue)
constructLabelEllipsize val = constructObjectPropertyEnum "ellipsize" val
data LabelEllipsizePropertyInfo
instance AttrInfo LabelEllipsizePropertyInfo where
type AttrAllowedOps LabelEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelEllipsizePropertyInfo = (~) Pango.EllipsizeMode
type AttrBaseTypeConstraint LabelEllipsizePropertyInfo = LabelK
type AttrGetType LabelEllipsizePropertyInfo = Pango.EllipsizeMode
type AttrLabel LabelEllipsizePropertyInfo = "Label::ellipsize"
attrGet _ = getLabelEllipsize
attrSet _ = setLabelEllipsize
attrConstruct _ = constructLabelEllipsize
getLabelJustify :: (MonadIO m, LabelK o) => o -> m Justification
getLabelJustify obj = liftIO $ getObjectPropertyEnum obj "justify"
setLabelJustify :: (MonadIO m, LabelK o) => o -> Justification -> m ()
setLabelJustify obj val = liftIO $ setObjectPropertyEnum obj "justify" val
constructLabelJustify :: Justification -> IO ([Char], GValue)
constructLabelJustify val = constructObjectPropertyEnum "justify" val
data LabelJustifyPropertyInfo
instance AttrInfo LabelJustifyPropertyInfo where
type AttrAllowedOps LabelJustifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelJustifyPropertyInfo = (~) Justification
type AttrBaseTypeConstraint LabelJustifyPropertyInfo = LabelK
type AttrGetType LabelJustifyPropertyInfo = Justification
type AttrLabel LabelJustifyPropertyInfo = "Label::justify"
attrGet _ = getLabelJustify
attrSet _ = setLabelJustify
attrConstruct _ = constructLabelJustify
getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text
getLabelLabel obj = liftIO $ getObjectPropertyString obj "label"
setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m ()
setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val
constructLabelLabel :: T.Text -> IO ([Char], GValue)
constructLabelLabel val = constructObjectPropertyString "label" val
data LabelLabelPropertyInfo
instance AttrInfo LabelLabelPropertyInfo where
type AttrAllowedOps LabelLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint LabelLabelPropertyInfo = LabelK
type AttrGetType LabelLabelPropertyInfo = T.Text
type AttrLabel LabelLabelPropertyInfo = "Label::label"
attrGet _ = getLabelLabel
attrSet _ = setLabelLabel
attrConstruct _ = constructLabelLabel
getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32
getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines"
setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m ()
setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val
constructLabelLines :: Int32 -> IO ([Char], GValue)
constructLabelLines val = constructObjectPropertyCInt "lines" val
data LabelLinesPropertyInfo
instance AttrInfo LabelLinesPropertyInfo where
type AttrAllowedOps LabelLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelLinesPropertyInfo = (~) Int32
type AttrBaseTypeConstraint LabelLinesPropertyInfo = LabelK
type AttrGetType LabelLinesPropertyInfo = Int32
type AttrLabel LabelLinesPropertyInfo = "Label::lines"
attrGet _ = getLabelLines
attrSet _ = setLabelLines
attrConstruct _ = constructLabelLines
getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32
getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars"
setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m ()
setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val
constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue)
constructLabelMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val
data LabelMaxWidthCharsPropertyInfo
instance AttrInfo LabelMaxWidthCharsPropertyInfo where
type AttrAllowedOps LabelMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelMaxWidthCharsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint LabelMaxWidthCharsPropertyInfo = LabelK
type AttrGetType LabelMaxWidthCharsPropertyInfo = Int32
type AttrLabel LabelMaxWidthCharsPropertyInfo = "Label::max-width-chars"
attrGet _ = getLabelMaxWidthChars
attrSet _ = setLabelMaxWidthChars
attrConstruct _ = constructLabelMaxWidthChars
getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32
getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt obj "mnemonic-keyval"
data LabelMnemonicKeyvalPropertyInfo
instance AttrInfo LabelMnemonicKeyvalPropertyInfo where
type AttrAllowedOps LabelMnemonicKeyvalPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint LabelMnemonicKeyvalPropertyInfo = (~) ()
type AttrBaseTypeConstraint LabelMnemonicKeyvalPropertyInfo = LabelK
type AttrGetType LabelMnemonicKeyvalPropertyInfo = Word32
type AttrLabel LabelMnemonicKeyvalPropertyInfo = "Label::mnemonic-keyval"
attrGet _ = getLabelMnemonicKeyval
attrSet _ = undefined
attrConstruct _ = undefined
getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget
getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget
setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m ()
setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val
constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue)
constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val
data LabelMnemonicWidgetPropertyInfo
instance AttrInfo LabelMnemonicWidgetPropertyInfo where
type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK
type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK
type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget
type AttrLabel LabelMnemonicWidgetPropertyInfo = "Label::mnemonic-widget"
attrGet _ = getLabelMnemonicWidget
attrSet _ = setLabelMnemonicWidget
attrConstruct _ = constructLabelMnemonicWidget
setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m ()
setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val
constructLabelPattern :: T.Text -> IO ([Char], GValue)
constructLabelPattern val = constructObjectPropertyString "pattern" val
data LabelPatternPropertyInfo
instance AttrInfo LabelPatternPropertyInfo where
type AttrAllowedOps LabelPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint LabelPatternPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint LabelPatternPropertyInfo = LabelK
type AttrGetType LabelPatternPropertyInfo = ()
type AttrLabel LabelPatternPropertyInfo = "Label::pattern"
attrGet _ = undefined
attrSet _ = setLabelPattern
attrConstruct _ = constructLabelPattern
getLabelSelectable :: (MonadIO m, LabelK o) => o -> m Bool
getLabelSelectable obj = liftIO $ getObjectPropertyBool obj "selectable"
setLabelSelectable :: (MonadIO m, LabelK o) => o -> Bool -> m ()
setLabelSelectable obj val = liftIO $ setObjectPropertyBool obj "selectable" val
constructLabelSelectable :: Bool -> IO ([Char], GValue)
constructLabelSelectable val = constructObjectPropertyBool "selectable" val
data LabelSelectablePropertyInfo
instance AttrInfo LabelSelectablePropertyInfo where
type AttrAllowedOps LabelSelectablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelSelectablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint LabelSelectablePropertyInfo = LabelK
type AttrGetType LabelSelectablePropertyInfo = Bool
type AttrLabel LabelSelectablePropertyInfo = "Label::selectable"
attrGet _ = getLabelSelectable
attrSet _ = setLabelSelectable
attrConstruct _ = constructLabelSelectable
getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32
getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound"
data LabelSelectionBoundPropertyInfo
instance AttrInfo LabelSelectionBoundPropertyInfo where
type AttrAllowedOps LabelSelectionBoundPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint LabelSelectionBoundPropertyInfo = (~) ()
type AttrBaseTypeConstraint LabelSelectionBoundPropertyInfo = LabelK
type AttrGetType LabelSelectionBoundPropertyInfo = Int32
type AttrLabel LabelSelectionBoundPropertyInfo = "Label::selection-bound"
attrGet _ = getLabelSelectionBound
attrSet _ = undefined
attrConstruct _ = undefined
getLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> m Bool
getLabelSingleLineMode obj = liftIO $ getObjectPropertyBool obj "single-line-mode"
setLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> Bool -> m ()
setLabelSingleLineMode obj val = liftIO $ setObjectPropertyBool obj "single-line-mode" val
constructLabelSingleLineMode :: Bool -> IO ([Char], GValue)
constructLabelSingleLineMode val = constructObjectPropertyBool "single-line-mode" val
data LabelSingleLineModePropertyInfo
instance AttrInfo LabelSingleLineModePropertyInfo where
type AttrAllowedOps LabelSingleLineModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelSingleLineModePropertyInfo = (~) Bool
type AttrBaseTypeConstraint LabelSingleLineModePropertyInfo = LabelK
type AttrGetType LabelSingleLineModePropertyInfo = Bool
type AttrLabel LabelSingleLineModePropertyInfo = "Label::single-line-mode"
attrGet _ = getLabelSingleLineMode
attrSet _ = setLabelSingleLineMode
attrConstruct _ = constructLabelSingleLineMode
getLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> m Bool
getLabelTrackVisitedLinks obj = liftIO $ getObjectPropertyBool obj "track-visited-links"
setLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> Bool -> m ()
setLabelTrackVisitedLinks obj val = liftIO $ setObjectPropertyBool obj "track-visited-links" val
constructLabelTrackVisitedLinks :: Bool -> IO ([Char], GValue)
constructLabelTrackVisitedLinks val = constructObjectPropertyBool "track-visited-links" val
data LabelTrackVisitedLinksPropertyInfo
instance AttrInfo LabelTrackVisitedLinksPropertyInfo where
type AttrAllowedOps LabelTrackVisitedLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelTrackVisitedLinksPropertyInfo = (~) Bool
type AttrBaseTypeConstraint LabelTrackVisitedLinksPropertyInfo = LabelK
type AttrGetType LabelTrackVisitedLinksPropertyInfo = Bool
type AttrLabel LabelTrackVisitedLinksPropertyInfo = "Label::track-visited-links"
attrGet _ = getLabelTrackVisitedLinks
attrSet _ = setLabelTrackVisitedLinks
attrConstruct _ = constructLabelTrackVisitedLinks
getLabelUseMarkup :: (MonadIO m, LabelK o) => o -> m Bool
getLabelUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup"
setLabelUseMarkup :: (MonadIO m, LabelK o) => o -> Bool -> m ()
setLabelUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val
constructLabelUseMarkup :: Bool -> IO ([Char], GValue)
constructLabelUseMarkup val = constructObjectPropertyBool "use-markup" val
data LabelUseMarkupPropertyInfo
instance AttrInfo LabelUseMarkupPropertyInfo where
type AttrAllowedOps LabelUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelUseMarkupPropertyInfo = (~) Bool
type AttrBaseTypeConstraint LabelUseMarkupPropertyInfo = LabelK
type AttrGetType LabelUseMarkupPropertyInfo = Bool
type AttrLabel LabelUseMarkupPropertyInfo = "Label::use-markup"
attrGet _ = getLabelUseMarkup
attrSet _ = setLabelUseMarkup
attrConstruct _ = constructLabelUseMarkup
getLabelUseUnderline :: (MonadIO m, LabelK o) => o -> m Bool
getLabelUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline"
setLabelUseUnderline :: (MonadIO m, LabelK o) => o -> Bool -> m ()
setLabelUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val
constructLabelUseUnderline :: Bool -> IO ([Char], GValue)
constructLabelUseUnderline val = constructObjectPropertyBool "use-underline" val
data LabelUseUnderlinePropertyInfo
instance AttrInfo LabelUseUnderlinePropertyInfo where
type AttrAllowedOps LabelUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelUseUnderlinePropertyInfo = (~) Bool
type AttrBaseTypeConstraint LabelUseUnderlinePropertyInfo = LabelK
type AttrGetType LabelUseUnderlinePropertyInfo = Bool
type AttrLabel LabelUseUnderlinePropertyInfo = "Label::use-underline"
attrGet _ = getLabelUseUnderline
attrSet _ = setLabelUseUnderline
attrConstruct _ = constructLabelUseUnderline
getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32
getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars"
setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m ()
setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val
constructLabelWidthChars :: Int32 -> IO ([Char], GValue)
constructLabelWidthChars val = constructObjectPropertyCInt "width-chars" val
data LabelWidthCharsPropertyInfo
instance AttrInfo LabelWidthCharsPropertyInfo where
type AttrAllowedOps LabelWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelWidthCharsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint LabelWidthCharsPropertyInfo = LabelK
type AttrGetType LabelWidthCharsPropertyInfo = Int32
type AttrLabel LabelWidthCharsPropertyInfo = "Label::width-chars"
attrGet _ = getLabelWidthChars
attrSet _ = setLabelWidthChars
attrConstruct _ = constructLabelWidthChars
getLabelWrap :: (MonadIO m, LabelK o) => o -> m Bool
getLabelWrap obj = liftIO $ getObjectPropertyBool obj "wrap"
setLabelWrap :: (MonadIO m, LabelK o) => o -> Bool -> m ()
setLabelWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val
constructLabelWrap :: Bool -> IO ([Char], GValue)
constructLabelWrap val = constructObjectPropertyBool "wrap" val
data LabelWrapPropertyInfo
instance AttrInfo LabelWrapPropertyInfo where
type AttrAllowedOps LabelWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelWrapPropertyInfo = (~) Bool
type AttrBaseTypeConstraint LabelWrapPropertyInfo = LabelK
type AttrGetType LabelWrapPropertyInfo = Bool
type AttrLabel LabelWrapPropertyInfo = "Label::wrap"
attrGet _ = getLabelWrap
attrSet _ = setLabelWrap
attrConstruct _ = constructLabelWrap
getLabelWrapMode :: (MonadIO m, LabelK o) => o -> m Pango.WrapMode
getLabelWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode"
setLabelWrapMode :: (MonadIO m, LabelK o) => o -> Pango.WrapMode -> m ()
setLabelWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val
constructLabelWrapMode :: Pango.WrapMode -> IO ([Char], GValue)
constructLabelWrapMode val = constructObjectPropertyEnum "wrap-mode" val
data LabelWrapModePropertyInfo
instance AttrInfo LabelWrapModePropertyInfo where
type AttrAllowedOps LabelWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelWrapModePropertyInfo = (~) Pango.WrapMode
type AttrBaseTypeConstraint LabelWrapModePropertyInfo = LabelK
type AttrGetType LabelWrapModePropertyInfo = Pango.WrapMode
type AttrLabel LabelWrapModePropertyInfo = "Label::wrap-mode"
attrGet _ = getLabelWrapMode
attrSet _ = setLabelWrapMode
attrConstruct _ = constructLabelWrapMode
getLabelXalign :: (MonadIO m, LabelK o) => o -> m Float
getLabelXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"
setLabelXalign :: (MonadIO m, LabelK o) => o -> Float -> m ()
setLabelXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val
constructLabelXalign :: Float -> IO ([Char], GValue)
constructLabelXalign val = constructObjectPropertyFloat "xalign" val
data LabelXalignPropertyInfo
instance AttrInfo LabelXalignPropertyInfo where
type AttrAllowedOps LabelXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelXalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint LabelXalignPropertyInfo = LabelK
type AttrGetType LabelXalignPropertyInfo = Float
type AttrLabel LabelXalignPropertyInfo = "Label::xalign"
attrGet _ = getLabelXalign
attrSet _ = setLabelXalign
attrConstruct _ = constructLabelXalign
getLabelYalign :: (MonadIO m, LabelK o) => o -> m Float
getLabelYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"
setLabelYalign :: (MonadIO m, LabelK o) => o -> Float -> m ()
setLabelYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val
constructLabelYalign :: Float -> IO ([Char], GValue)
constructLabelYalign val = constructObjectPropertyFloat "yalign" val
data LabelYalignPropertyInfo
instance AttrInfo LabelYalignPropertyInfo where
type AttrAllowedOps LabelYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint LabelYalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint LabelYalignPropertyInfo = LabelK
type AttrGetType LabelYalignPropertyInfo = Float
type AttrLabel LabelYalignPropertyInfo = "Label::yalign"
attrGet _ = getLabelYalign
attrSet _ = setLabelYalign
attrConstruct _ = constructLabelYalign
type instance AttributeList Label = LabelAttributeList
type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)])
data LabelActivateCurrentLinkSignalInfo
instance SignalInfo LabelActivateCurrentLinkSignalInfo where
type HaskellCallbackType LabelActivateCurrentLinkSignalInfo = LabelActivateCurrentLinkCallback
connectSignal _ = connectLabelActivateCurrentLink
data LabelActivateLinkSignalInfo
instance SignalInfo LabelActivateLinkSignalInfo where
type HaskellCallbackType LabelActivateLinkSignalInfo = LabelActivateLinkCallback
connectSignal _ = connectLabelActivateLink
data LabelCopyClipboardSignalInfo
instance SignalInfo LabelCopyClipboardSignalInfo where
type HaskellCallbackType LabelCopyClipboardSignalInfo = LabelCopyClipboardCallback
connectSignal _ = connectLabelCopyClipboard
data LabelMoveCursorSignalInfo
instance SignalInfo LabelMoveCursorSignalInfo where
type HaskellCallbackType LabelMoveCursorSignalInfo = LabelMoveCursorCallback
connectSignal _ = connectLabelMoveCursor
data LabelPopulatePopupSignalInfo
instance SignalInfo LabelPopulatePopupSignalInfo where
type HaskellCallbackType LabelPopulatePopupSignalInfo = LabelPopulatePopupCallback
connectSignal _ = connectLabelPopulatePopup
type instance SignalList Label = LabelSignalList
type LabelSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("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-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("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_label_new" gtk_label_new ::
CString ->
IO (Ptr Label)
labelNew ::
(MonadIO m) =>
Maybe (T.Text) ->
m Label
labelNew str = liftIO $ do
maybeStr <- case str of
Nothing -> return nullPtr
Just jStr -> do
jStr' <- textToCString jStr
return jStr'
result <- gtk_label_new maybeStr
checkUnexpectedReturnNULL "gtk_label_new" result
result' <- (newObject Label) result
freeMem maybeStr
return result'
foreign import ccall "gtk_label_new_with_mnemonic" gtk_label_new_with_mnemonic ::
CString ->
IO (Ptr Label)
labelNewWithMnemonic ::
(MonadIO m) =>
Maybe (T.Text) ->
m Label
labelNewWithMnemonic str = liftIO $ do
maybeStr <- case str of
Nothing -> return nullPtr
Just jStr -> do
jStr' <- textToCString jStr
return jStr'
result <- gtk_label_new_with_mnemonic maybeStr
checkUnexpectedReturnNULL "gtk_label_new_with_mnemonic" result
result' <- (newObject Label) result
freeMem maybeStr
return result'
foreign import ccall "gtk_label_get_angle" gtk_label_get_angle ::
Ptr Label ->
IO CDouble
labelGetAngle ::
(MonadIO m, LabelK a) =>
a ->
m Double
labelGetAngle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_angle _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_attributes" gtk_label_get_attributes ::
Ptr Label ->
IO (Ptr Pango.AttrList)
labelGetAttributes ::
(MonadIO m, LabelK a) =>
a ->
m Pango.AttrList
labelGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_attributes _obj'
checkUnexpectedReturnNULL "gtk_label_get_attributes" result
result' <- (newBoxed Pango.AttrList) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_current_uri" gtk_label_get_current_uri ::
Ptr Label ->
IO CString
labelGetCurrentUri ::
(MonadIO m, LabelK a) =>
a ->
m T.Text
labelGetCurrentUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_current_uri _obj'
checkUnexpectedReturnNULL "gtk_label_get_current_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_ellipsize" gtk_label_get_ellipsize ::
Ptr Label ->
IO CUInt
labelGetEllipsize ::
(MonadIO m, LabelK a) =>
a ->
m Pango.EllipsizeMode
labelGetEllipsize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_ellipsize _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_justify" gtk_label_get_justify ::
Ptr Label ->
IO CUInt
labelGetJustify ::
(MonadIO m, LabelK a) =>
a ->
m Justification
labelGetJustify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_justify _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_label" gtk_label_get_label ::
Ptr Label ->
IO CString
labelGetLabel ::
(MonadIO m, LabelK a) =>
a ->
m T.Text
labelGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_label _obj'
checkUnexpectedReturnNULL "gtk_label_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_layout" gtk_label_get_layout ::
Ptr Label ->
IO (Ptr Pango.Layout)
labelGetLayout ::
(MonadIO m, LabelK a) =>
a ->
m Pango.Layout
labelGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_layout _obj'
checkUnexpectedReturnNULL "gtk_label_get_layout" result
result' <- (newObject Pango.Layout) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets ::
Ptr Label ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
labelGetLayoutOffsets ::
(MonadIO m, LabelK a) =>
a ->
m (Int32,Int32)
labelGetLayoutOffsets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_label_get_layout_offsets _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
foreign import ccall "gtk_label_get_line_wrap" gtk_label_get_line_wrap ::
Ptr Label ->
IO CInt
labelGetLineWrap ::
(MonadIO m, LabelK a) =>
a ->
m Bool
labelGetLineWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_line_wrap _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_line_wrap_mode" gtk_label_get_line_wrap_mode ::
Ptr Label ->
IO CUInt
labelGetLineWrapMode ::
(MonadIO m, LabelK a) =>
a ->
m Pango.WrapMode
labelGetLineWrapMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_line_wrap_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_lines" gtk_label_get_lines ::
Ptr Label ->
IO Int32
labelGetLines ::
(MonadIO m, LabelK a) =>
a ->
m Int32
labelGetLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_lines _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_label_get_max_width_chars" gtk_label_get_max_width_chars ::
Ptr Label ->
IO Int32
labelGetMaxWidthChars ::
(MonadIO m, LabelK a) =>
a ->
m Int32
labelGetMaxWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_max_width_chars _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_label_get_mnemonic_keyval" gtk_label_get_mnemonic_keyval ::
Ptr Label ->
IO Word32
labelGetMnemonicKeyval ::
(MonadIO m, LabelK a) =>
a ->
m Word32
labelGetMnemonicKeyval _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_mnemonic_keyval _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_label_get_mnemonic_widget" gtk_label_get_mnemonic_widget ::
Ptr Label ->
IO (Ptr Widget)
labelGetMnemonicWidget ::
(MonadIO m, LabelK a) =>
a ->
m Widget
labelGetMnemonicWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_mnemonic_widget _obj'
checkUnexpectedReturnNULL "gtk_label_get_mnemonic_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_selectable" gtk_label_get_selectable ::
Ptr Label ->
IO CInt
labelGetSelectable ::
(MonadIO m, LabelK a) =>
a ->
m Bool
labelGetSelectable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_selectable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds ::
Ptr Label ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
labelGetSelectionBounds ::
(MonadIO m, LabelK a) =>
a ->
m (Bool,Int32,Int32)
labelGetSelectionBounds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
start <- allocMem :: IO (Ptr Int32)
end <- allocMem :: IO (Ptr Int32)
result <- gtk_label_get_selection_bounds _obj' start end
let result' = (/= 0) result
start' <- peek start
end' <- peek end
touchManagedPtr _obj
freeMem start
freeMem end
return (result', start', end')
foreign import ccall "gtk_label_get_single_line_mode" gtk_label_get_single_line_mode ::
Ptr Label ->
IO CInt
labelGetSingleLineMode ::
(MonadIO m, LabelK a) =>
a ->
m Bool
labelGetSingleLineMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_single_line_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_text" gtk_label_get_text ::
Ptr Label ->
IO CString
labelGetText ::
(MonadIO m, LabelK a) =>
a ->
m T.Text
labelGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_text _obj'
checkUnexpectedReturnNULL "gtk_label_get_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_track_visited_links" gtk_label_get_track_visited_links ::
Ptr Label ->
IO CInt
labelGetTrackVisitedLinks ::
(MonadIO m, LabelK a) =>
a ->
m Bool
labelGetTrackVisitedLinks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_track_visited_links _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_use_markup" gtk_label_get_use_markup ::
Ptr Label ->
IO CInt
labelGetUseMarkup ::
(MonadIO m, LabelK a) =>
a ->
m Bool
labelGetUseMarkup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_use_markup _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_use_underline" gtk_label_get_use_underline ::
Ptr Label ->
IO CInt
labelGetUseUnderline ::
(MonadIO m, LabelK a) =>
a ->
m Bool
labelGetUseUnderline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_use_underline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_width_chars" gtk_label_get_width_chars ::
Ptr Label ->
IO Int32
labelGetWidthChars ::
(MonadIO m, LabelK a) =>
a ->
m Int32
labelGetWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_width_chars _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_label_get_xalign" gtk_label_get_xalign ::
Ptr Label ->
IO CFloat
labelGetXalign ::
(MonadIO m, LabelK a) =>
a ->
m Float
labelGetXalign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_xalign _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_get_yalign" gtk_label_get_yalign ::
Ptr Label ->
IO CFloat
labelGetYalign ::
(MonadIO m, LabelK a) =>
a ->
m Float
labelGetYalign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_label_get_yalign _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_label_select_region" gtk_label_select_region ::
Ptr Label ->
Int32 ->
Int32 ->
IO ()
labelSelectRegion ::
(MonadIO m, LabelK a) =>
a ->
Int32 ->
Int32 ->
m ()
labelSelectRegion _obj start_offset end_offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_select_region _obj' start_offset end_offset
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_angle" gtk_label_set_angle ::
Ptr Label ->
CDouble ->
IO ()
labelSetAngle ::
(MonadIO m, LabelK a) =>
a ->
Double ->
m ()
labelSetAngle _obj angle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let angle' = realToFrac angle
gtk_label_set_angle _obj' angle'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_attributes" gtk_label_set_attributes ::
Ptr Label ->
Ptr Pango.AttrList ->
IO ()
labelSetAttributes ::
(MonadIO m, LabelK a) =>
a ->
Maybe (Pango.AttrList) ->
m ()
labelSetAttributes _obj attrs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAttrs <- case attrs of
Nothing -> return nullPtr
Just jAttrs -> do
let jAttrs' = unsafeManagedPtrGetPtr jAttrs
return jAttrs'
gtk_label_set_attributes _obj' maybeAttrs
touchManagedPtr _obj
whenJust attrs touchManagedPtr
return ()
foreign import ccall "gtk_label_set_ellipsize" gtk_label_set_ellipsize ::
Ptr Label ->
CUInt ->
IO ()
labelSetEllipsize ::
(MonadIO m, LabelK a) =>
a ->
Pango.EllipsizeMode ->
m ()
labelSetEllipsize _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gtk_label_set_ellipsize _obj' mode'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_justify" gtk_label_set_justify ::
Ptr Label ->
CUInt ->
IO ()
labelSetJustify ::
(MonadIO m, LabelK a) =>
a ->
Justification ->
m ()
labelSetJustify _obj jtype = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let jtype' = (fromIntegral . fromEnum) jtype
gtk_label_set_justify _obj' jtype'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_label" gtk_label_set_label ::
Ptr Label ->
CString ->
IO ()
labelSetLabel ::
(MonadIO m, LabelK a) =>
a ->
T.Text ->
m ()
labelSetLabel _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_label _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
foreign import ccall "gtk_label_set_line_wrap" gtk_label_set_line_wrap ::
Ptr Label ->
CInt ->
IO ()
labelSetLineWrap ::
(MonadIO m, LabelK a) =>
a ->
Bool ->
m ()
labelSetLineWrap _obj wrap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap' = (fromIntegral . fromEnum) wrap
gtk_label_set_line_wrap _obj' wrap'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_line_wrap_mode" gtk_label_set_line_wrap_mode ::
Ptr Label ->
CUInt ->
IO ()
labelSetLineWrapMode ::
(MonadIO m, LabelK a) =>
a ->
Pango.WrapMode ->
m ()
labelSetLineWrapMode _obj wrap_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wrap_mode' = (fromIntegral . fromEnum) wrap_mode
gtk_label_set_line_wrap_mode _obj' wrap_mode'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_lines" gtk_label_set_lines ::
Ptr Label ->
Int32 ->
IO ()
labelSetLines ::
(MonadIO m, LabelK a) =>
a ->
Int32 ->
m ()
labelSetLines _obj lines = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_set_lines _obj' lines
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_markup" gtk_label_set_markup ::
Ptr Label ->
CString ->
IO ()
labelSetMarkup ::
(MonadIO m, LabelK a) =>
a ->
T.Text ->
m ()
labelSetMarkup _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_markup _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
foreign import ccall "gtk_label_set_markup_with_mnemonic" gtk_label_set_markup_with_mnemonic ::
Ptr Label ->
CString ->
IO ()
labelSetMarkupWithMnemonic ::
(MonadIO m, LabelK a) =>
a ->
T.Text ->
m ()
labelSetMarkupWithMnemonic _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_markup_with_mnemonic _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars ::
Ptr Label ->
Int32 ->
IO ()
labelSetMaxWidthChars ::
(MonadIO m, LabelK a) =>
a ->
Int32 ->
m ()
labelSetMaxWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_set_max_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_mnemonic_widget" gtk_label_set_mnemonic_widget ::
Ptr Label ->
Ptr Widget ->
IO ()
labelSetMnemonicWidget ::
(MonadIO m, LabelK a, WidgetK b) =>
a ->
Maybe (b) ->
m ()
labelSetMnemonicWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_label_set_mnemonic_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
foreign import ccall "gtk_label_set_pattern" gtk_label_set_pattern ::
Ptr Label ->
CString ->
IO ()
labelSetPattern ::
(MonadIO m, LabelK a) =>
a ->
T.Text ->
m ()
labelSetPattern _obj pattern = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
pattern' <- textToCString pattern
gtk_label_set_pattern _obj' pattern'
touchManagedPtr _obj
freeMem pattern'
return ()
foreign import ccall "gtk_label_set_selectable" gtk_label_set_selectable ::
Ptr Label ->
CInt ->
IO ()
labelSetSelectable ::
(MonadIO m, LabelK a) =>
a ->
Bool ->
m ()
labelSetSelectable _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_label_set_selectable _obj' setting'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_single_line_mode" gtk_label_set_single_line_mode ::
Ptr Label ->
CInt ->
IO ()
labelSetSingleLineMode ::
(MonadIO m, LabelK a) =>
a ->
Bool ->
m ()
labelSetSingleLineMode _obj single_line_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let single_line_mode' = (fromIntegral . fromEnum) single_line_mode
gtk_label_set_single_line_mode _obj' single_line_mode'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_text" gtk_label_set_text ::
Ptr Label ->
CString ->
IO ()
labelSetText ::
(MonadIO m, LabelK a) =>
a ->
T.Text ->
m ()
labelSetText _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_text _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
foreign import ccall "gtk_label_set_text_with_mnemonic" gtk_label_set_text_with_mnemonic ::
Ptr Label ->
CString ->
IO ()
labelSetTextWithMnemonic ::
(MonadIO m, LabelK a) =>
a ->
T.Text ->
m ()
labelSetTextWithMnemonic _obj str = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
str' <- textToCString str
gtk_label_set_text_with_mnemonic _obj' str'
touchManagedPtr _obj
freeMem str'
return ()
foreign import ccall "gtk_label_set_track_visited_links" gtk_label_set_track_visited_links ::
Ptr Label ->
CInt ->
IO ()
labelSetTrackVisitedLinks ::
(MonadIO m, LabelK a) =>
a ->
Bool ->
m ()
labelSetTrackVisitedLinks _obj track_links = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let track_links' = (fromIntegral . fromEnum) track_links
gtk_label_set_track_visited_links _obj' track_links'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_use_markup" gtk_label_set_use_markup ::
Ptr Label ->
CInt ->
IO ()
labelSetUseMarkup ::
(MonadIO m, LabelK a) =>
a ->
Bool ->
m ()
labelSetUseMarkup _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_label_set_use_markup _obj' setting'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_use_underline" gtk_label_set_use_underline ::
Ptr Label ->
CInt ->
IO ()
labelSetUseUnderline ::
(MonadIO m, LabelK a) =>
a ->
Bool ->
m ()
labelSetUseUnderline _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_label_set_use_underline _obj' setting'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars ::
Ptr Label ->
Int32 ->
IO ()
labelSetWidthChars ::
(MonadIO m, LabelK a) =>
a ->
Int32 ->
m ()
labelSetWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_label_set_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_xalign" gtk_label_set_xalign ::
Ptr Label ->
CFloat ->
IO ()
labelSetXalign ::
(MonadIO m, LabelK a) =>
a ->
Float ->
m ()
labelSetXalign _obj xalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
gtk_label_set_xalign _obj' xalign'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_label_set_yalign" gtk_label_set_yalign ::
Ptr Label ->
CFloat ->
IO ()
labelSetYalign ::
(MonadIO m, LabelK a) =>
a ->
Float ->
m ()
labelSetYalign _obj yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let yalign' = realToFrac yalign
gtk_label_set_yalign _obj' yalign'
touchManagedPtr _obj
return ()