gi-gtk-0.3.16.12: GI/Gtk/Objects/Box.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.Box
(
-- * Exported types
Box(..) ,
BoxK ,
toBox ,
noBox ,
-- * Methods
-- ** boxGetBaselinePosition
boxGetBaselinePosition ,
-- ** boxGetCenterWidget
boxGetCenterWidget ,
-- ** boxGetHomogeneous
boxGetHomogeneous ,
-- ** boxGetSpacing
boxGetSpacing ,
-- ** boxNew
boxNew ,
-- ** boxPackEnd
boxPackEnd ,
-- ** boxPackStart
boxPackStart ,
-- ** boxQueryChildPacking
boxQueryChildPacking ,
-- ** boxReorderChild
boxReorderChild ,
-- ** boxSetBaselinePosition
boxSetBaselinePosition ,
-- ** boxSetCenterWidget
boxSetCenterWidget ,
-- ** boxSetChildPacking
boxSetChildPacking ,
-- ** boxSetHomogeneous
boxSetHomogeneous ,
-- ** boxSetSpacing
boxSetSpacing ,
-- * Properties
-- ** BaselinePosition
BoxBaselinePositionPropertyInfo ,
constructBoxBaselinePosition ,
getBoxBaselinePosition ,
setBoxBaselinePosition ,
-- ** Homogeneous
BoxHomogeneousPropertyInfo ,
constructBoxHomogeneous ,
getBoxHomogeneous ,
setBoxHomogeneous ,
-- ** Spacing
BoxSpacingPropertyInfo ,
constructBoxSpacing ,
getBoxSpacing ,
setBoxSpacing ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
newtype Box = Box (ForeignPtr Box)
foreign import ccall "gtk_box_get_type"
c_gtk_box_get_type :: IO GType
type instance ParentTypes Box = BoxParentTypes
type BoxParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Box where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_box_get_type
class GObject o => BoxK o
instance (GObject o, IsDescendantOf Box o) => BoxK o
toBox :: BoxK o => o -> IO Box
toBox = unsafeCastTo Box
noBox :: Maybe Box
noBox = Nothing
-- VVV Prop "baseline-position"
-- Type: TInterface "Gtk" "BaselinePosition"
-- Flags: [PropertyReadable,PropertyWritable]
getBoxBaselinePosition :: (MonadIO m, BoxK o) => o -> m BaselinePosition
getBoxBaselinePosition obj = liftIO $ getObjectPropertyEnum obj "baseline-position"
setBoxBaselinePosition :: (MonadIO m, BoxK o) => o -> BaselinePosition -> m ()
setBoxBaselinePosition obj val = liftIO $ setObjectPropertyEnum obj "baseline-position" val
constructBoxBaselinePosition :: BaselinePosition -> IO ([Char], GValue)
constructBoxBaselinePosition val = constructObjectPropertyEnum "baseline-position" val
data BoxBaselinePositionPropertyInfo
instance AttrInfo BoxBaselinePositionPropertyInfo where
type AttrAllowedOps BoxBaselinePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BoxBaselinePositionPropertyInfo = (~) BaselinePosition
type AttrBaseTypeConstraint BoxBaselinePositionPropertyInfo = BoxK
type AttrGetType BoxBaselinePositionPropertyInfo = BaselinePosition
type AttrLabel BoxBaselinePositionPropertyInfo = "Box::baseline-position"
attrGet _ = getBoxBaselinePosition
attrSet _ = setBoxBaselinePosition
attrConstruct _ = constructBoxBaselinePosition
-- VVV Prop "homogeneous"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getBoxHomogeneous :: (MonadIO m, BoxK o) => o -> m Bool
getBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous"
setBoxHomogeneous :: (MonadIO m, BoxK o) => o -> Bool -> m ()
setBoxHomogeneous obj val = liftIO $ setObjectPropertyBool obj "homogeneous" val
constructBoxHomogeneous :: Bool -> IO ([Char], GValue)
constructBoxHomogeneous val = constructObjectPropertyBool "homogeneous" val
data BoxHomogeneousPropertyInfo
instance AttrInfo BoxHomogeneousPropertyInfo where
type AttrAllowedOps BoxHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BoxHomogeneousPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BoxHomogeneousPropertyInfo = BoxK
type AttrGetType BoxHomogeneousPropertyInfo = Bool
type AttrLabel BoxHomogeneousPropertyInfo = "Box::homogeneous"
attrGet _ = getBoxHomogeneous
attrSet _ = setBoxHomogeneous
attrConstruct _ = constructBoxHomogeneous
-- VVV Prop "spacing"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getBoxSpacing :: (MonadIO m, BoxK o) => o -> m Int32
getBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"
setBoxSpacing :: (MonadIO m, BoxK o) => o -> Int32 -> m ()
setBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val
constructBoxSpacing :: Int32 -> IO ([Char], GValue)
constructBoxSpacing val = constructObjectPropertyCInt "spacing" val
data BoxSpacingPropertyInfo
instance AttrInfo BoxSpacingPropertyInfo where
type AttrAllowedOps BoxSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BoxSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint BoxSpacingPropertyInfo = BoxK
type AttrGetType BoxSpacingPropertyInfo = Int32
type AttrLabel BoxSpacingPropertyInfo = "Box::spacing"
attrGet _ = getBoxSpacing
attrSet _ = setBoxSpacing
attrConstruct _ = constructBoxSpacing
type instance AttributeList Box = BoxAttributeList
type BoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
type instance SignalList Box = BoxSignalList
type BoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Box::new
-- method type : Constructor
-- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Box"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_new" gtk_box_new ::
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
Int32 -> -- spacing : TBasicType TInt32
IO (Ptr Box)
boxNew ::
(MonadIO m) =>
Orientation -> -- orientation
Int32 -> -- spacing
m Box
boxNew orientation spacing = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_box_new orientation' spacing
checkUnexpectedReturnNULL "gtk_box_new" result
result' <- (newObject Box) result
return result'
-- method Box::get_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "BaselinePosition"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_baseline_position" gtk_box_get_baseline_position ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO CUInt
boxGetBaselinePosition ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m BaselinePosition
boxGetBaselinePosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_baseline_position _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Box::get_center_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_center_widget" gtk_box_get_center_widget ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO (Ptr Widget)
boxGetCenterWidget ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m Widget
boxGetCenterWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_center_widget _obj'
checkUnexpectedReturnNULL "gtk_box_get_center_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Box::get_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_homogeneous" gtk_box_get_homogeneous ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO CInt
boxGetHomogeneous ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m Bool
boxGetHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Box::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_get_spacing" gtk_box_get_spacing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
IO Int32
boxGetSpacing ::
(MonadIO m, BoxK a) =>
a -> -- _obj
m Int32
boxGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_box_get_spacing _obj'
touchManagedPtr _obj
return result
-- method Box::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_pack_end" gtk_box_pack_end ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- fill : TBasicType TBoolean
Word32 -> -- padding : TBasicType TUInt32
IO ()
boxPackEnd ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- expand
Bool -> -- fill
Word32 -> -- padding
m ()
boxPackEnd _obj child expand fill padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let expand' = (fromIntegral . fromEnum) expand
let fill' = (fromIntegral . fromEnum) fill
gtk_box_pack_end _obj' child' expand' fill' padding
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_pack_start" gtk_box_pack_start ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- fill : TBasicType TBoolean
Word32 -> -- padding : TBasicType TUInt32
IO ()
boxPackStart ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- expand
Bool -> -- fill
Word32 -> -- padding
m ()
boxPackStart _obj child expand fill padding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let expand' = (fromIntegral . fromEnum) expand
let fill' = (fromIntegral . fromEnum) fill
gtk_box_pack_start _obj' child' expand' fill' padding
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::query_child_packing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_query_child_packing" gtk_box_query_child_packing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr CInt -> -- expand : TBasicType TBoolean
Ptr CInt -> -- fill : TBasicType TBoolean
Ptr Word32 -> -- padding : TBasicType TUInt32
Ptr CUInt -> -- pack_type : TInterface "Gtk" "PackType"
IO ()
boxQueryChildPacking ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
m (Bool,Bool,Word32,PackType)
boxQueryChildPacking _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
expand <- allocMem :: IO (Ptr CInt)
fill <- allocMem :: IO (Ptr CInt)
padding <- allocMem :: IO (Ptr Word32)
pack_type <- allocMem :: IO (Ptr CUInt)
gtk_box_query_child_packing _obj' child' expand fill padding pack_type
expand' <- peek expand
let expand'' = (/= 0) expand'
fill' <- peek fill
let fill'' = (/= 0) fill'
padding' <- peek padding
pack_type' <- peek pack_type
let pack_type'' = (toEnum . fromIntegral) pack_type'
touchManagedPtr _obj
touchManagedPtr child
freeMem expand
freeMem fill
freeMem padding
freeMem pack_type
return (expand'', fill'', padding', pack_type'')
-- method Box::reorder_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_reorder_child" gtk_box_reorder_child ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- position : TBasicType TInt32
IO ()
boxReorderChild ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- position
m ()
boxReorderChild _obj child position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_box_reorder_child _obj' child' position
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::set_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_baseline_position" gtk_box_set_baseline_position ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
CUInt -> -- position : TInterface "Gtk" "BaselinePosition"
IO ()
boxSetBaselinePosition ::
(MonadIO m, BoxK a) =>
a -> -- _obj
BaselinePosition -> -- position
m ()
boxSetBaselinePosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gtk_box_set_baseline_position _obj' position'
touchManagedPtr _obj
return ()
-- method Box::set_center_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_center_widget" gtk_box_set_center_widget ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
boxSetCenterWidget ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
boxSetCenterWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_box_set_center_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()
-- method Box::set_child_packing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_child_packing" gtk_box_set_child_packing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
CInt -> -- expand : TBasicType TBoolean
CInt -> -- fill : TBasicType TBoolean
Word32 -> -- padding : TBasicType TUInt32
CUInt -> -- pack_type : TInterface "Gtk" "PackType"
IO ()
boxSetChildPacking ::
(MonadIO m, BoxK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Bool -> -- expand
Bool -> -- fill
Word32 -> -- padding
PackType -> -- pack_type
m ()
boxSetChildPacking _obj child expand fill padding pack_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let expand' = (fromIntegral . fromEnum) expand
let fill' = (fromIntegral . fromEnum) fill
let pack_type' = (fromIntegral . fromEnum) pack_type
gtk_box_set_child_packing _obj' child' expand' fill' padding pack_type'
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Box::set_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_homogeneous" gtk_box_set_homogeneous ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
boxSetHomogeneous ::
(MonadIO m, BoxK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
boxSetHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_box_set_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Box::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_box_set_spacing" gtk_box_set_spacing ::
Ptr Box -> -- _obj : TInterface "Gtk" "Box"
Int32 -> -- spacing : TBasicType TInt32
IO ()
boxSetSpacing ::
(MonadIO m, BoxK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
boxSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_box_set_spacing _obj' spacing
touchManagedPtr _obj
return ()