module GI.Gtk.Objects.Paned
(
Paned(..) ,
PanedK ,
toPaned ,
noPaned ,
panedAdd1 ,
panedAdd2 ,
panedGetChild1 ,
panedGetChild2 ,
panedGetHandleWindow ,
panedGetPosition ,
panedGetWideHandle ,
panedNew ,
panedPack1 ,
panedPack2 ,
panedSetPosition ,
panedSetWideHandle ,
PanedMaxPositionPropertyInfo ,
getPanedMaxPosition ,
PanedMinPositionPropertyInfo ,
getPanedMinPosition ,
PanedPositionPropertyInfo ,
constructPanedPosition ,
getPanedPosition ,
setPanedPosition ,
PanedPositionSetPropertyInfo ,
constructPanedPositionSet ,
getPanedPositionSet ,
setPanedPositionSet ,
PanedWideHandlePropertyInfo ,
constructPanedWideHandle ,
getPanedWideHandle ,
setPanedWideHandle ,
PanedAcceptPositionCallback ,
PanedAcceptPositionCallbackC ,
PanedAcceptPositionSignalInfo ,
afterPanedAcceptPosition ,
mkPanedAcceptPositionCallback ,
noPanedAcceptPositionCallback ,
onPanedAcceptPosition ,
panedAcceptPositionCallbackWrapper ,
panedAcceptPositionClosure ,
PanedCancelPositionCallback ,
PanedCancelPositionCallbackC ,
PanedCancelPositionSignalInfo ,
afterPanedCancelPosition ,
mkPanedCancelPositionCallback ,
noPanedCancelPositionCallback ,
onPanedCancelPosition ,
panedCancelPositionCallbackWrapper ,
panedCancelPositionClosure ,
PanedCycleChildFocusCallback ,
PanedCycleChildFocusCallbackC ,
PanedCycleChildFocusSignalInfo ,
afterPanedCycleChildFocus ,
mkPanedCycleChildFocusCallback ,
noPanedCycleChildFocusCallback ,
onPanedCycleChildFocus ,
panedCycleChildFocusCallbackWrapper ,
panedCycleChildFocusClosure ,
PanedCycleHandleFocusCallback ,
PanedCycleHandleFocusCallbackC ,
PanedCycleHandleFocusSignalInfo ,
afterPanedCycleHandleFocus ,
mkPanedCycleHandleFocusCallback ,
noPanedCycleHandleFocusCallback ,
onPanedCycleHandleFocus ,
panedCycleHandleFocusCallbackWrapper ,
panedCycleHandleFocusClosure ,
PanedMoveHandleCallback ,
PanedMoveHandleCallbackC ,
PanedMoveHandleSignalInfo ,
afterPanedMoveHandle ,
mkPanedMoveHandleCallback ,
noPanedMoveHandleCallback ,
onPanedMoveHandle ,
panedMoveHandleCallbackWrapper ,
panedMoveHandleClosure ,
PanedToggleHandleFocusCallback ,
PanedToggleHandleFocusCallbackC ,
PanedToggleHandleFocusSignalInfo ,
afterPanedToggleHandleFocus ,
mkPanedToggleHandleFocusCallback ,
noPanedToggleHandleFocusCallback ,
onPanedToggleHandleFocus ,
panedToggleHandleFocusCallbackWrapper ,
panedToggleHandleFocusClosure ,
) 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.Gdk as Gdk
newtype Paned = Paned (ForeignPtr Paned)
foreign import ccall "gtk_paned_get_type"
c_gtk_paned_get_type :: IO GType
type instance ParentTypes Paned = PanedParentTypes
type PanedParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Paned where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_paned_get_type
class GObject o => PanedK o
instance (GObject o, IsDescendantOf Paned o) => PanedK o
toPaned :: PanedK o => o -> IO Paned
toPaned = unsafeCastTo Paned
noPaned :: Maybe Paned
noPaned = Nothing
type PanedAcceptPositionCallback =
IO Bool
noPanedAcceptPositionCallback :: Maybe PanedAcceptPositionCallback
noPanedAcceptPositionCallback = Nothing
type PanedAcceptPositionCallbackC =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkPanedAcceptPositionCallback :: PanedAcceptPositionCallbackC -> IO (FunPtr PanedAcceptPositionCallbackC)
panedAcceptPositionClosure :: PanedAcceptPositionCallback -> IO Closure
panedAcceptPositionClosure cb = newCClosure =<< mkPanedAcceptPositionCallback wrapped
where wrapped = panedAcceptPositionCallbackWrapper cb
panedAcceptPositionCallbackWrapper ::
PanedAcceptPositionCallback ->
Ptr () ->
Ptr () ->
IO CInt
panedAcceptPositionCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onPanedAcceptPosition :: (GObject a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId
onPanedAcceptPosition obj cb = liftIO $ connectPanedAcceptPosition obj cb SignalConnectBefore
afterPanedAcceptPosition :: (GObject a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId
afterPanedAcceptPosition obj cb = connectPanedAcceptPosition obj cb SignalConnectAfter
connectPanedAcceptPosition :: (GObject a, MonadIO m) =>
a -> PanedAcceptPositionCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedAcceptPosition obj cb after = liftIO $ do
cb' <- mkPanedAcceptPositionCallback (panedAcceptPositionCallbackWrapper cb)
connectSignalFunPtr obj "accept-position" cb' after
type PanedCancelPositionCallback =
IO Bool
noPanedCancelPositionCallback :: Maybe PanedCancelPositionCallback
noPanedCancelPositionCallback = Nothing
type PanedCancelPositionCallbackC =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkPanedCancelPositionCallback :: PanedCancelPositionCallbackC -> IO (FunPtr PanedCancelPositionCallbackC)
panedCancelPositionClosure :: PanedCancelPositionCallback -> IO Closure
panedCancelPositionClosure cb = newCClosure =<< mkPanedCancelPositionCallback wrapped
where wrapped = panedCancelPositionCallbackWrapper cb
panedCancelPositionCallbackWrapper ::
PanedCancelPositionCallback ->
Ptr () ->
Ptr () ->
IO CInt
panedCancelPositionCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onPanedCancelPosition :: (GObject a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId
onPanedCancelPosition obj cb = liftIO $ connectPanedCancelPosition obj cb SignalConnectBefore
afterPanedCancelPosition :: (GObject a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId
afterPanedCancelPosition obj cb = connectPanedCancelPosition obj cb SignalConnectAfter
connectPanedCancelPosition :: (GObject a, MonadIO m) =>
a -> PanedCancelPositionCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedCancelPosition obj cb after = liftIO $ do
cb' <- mkPanedCancelPositionCallback (panedCancelPositionCallbackWrapper cb)
connectSignalFunPtr obj "cancel-position" cb' after
type PanedCycleChildFocusCallback =
Bool ->
IO Bool
noPanedCycleChildFocusCallback :: Maybe PanedCycleChildFocusCallback
noPanedCycleChildFocusCallback = Nothing
type PanedCycleChildFocusCallbackC =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkPanedCycleChildFocusCallback :: PanedCycleChildFocusCallbackC -> IO (FunPtr PanedCycleChildFocusCallbackC)
panedCycleChildFocusClosure :: PanedCycleChildFocusCallback -> IO Closure
panedCycleChildFocusClosure cb = newCClosure =<< mkPanedCycleChildFocusCallback wrapped
where wrapped = panedCycleChildFocusCallbackWrapper cb
panedCycleChildFocusCallbackWrapper ::
PanedCycleChildFocusCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
panedCycleChildFocusCallbackWrapper _cb _ reversed _ = do
let reversed' = (/= 0) reversed
result <- _cb reversed'
let result' = (fromIntegral . fromEnum) result
return result'
onPanedCycleChildFocus :: (GObject a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId
onPanedCycleChildFocus obj cb = liftIO $ connectPanedCycleChildFocus obj cb SignalConnectBefore
afterPanedCycleChildFocus :: (GObject a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId
afterPanedCycleChildFocus obj cb = connectPanedCycleChildFocus obj cb SignalConnectAfter
connectPanedCycleChildFocus :: (GObject a, MonadIO m) =>
a -> PanedCycleChildFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedCycleChildFocus obj cb after = liftIO $ do
cb' <- mkPanedCycleChildFocusCallback (panedCycleChildFocusCallbackWrapper cb)
connectSignalFunPtr obj "cycle-child-focus" cb' after
type PanedCycleHandleFocusCallback =
Bool ->
IO Bool
noPanedCycleHandleFocusCallback :: Maybe PanedCycleHandleFocusCallback
noPanedCycleHandleFocusCallback = Nothing
type PanedCycleHandleFocusCallbackC =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkPanedCycleHandleFocusCallback :: PanedCycleHandleFocusCallbackC -> IO (FunPtr PanedCycleHandleFocusCallbackC)
panedCycleHandleFocusClosure :: PanedCycleHandleFocusCallback -> IO Closure
panedCycleHandleFocusClosure cb = newCClosure =<< mkPanedCycleHandleFocusCallback wrapped
where wrapped = panedCycleHandleFocusCallbackWrapper cb
panedCycleHandleFocusCallbackWrapper ::
PanedCycleHandleFocusCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO CInt
panedCycleHandleFocusCallbackWrapper _cb _ reversed _ = do
let reversed' = (/= 0) reversed
result <- _cb reversed'
let result' = (fromIntegral . fromEnum) result
return result'
onPanedCycleHandleFocus :: (GObject a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId
onPanedCycleHandleFocus obj cb = liftIO $ connectPanedCycleHandleFocus obj cb SignalConnectBefore
afterPanedCycleHandleFocus :: (GObject a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId
afterPanedCycleHandleFocus obj cb = connectPanedCycleHandleFocus obj cb SignalConnectAfter
connectPanedCycleHandleFocus :: (GObject a, MonadIO m) =>
a -> PanedCycleHandleFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedCycleHandleFocus obj cb after = liftIO $ do
cb' <- mkPanedCycleHandleFocusCallback (panedCycleHandleFocusCallbackWrapper cb)
connectSignalFunPtr obj "cycle-handle-focus" cb' after
type PanedMoveHandleCallback =
ScrollType ->
IO Bool
noPanedMoveHandleCallback :: Maybe PanedMoveHandleCallback
noPanedMoveHandleCallback = Nothing
type PanedMoveHandleCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkPanedMoveHandleCallback :: PanedMoveHandleCallbackC -> IO (FunPtr PanedMoveHandleCallbackC)
panedMoveHandleClosure :: PanedMoveHandleCallback -> IO Closure
panedMoveHandleClosure cb = newCClosure =<< mkPanedMoveHandleCallback wrapped
where wrapped = panedMoveHandleCallbackWrapper cb
panedMoveHandleCallbackWrapper ::
PanedMoveHandleCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
panedMoveHandleCallbackWrapper _cb _ scroll_type _ = do
let scroll_type' = (toEnum . fromIntegral) scroll_type
result <- _cb scroll_type'
let result' = (fromIntegral . fromEnum) result
return result'
onPanedMoveHandle :: (GObject a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId
onPanedMoveHandle obj cb = liftIO $ connectPanedMoveHandle obj cb SignalConnectBefore
afterPanedMoveHandle :: (GObject a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId
afterPanedMoveHandle obj cb = connectPanedMoveHandle obj cb SignalConnectAfter
connectPanedMoveHandle :: (GObject a, MonadIO m) =>
a -> PanedMoveHandleCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedMoveHandle obj cb after = liftIO $ do
cb' <- mkPanedMoveHandleCallback (panedMoveHandleCallbackWrapper cb)
connectSignalFunPtr obj "move-handle" cb' after
type PanedToggleHandleFocusCallback =
IO Bool
noPanedToggleHandleFocusCallback :: Maybe PanedToggleHandleFocusCallback
noPanedToggleHandleFocusCallback = Nothing
type PanedToggleHandleFocusCallbackC =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkPanedToggleHandleFocusCallback :: PanedToggleHandleFocusCallbackC -> IO (FunPtr PanedToggleHandleFocusCallbackC)
panedToggleHandleFocusClosure :: PanedToggleHandleFocusCallback -> IO Closure
panedToggleHandleFocusClosure cb = newCClosure =<< mkPanedToggleHandleFocusCallback wrapped
where wrapped = panedToggleHandleFocusCallbackWrapper cb
panedToggleHandleFocusCallbackWrapper ::
PanedToggleHandleFocusCallback ->
Ptr () ->
Ptr () ->
IO CInt
panedToggleHandleFocusCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onPanedToggleHandleFocus :: (GObject a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId
onPanedToggleHandleFocus obj cb = liftIO $ connectPanedToggleHandleFocus obj cb SignalConnectBefore
afterPanedToggleHandleFocus :: (GObject a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId
afterPanedToggleHandleFocus obj cb = connectPanedToggleHandleFocus obj cb SignalConnectAfter
connectPanedToggleHandleFocus :: (GObject a, MonadIO m) =>
a -> PanedToggleHandleFocusCallback -> SignalConnectMode -> m SignalHandlerId
connectPanedToggleHandleFocus obj cb after = liftIO $ do
cb' <- mkPanedToggleHandleFocusCallback (panedToggleHandleFocusCallbackWrapper cb)
connectSignalFunPtr obj "toggle-handle-focus" cb' after
getPanedMaxPosition :: (MonadIO m, PanedK o) => o -> m Int32
getPanedMaxPosition obj = liftIO $ getObjectPropertyCInt obj "max-position"
data PanedMaxPositionPropertyInfo
instance AttrInfo PanedMaxPositionPropertyInfo where
type AttrAllowedOps PanedMaxPositionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint PanedMaxPositionPropertyInfo = (~) ()
type AttrBaseTypeConstraint PanedMaxPositionPropertyInfo = PanedK
type AttrGetType PanedMaxPositionPropertyInfo = Int32
type AttrLabel PanedMaxPositionPropertyInfo = "Paned::max-position"
attrGet _ = getPanedMaxPosition
attrSet _ = undefined
attrConstruct _ = undefined
getPanedMinPosition :: (MonadIO m, PanedK o) => o -> m Int32
getPanedMinPosition obj = liftIO $ getObjectPropertyCInt obj "min-position"
data PanedMinPositionPropertyInfo
instance AttrInfo PanedMinPositionPropertyInfo where
type AttrAllowedOps PanedMinPositionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint PanedMinPositionPropertyInfo = (~) ()
type AttrBaseTypeConstraint PanedMinPositionPropertyInfo = PanedK
type AttrGetType PanedMinPositionPropertyInfo = Int32
type AttrLabel PanedMinPositionPropertyInfo = "Paned::min-position"
attrGet _ = getPanedMinPosition
attrSet _ = undefined
attrConstruct _ = undefined
getPanedPosition :: (MonadIO m, PanedK o) => o -> m Int32
getPanedPosition obj = liftIO $ getObjectPropertyCInt obj "position"
setPanedPosition :: (MonadIO m, PanedK o) => o -> Int32 -> m ()
setPanedPosition obj val = liftIO $ setObjectPropertyCInt obj "position" val
constructPanedPosition :: Int32 -> IO ([Char], GValue)
constructPanedPosition val = constructObjectPropertyCInt "position" val
data PanedPositionPropertyInfo
instance AttrInfo PanedPositionPropertyInfo where
type AttrAllowedOps PanedPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PanedPositionPropertyInfo = (~) Int32
type AttrBaseTypeConstraint PanedPositionPropertyInfo = PanedK
type AttrGetType PanedPositionPropertyInfo = Int32
type AttrLabel PanedPositionPropertyInfo = "Paned::position"
attrGet _ = getPanedPosition
attrSet _ = setPanedPosition
attrConstruct _ = constructPanedPosition
getPanedPositionSet :: (MonadIO m, PanedK o) => o -> m Bool
getPanedPositionSet obj = liftIO $ getObjectPropertyBool obj "position-set"
setPanedPositionSet :: (MonadIO m, PanedK o) => o -> Bool -> m ()
setPanedPositionSet obj val = liftIO $ setObjectPropertyBool obj "position-set" val
constructPanedPositionSet :: Bool -> IO ([Char], GValue)
constructPanedPositionSet val = constructObjectPropertyBool "position-set" val
data PanedPositionSetPropertyInfo
instance AttrInfo PanedPositionSetPropertyInfo where
type AttrAllowedOps PanedPositionSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PanedPositionSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint PanedPositionSetPropertyInfo = PanedK
type AttrGetType PanedPositionSetPropertyInfo = Bool
type AttrLabel PanedPositionSetPropertyInfo = "Paned::position-set"
attrGet _ = getPanedPositionSet
attrSet _ = setPanedPositionSet
attrConstruct _ = constructPanedPositionSet
getPanedWideHandle :: (MonadIO m, PanedK o) => o -> m Bool
getPanedWideHandle obj = liftIO $ getObjectPropertyBool obj "wide-handle"
setPanedWideHandle :: (MonadIO m, PanedK o) => o -> Bool -> m ()
setPanedWideHandle obj val = liftIO $ setObjectPropertyBool obj "wide-handle" val
constructPanedWideHandle :: Bool -> IO ([Char], GValue)
constructPanedWideHandle val = constructObjectPropertyBool "wide-handle" val
data PanedWideHandlePropertyInfo
instance AttrInfo PanedWideHandlePropertyInfo where
type AttrAllowedOps PanedWideHandlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PanedWideHandlePropertyInfo = (~) Bool
type AttrBaseTypeConstraint PanedWideHandlePropertyInfo = PanedK
type AttrGetType PanedWideHandlePropertyInfo = Bool
type AttrLabel PanedWideHandlePropertyInfo = "Paned::wide-handle"
attrGet _ = getPanedWideHandle
attrSet _ = setPanedWideHandle
attrConstruct _ = constructPanedWideHandle
type instance AttributeList Paned = PanedAttributeList
type PanedAttributeList = ('[ '("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), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("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), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data PanedAcceptPositionSignalInfo
instance SignalInfo PanedAcceptPositionSignalInfo where
type HaskellCallbackType PanedAcceptPositionSignalInfo = PanedAcceptPositionCallback
connectSignal _ = connectPanedAcceptPosition
data PanedCancelPositionSignalInfo
instance SignalInfo PanedCancelPositionSignalInfo where
type HaskellCallbackType PanedCancelPositionSignalInfo = PanedCancelPositionCallback
connectSignal _ = connectPanedCancelPosition
data PanedCycleChildFocusSignalInfo
instance SignalInfo PanedCycleChildFocusSignalInfo where
type HaskellCallbackType PanedCycleChildFocusSignalInfo = PanedCycleChildFocusCallback
connectSignal _ = connectPanedCycleChildFocus
data PanedCycleHandleFocusSignalInfo
instance SignalInfo PanedCycleHandleFocusSignalInfo where
type HaskellCallbackType PanedCycleHandleFocusSignalInfo = PanedCycleHandleFocusCallback
connectSignal _ = connectPanedCycleHandleFocus
data PanedMoveHandleSignalInfo
instance SignalInfo PanedMoveHandleSignalInfo where
type HaskellCallbackType PanedMoveHandleSignalInfo = PanedMoveHandleCallback
connectSignal _ = connectPanedMoveHandle
data PanedToggleHandleFocusSignalInfo
instance SignalInfo PanedToggleHandleFocusSignalInfo where
type HaskellCallbackType PanedToggleHandleFocusSignalInfo = PanedToggleHandleFocusCallback
connectSignal _ = connectPanedToggleHandleFocus
type instance SignalList Paned = PanedSignalList
type PanedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("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), '("move-handle", PanedMoveHandleSignalInfo), '("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), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("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_paned_new" gtk_paned_new ::
CUInt ->
IO (Ptr Paned)
panedNew ::
(MonadIO m) =>
Orientation ->
m Paned
panedNew orientation = liftIO $ do
let orientation' = (fromIntegral . fromEnum) orientation
result <- gtk_paned_new orientation'
checkUnexpectedReturnNULL "gtk_paned_new" result
result' <- (newObject Paned) result
return result'
foreign import ccall "gtk_paned_add1" gtk_paned_add1 ::
Ptr Paned ->
Ptr Widget ->
IO ()
panedAdd1 ::
(MonadIO m, PanedK a, WidgetK b) =>
a ->
b ->
m ()
panedAdd1 _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_paned_add1 _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_paned_add2" gtk_paned_add2 ::
Ptr Paned ->
Ptr Widget ->
IO ()
panedAdd2 ::
(MonadIO m, PanedK a, WidgetK b) =>
a ->
b ->
m ()
panedAdd2 _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_paned_add2 _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_paned_get_child1" gtk_paned_get_child1 ::
Ptr Paned ->
IO (Ptr Widget)
panedGetChild1 ::
(MonadIO m, PanedK a) =>
a ->
m Widget
panedGetChild1 _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_child1 _obj'
checkUnexpectedReturnNULL "gtk_paned_get_child1" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_paned_get_child2" gtk_paned_get_child2 ::
Ptr Paned ->
IO (Ptr Widget)
panedGetChild2 ::
(MonadIO m, PanedK a) =>
a ->
m Widget
panedGetChild2 _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_child2 _obj'
checkUnexpectedReturnNULL "gtk_paned_get_child2" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_paned_get_handle_window" gtk_paned_get_handle_window ::
Ptr Paned ->
IO (Ptr Gdk.Window)
panedGetHandleWindow ::
(MonadIO m, PanedK a) =>
a ->
m Gdk.Window
panedGetHandleWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_handle_window _obj'
checkUnexpectedReturnNULL "gtk_paned_get_handle_window" result
result' <- (newObject Gdk.Window) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_paned_get_position" gtk_paned_get_position ::
Ptr Paned ->
IO Int32
panedGetPosition ::
(MonadIO m, PanedK a) =>
a ->
m Int32
panedGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_position _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_paned_get_wide_handle" gtk_paned_get_wide_handle ::
Ptr Paned ->
IO CInt
panedGetWideHandle ::
(MonadIO m, PanedK a) =>
a ->
m Bool
panedGetWideHandle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_paned_get_wide_handle _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_paned_pack1" gtk_paned_pack1 ::
Ptr Paned ->
Ptr Widget ->
CInt ->
CInt ->
IO ()
panedPack1 ::
(MonadIO m, PanedK a, WidgetK b) =>
a ->
b ->
Bool ->
Bool ->
m ()
panedPack1 _obj child resize shrink = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let resize' = (fromIntegral . fromEnum) resize
let shrink' = (fromIntegral . fromEnum) shrink
gtk_paned_pack1 _obj' child' resize' shrink'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_paned_pack2" gtk_paned_pack2 ::
Ptr Paned ->
Ptr Widget ->
CInt ->
CInt ->
IO ()
panedPack2 ::
(MonadIO m, PanedK a, WidgetK b) =>
a ->
b ->
Bool ->
Bool ->
m ()
panedPack2 _obj child resize shrink = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
let resize' = (fromIntegral . fromEnum) resize
let shrink' = (fromIntegral . fromEnum) shrink
gtk_paned_pack2 _obj' child' resize' shrink'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_paned_set_position" gtk_paned_set_position ::
Ptr Paned ->
Int32 ->
IO ()
panedSetPosition ::
(MonadIO m, PanedK a) =>
a ->
Int32 ->
m ()
panedSetPosition _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_paned_set_position _obj' position
touchManagedPtr _obj
return ()
foreign import ccall "gtk_paned_set_wide_handle" gtk_paned_set_wide_handle ::
Ptr Paned ->
CInt ->
IO ()
panedSetWideHandle ::
(MonadIO m, PanedK a) =>
a ->
Bool ->
m ()
panedSetWideHandle _obj wide = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let wide' = (fromIntegral . fromEnum) wide
gtk_paned_set_wide_handle _obj' wide'
touchManagedPtr _obj
return ()