module GI.Gtk.Objects.Container
(
Container(..) ,
ContainerK ,
toContainer ,
noContainer ,
containerAdd ,
containerCheckResize ,
containerChildGetProperty ,
containerChildNotify ,
containerChildNotifyByPspec ,
containerChildSetProperty ,
containerChildType ,
containerForall ,
containerForeach ,
containerGetBorderWidth ,
containerGetChildren ,
containerGetFocusChain ,
containerGetFocusChild ,
containerGetFocusHadjustment ,
containerGetFocusVadjustment ,
containerGetPathForChild ,
containerGetResizeMode ,
containerPropagateDraw ,
containerRemove ,
containerResizeChildren ,
containerSetBorderWidth ,
containerSetFocusChain ,
containerSetFocusChild ,
containerSetFocusHadjustment ,
containerSetFocusVadjustment ,
containerSetReallocateRedraws ,
containerSetResizeMode ,
containerUnsetFocusChain ,
ContainerBorderWidthPropertyInfo ,
constructContainerBorderWidth ,
getContainerBorderWidth ,
setContainerBorderWidth ,
ContainerChildPropertyInfo ,
constructContainerChild ,
setContainerChild ,
ContainerResizeModePropertyInfo ,
constructContainerResizeMode ,
getContainerResizeMode ,
setContainerResizeMode ,
ContainerAddCallback ,
ContainerAddCallbackC ,
ContainerAddSignalInfo ,
afterContainerAdd ,
containerAddCallbackWrapper ,
containerAddClosure ,
mkContainerAddCallback ,
noContainerAddCallback ,
onContainerAdd ,
ContainerCheckResizeCallback ,
ContainerCheckResizeCallbackC ,
ContainerCheckResizeSignalInfo ,
afterContainerCheckResize ,
containerCheckResizeCallbackWrapper ,
containerCheckResizeClosure ,
mkContainerCheckResizeCallback ,
noContainerCheckResizeCallback ,
onContainerCheckResize ,
ContainerRemoveCallback ,
ContainerRemoveCallbackC ,
ContainerRemoveSignalInfo ,
afterContainerRemove ,
containerRemoveCallbackWrapper ,
containerRemoveClosure ,
mkContainerRemoveCallback ,
noContainerRemoveCallback ,
onContainerRemove ,
ContainerSetFocusChildCallback ,
ContainerSetFocusChildCallbackC ,
ContainerSetFocusChildSignalInfo ,
afterContainerSetFocusChild ,
containerSetFocusChildCallbackWrapper ,
containerSetFocusChildClosure ,
mkContainerSetFocusChildCallback ,
noContainerSetFocusChildCallback ,
onContainerSetFocusChild ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
import qualified GI.Cairo as Cairo
newtype Container = Container (ForeignPtr Container)
foreign import ccall "gtk_container_get_type"
c_gtk_container_get_type :: IO GType
type instance ParentTypes Container = ContainerParentTypes
type ContainerParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject Container where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_container_get_type
class GObject o => ContainerK o
instance (GObject o, IsDescendantOf Container o) => ContainerK o
toContainer :: ContainerK o => o -> IO Container
toContainer = unsafeCastTo Container
noContainer :: Maybe Container
noContainer = Nothing
type ContainerAddCallback =
Widget ->
IO ()
noContainerAddCallback :: Maybe ContainerAddCallback
noContainerAddCallback = Nothing
type ContainerAddCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkContainerAddCallback :: ContainerAddCallbackC -> IO (FunPtr ContainerAddCallbackC)
containerAddClosure :: ContainerAddCallback -> IO Closure
containerAddClosure cb = newCClosure =<< mkContainerAddCallback wrapped
where wrapped = containerAddCallbackWrapper cb
containerAddCallbackWrapper ::
ContainerAddCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
containerAddCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onContainerAdd :: (GObject a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId
onContainerAdd obj cb = liftIO $ connectContainerAdd obj cb SignalConnectBefore
afterContainerAdd :: (GObject a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId
afterContainerAdd obj cb = connectContainerAdd obj cb SignalConnectAfter
connectContainerAdd :: (GObject a, MonadIO m) =>
a -> ContainerAddCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerAdd obj cb after = liftIO $ do
cb' <- mkContainerAddCallback (containerAddCallbackWrapper cb)
connectSignalFunPtr obj "add" cb' after
type ContainerCheckResizeCallback =
IO ()
noContainerCheckResizeCallback :: Maybe ContainerCheckResizeCallback
noContainerCheckResizeCallback = Nothing
type ContainerCheckResizeCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkContainerCheckResizeCallback :: ContainerCheckResizeCallbackC -> IO (FunPtr ContainerCheckResizeCallbackC)
containerCheckResizeClosure :: ContainerCheckResizeCallback -> IO Closure
containerCheckResizeClosure cb = newCClosure =<< mkContainerCheckResizeCallback wrapped
where wrapped = containerCheckResizeCallbackWrapper cb
containerCheckResizeCallbackWrapper ::
ContainerCheckResizeCallback ->
Ptr () ->
Ptr () ->
IO ()
containerCheckResizeCallbackWrapper _cb _ _ = do
_cb
onContainerCheckResize :: (GObject a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId
onContainerCheckResize obj cb = liftIO $ connectContainerCheckResize obj cb SignalConnectBefore
afterContainerCheckResize :: (GObject a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId
afterContainerCheckResize obj cb = connectContainerCheckResize obj cb SignalConnectAfter
connectContainerCheckResize :: (GObject a, MonadIO m) =>
a -> ContainerCheckResizeCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerCheckResize obj cb after = liftIO $ do
cb' <- mkContainerCheckResizeCallback (containerCheckResizeCallbackWrapper cb)
connectSignalFunPtr obj "check-resize" cb' after
type ContainerRemoveCallback =
Widget ->
IO ()
noContainerRemoveCallback :: Maybe ContainerRemoveCallback
noContainerRemoveCallback = Nothing
type ContainerRemoveCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkContainerRemoveCallback :: ContainerRemoveCallbackC -> IO (FunPtr ContainerRemoveCallbackC)
containerRemoveClosure :: ContainerRemoveCallback -> IO Closure
containerRemoveClosure cb = newCClosure =<< mkContainerRemoveCallback wrapped
where wrapped = containerRemoveCallbackWrapper cb
containerRemoveCallbackWrapper ::
ContainerRemoveCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
containerRemoveCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onContainerRemove :: (GObject a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId
onContainerRemove obj cb = liftIO $ connectContainerRemove obj cb SignalConnectBefore
afterContainerRemove :: (GObject a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId
afterContainerRemove obj cb = connectContainerRemove obj cb SignalConnectAfter
connectContainerRemove :: (GObject a, MonadIO m) =>
a -> ContainerRemoveCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerRemove obj cb after = liftIO $ do
cb' <- mkContainerRemoveCallback (containerRemoveCallbackWrapper cb)
connectSignalFunPtr obj "remove" cb' after
type ContainerSetFocusChildCallback =
Widget ->
IO ()
noContainerSetFocusChildCallback :: Maybe ContainerSetFocusChildCallback
noContainerSetFocusChildCallback = Nothing
type ContainerSetFocusChildCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkContainerSetFocusChildCallback :: ContainerSetFocusChildCallbackC -> IO (FunPtr ContainerSetFocusChildCallbackC)
containerSetFocusChildClosure :: ContainerSetFocusChildCallback -> IO Closure
containerSetFocusChildClosure cb = newCClosure =<< mkContainerSetFocusChildCallback wrapped
where wrapped = containerSetFocusChildCallbackWrapper cb
containerSetFocusChildCallbackWrapper ::
ContainerSetFocusChildCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
containerSetFocusChildCallbackWrapper _cb _ object _ = do
object' <- (newObject Widget) object
_cb object'
onContainerSetFocusChild :: (GObject a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId
onContainerSetFocusChild obj cb = liftIO $ connectContainerSetFocusChild obj cb SignalConnectBefore
afterContainerSetFocusChild :: (GObject a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId
afterContainerSetFocusChild obj cb = connectContainerSetFocusChild obj cb SignalConnectAfter
connectContainerSetFocusChild :: (GObject a, MonadIO m) =>
a -> ContainerSetFocusChildCallback -> SignalConnectMode -> m SignalHandlerId
connectContainerSetFocusChild obj cb after = liftIO $ do
cb' <- mkContainerSetFocusChildCallback (containerSetFocusChildCallbackWrapper cb)
connectSignalFunPtr obj "set-focus-child" cb' after
getContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> m Word32
getContainerBorderWidth obj = liftIO $ getObjectPropertyCUInt obj "border-width"
setContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> Word32 -> m ()
setContainerBorderWidth obj val = liftIO $ setObjectPropertyCUInt obj "border-width" val
constructContainerBorderWidth :: Word32 -> IO ([Char], GValue)
constructContainerBorderWidth val = constructObjectPropertyCUInt "border-width" val
data ContainerBorderWidthPropertyInfo
instance AttrInfo ContainerBorderWidthPropertyInfo where
type AttrAllowedOps ContainerBorderWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ContainerBorderWidthPropertyInfo = (~) Word32
type AttrBaseTypeConstraint ContainerBorderWidthPropertyInfo = ContainerK
type AttrGetType ContainerBorderWidthPropertyInfo = Word32
type AttrLabel ContainerBorderWidthPropertyInfo = "Container::border-width"
attrGet _ = getContainerBorderWidth
attrSet _ = setContainerBorderWidth
attrConstruct _ = constructContainerBorderWidth
setContainerChild :: (MonadIO m, ContainerK o, WidgetK a) => o -> a -> m ()
setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" val
constructContainerChild :: (WidgetK a) => a -> IO ([Char], GValue)
constructContainerChild val = constructObjectPropertyObject "child" val
data ContainerChildPropertyInfo
instance AttrInfo ContainerChildPropertyInfo where
type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK
type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK
type AttrGetType ContainerChildPropertyInfo = ()
type AttrLabel ContainerChildPropertyInfo = "Container::child"
attrGet _ = undefined
attrSet _ = setContainerChild
attrConstruct _ = constructContainerChild
getContainerResizeMode :: (MonadIO m, ContainerK o) => o -> m ResizeMode
getContainerResizeMode obj = liftIO $ getObjectPropertyEnum obj "resize-mode"
setContainerResizeMode :: (MonadIO m, ContainerK o) => o -> ResizeMode -> m ()
setContainerResizeMode obj val = liftIO $ setObjectPropertyEnum obj "resize-mode" val
constructContainerResizeMode :: ResizeMode -> IO ([Char], GValue)
constructContainerResizeMode val = constructObjectPropertyEnum "resize-mode" val
data ContainerResizeModePropertyInfo
instance AttrInfo ContainerResizeModePropertyInfo where
type AttrAllowedOps ContainerResizeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ContainerResizeModePropertyInfo = (~) ResizeMode
type AttrBaseTypeConstraint ContainerResizeModePropertyInfo = ContainerK
type AttrGetType ContainerResizeModePropertyInfo = ResizeMode
type AttrLabel ContainerResizeModePropertyInfo = "Container::resize-mode"
attrGet _ = getContainerResizeMode
attrSet _ = setContainerResizeMode
attrConstruct _ = constructContainerResizeMode
type instance AttributeList Container = ContainerAttributeList
type ContainerAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("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), '("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), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data ContainerAddSignalInfo
instance SignalInfo ContainerAddSignalInfo where
type HaskellCallbackType ContainerAddSignalInfo = ContainerAddCallback
connectSignal _ = connectContainerAdd
data ContainerCheckResizeSignalInfo
instance SignalInfo ContainerCheckResizeSignalInfo where
type HaskellCallbackType ContainerCheckResizeSignalInfo = ContainerCheckResizeCallback
connectSignal _ = connectContainerCheckResize
data ContainerRemoveSignalInfo
instance SignalInfo ContainerRemoveSignalInfo where
type HaskellCallbackType ContainerRemoveSignalInfo = ContainerRemoveCallback
connectSignal _ = connectContainerRemove
data ContainerSetFocusChildSignalInfo
instance SignalInfo ContainerSetFocusChildSignalInfo where
type HaskellCallbackType ContainerSetFocusChildSignalInfo = ContainerSetFocusChildCallback
connectSignal _ = connectContainerSetFocusChild
type instance SignalList Container = ContainerSignalList
type ContainerSignalList = ('[ '("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, *)])
foreign import ccall "gtk_container_add" gtk_container_add ::
Ptr Container ->
Ptr Widget ->
IO ()
containerAdd ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
m ()
containerAdd _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_container_add _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
foreign import ccall "gtk_container_check_resize" gtk_container_check_resize ::
Ptr Container ->
IO ()
containerCheckResize ::
(MonadIO m, ContainerK a) =>
a ->
m ()
containerCheckResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_check_resize _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_child_get_property" gtk_container_child_get_property ::
Ptr Container ->
Ptr Widget ->
CString ->
Ptr GValue ->
IO ()
containerChildGetProperty ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
T.Text ->
GValue ->
m ()
containerChildGetProperty _obj child property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_container_child_get_property _obj' child' property_name' value'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr value
freeMem property_name'
return ()
foreign import ccall "gtk_container_child_notify" gtk_container_child_notify ::
Ptr Container ->
Ptr Widget ->
CString ->
IO ()
containerChildNotify ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
T.Text ->
m ()
containerChildNotify _obj child child_property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
child_property' <- textToCString child_property
gtk_container_child_notify _obj' child' child_property'
touchManagedPtr _obj
touchManagedPtr child
freeMem child_property'
return ()
foreign import ccall "gtk_container_child_notify_by_pspec" gtk_container_child_notify_by_pspec ::
Ptr Container ->
Ptr Widget ->
Ptr GParamSpec ->
IO ()
containerChildNotifyByPspec ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
GParamSpec ->
m ()
containerChildNotifyByPspec _obj child pspec = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let pspec' = unsafeManagedPtrGetPtr pspec
gtk_container_child_notify_by_pspec _obj' child' pspec'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_container_child_set_property" gtk_container_child_set_property ::
Ptr Container ->
Ptr Widget ->
CString ->
Ptr GValue ->
IO ()
containerChildSetProperty ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
T.Text ->
GValue ->
m ()
containerChildSetProperty _obj child property_name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
property_name' <- textToCString property_name
let value' = unsafeManagedPtrGetPtr value
gtk_container_child_set_property _obj' child' property_name' value'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr value
freeMem property_name'
return ()
foreign import ccall "gtk_container_child_type" gtk_container_child_type ::
Ptr Container ->
IO CGType
containerChildType ::
(MonadIO m, ContainerK a) =>
a ->
m GType
containerChildType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_child_type _obj'
let result' = GType result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_container_forall" gtk_container_forall ::
Ptr Container ->
FunPtr CallbackC ->
Ptr () ->
IO ()
containerForall ::
(MonadIO m, ContainerK a) =>
a ->
Callback ->
m ()
containerForall _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkCallback (callbackWrapper Nothing callback)
let callback_data = nullPtr
gtk_container_forall _obj' callback' callback_data
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_foreach" gtk_container_foreach ::
Ptr Container ->
FunPtr CallbackC ->
Ptr () ->
IO ()
containerForeach ::
(MonadIO m, ContainerK a) =>
a ->
Callback ->
m ()
containerForeach _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkCallback (callbackWrapper Nothing callback)
let callback_data = nullPtr
gtk_container_foreach _obj' callback' callback_data
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_get_border_width" gtk_container_get_border_width ::
Ptr Container ->
IO Word32
containerGetBorderWidth ::
(MonadIO m, ContainerK a) =>
a ->
m Word32
containerGetBorderWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_border_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_container_get_children" gtk_container_get_children ::
Ptr Container ->
IO (Ptr (GList (Ptr Widget)))
containerGetChildren ::
(MonadIO m, ContainerK a) =>
a ->
m [Widget]
containerGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_children _obj'
checkUnexpectedReturnNULL "gtk_container_get_children" result
result' <- unpackGList result
result'' <- mapM (newObject Widget) result'
g_list_free result
touchManagedPtr _obj
return result''
foreign import ccall "gtk_container_get_focus_chain" gtk_container_get_focus_chain ::
Ptr Container ->
Ptr (Ptr (GList (Ptr Widget))) ->
IO CInt
containerGetFocusChain ::
(MonadIO m, ContainerK a) =>
a ->
m (Bool,[Widget])
containerGetFocusChain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
focusable_widgets <- allocMem :: IO (Ptr (Ptr (GList (Ptr Widget))))
result <- gtk_container_get_focus_chain _obj' focusable_widgets
let result' = (/= 0) result
focusable_widgets' <- peek focusable_widgets
focusable_widgets'' <- unpackGList focusable_widgets'
focusable_widgets''' <- mapM (newObject Widget) focusable_widgets''
g_list_free focusable_widgets'
touchManagedPtr _obj
freeMem focusable_widgets
return (result', focusable_widgets''')
foreign import ccall "gtk_container_get_focus_child" gtk_container_get_focus_child ::
Ptr Container ->
IO (Ptr Widget)
containerGetFocusChild ::
(MonadIO m, ContainerK a) =>
a ->
m Widget
containerGetFocusChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_focus_child _obj'
checkUnexpectedReturnNULL "gtk_container_get_focus_child" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_container_get_focus_hadjustment" gtk_container_get_focus_hadjustment ::
Ptr Container ->
IO (Ptr Adjustment)
containerGetFocusHadjustment ::
(MonadIO m, ContainerK a) =>
a ->
m Adjustment
containerGetFocusHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_focus_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_container_get_focus_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_container_get_focus_vadjustment" gtk_container_get_focus_vadjustment ::
Ptr Container ->
IO (Ptr Adjustment)
containerGetFocusVadjustment ::
(MonadIO m, ContainerK a) =>
a ->
m Adjustment
containerGetFocusVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_focus_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_container_get_focus_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_container_get_path_for_child" gtk_container_get_path_for_child ::
Ptr Container ->
Ptr Widget ->
IO (Ptr WidgetPath)
containerGetPathForChild ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
m WidgetPath
containerGetPathForChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
result <- gtk_container_get_path_for_child _obj' child'
checkUnexpectedReturnNULL "gtk_container_get_path_for_child" result
result' <- (wrapBoxed WidgetPath) result
touchManagedPtr _obj
touchManagedPtr child
return result'
foreign import ccall "gtk_container_get_resize_mode" gtk_container_get_resize_mode ::
Ptr Container ->
IO CUInt
containerGetResizeMode ::
(MonadIO m, ContainerK a) =>
a ->
m ResizeMode
containerGetResizeMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_container_get_resize_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_container_propagate_draw" gtk_container_propagate_draw ::
Ptr Container ->
Ptr Widget ->
Ptr Cairo.Context ->
IO ()
containerPropagateDraw ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
Cairo.Context ->
m ()
containerPropagateDraw _obj child cr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let cr' = unsafeManagedPtrGetPtr cr
gtk_container_propagate_draw _obj' child' cr'
touchManagedPtr _obj
touchManagedPtr child
touchManagedPtr cr
return ()
foreign import ccall "gtk_container_remove" gtk_container_remove ::
Ptr Container ->
Ptr Widget ->
IO ()
containerRemove ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
b ->
m ()
containerRemove _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
gtk_container_remove _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return ()
foreign import ccall "gtk_container_resize_children" gtk_container_resize_children ::
Ptr Container ->
IO ()
containerResizeChildren ::
(MonadIO m, ContainerK a) =>
a ->
m ()
containerResizeChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_resize_children _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_set_border_width" gtk_container_set_border_width ::
Ptr Container ->
Word32 ->
IO ()
containerSetBorderWidth ::
(MonadIO m, ContainerK a) =>
a ->
Word32 ->
m ()
containerSetBorderWidth _obj border_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_set_border_width _obj' border_width
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_set_focus_chain" gtk_container_set_focus_chain ::
Ptr Container ->
Ptr (GList (Ptr Widget)) ->
IO ()
containerSetFocusChain ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
[b] ->
m ()
containerSetFocusChain _obj focusable_widgets = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let focusable_widgets' = map unsafeManagedPtrCastPtr focusable_widgets
focusable_widgets'' <- packGList focusable_widgets'
gtk_container_set_focus_chain _obj' focusable_widgets''
touchManagedPtr _obj
mapM_ touchManagedPtr focusable_widgets
g_list_free focusable_widgets''
return ()
foreign import ccall "gtk_container_set_focus_child" gtk_container_set_focus_child ::
Ptr Container ->
Ptr Widget ->
IO ()
containerSetFocusChild ::
(MonadIO m, ContainerK a, WidgetK b) =>
a ->
Maybe (b) ->
m ()
containerSetFocusChild _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeChild <- case child of
Nothing -> return nullPtr
Just jChild -> do
let jChild' = unsafeManagedPtrCastPtr jChild
return jChild'
gtk_container_set_focus_child _obj' maybeChild
touchManagedPtr _obj
whenJust child touchManagedPtr
return ()
foreign import ccall "gtk_container_set_focus_hadjustment" gtk_container_set_focus_hadjustment ::
Ptr Container ->
Ptr Adjustment ->
IO ()
containerSetFocusHadjustment ::
(MonadIO m, ContainerK a, AdjustmentK b) =>
a ->
b ->
m ()
containerSetFocusHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_container_set_focus_hadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
foreign import ccall "gtk_container_set_focus_vadjustment" gtk_container_set_focus_vadjustment ::
Ptr Container ->
Ptr Adjustment ->
IO ()
containerSetFocusVadjustment ::
(MonadIO m, ContainerK a, AdjustmentK b) =>
a ->
b ->
m ()
containerSetFocusVadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_container_set_focus_vadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
foreign import ccall "gtk_container_set_reallocate_redraws" gtk_container_set_reallocate_redraws ::
Ptr Container ->
CInt ->
IO ()
containerSetReallocateRedraws ::
(MonadIO m, ContainerK a) =>
a ->
Bool ->
m ()
containerSetReallocateRedraws _obj needs_redraws = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let needs_redraws' = (fromIntegral . fromEnum) needs_redraws
gtk_container_set_reallocate_redraws _obj' needs_redraws'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_set_resize_mode" gtk_container_set_resize_mode ::
Ptr Container ->
CUInt ->
IO ()
containerSetResizeMode ::
(MonadIO m, ContainerK a) =>
a ->
ResizeMode ->
m ()
containerSetResizeMode _obj resize_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resize_mode' = (fromIntegral . fromEnum) resize_mode
gtk_container_set_resize_mode _obj' resize_mode'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_container_unset_focus_chain" gtk_container_unset_focus_chain ::
Ptr Container ->
IO ()
containerUnsetFocusChain ::
(MonadIO m, ContainerK a) =>
a ->
m ()
containerUnsetFocusChain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_container_unset_focus_chain _obj'
touchManagedPtr _obj
return ()