{-# 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 :: forall string. GlibString string => Maybe string -> IO Label
labelNew Maybe string
str =
(ForeignPtr Label -> Label, FinalizerPtr Label)
-> IO (Ptr Label) -> IO Label
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Label -> Label, FinalizerPtr Label)
forall {a}. (ForeignPtr Label -> Label, FinalizerPtr a)
mkLabel (IO (Ptr Label) -> IO Label) -> IO (Ptr Label) -> IO Label
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Label) -> IO (Ptr Widget) -> IO (Ptr Label)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Label
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Label) (IO (Ptr Widget) -> IO (Ptr Label))
-> IO (Ptr Widget) -> IO (Ptr Label)
forall a b. (a -> b) -> a -> b
$
(string -> (Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> Maybe string
-> (Ptr CChar -> IO (Ptr Widget))
-> IO (Ptr Widget)
forall a b c.
(a -> (Ptr b -> IO c) -> IO c)
-> Maybe a -> (Ptr b -> IO c) -> IO c
maybeWith string -> (Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString Maybe string
str ((Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
Ptr CChar -> IO (Ptr Widget)
gtk_label_new
{-# LINE 237 "./Graphics/UI/Gtk/Display/Label.chs" #-}
strPtr
labelNewWithMnemonic :: GlibString string
=> string
-> IO Label
labelNewWithMnemonic :: forall string. GlibString string => string -> IO Label
labelNewWithMnemonic string
str =
(ForeignPtr Label -> Label, FinalizerPtr Label)
-> IO (Ptr Label) -> IO Label
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Label -> Label, FinalizerPtr Label)
forall {a}. (ForeignPtr Label -> Label, FinalizerPtr a)
mkLabel (IO (Ptr Label) -> IO Label) -> IO (Ptr Label) -> IO Label
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Label) -> IO (Ptr Widget) -> IO (Ptr Label)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Label
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Label) (IO (Ptr Widget) -> IO (Ptr Label))
-> IO (Ptr Widget) -> IO (Ptr Label)
forall a b. (a -> b) -> a -> b
$
string -> (Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
str ((Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr CChar -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
Ptr CChar -> IO (Ptr Widget)
gtk_label_new_with_mnemonic
{-# LINE 262 "./Graphics/UI/Gtk/Display/Label.chs" #-}
strPtr
labelSetText :: (LabelClass self, GlibString string) => self -> string -> IO ()
labelSetText :: forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetText self
self string
str =
string -> (Ptr CChar -> IO ()) -> IO ()
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
str ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
(\(Label ForeignPtr Label
arg1) Ptr CChar
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CChar -> IO ()
gtk_label_set_text Ptr Label
argPtr1 Ptr CChar
arg2)
{-# LINE 276 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CChar
strPtr
labelSetLabel :: (LabelClass self, GlibString string) => self -> string -> IO ()
labelSetLabel :: forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetLabel self
self string
str =
string -> (Ptr CChar -> IO ()) -> IO ()
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
str ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
(\(Label ForeignPtr Label
arg1) Ptr CChar
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CChar -> IO ()
gtk_label_set_label Ptr Label
argPtr1 Ptr CChar
arg2)
{-# LINE 287 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CChar
strPtr
labelSetAttributes :: LabelClass self => self
-> [PangoAttribute]
-> IO ()
labelSetAttributes :: forall self. LabelClass self => self -> [PangoAttribute] -> IO ()
labelSetAttributes self
self [PangoAttribute]
attrs = do
(Text
txt :: Text) <- self -> IO Text
forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetText self
self
PangoString
ps <- Text -> IO PangoString
forall string. GlibString string => string -> IO PangoString
makeNewPangoString Text
txt
PangoString -> [PangoAttribute] -> (Ptr () -> IO ()) -> IO ()
forall a.
PangoString -> [PangoAttribute] -> (Ptr () -> IO a) -> IO a
withAttrList PangoString
ps [PangoAttribute]
attrs ((Ptr () -> IO ()) -> IO ()) -> (Ptr () -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ()
alPtr ->
(\(Label ForeignPtr Label
arg1) Ptr ()
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr () -> IO ()
gtk_label_set_attributes Ptr Label
argPtr1 Ptr ()
arg2) (self -> Label
forall o. LabelClass o => o -> Label
toLabel self
self) Ptr ()
alPtr
labelGetAttributes :: LabelClass self => self
-> IO [PangoAttribute]
labelGetAttributes :: forall self. LabelClass self => self -> IO [PangoAttribute]
labelGetAttributes self
self = do
(Text
txt :: Text) <- self -> IO Text
forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetText self
self
(PangoString UTFCorrection
correct CInt
_ ForeignPtr CChar
_ ) <- Text -> IO PangoString
forall string. GlibString string => string -> IO PangoString
makeNewPangoString Text
txt
Ptr ()
attrListPtr <- (\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr Label -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO (Ptr ())
gtk_label_get_attributes Ptr Label
argPtr1) (self -> Label
forall o. LabelClass o => o -> Label
toLabel self
self)
[[PangoAttribute]]
attr <- UTFCorrection -> Ptr () -> IO [[PangoAttribute]]
fromAttrList UTFCorrection
correct Ptr ()
attrListPtr
[PangoAttribute] -> IO [PangoAttribute]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ([PangoAttribute] -> IO [PangoAttribute])
-> [PangoAttribute] -> IO [PangoAttribute]
forall a b. (a -> b) -> a -> b
$ [[PangoAttribute]] -> [PangoAttribute]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [[PangoAttribute]]
attr
labelSetMarkup :: (LabelClass self, GlibString markup) => self
-> markup
-> IO ()
labelSetMarkup :: forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetMarkup self
self markup
str =
markup -> (Ptr CChar -> IO ()) -> IO ()
forall a. markup -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString markup
str ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
(\(Label ForeignPtr Label
arg1) Ptr CChar
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CChar -> IO ()
gtk_label_set_markup Ptr Label
argPtr1 Ptr CChar
arg2)
{-# LINE 332 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CChar
strPtr
labelSetMarkupWithMnemonic :: (LabelClass self, GlibString markup) => self
-> markup
-> IO ()
labelSetMarkupWithMnemonic :: forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetMarkupWithMnemonic self
self markup
str =
markup -> (Ptr CChar -> IO ()) -> IO ()
forall a. markup -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString markup
str ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
(\(Label ForeignPtr Label
arg1) Ptr CChar
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CChar -> IO ()
gtk_label_set_markup_with_mnemonic Ptr Label
argPtr1 Ptr CChar
arg2)
{-# LINE 350 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CChar
strPtr
labelSetPattern :: LabelClass l => l -> [Int] -> IO ()
labelSetPattern :: forall l. LabelClass l => l -> [Int] -> IO ()
labelSetPattern l
self [Int]
list =
Text -> (Ptr CChar -> IO ()) -> IO ()
forall a. Text -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString (String -> Text
T.pack String
str) ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) Ptr CChar
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CChar -> IO ()
gtk_label_set_pattern Ptr Label
argPtr1 Ptr CChar
arg2)
{-# LINE 360 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
where
str :: String
str = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ([String] -> String) -> [String] -> String
forall a b. (a -> b) -> a -> b
$ (Int -> Char -> String) -> [Int] -> String -> [String]
forall a b c. (a -> b -> c) -> [a] -> [b] -> [c]
zipWith Int -> Char -> String
forall a. Int -> a -> [a]
replicate [Int]
list (String -> String
forall a. HasCallStack => [a] -> [a]
cycle [Char
'_',Char
' '])
labelSetJustify :: LabelClass self => self -> Justification -> IO ()
labelSetJustify :: forall self. LabelClass self => self -> Justification -> IO ()
labelSetJustify self
self Justification
jtype =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_justify Ptr Label
argPtr1 CInt
arg2)
{-# LINE 373 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Justification -> Int) -> Justification -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Justification -> Int
forall a. Enum a => a -> Int
fromEnum) Justification
jtype)
labelGetJustify :: LabelClass self => self -> IO Justification
labelGetJustify :: forall self. LabelClass self => self -> IO Justification
labelGetJustify self
self =
(CInt -> Justification) -> IO CInt -> IO Justification
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> Justification
forall a. Enum a => Int -> a
toEnum (Int -> Justification) -> (CInt -> Int) -> CInt -> Justification
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO Justification) -> IO CInt -> IO Justification
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_justify Ptr Label
argPtr1)
{-# LINE 382 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetLayout :: LabelClass self => self -> IO PangoLayout
labelGetLayout :: forall self. LabelClass self => self -> IO PangoLayout
labelGetLayout self
self = do
PangoLayoutRaw
plr <- (ForeignPtr PangoLayoutRaw -> PangoLayoutRaw,
FinalizerPtr PangoLayoutRaw)
-> IO (Ptr PangoLayoutRaw) -> IO PangoLayoutRaw
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr PangoLayoutRaw -> PangoLayoutRaw,
FinalizerPtr PangoLayoutRaw)
forall {a}.
(ForeignPtr PangoLayoutRaw -> PangoLayoutRaw, FinalizerPtr a)
mkPangoLayoutRaw (IO (Ptr PangoLayoutRaw) -> IO PangoLayoutRaw)
-> IO (Ptr PangoLayoutRaw) -> IO PangoLayoutRaw
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label
-> (Ptr Label -> IO (Ptr PangoLayoutRaw))
-> IO (Ptr PangoLayoutRaw)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO (Ptr PangoLayoutRaw)) -> IO (Ptr PangoLayoutRaw))
-> (Ptr Label -> IO (Ptr PangoLayoutRaw))
-> IO (Ptr PangoLayoutRaw)
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO (Ptr PangoLayoutRaw)
gtk_label_get_layout Ptr Label
argPtr1) (self -> Label
forall o. LabelClass o => o -> Label
toLabel self
self)
(Text
txt :: Text) <- self -> IO Text
forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetText self
self
PangoString
ps <- Text -> IO PangoString
forall string. GlibString string => string -> IO PangoString
makeNewPangoString Text
txt
IORef PangoString
psRef <- PangoString -> IO (IORef PangoString)
forall a. a -> IO (IORef a)
newIORef PangoString
ps
PangoLayout -> IO PangoLayout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (IORef PangoString -> PangoLayoutRaw -> PangoLayout
PangoLayout IORef PangoString
psRef PangoLayoutRaw
plr)
labelSetLineWrap :: LabelClass self => self
-> Bool
-> IO ()
labelSetLineWrap :: forall self. LabelClass self => self -> Bool -> IO ()
labelSetLineWrap self
self Bool
wrap =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_line_wrap Ptr Label
argPtr1 CInt
arg2)
{-# LINE 406 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
wrap)
labelGetLineWrap :: LabelClass self => self
-> IO Bool
labelGetLineWrap :: forall self. LabelClass self => self -> IO Bool
labelGetLineWrap self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_line_wrap Ptr Label
argPtr1)
{-# LINE 418 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetLineWrapMode :: LabelClass self => self
-> LayoutWrapMode
-> IO ()
labelSetLineWrapMode :: forall self. LabelClass self => self -> LayoutWrapMode -> IO ()
labelSetLineWrapMode self
self LayoutWrapMode
wrapMode =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_line_wrap_mode Ptr Label
argPtr1 CInt
arg2)
{-# LINE 430 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (LayoutWrapMode -> Int
forall a. Enum a => a -> Int
fromEnum LayoutWrapMode
wrapMode))
labelGetLineWrapMode :: LabelClass self => self
-> IO LayoutWrapMode
labelGetLineWrapMode :: forall self. LabelClass self => self -> IO LayoutWrapMode
labelGetLineWrapMode self
self = (CInt -> LayoutWrapMode) -> IO CInt -> IO LayoutWrapMode
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> LayoutWrapMode
forall a. Enum a => Int -> a
toEnum (Int -> LayoutWrapMode) -> (CInt -> Int) -> CInt -> LayoutWrapMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO LayoutWrapMode) -> IO CInt -> IO LayoutWrapMode
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_line_wrap_mode Ptr Label
argPtr1)
{-# LINE 441 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetLayoutOffsets :: LabelClass self => self -> IO (Int, Int)
labelGetLayoutOffsets :: forall self. LabelClass self => self -> IO (Int, Int)
labelGetLayoutOffsets self
self =
(Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
xPtr ->
(Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
yPtr -> do
(\(Label ForeignPtr Label
arg1) Ptr CInt
arg2 Ptr CInt
arg3 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CInt -> Ptr CInt -> IO ()
gtk_label_get_layout_offsets Ptr Label
argPtr1 Ptr CInt
arg2 Ptr CInt
arg3)
{-# LINE 455 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CInt
xPtr
Ptr CInt
yPtr
CInt
x <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
xPtr
CInt
y <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
yPtr
(Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
x, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
y)
labelGetMnemonicKeyval :: LabelClass self => self -> IO KeyVal
labelGetMnemonicKeyval :: forall self. LabelClass self => self -> IO KeyVal
labelGetMnemonicKeyval self
self =
(CUInt -> KeyVal) -> IO CUInt -> IO KeyVal
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> KeyVal
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO KeyVal) -> IO CUInt -> IO KeyVal
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CUInt) -> IO CUInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CUInt) -> IO CUInt)
-> (Ptr Label -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CUInt
gtk_label_get_mnemonic_keyval Ptr Label
argPtr1)
{-# LINE 469 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetSelectable :: LabelClass self => self
-> IO Bool
labelGetSelectable :: forall self. LabelClass self => self -> IO Bool
labelGetSelectable self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_selectable Ptr Label
argPtr1)
{-# LINE 478 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetUseMarkup :: LabelClass self => self
-> Bool
-> IO ()
labelSetUseMarkup :: forall self. LabelClass self => self -> Bool -> IO ()
labelSetUseMarkup self
self Bool
setting =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_use_markup Ptr Label
argPtr1 CInt
arg2)
{-# LINE 489 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
setting)
labelGetUseMarkup :: LabelClass self => self
-> IO Bool
labelGetUseMarkup :: forall self. LabelClass self => self -> IO Bool
labelGetUseMarkup self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_use_markup Ptr Label
argPtr1)
{-# LINE 500 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetUseUnderline :: LabelClass self => self -> Bool -> IO ()
labelSetUseUnderline :: forall self. LabelClass self => self -> Bool -> IO ()
labelSetUseUnderline self
self Bool
useUnderline =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_use_underline Ptr Label
argPtr1 CInt
arg2)
{-# LINE 508 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
useUnderline)
labelGetUseUnderline :: LabelClass self => self -> IO Bool
labelGetUseUnderline :: forall self. LabelClass self => self -> IO Bool
labelGetUseUnderline self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_use_underline Ptr Label
argPtr1)
{-# LINE 518 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetText :: (LabelClass self, GlibString string) => self -> IO string
labelGetText :: forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetText self
self =
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr Label -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO (Ptr CChar)
gtk_label_get_text Ptr Label
argPtr1)
{-# LINE 527 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
IO (Ptr CChar) -> (Ptr CChar -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString
labelGetLabel :: (LabelClass self, GlibString string) => self -> IO string
labelGetLabel :: forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetLabel self
self =
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO (Ptr CChar)) -> IO (Ptr CChar))
-> (Ptr Label -> IO (Ptr CChar)) -> IO (Ptr CChar)
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO (Ptr CChar)
gtk_label_get_label Ptr Label
argPtr1)
{-# LINE 536 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
IO (Ptr CChar) -> (Ptr CChar -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString
labelSelectRegion :: LabelClass self => self
-> Int
-> Int
-> IO ()
labelSelectRegion :: forall self. LabelClass self => self -> Int -> Int -> IO ()
labelSelectRegion self
self Int
startOffset Int
endOffset =
(\(Label ForeignPtr Label
arg1) CInt
arg2 CInt
arg3 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> CInt -> IO ()
gtk_label_select_region Ptr Label
argPtr1 CInt
arg2 CInt
arg3)
{-# LINE 550 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
startOffset)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
endOffset)
labelGetSelectionBounds :: LabelClass self => self
-> IO (Maybe (Int, Int))
labelGetSelectionBounds :: forall self. LabelClass self => self -> IO (Maybe (Int, Int))
labelGetSelectionBounds self
self =
(Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int)))
-> (Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
startPtr ->
(Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int)))
-> (Ptr CInt -> IO (Maybe (Int, Int))) -> IO (Maybe (Int, Int))
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
endPtr -> do
Bool
isSelection <-
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) Ptr CInt
arg2 Ptr CInt
arg3 -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CInt -> Ptr CInt -> IO CInt
gtk_label_get_selection_bounds Ptr Label
argPtr1 Ptr CInt
arg2 Ptr CInt
arg3)
{-# LINE 566 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CInt
startPtr
Ptr CInt
endPtr
if Bool
isSelection
then do CInt
start <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
startPtr
CInt
end <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
endPtr
Maybe (Int, Int) -> IO (Maybe (Int, Int))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe (Int, Int) -> IO (Maybe (Int, Int)))
-> Maybe (Int, Int) -> IO (Maybe (Int, Int))
forall a b. (a -> b) -> a -> b
$ (Int, Int) -> Maybe (Int, Int)
forall a. a -> Maybe a
Just ((Int, Int) -> Maybe (Int, Int)) -> (Int, Int) -> Maybe (Int, Int)
forall a b. (a -> b) -> a -> b
$ (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
start, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
end)
else Maybe (Int, Int) -> IO (Maybe (Int, Int))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe (Int, Int)
forall a. Maybe a
Nothing
labelSetMnemonicWidget :: (LabelClass self, WidgetClass widget) => self
-> widget
-> IO ()
labelSetMnemonicWidget :: forall self widget.
(LabelClass self, WidgetClass widget) =>
self -> widget -> IO ()
labelSetMnemonicWidget self
self widget
widget =
(\(Label ForeignPtr Label
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->ForeignPtr Widget -> (Ptr Widget -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Widget
arg2 ((Ptr Widget -> IO ()) -> IO ()) -> (Ptr Widget -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
argPtr2 ->Ptr Label -> Ptr Widget -> IO ()
gtk_label_set_mnemonic_widget Ptr Label
argPtr1 Ptr Widget
argPtr2)
{-# LINE 594 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(widget -> Widget
forall o. WidgetClass o => o -> Widget
toWidget widget
widget)
labelGetMnemonicWidget :: LabelClass self => self
-> IO (Maybe Widget)
labelGetMnemonicWidget :: forall self. LabelClass self => self -> IO (Maybe Widget)
labelGetMnemonicWidget self
self =
(IO (Ptr Widget) -> IO Widget)
-> IO (Ptr Widget) -> IO (Maybe Widget)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Widget -> Widget, FinalizerPtr Widget)
forall {a}. (ForeignPtr Widget -> Widget, FinalizerPtr a)
mkWidget) (IO (Ptr Widget) -> IO (Maybe Widget))
-> IO (Ptr Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label
-> (Ptr Label -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Label -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO (Ptr Widget)
gtk_label_get_mnemonic_widget Ptr Label
argPtr1)
{-# LINE 607 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetSelectable :: LabelClass self => self
-> Bool
-> IO ()
labelSetSelectable :: forall self. LabelClass self => self -> Bool -> IO ()
labelSetSelectable self
self Bool
setting =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_selectable Ptr Label
argPtr1 CInt
arg2)
{-# LINE 617 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
setting)
labelSetTextWithMnemonic :: (LabelClass self, GlibString string) => self -> string -> IO ()
labelSetTextWithMnemonic :: forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetTextWithMnemonic self
self string
str =
string -> (Ptr CChar -> IO ()) -> IO ()
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
str ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
strPtr ->
(\(Label ForeignPtr Label
arg1) Ptr CChar
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> Ptr CChar -> IO ()
gtk_label_set_text_with_mnemonic Ptr Label
argPtr1 Ptr CChar
arg2)
{-# LINE 630 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
Ptr CChar
strPtr
labelSetEllipsize :: LabelClass self => self
-> EllipsizeMode
-> IO ()
labelSetEllipsize :: forall self. LabelClass self => self -> EllipsizeMode -> IO ()
labelSetEllipsize self
self EllipsizeMode
mode =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_ellipsize Ptr Label
argPtr1 CInt
arg2)
{-# LINE 644 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (EllipsizeMode -> Int) -> EllipsizeMode -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EllipsizeMode -> Int
forall a. Enum a => a -> Int
fromEnum) EllipsizeMode
mode)
labelSetWidthChars :: LabelClass self => self
-> Int
-> IO ()
labelSetWidthChars :: forall self. LabelClass self => self -> Int -> IO ()
labelSetWidthChars self
self Int
nChars =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_width_chars Ptr Label
argPtr1 CInt
arg2)
{-# LINE 656 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
nChars)
labelSetMaxWidthChars :: LabelClass self => self
-> Int
-> IO ()
labelSetMaxWidthChars :: forall self. LabelClass self => self -> Int -> IO ()
labelSetMaxWidthChars self
self Int
nChars =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_max_width_chars Ptr Label
argPtr1 CInt
arg2)
{-# LINE 668 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
nChars)
labelGetEllipsize :: LabelClass self => self
-> IO EllipsizeMode
labelGetEllipsize :: forall self. LabelClass self => self -> IO EllipsizeMode
labelGetEllipsize self
self =
(CInt -> EllipsizeMode) -> IO CInt -> IO EllipsizeMode
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> EllipsizeMode
forall a. Enum a => Int -> a
toEnum (Int -> EllipsizeMode) -> (CInt -> Int) -> CInt -> EllipsizeMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO EllipsizeMode) -> IO CInt -> IO EllipsizeMode
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_ellipsize Ptr Label
argPtr1)
{-# LINE 680 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetWidthChars :: LabelClass self => self
-> IO Int
labelGetWidthChars :: forall self. LabelClass self => self -> IO Int
labelGetWidthChars self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_width_chars Ptr Label
argPtr1)
{-# LINE 692 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetMaxWidthChars :: LabelClass self => self
-> IO Int
labelGetMaxWidthChars :: forall self. LabelClass self => self -> IO Int
labelGetMaxWidthChars self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_max_width_chars Ptr Label
argPtr1)
{-# LINE 704 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetSingleLineMode :: LabelClass self => self
-> IO Bool
labelGetSingleLineMode :: forall self. LabelClass self => self -> IO Bool
labelGetSingleLineMode self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CInt) -> IO CInt)
-> (Ptr Label -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CInt
gtk_label_get_single_line_mode Ptr Label
argPtr1)
{-# LINE 715 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelGetAngle :: LabelClass self => self
-> IO Double
labelGetAngle :: forall self. LabelClass self => self -> IO Double
labelGetAngle self
self =
(CDouble -> Double) -> IO CDouble -> IO Double
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac (IO CDouble -> IO Double) -> IO CDouble -> IO Double
forall a b. (a -> b) -> a -> b
$
(\(Label ForeignPtr Label
arg1) -> ForeignPtr Label -> (Ptr Label -> IO CDouble) -> IO CDouble
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO CDouble) -> IO CDouble)
-> (Ptr Label -> IO CDouble) -> IO CDouble
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> IO CDouble
gtk_label_get_angle Ptr Label
argPtr1)
{-# LINE 726 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
labelSetSingleLineMode :: LabelClass self => self
-> Bool
-> IO ()
labelSetSingleLineMode :: forall self. LabelClass self => self -> Bool -> IO ()
labelSetSingleLineMode self
self Bool
singleLineMode =
(\(Label ForeignPtr Label
arg1) CInt
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CInt -> IO ()
gtk_label_set_single_line_mode Ptr Label
argPtr1 CInt
arg2)
{-# LINE 738 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
singleLineMode)
labelSetAngle :: LabelClass self => self
-> Double
-> IO ()
labelSetAngle :: forall self. LabelClass self => self -> Double -> IO ()
labelSetAngle self
self Double
angle =
(\(Label ForeignPtr Label
arg1) CDouble
arg2 -> ForeignPtr Label -> (Ptr Label -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Label
arg1 ((Ptr Label -> IO ()) -> IO ()) -> (Ptr Label -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Label
argPtr1 ->Ptr Label -> CDouble -> IO ()
gtk_label_set_angle Ptr Label
argPtr1 CDouble
arg2)
{-# LINE 753 "./Graphics/UI/Gtk/Display/Label.chs" #-}
(toLabel self)
(Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
angle)
labelLabel :: (LabelClass self, GlibString string) => Attr self string
labelLabel :: forall self string.
(LabelClass self, GlibString string) =>
Attr self string
labelLabel = (self -> IO string)
-> (self -> string -> IO ()) -> ReadWriteAttr self string string
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO string
forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetLabel
self -> string -> IO ()
forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetLabel
labelUseMarkup :: LabelClass self => Attr self Bool
labelUseMarkup :: forall self. LabelClass self => Attr self Bool
labelUseMarkup = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. LabelClass self => self -> IO Bool
labelGetUseMarkup
self -> Bool -> IO ()
forall self. LabelClass self => self -> Bool -> IO ()
labelSetUseMarkup
labelUseUnderline :: LabelClass self => Attr self Bool
labelUseUnderline :: forall self. LabelClass self => Attr self Bool
labelUseUnderline = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. LabelClass self => self -> IO Bool
labelGetUseUnderline
self -> Bool -> IO ()
forall self. LabelClass self => self -> Bool -> IO ()
labelSetUseUnderline
labelJustify :: LabelClass self => Attr self Justification
labelJustify :: forall self. LabelClass self => Attr self Justification
labelJustify = (self -> IO Justification)
-> (self -> Justification -> IO ())
-> ReadWriteAttr self Justification Justification
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Justification
forall self. LabelClass self => self -> IO Justification
labelGetJustify
self -> Justification -> IO ()
forall self. LabelClass self => self -> Justification -> IO ()
labelSetJustify
labelWrap :: LabelClass self => Attr self Bool
labelWrap :: forall self. LabelClass self => Attr self Bool
labelWrap = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"wrap"
labelWrapMode :: LabelClass self => Attr self LayoutWrapMode
labelWrapMode :: forall self. LabelClass self => Attr self LayoutWrapMode
labelWrapMode = String -> GType -> Attr self LayoutWrapMode
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"wrap-mode"
GType
gtk_label_get_type
{-# LINE 814 "./Graphics/UI/Gtk/Display/Label.chs" #-}
labelSelectable :: LabelClass self => Attr self Bool
labelSelectable :: forall self. LabelClass self => Attr self Bool
labelSelectable = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. LabelClass self => self -> IO Bool
labelGetSelectable
self -> Bool -> IO ()
forall self. LabelClass self => self -> Bool -> IO ()
labelSetSelectable
labelMnemonicWidget :: (LabelClass self, WidgetClass widget) => ReadWriteAttr self (Maybe Widget) widget
labelMnemonicWidget :: forall self widget.
(LabelClass self, WidgetClass widget) =>
ReadWriteAttr self (Maybe Widget) widget
labelMnemonicWidget = (self -> IO (Maybe Widget))
-> (self -> widget -> IO ())
-> ReadWriteAttr self (Maybe Widget) widget
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO (Maybe Widget)
forall self. LabelClass self => self -> IO (Maybe Widget)
labelGetMnemonicWidget
self -> widget -> IO ()
forall self widget.
(LabelClass self, WidgetClass widget) =>
self -> widget -> IO ()
labelSetMnemonicWidget
labelMnemonicKeyval :: LabelClass self => ReadAttr self Int
labelMnemonicKeyval :: forall self. LabelClass self => ReadAttr self Int
labelMnemonicKeyval = String -> ReadAttr self Int
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Int
readAttrFromIntProperty String
"mnemonic-keyval"
labelPattern :: (LabelClass self, GlibString string) => WriteAttr self string
labelPattern :: forall self string.
(LabelClass self, GlibString string) =>
WriteAttr self string
labelPattern = String -> WriteAttr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> WriteAttr gobj string
writeAttrFromStringProperty String
"pattern"
labelCursorPosition :: LabelClass self => ReadAttr self Int
labelCursorPosition :: forall self. LabelClass self => ReadAttr self Int
labelCursorPosition = String -> ReadAttr self Int
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Int
readAttrFromIntProperty String
"cursor-position"
labelSelectionBound :: LabelClass self => ReadAttr self Int
labelSelectionBound :: forall self. LabelClass self => ReadAttr self Int
labelSelectionBound = String -> ReadAttr self Int
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Int
readAttrFromIntProperty String
"selection-bound"
labelEllipsize :: LabelClass self => Attr self EllipsizeMode
labelEllipsize :: forall self. LabelClass self => Attr self EllipsizeMode
labelEllipsize = (self -> IO EllipsizeMode)
-> (self -> EllipsizeMode -> IO ())
-> ReadWriteAttr self EllipsizeMode EllipsizeMode
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO EllipsizeMode
forall self. LabelClass self => self -> IO EllipsizeMode
labelGetEllipsize
self -> EllipsizeMode -> IO ()
forall self. LabelClass self => self -> EllipsizeMode -> IO ()
labelSetEllipsize
labelWidthChars :: LabelClass self => Attr self Int
labelWidthChars :: forall self. LabelClass self => Attr self Int
labelWidthChars = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Int
forall self. LabelClass self => self -> IO Int
labelGetWidthChars
self -> Int -> IO ()
forall self. LabelClass self => self -> Int -> IO ()
labelSetWidthChars
labelSingleLineMode :: LabelClass self => Attr self Bool
labelSingleLineMode :: forall self. LabelClass self => Attr self Bool
labelSingleLineMode = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. LabelClass self => self -> IO Bool
labelGetSingleLineMode
self -> Bool -> IO ()
forall self. LabelClass self => self -> Bool -> IO ()
labelSetSingleLineMode
labelAngle :: LabelClass self => Attr self Double
labelAngle :: forall self. LabelClass self => Attr self Double
labelAngle = (self -> IO Double)
-> (self -> Double -> IO ()) -> ReadWriteAttr self Double Double
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Double
forall self. LabelClass self => self -> IO Double
labelGetAngle
self -> Double -> IO ()
forall self. LabelClass self => self -> Double -> IO ()
labelSetAngle
labelAttributes :: LabelClass self => Attr self [PangoAttribute]
labelAttributes :: forall self. LabelClass self => Attr self [PangoAttribute]
labelAttributes = (self -> IO [PangoAttribute])
-> (self -> [PangoAttribute] -> IO ())
-> ReadWriteAttr self [PangoAttribute] [PangoAttribute]
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO [PangoAttribute]
forall self. LabelClass self => self -> IO [PangoAttribute]
labelGetAttributes
self -> [PangoAttribute] -> IO ()
forall self. LabelClass self => self -> [PangoAttribute] -> IO ()
labelSetAttributes
labelMaxWidthChars :: LabelClass self => Attr self Int
labelMaxWidthChars :: forall self. LabelClass self => Attr self Int
labelMaxWidthChars = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Int
forall self. LabelClass self => self -> IO Int
labelGetMaxWidthChars
self -> Int -> IO ()
forall self. LabelClass self => self -> Int -> IO ()
labelSetMaxWidthChars
labelLineWrap :: LabelClass self => Attr self Bool
labelLineWrap :: forall self. LabelClass self => Attr self Bool
labelLineWrap = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. LabelClass self => self -> IO Bool
labelGetLineWrap
self -> Bool -> IO ()
forall self. LabelClass self => self -> Bool -> IO ()
labelSetLineWrap
labelText :: (LabelClass self, GlibString string) => Attr self string
labelText :: forall self string.
(LabelClass self, GlibString string) =>
Attr self string
labelText = (self -> IO string)
-> (self -> string -> IO ()) -> ReadWriteAttr self string string
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO string
forall self string.
(LabelClass self, GlibString string) =>
self -> IO string
labelGetText
self -> string -> IO ()
forall self string.
(LabelClass self, GlibString string) =>
self -> string -> IO ()
labelSetText
labelActiveCurrentLink :: LabelClass self => Signal self (IO ())
labelActiveCurrentLink :: forall self. LabelClass self => Signal self (IO ())
labelActiveCurrentLink = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"activate-current-link")
labelActiveLink :: (LabelClass self, GlibString string) => Signal self (string -> IO ())
labelActiveLink :: forall self string.
(LabelClass self, GlibString string) =>
Signal self (string -> IO ())
labelActiveLink = (Bool -> self -> (string -> IO ()) -> IO (ConnectId self))
-> Signal self (string -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (string -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GlibString a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_GLIBSTRING__NONE String
"activate-link")
labelCopyClipboard :: LabelClass self => Signal self (IO ())
labelCopyClipboard :: forall self. LabelClass self => Signal self (IO ())
labelCopyClipboard = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"copy-clipboard")
labelMoveCursor :: LabelClass self => Signal self (MovementStep -> Int -> Bool -> IO ())
labelMoveCursor :: forall self.
LabelClass self =>
Signal self (MovementStep -> Int -> Bool -> IO ())
labelMoveCursor = (Bool
-> self
-> (MovementStep -> Int -> Bool -> IO ())
-> IO (ConnectId self))
-> Signal self (MovementStep -> Int -> Bool -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> self
-> (MovementStep -> Int -> Bool -> IO ())
-> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String
-> Bool -> obj -> (a -> Int -> Bool -> IO ()) -> IO (ConnectId obj)
connect_ENUM_INT_BOOL__NONE String
"move-cursor")
labelPopulatePopup :: LabelClass self=> Signal self (Menu -> IO ())
= (Bool -> self -> (Menu -> IO ()) -> IO (ConnectId self))
-> Signal self (Menu -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> (Menu -> IO ()) -> IO (ConnectId self)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"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