{-# LINE 2 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
module Graphics.UI.Gtk.Layout.Stack (
Stack
, castToStack
, gTypeStack
, toStack
, StackTransitionType(..)
, stackNew
, stackAddNamed
, stackAddTitled
, stackGetTransitionType
, stackSetTransitionType
, stackSetTransitionDuration
, stackGetTransitionDuration
, stackGetChildByName
, stackSetVisibleChild
, stackSetVisibleChildName
, stackGetVisibleChildName
, stackSetVisibleChildFull
, stackSetHomogeneous
, stackGetHomogeneous
, stackSetHhomogeneous
, stackGetHhomogeneous
, stackSetVhomogeneous
, stackGetVhomogeneous
, stackGetTransitionRunning
, stackSetInterpolateSize
, stackGetInterpolateSize
, stackHhomogeneous
, stackHomogeneous
, stackInterpolateSize
, stackTransitionDuration
, stackTransitionRunning
, stackTransitionType
, stackVhomogeneous
, stackVisibleChild
, stackVisibleChildName
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.General.Enums (StackTransitionType(..))
import Graphics.UI.Gtk.Types
{-# LINE 119 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
{-# LINE 121 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
stackNew :: IO Stack
stackNew :: IO Stack
stackNew =
(ForeignPtr Stack -> Stack, FinalizerPtr Stack)
-> IO (Ptr Stack) -> IO Stack
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Stack -> Stack, FinalizerPtr Stack)
forall {a}. (ForeignPtr Stack -> Stack, FinalizerPtr a)
mkStack (IO (Ptr Stack) -> IO Stack) -> IO (Ptr Stack) -> IO Stack
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Stack) -> IO (Ptr Widget) -> IO (Ptr Stack)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Stack
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Stack) (IO (Ptr Widget) -> IO (Ptr Stack))
-> IO (Ptr Widget) -> IO (Ptr Stack)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_stack_new
{-# LINE 132 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
stackAddNamed :: (StackClass self, WidgetClass child, GlibString name) => self
-> child
-> name
-> IO ()
stackAddNamed :: forall self child name.
(StackClass self, WidgetClass child, GlibString name) =>
self -> child -> name -> IO ()
stackAddNamed self
self child
child name
name =
name -> (CString -> IO ()) -> IO ()
forall a. name -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString name
name ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
(\(Stack ForeignPtr Stack
arg1) (Widget ForeignPtr Widget
arg2) CString
arg3 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
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 Stack -> Ptr Widget -> CString -> IO ()
gtk_stack_add_named Ptr Stack
argPtr1 Ptr Widget
argPtr2 CString
arg3)
{-# LINE 144 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
CString
namePtr
stackAddTitled :: (StackClass self, WidgetClass child,
GlibString name, GlibString title) => self
-> child
-> name
-> title
-> IO ()
stackAddTitled :: forall self child name title.
(StackClass self, WidgetClass child, GlibString name,
GlibString title) =>
self -> child -> name -> title -> IO ()
stackAddTitled self
self child
child name
name title
title =
name -> (CString -> IO ()) -> IO ()
forall a. name -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString name
name ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
title -> (CString -> IO ()) -> IO ()
forall a. title -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString title
title ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
titlePtr ->
(\(Stack ForeignPtr Stack
arg1) (Widget ForeignPtr Widget
arg2) CString
arg3 CString
arg4 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
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 Stack -> Ptr Widget -> CString -> CString -> IO ()
gtk_stack_add_titled Ptr Stack
argPtr1 Ptr Widget
argPtr2 CString
arg3 CString
arg4)
{-# LINE 161 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(self -> Stack
forall o. StackClass o => o -> Stack
toStack self
self)
(child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
CString
namePtr
CString
titlePtr
stackSetTransitionType :: StackClass self => self
-> StackTransitionType
-> IO ()
stackSetTransitionType :: forall self.
StackClass self =>
self -> StackTransitionType -> IO ()
stackSetTransitionType self
self StackTransitionType
transitionType =
(\(Stack ForeignPtr Stack
arg1) CInt
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CInt -> IO ()
gtk_stack_set_transition_type Ptr Stack
argPtr1 CInt
arg2)
{-# LINE 176 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> Int -> CInt
forall a b. (a -> b) -> a -> b
$ StackTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum StackTransitionType
transitionType)
stackGetTransitionType :: StackClass self => self
-> IO StackTransitionType
stackGetTransitionType :: forall self. StackClass self => self -> IO StackTransitionType
stackGetTransitionType self
self =
(CInt -> StackTransitionType) -> IO CInt -> IO StackTransitionType
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> StackTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> StackTransitionType)
-> (CInt -> Int) -> CInt -> StackTransitionType
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 StackTransitionType)
-> IO CInt -> IO StackTransitionType
forall a b. (a -> b) -> a -> b
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CInt) -> IO CInt)
-> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CInt
gtk_stack_get_transition_type Ptr Stack
argPtr1)
{-# LINE 186 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackSetTransitionDuration :: StackClass self => self
-> Int
-> IO ()
stackSetTransitionDuration :: forall self. StackClass self => self -> Int -> IO ()
stackSetTransitionDuration self
self Int
duration =
(\(Stack ForeignPtr Stack
arg1) CUInt
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CUInt -> IO ()
gtk_stack_set_transition_duration Ptr Stack
argPtr1 CUInt
arg2)
{-# LINE 195 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
duration)
stackGetTransitionDuration :: StackClass self => self
-> IO Int
stackGetTransitionDuration :: forall self. StackClass self => self -> IO Int
stackGetTransitionDuration self
self =
(CUInt -> Int) -> IO CUInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO Int) -> IO CUInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CUInt) -> IO CUInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CUInt) -> IO CUInt)
-> (Ptr Stack -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CUInt
gtk_stack_get_transition_duration Ptr Stack
argPtr1)
{-# LINE 205 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackGetChildByName :: (StackClass self, GlibString name) => self
-> name
-> IO Widget
stackGetChildByName :: forall self name.
(StackClass self, GlibString name) =>
self -> name -> IO Widget
stackGetChildByName self
self name
name =
name -> (CString -> IO Widget) -> IO Widget
forall a. name -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString name
name ((CString -> IO Widget) -> IO Widget)
-> (CString -> IO Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
(ForeignPtr Widget -> Widget, FinalizerPtr Widget)
-> IO (Ptr Widget) -> IO Widget
forall obj.
GObjectClass 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 Widget) -> IO (Ptr Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$
(\(Stack ForeignPtr Stack
arg1) CString
arg2 -> ForeignPtr Stack
-> (Ptr Stack -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Stack -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CString -> IO (Ptr Widget)
gtk_stack_get_child_by_name Ptr Stack
argPtr1 CString
arg2)
{-# LINE 216 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
CString
namePtr
stackGetVisibleChild :: StackClass self => self
-> IO (Maybe Widget)
stackGetVisibleChild :: forall self. StackClass self => self -> IO (Maybe Widget)
stackGetVisibleChild 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.
GObjectClass 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
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack
-> (Ptr Stack -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Stack -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO (Ptr Widget)
gtk_stack_get_visible_child Ptr Stack
argPtr1)
{-# LINE 226 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackSetVisibleChild :: (StackClass self, WidgetClass child) => self
-> child
-> IO ()
stackSetVisibleChild :: forall self child.
(StackClass self, WidgetClass child) =>
self -> child -> IO ()
stackSetVisibleChild self
self child
child =
(\(Stack ForeignPtr Stack
arg1) (Widget ForeignPtr Widget
arg2) -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
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 Stack -> Ptr Widget -> IO ()
gtk_stack_set_visible_child Ptr Stack
argPtr1 Ptr Widget
argPtr2)
{-# LINE 238 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(child -> Widget
forall o. WidgetClass o => o -> Widget
toWidget child
child)
stackSetVisibleChildName :: (StackClass self, GlibString name) => self
-> name
-> IO ()
stackSetVisibleChildName :: forall self name.
(StackClass self, GlibString name) =>
self -> name -> IO ()
stackSetVisibleChildName self
self name
name =
name -> (CString -> IO ()) -> IO ()
forall a. name -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString name
name ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
(\(Stack ForeignPtr Stack
arg1) CString
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CString -> IO ()
gtk_stack_set_visible_child_name Ptr Stack
argPtr1 CString
arg2)
{-# LINE 252 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
CString
namePtr
stackGetVisibleChildName :: (StackClass self, GlibString name) => self
-> IO (Maybe name)
stackGetVisibleChildName :: forall self name.
(StackClass self, GlibString name) =>
self -> IO (Maybe name)
stackGetVisibleChildName self
self =
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CString) -> IO CString)
-> (Ptr Stack -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CString
gtk_stack_get_visible_child_name Ptr Stack
argPtr1)
{-# LINE 261 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
IO CString -> (CString -> IO (Maybe name)) -> IO (Maybe name)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO (Maybe name)
forall s. GlibString s => CString -> IO (Maybe s)
maybePeekUTFString
stackSetVisibleChildFull :: (StackClass self, GlibString name) => self
-> name
-> StackTransitionType
-> IO ()
stackSetVisibleChildFull :: forall self name.
(StackClass self, GlibString name) =>
self -> name -> StackTransitionType -> IO ()
stackSetVisibleChildFull self
self name
name StackTransitionType
transitionType =
name -> (CString -> IO ()) -> IO ()
forall a. name -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString name
name ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
namePtr ->
(\(Stack ForeignPtr Stack
arg1) CString
arg2 CInt
arg3 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CString -> CInt -> IO ()
gtk_stack_set_visible_child_full Ptr Stack
argPtr1 CString
arg2 CInt
arg3)
{-# LINE 274 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
CString
namePtr
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> Int -> CInt
forall a b. (a -> b) -> a -> b
$ StackTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum StackTransitionType
transitionType)
stackSetHomogeneous :: StackClass self => self -> Bool -> IO ()
stackSetHomogeneous :: forall self. StackClass self => self -> Bool -> IO ()
stackSetHomogeneous self
self Bool
homogeneous =
(\(Stack ForeignPtr Stack
arg1) CInt
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CInt -> IO ()
gtk_stack_set_homogeneous Ptr Stack
argPtr1 CInt
arg2)
{-# LINE 286 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
homogeneous)
stackGetHomogeneous :: StackClass self => self -> IO Bool
stackGetHomogeneous :: forall self. StackClass self => self -> IO Bool
stackGetHomogeneous 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
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CInt) -> IO CInt)
-> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CInt
gtk_stack_get_homogeneous Ptr Stack
argPtr1)
{-# LINE 294 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackSetHhomogeneous :: StackClass self => self -> Bool -> IO ()
stackSetHhomogeneous :: forall self. StackClass self => self -> Bool -> IO ()
stackSetHhomogeneous self
self Bool
hhomogeneous =
(\(Stack ForeignPtr Stack
arg1) CInt
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CInt -> IO ()
gtk_stack_set_hhomogeneous Ptr Stack
argPtr1 CInt
arg2)
{-# LINE 303 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
hhomogeneous)
stackGetHhomogeneous :: StackClass self => self -> IO Bool
stackGetHhomogeneous :: forall self. StackClass self => self -> IO Bool
stackGetHhomogeneous 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
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CInt) -> IO CInt)
-> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CInt
gtk_stack_get_hhomogeneous Ptr Stack
argPtr1)
{-# LINE 312 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackSetVhomogeneous :: StackClass self => self -> Bool -> IO ()
stackSetVhomogeneous :: forall self. StackClass self => self -> Bool -> IO ()
stackSetVhomogeneous self
self Bool
vhomogeneous =
(\(Stack ForeignPtr Stack
arg1) CInt
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CInt -> IO ()
gtk_stack_set_vhomogeneous Ptr Stack
argPtr1 CInt
arg2)
{-# LINE 321 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
vhomogeneous)
stackGetVhomogeneous :: StackClass self => self -> IO Bool
stackGetVhomogeneous :: forall self. StackClass self => self -> IO Bool
stackGetVhomogeneous 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
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CInt) -> IO CInt)
-> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CInt
gtk_stack_get_vhomogeneous Ptr Stack
argPtr1)
{-# LINE 330 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackGetTransitionRunning :: StackClass self => self -> IO Bool
stackGetTransitionRunning :: forall self. StackClass self => self -> IO Bool
stackGetTransitionRunning 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
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CInt) -> IO CInt)
-> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CInt
gtk_stack_get_transition_running Ptr Stack
argPtr1)
{-# LINE 339 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackGetInterpolateSize :: StackClass self => self -> IO Bool
stackGetInterpolateSize :: forall self. StackClass self => self -> IO Bool
stackGetInterpolateSize 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
$
(\(Stack ForeignPtr Stack
arg1) -> ForeignPtr Stack -> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO CInt) -> IO CInt)
-> (Ptr Stack -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> IO CInt
gtk_stack_get_interpolate_size Ptr Stack
argPtr1)
{-# LINE 348 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
stackSetInterpolateSize :: StackClass self => self -> Bool -> IO ()
stackSetInterpolateSize :: forall self. StackClass self => self -> Bool -> IO ()
stackSetInterpolateSize self
self Bool
interpolateSize =
(\(Stack ForeignPtr Stack
arg1) CInt
arg2 -> ForeignPtr Stack -> (Ptr Stack -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Stack
arg1 ((Ptr Stack -> IO ()) -> IO ()) -> (Ptr Stack -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Stack
argPtr1 ->Ptr Stack -> CInt -> IO ()
gtk_stack_set_interpolate_size Ptr Stack
argPtr1 CInt
arg2)
{-# LINE 358 "./Graphics/UI/Gtk/Layout/Stack.chs" #-}
(toStack self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
interpolateSize)
stackHhomogeneous :: StackClass self => Attr self Bool
stackHhomogeneous :: forall self. StackClass self => Attr self Bool
stackHhomogeneous = (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. StackClass self => self -> IO Bool
stackGetHhomogeneous
self -> Bool -> IO ()
forall self. StackClass self => self -> Bool -> IO ()
stackSetHhomogeneous
stackHomogeneous :: StackClass self => Attr self Bool
stackHomogeneous :: forall self. StackClass self => Attr self Bool
stackHomogeneous = (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. StackClass self => self -> IO Bool
stackGetHomogeneous
self -> Bool -> IO ()
forall self. StackClass self => self -> Bool -> IO ()
stackSetHomogeneous
stackInterpolateSize :: StackClass self => Attr self Bool
stackInterpolateSize :: forall self. StackClass self => Attr self Bool
stackInterpolateSize = (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. StackClass self => self -> IO Bool
stackGetInterpolateSize
self -> Bool -> IO ()
forall self. StackClass self => self -> Bool -> IO ()
stackSetInterpolateSize
stackTransitionDuration :: StackClass self => Attr self Int
stackTransitionDuration :: forall self. StackClass self => Attr self Int
stackTransitionDuration = (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. StackClass self => self -> IO Int
stackGetTransitionDuration
self -> Int -> IO ()
forall self. StackClass self => self -> Int -> IO ()
stackSetTransitionDuration
stackTransitionRunning :: StackClass self => ReadAttr self Bool
stackTransitionRunning :: forall self. StackClass self => ReadAttr self Bool
stackTransitionRunning = (self -> IO Bool) -> ReadAttr self Bool
forall o a. (o -> IO a) -> ReadAttr o a
readAttr
self -> IO Bool
forall self. StackClass self => self -> IO Bool
stackGetTransitionRunning
stackTransitionType :: StackClass self => Attr self StackTransitionType
stackTransitionType :: forall self. StackClass self => Attr self StackTransitionType
stackTransitionType = (self -> IO StackTransitionType)
-> (self -> StackTransitionType -> IO ())
-> ReadWriteAttr self StackTransitionType StackTransitionType
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO StackTransitionType
forall self. StackClass self => self -> IO StackTransitionType
stackGetTransitionType
self -> StackTransitionType -> IO ()
forall self.
StackClass self =>
self -> StackTransitionType -> IO ()
stackSetTransitionType
stackVhomogeneous :: StackClass self => Attr self Bool
stackVhomogeneous :: forall self. StackClass self => Attr self Bool
stackVhomogeneous = (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. StackClass self => self -> IO Bool
stackGetVhomogeneous
self -> Bool -> IO ()
forall self. StackClass self => self -> Bool -> IO ()
stackSetVhomogeneous
stackVisibleChild :: StackClass self =>
ReadWriteAttr self (Maybe Widget) Widget
stackVisibleChild :: forall self.
StackClass self =>
ReadWriteAttr self (Maybe Widget) Widget
stackVisibleChild = (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. StackClass self => self -> IO (Maybe Widget)
stackGetVisibleChild
self -> Widget -> IO ()
forall self child.
(StackClass self, WidgetClass child) =>
self -> child -> IO ()
stackSetVisibleChild
stackVisibleChildName :: StackClass self => ReadWriteAttr self (Maybe String) String
stackVisibleChildName :: forall self.
StackClass self =>
ReadWriteAttr self (Maybe String) String
stackVisibleChildName = (self -> IO (Maybe String))
-> (self -> String -> IO ())
-> ReadWriteAttr self (Maybe String) String
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO (Maybe String)
forall self name.
(StackClass self, GlibString name) =>
self -> IO (Maybe name)
stackGetVisibleChildName
self -> String -> IO ()
forall self name.
(StackClass self, GlibString name) =>
self -> name -> IO ()
stackSetVisibleChildName
foreign import ccall unsafe "gtk_stack_new"
gtk_stack_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_stack_add_named"
gtk_stack_add_named :: ((Ptr Stack) -> ((Ptr Widget) -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "gtk_stack_add_titled"
gtk_stack_add_titled :: ((Ptr Stack) -> ((Ptr Widget) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ())))))
foreign import ccall unsafe "gtk_stack_set_transition_type"
gtk_stack_set_transition_type :: ((Ptr Stack) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_stack_get_transition_type"
gtk_stack_get_transition_type :: ((Ptr Stack) -> (IO CInt))
foreign import ccall unsafe "gtk_stack_set_transition_duration"
gtk_stack_set_transition_duration :: ((Ptr Stack) -> (CUInt -> (IO ())))
foreign import ccall unsafe "gtk_stack_get_transition_duration"
gtk_stack_get_transition_duration :: ((Ptr Stack) -> (IO CUInt))
foreign import ccall unsafe "gtk_stack_get_child_by_name"
gtk_stack_get_child_by_name :: ((Ptr Stack) -> ((Ptr CChar) -> (IO (Ptr Widget))))
foreign import ccall unsafe "gtk_stack_get_visible_child"
gtk_stack_get_visible_child :: ((Ptr Stack) -> (IO (Ptr Widget)))
foreign import ccall unsafe "gtk_stack_set_visible_child"
gtk_stack_set_visible_child :: ((Ptr Stack) -> ((Ptr Widget) -> (IO ())))
foreign import ccall unsafe "gtk_stack_set_visible_child_name"
gtk_stack_set_visible_child_name :: ((Ptr Stack) -> ((Ptr CChar) -> (IO ())))
foreign import ccall unsafe "gtk_stack_get_visible_child_name"
gtk_stack_get_visible_child_name :: ((Ptr Stack) -> (IO (Ptr CChar)))
foreign import ccall unsafe "gtk_stack_set_visible_child_full"
gtk_stack_set_visible_child_full :: ((Ptr Stack) -> ((Ptr CChar) -> (CInt -> (IO ()))))
foreign import ccall safe "gtk_stack_set_homogeneous"
gtk_stack_set_homogeneous :: ((Ptr Stack) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_stack_get_homogeneous"
gtk_stack_get_homogeneous :: ((Ptr Stack) -> (IO CInt))
foreign import ccall safe "gtk_stack_set_hhomogeneous"
gtk_stack_set_hhomogeneous :: ((Ptr Stack) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_stack_get_hhomogeneous"
gtk_stack_get_hhomogeneous :: ((Ptr Stack) -> (IO CInt))
foreign import ccall safe "gtk_stack_set_vhomogeneous"
gtk_stack_set_vhomogeneous :: ((Ptr Stack) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_stack_get_vhomogeneous"
gtk_stack_get_vhomogeneous :: ((Ptr Stack) -> (IO CInt))
foreign import ccall safe "gtk_stack_get_transition_running"
gtk_stack_get_transition_running :: ((Ptr Stack) -> (IO CInt))
foreign import ccall safe "gtk_stack_get_interpolate_size"
gtk_stack_get_interpolate_size :: ((Ptr Stack) -> (IO CInt))
foreign import ccall safe "gtk_stack_set_interpolate_size"
gtk_stack_set_interpolate_size :: ((Ptr Stack) -> (CInt -> (IO ())))