{-# LINE 2 "./Graphics/UI/Gtk/Display/Label.chs" #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LINE 3 "./Graphics/UI/Gtk/Display/Label.chs" #-}
module Graphics.UI.Gtk.Display.Label (
Label,
LabelClass,
castToLabel, gTypeLabel,
toLabel,
labelNew,
labelNewWithMnemonic,
labelSetText,
labelSetLabel,
labelSetTextWithMnemonic,
labelSetMarkup,
labelSetMarkupWithMnemonic,
labelSetMnemonicWidget,
labelGetMnemonicWidget,
KeyVal,
labelGetMnemonicKeyval,
labelSetUseMarkup,
labelGetUseMarkup,
labelSetUseUnderline,
labelGetUseUnderline,
labelGetText,
labelGetLabel,
labelSetAttributes,
labelGetAttributes,
labelSetPattern,
Justification(..),
labelSetJustify,
labelGetJustify,
labelGetLayout,
labelSetLineWrap,
labelGetLineWrap,
labelSetLineWrapMode,
labelGetLineWrapMode,
labelSetSelectable,
labelGetSelectable,
labelSelectRegion,
labelGetSelectionBounds,
labelGetLayoutOffsets,
labelSetEllipsize,
labelGetEllipsize,
labelSetWidthChars,
labelGetWidthChars,
labelSetMaxWidthChars,
labelGetMaxWidthChars,
labelSetSingleLineMode,
labelGetSingleLineMode,
labelSetAngle,
labelGetAngle,
labelLabel,
labelUseMarkup,
labelUseUnderline,
labelJustify,
labelWrap,
labelWrapMode,
labelSelectable,
labelMnemonicWidget,
labelMnemonicKeyval,
labelPattern,
labelCursorPosition,
labelSelectionBound,
labelEllipsize,
labelWidthChars,
labelSingleLineMode,
labelAngle,
labelAttributes,
labelMaxWidthChars,
labelLineWrap,
labelText,
labelActiveCurrentLink,
labelActiveLink,
labelCopyClipboard,
labelMoveCursor,
labelPopulatePopup
) where
import Control.Monad (liftM)
import Data.Text (Text)
import qualified Data.Text as T (pack)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.Rendering.Pango.Layout
{-# LINE 211 "./Graphics/UI/Gtk/Display/Label.chs" #-}
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 213 "./Graphics/UI/Gtk/Display/Label.chs" #-}
import Graphics.Rendering.Pango.Attributes ( withAttrList, fromAttrList)
import Graphics.UI.Gtk.Gdk.Keys (KeyVal)
import Graphics.UI.Gtk.General.Enums (Justification(..), MovementStep (..))
import Graphics.Rendering.Pango.BasicTypes (PangoLayout(PangoLayout),
makeNewPangoString, PangoString(..) )
import Graphics.Rendering.Pango.Types (mkPangoLayoutRaw, PangoLayoutRaw)
import Graphics.Rendering.Pango.Enums (PangoAttribute)
import Data.IORef ( newIORef )
import Graphics.UI.Gtk.Signals
{-# LINE 222 "./Graphics/UI/Gtk/Display/Label.chs" #-}
{-# LINE 224 "./Graphics/UI/Gtk/Display/Label.chs" #-}
labelNew :: GlibString string => Maybe string -> IO Label
labelNew str =
makeNewObject mkLabel $
liftM (castPtr :: Ptr Widget -> Ptr Label) $
maybeWith withUTFString str $ \strPtr ->
gtk_label_new
{-# LINE 237 "./Graphics/UI/Gtk/Display/Label.chs" #-}
strPtr
labelNewWithMnemonic :: GlibString string
=> string
-> IO Label
labelNewWithMnemonic str =
makeNewObject mkLabel $
liftM (castPtr :: Ptr Widget -> Ptr Label) $
withUTFString str $ \strPtr ->
gtk_label_new_with_mnemonic
{-# LINE 262 "./Graphics/UI/Gtk/Display/Label.chs" #-}
strPtr
labelSetText :: (LabelClass self, GlibString string) => self -> string -> IO ()
labelSetText self str =
withUTFString str $ \strPtr ->
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_text argPtr1 arg2)
{-# LINE 276 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
strPtr
labelSetLabel :: (LabelClass self, GlibString string) => self -> string -> IO ()
labelSetLabel self str =
withUTFString str $ \strPtr ->
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_label argPtr1 arg2)
{-# LINE 287 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
strPtr
labelSetAttributes :: LabelClass self => self
-> [PangoAttribute]
-> IO ()
labelSetAttributes self attrs = do
(txt :: Text) <- labelGetText self
ps <- makeNewPangoString txt
withAttrList ps attrs $ \alPtr ->
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_attributes argPtr1 arg2) (toLabel self) alPtr
labelGetAttributes :: LabelClass self => self
-> IO [PangoAttribute]
labelGetAttributes self = do
(txt :: Text) <- labelGetText self
(PangoString correct _ _ ) <- makeNewPangoString txt
attrListPtr <- (\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_attributes argPtr1) (toLabel self)
attr <- fromAttrList correct attrListPtr
return $ concat attr
labelSetMarkup :: (LabelClass self, GlibString markup) => self
-> markup
-> IO ()
labelSetMarkup self str =
withUTFString str $ \strPtr ->
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_markup argPtr1 arg2)
{-# LINE 332 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
strPtr
labelSetMarkupWithMnemonic :: (LabelClass self, GlibString markup) => self
-> markup
-> IO ()
labelSetMarkupWithMnemonic self str =
withUTFString str $ \strPtr ->
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_markup_with_mnemonic argPtr1 arg2)
{-# LINE 350 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
strPtr
labelSetPattern :: LabelClass l => l -> [Int] -> IO ()
labelSetPattern self list =
withUTFString (T.pack str) $
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_pattern argPtr1 arg2)
{-# LINE 360 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
where
str = concat $ zipWith replicate list (cycle ['_',' '])
labelSetJustify :: LabelClass self => self -> Justification -> IO ()
labelSetJustify self jtype =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_justify argPtr1 arg2)
{-# LINE 373 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
((fromIntegral . fromEnum) jtype)
labelGetJustify :: LabelClass self => self -> IO Justification
labelGetJustify self =
liftM (toEnum . fromIntegral) $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_justify argPtr1)
{-# LINE 382 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetLayout :: LabelClass self => self -> IO PangoLayout
labelGetLayout self = do
plr <- makeNewGObject mkPangoLayoutRaw $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_layout argPtr1) (toLabel self)
(txt :: Text) <- labelGetText self
ps <- makeNewPangoString txt
psRef <- newIORef ps
return (PangoLayout psRef plr)
labelSetLineWrap :: LabelClass self => self
-> Bool
-> IO ()
labelSetLineWrap self wrap =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_line_wrap argPtr1 arg2)
{-# LINE 406 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromBool wrap)
labelGetLineWrap :: LabelClass self => self
-> IO Bool
labelGetLineWrap self =
liftM toBool $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_line_wrap argPtr1)
{-# LINE 418 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetLineWrapMode :: LabelClass self => self
-> LayoutWrapMode
-> IO ()
labelSetLineWrapMode self wrapMode =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_line_wrap_mode argPtr1 arg2)
{-# LINE 430 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromIntegral (fromEnum wrapMode))
labelGetLineWrapMode :: LabelClass self => self
-> IO LayoutWrapMode
labelGetLineWrapMode self = liftM (toEnum . fromIntegral) $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_line_wrap_mode argPtr1)
{-# LINE 441 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetLayoutOffsets :: LabelClass self => self -> IO (Int, Int)
labelGetLayoutOffsets self =
alloca $ \xPtr ->
alloca $ \yPtr -> do
(\(Label arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_layout_offsets argPtr1 arg2 arg3)
{-# LINE 455 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
xPtr
yPtr
x <- peek xPtr
y <- peek yPtr
return (fromIntegral x, fromIntegral y)
labelGetMnemonicKeyval :: LabelClass self => self -> IO KeyVal
labelGetMnemonicKeyval self =
liftM fromIntegral $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_mnemonic_keyval argPtr1)
{-# LINE 469 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetSelectable :: LabelClass self => self
-> IO Bool
labelGetSelectable self =
liftM toBool $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_selectable argPtr1)
{-# LINE 478 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetUseMarkup :: LabelClass self => self
-> Bool
-> IO ()
labelSetUseMarkup self setting =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_use_markup argPtr1 arg2)
{-# LINE 489 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromBool setting)
labelGetUseMarkup :: LabelClass self => self
-> IO Bool
labelGetUseMarkup self =
liftM toBool $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_use_markup argPtr1)
{-# LINE 500 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetUseUnderline :: LabelClass self => self -> Bool -> IO ()
labelSetUseUnderline self useUnderline =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_use_underline argPtr1 arg2)
{-# LINE 508 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromBool useUnderline)
labelGetUseUnderline :: LabelClass self => self -> IO Bool
labelGetUseUnderline self =
liftM toBool $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_use_underline argPtr1)
{-# LINE 518 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetText :: (LabelClass self, GlibString string) => self -> IO string
labelGetText self =
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_text argPtr1)
{-# LINE 527 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
>>= peekUTFString
labelGetLabel :: (LabelClass self, GlibString string) => self -> IO string
labelGetLabel self =
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_label argPtr1)
{-# LINE 536 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
>>= peekUTFString
labelSelectRegion :: LabelClass self => self
-> Int
-> Int
-> IO ()
labelSelectRegion self startOffset endOffset =
(\(Label arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_select_region argPtr1 arg2 arg3)
{-# LINE 550 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromIntegral startOffset)
(fromIntegral endOffset)
labelGetSelectionBounds :: LabelClass self => self
-> IO (Maybe (Int, Int))
labelGetSelectionBounds self =
alloca $ \startPtr ->
alloca $ \endPtr -> do
isSelection <-
liftM toBool $
(\(Label arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_selection_bounds argPtr1 arg2 arg3)
{-# LINE 566 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
startPtr
endPtr
if isSelection
then do start <- peek startPtr
end <- peek endPtr
return $ Just $ (fromIntegral start, fromIntegral end)
else return Nothing
labelSetMnemonicWidget :: (LabelClass self, WidgetClass widget) => self
-> widget
-> IO ()
labelSetMnemonicWidget self widget =
(\(Label arg1) (Widget arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->gtk_label_set_mnemonic_widget argPtr1 argPtr2)
{-# LINE 594 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(toWidget widget)
labelGetMnemonicWidget :: LabelClass self => self
-> IO (Maybe Widget)
labelGetMnemonicWidget self =
maybeNull (makeNewObject mkWidget) $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_mnemonic_widget argPtr1)
{-# LINE 607 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetSelectable :: LabelClass self => self
-> Bool
-> IO ()
labelSetSelectable self setting =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_selectable argPtr1 arg2)
{-# LINE 617 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromBool setting)
labelSetTextWithMnemonic :: (LabelClass self, GlibString string) => self -> string -> IO ()
labelSetTextWithMnemonic self str =
withUTFString str $ \strPtr ->
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_text_with_mnemonic argPtr1 arg2)
{-# LINE 630 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
strPtr
labelSetEllipsize :: LabelClass self => self
-> EllipsizeMode
-> IO ()
labelSetEllipsize self mode =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_ellipsize argPtr1 arg2)
{-# LINE 644 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
((fromIntegral . fromEnum) mode)
labelSetWidthChars :: LabelClass self => self
-> Int
-> IO ()
labelSetWidthChars self nChars =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_width_chars argPtr1 arg2)
{-# LINE 656 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromIntegral nChars)
labelSetMaxWidthChars :: LabelClass self => self
-> Int
-> IO ()
labelSetMaxWidthChars self nChars =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_max_width_chars argPtr1 arg2)
{-# LINE 668 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromIntegral nChars)
labelGetEllipsize :: LabelClass self => self
-> IO EllipsizeMode
labelGetEllipsize self =
liftM (toEnum . fromIntegral) $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_ellipsize argPtr1)
{-# LINE 680 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetWidthChars :: LabelClass self => self
-> IO Int
labelGetWidthChars self =
liftM fromIntegral $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_width_chars argPtr1)
{-# LINE 692 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetMaxWidthChars :: LabelClass self => self
-> IO Int
labelGetMaxWidthChars self =
liftM fromIntegral $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_max_width_chars argPtr1)
{-# LINE 704 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetSingleLineMode :: LabelClass self => self
-> IO Bool
labelGetSingleLineMode self =
liftM toBool $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_single_line_mode argPtr1)
{-# LINE 715 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetAngle :: LabelClass self => self
-> IO Double
labelGetAngle self =
liftM realToFrac $
(\(Label arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_get_angle argPtr1)
{-# LINE 726 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetSingleLineMode :: LabelClass self => self
-> Bool
-> IO ()
labelSetSingleLineMode self singleLineMode =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_single_line_mode argPtr1 arg2)
{-# LINE 738 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(fromBool singleLineMode)
labelSetAngle :: LabelClass self => self
-> Double
-> IO ()
labelSetAngle self angle =
(\(Label arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_label_set_angle argPtr1 arg2)
{-# LINE 753 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(realToFrac angle)
labelLabel :: (LabelClass self, GlibString string) => Attr self string
labelLabel = newAttr
labelGetLabel
labelSetLabel
labelUseMarkup :: LabelClass self => Attr self Bool
labelUseMarkup = newAttr
labelGetUseMarkup
labelSetUseMarkup
labelUseUnderline :: LabelClass self => Attr self Bool
labelUseUnderline = newAttr
labelGetUseUnderline
labelSetUseUnderline
labelJustify :: LabelClass self => Attr self Justification
labelJustify = newAttr
labelGetJustify
labelSetJustify
labelWrap :: LabelClass self => Attr self Bool
labelWrap = newAttrFromBoolProperty "wrap"
labelWrapMode :: LabelClass self => Attr self LayoutWrapMode
labelWrapMode = newAttrFromEnumProperty "wrap-mode"
gtk_label_get_type
{-# LINE 814 "./Graphics/UI/Gtk/Display/Label.chs" #-}
labelSelectable :: LabelClass self => Attr self Bool
labelSelectable = newAttr
labelGetSelectable
labelSetSelectable
labelMnemonicWidget :: (LabelClass self, WidgetClass widget) => ReadWriteAttr self (Maybe Widget) widget
labelMnemonicWidget = newAttr
labelGetMnemonicWidget
labelSetMnemonicWidget
labelMnemonicKeyval :: LabelClass self => ReadAttr self Int
labelMnemonicKeyval = readAttrFromIntProperty "mnemonic-keyval"
labelPattern :: (LabelClass self, GlibString string) => WriteAttr self string
labelPattern = writeAttrFromStringProperty "pattern"
labelCursorPosition :: LabelClass self => ReadAttr self Int
labelCursorPosition = readAttrFromIntProperty "cursor-position"
labelSelectionBound :: LabelClass self => ReadAttr self Int
labelSelectionBound = readAttrFromIntProperty "selection-bound"
labelEllipsize :: LabelClass self => Attr self EllipsizeMode
labelEllipsize = newAttr
labelGetEllipsize
labelSetEllipsize
labelWidthChars :: LabelClass self => Attr self Int
labelWidthChars = newAttr
labelGetWidthChars
labelSetWidthChars
labelSingleLineMode :: LabelClass self => Attr self Bool
labelSingleLineMode = newAttr
labelGetSingleLineMode
labelSetSingleLineMode
labelAngle :: LabelClass self => Attr self Double
labelAngle = newAttr
labelGetAngle
labelSetAngle
labelAttributes :: LabelClass self => Attr self [PangoAttribute]
labelAttributes = newAttr
labelGetAttributes
labelSetAttributes
labelMaxWidthChars :: LabelClass self => Attr self Int
labelMaxWidthChars = newAttr
labelGetMaxWidthChars
labelSetMaxWidthChars
labelLineWrap :: LabelClass self => Attr self Bool
labelLineWrap = newAttr
labelGetLineWrap
labelSetLineWrap
labelText :: (LabelClass self, GlibString string) => Attr self string
labelText = newAttr
labelGetText
labelSetText
labelActiveCurrentLink :: LabelClass self => Signal self (IO ())
labelActiveCurrentLink = Signal (connect_NONE__NONE "activate-current-link")
labelActiveLink :: (LabelClass self, GlibString string) => Signal self (string -> IO ())
labelActiveLink = Signal (connect_GLIBSTRING__NONE "activate-link")
labelCopyClipboard :: LabelClass self => Signal self (IO ())
labelCopyClipboard = Signal (connect_NONE__NONE "copy-clipboard")
labelMoveCursor :: LabelClass self => Signal self (MovementStep -> Int -> Bool -> IO ())
labelMoveCursor = Signal (connect_ENUM_INT_BOOL__NONE "move-cursor")
labelPopulatePopup :: LabelClass self=> Signal self (Menu -> IO ())
labelPopulatePopup = Signal (connect_OBJECT__NONE "populate-popup")
foreign import ccall safe "gtk_label_new"
gtk_label_new :: ((Ptr CChar) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_label_new_with_mnemonic"
gtk_label_new_with_mnemonic :: ((Ptr CChar) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_label_set_text"
gtk_label_set_text :: ((Ptr Label) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_label_set_label"
gtk_label_set_label :: ((Ptr Label) -> ((Ptr CChar) -> (IO ())))
foreign import ccall unsafe "gtk_label_set_attributes"
gtk_label_set_attributes :: ((Ptr Label) -> ((Ptr ()) -> (IO ())))
foreign import ccall unsafe "gtk_label_get_attributes"
gtk_label_get_attributes :: ((Ptr Label) -> (IO (Ptr ())))
foreign import ccall safe "gtk_label_set_markup"
gtk_label_set_markup :: ((Ptr Label) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_label_set_markup_with_mnemonic"
gtk_label_set_markup_with_mnemonic :: ((Ptr Label) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_label_set_pattern"
gtk_label_set_pattern :: ((Ptr Label) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_label_set_justify"
gtk_label_set_justify :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_label_get_justify"
gtk_label_get_justify :: ((Ptr Label) -> (IO CInt))
foreign import ccall unsafe "gtk_label_get_layout"
gtk_label_get_layout :: ((Ptr Label) -> (IO (Ptr PangoLayoutRaw)))
foreign import ccall safe "gtk_label_set_line_wrap"
gtk_label_set_line_wrap :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_label_get_line_wrap"
gtk_label_get_line_wrap :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_set_line_wrap_mode"
gtk_label_set_line_wrap_mode :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_label_get_line_wrap_mode"
gtk_label_get_line_wrap_mode :: ((Ptr Label) -> (IO CInt))
foreign import ccall unsafe "gtk_label_get_layout_offsets"
gtk_label_get_layout_offsets :: ((Ptr Label) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))
foreign import ccall unsafe "gtk_label_get_mnemonic_keyval"
gtk_label_get_mnemonic_keyval :: ((Ptr Label) -> (IO CUInt))
foreign import ccall unsafe "gtk_label_get_selectable"
gtk_label_get_selectable :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_set_use_markup"
gtk_label_set_use_markup :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_label_get_use_markup"
gtk_label_get_use_markup :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_set_use_underline"
gtk_label_set_use_underline :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_label_get_use_underline"
gtk_label_get_use_underline :: ((Ptr Label) -> (IO CInt))
foreign import ccall unsafe "gtk_label_get_text"
gtk_label_get_text :: ((Ptr Label) -> (IO (Ptr CChar)))
foreign import ccall unsafe "gtk_label_get_label"
gtk_label_get_label :: ((Ptr Label) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_label_select_region"
gtk_label_select_region :: ((Ptr Label) -> (CInt -> (CInt -> (IO ()))))
foreign import ccall unsafe "gtk_label_get_selection_bounds"
gtk_label_get_selection_bounds :: ((Ptr Label) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO CInt))))
foreign import ccall unsafe "gtk_label_set_mnemonic_widget"
gtk_label_set_mnemonic_widget :: ((Ptr Label) -> ((Ptr Widget) -> (IO ())))
foreign import ccall unsafe "gtk_label_get_mnemonic_widget"
gtk_label_get_mnemonic_widget :: ((Ptr Label) -> (IO (Ptr Widget)))
foreign import ccall unsafe "gtk_label_set_selectable"
gtk_label_set_selectable :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_label_set_text_with_mnemonic"
gtk_label_set_text_with_mnemonic :: ((Ptr Label) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_label_set_ellipsize"
gtk_label_set_ellipsize :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_label_set_width_chars"
gtk_label_set_width_chars :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_label_set_max_width_chars"
gtk_label_set_max_width_chars :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_label_get_ellipsize"
gtk_label_get_ellipsize :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_get_width_chars"
gtk_label_get_width_chars :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_get_max_width_chars"
gtk_label_get_max_width_chars :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_get_single_line_mode"
gtk_label_get_single_line_mode :: ((Ptr Label) -> (IO CInt))
foreign import ccall safe "gtk_label_get_angle"
gtk_label_get_angle :: ((Ptr Label) -> (IO CDouble))
foreign import ccall safe "gtk_label_set_single_line_mode"
gtk_label_set_single_line_mode :: ((Ptr Label) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_label_set_angle"
gtk_label_set_angle :: ((Ptr Label) -> (CDouble -> (IO ())))
foreign import ccall unsafe "gtk_label_get_type"
gtk_label_get_type :: CULong