{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Paned
(
Paned(..) ,
IsPaned ,
toPaned ,
#if defined(ENABLE_OVERLOADING)
ResolvePanedMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PanedAdd1MethodInfo ,
#endif
panedAdd1 ,
#if defined(ENABLE_OVERLOADING)
PanedAdd2MethodInfo ,
#endif
panedAdd2 ,
#if defined(ENABLE_OVERLOADING)
PanedGetChild1MethodInfo ,
#endif
panedGetChild1 ,
#if defined(ENABLE_OVERLOADING)
PanedGetChild2MethodInfo ,
#endif
panedGetChild2 ,
#if defined(ENABLE_OVERLOADING)
PanedGetHandleWindowMethodInfo ,
#endif
panedGetHandleWindow ,
#if defined(ENABLE_OVERLOADING)
PanedGetPositionMethodInfo ,
#endif
panedGetPosition ,
#if defined(ENABLE_OVERLOADING)
PanedGetWideHandleMethodInfo ,
#endif
panedGetWideHandle ,
panedNew ,
#if defined(ENABLE_OVERLOADING)
PanedPack1MethodInfo ,
#endif
panedPack1 ,
#if defined(ENABLE_OVERLOADING)
PanedPack2MethodInfo ,
#endif
panedPack2 ,
#if defined(ENABLE_OVERLOADING)
PanedSetPositionMethodInfo ,
#endif
panedSetPosition ,
#if defined(ENABLE_OVERLOADING)
PanedSetWideHandleMethodInfo ,
#endif
panedSetWideHandle ,
#if defined(ENABLE_OVERLOADING)
PanedMaxPositionPropertyInfo ,
#endif
getPanedMaxPosition ,
#if defined(ENABLE_OVERLOADING)
panedMaxPosition ,
#endif
#if defined(ENABLE_OVERLOADING)
PanedMinPositionPropertyInfo ,
#endif
getPanedMinPosition ,
#if defined(ENABLE_OVERLOADING)
panedMinPosition ,
#endif
#if defined(ENABLE_OVERLOADING)
PanedPositionPropertyInfo ,
#endif
constructPanedPosition ,
getPanedPosition ,
#if defined(ENABLE_OVERLOADING)
panedPosition ,
#endif
setPanedPosition ,
#if defined(ENABLE_OVERLOADING)
PanedPositionSetPropertyInfo ,
#endif
constructPanedPositionSet ,
getPanedPositionSet ,
#if defined(ENABLE_OVERLOADING)
panedPositionSet ,
#endif
setPanedPositionSet ,
#if defined(ENABLE_OVERLOADING)
PanedWideHandlePropertyInfo ,
#endif
constructPanedWideHandle ,
getPanedWideHandle ,
#if defined(ENABLE_OVERLOADING)
panedWideHandle ,
#endif
setPanedWideHandle ,
C_PanedAcceptPositionCallback ,
PanedAcceptPositionCallback ,
#if defined(ENABLE_OVERLOADING)
PanedAcceptPositionSignalInfo ,
#endif
afterPanedAcceptPosition ,
genClosure_PanedAcceptPosition ,
mk_PanedAcceptPositionCallback ,
noPanedAcceptPositionCallback ,
onPanedAcceptPosition ,
wrap_PanedAcceptPositionCallback ,
C_PanedCancelPositionCallback ,
PanedCancelPositionCallback ,
#if defined(ENABLE_OVERLOADING)
PanedCancelPositionSignalInfo ,
#endif
afterPanedCancelPosition ,
genClosure_PanedCancelPosition ,
mk_PanedCancelPositionCallback ,
noPanedCancelPositionCallback ,
onPanedCancelPosition ,
wrap_PanedCancelPositionCallback ,
C_PanedCycleChildFocusCallback ,
PanedCycleChildFocusCallback ,
#if defined(ENABLE_OVERLOADING)
PanedCycleChildFocusSignalInfo ,
#endif
afterPanedCycleChildFocus ,
genClosure_PanedCycleChildFocus ,
mk_PanedCycleChildFocusCallback ,
noPanedCycleChildFocusCallback ,
onPanedCycleChildFocus ,
wrap_PanedCycleChildFocusCallback ,
C_PanedCycleHandleFocusCallback ,
PanedCycleHandleFocusCallback ,
#if defined(ENABLE_OVERLOADING)
PanedCycleHandleFocusSignalInfo ,
#endif
afterPanedCycleHandleFocus ,
genClosure_PanedCycleHandleFocus ,
mk_PanedCycleHandleFocusCallback ,
noPanedCycleHandleFocusCallback ,
onPanedCycleHandleFocus ,
wrap_PanedCycleHandleFocusCallback ,
C_PanedMoveHandleCallback ,
PanedMoveHandleCallback ,
#if defined(ENABLE_OVERLOADING)
PanedMoveHandleSignalInfo ,
#endif
afterPanedMoveHandle ,
genClosure_PanedMoveHandle ,
mk_PanedMoveHandleCallback ,
noPanedMoveHandleCallback ,
onPanedMoveHandle ,
wrap_PanedMoveHandleCallback ,
C_PanedToggleHandleFocusCallback ,
PanedToggleHandleFocusCallback ,
#if defined(ENABLE_OVERLOADING)
PanedToggleHandleFocusSignalInfo ,
#endif
afterPanedToggleHandleFocus ,
genClosure_PanedToggleHandleFocus ,
mk_PanedToggleHandleFocusCallback ,
noPanedToggleHandleFocusCallback ,
onPanedToggleHandleFocus ,
wrap_PanedToggleHandleFocusCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Paned = Paned (SP.ManagedPtr Paned)
deriving (Paned -> Paned -> Bool
(Paned -> Paned -> Bool) -> (Paned -> Paned -> Bool) -> Eq Paned
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Paned -> Paned -> Bool
$c/= :: Paned -> Paned -> Bool
== :: Paned -> Paned -> Bool
$c== :: Paned -> Paned -> Bool
Eq)
instance SP.ManagedPtrNewtype Paned where
toManagedPtr :: Paned -> ManagedPtr Paned
toManagedPtr (Paned ManagedPtr Paned
p) = ManagedPtr Paned
p
foreign import ccall "gtk_paned_get_type"
c_gtk_paned_get_type :: IO B.Types.GType
instance B.Types.TypedObject Paned where
glibType :: IO GType
glibType = IO GType
c_gtk_paned_get_type
instance B.Types.GObject Paned
instance B.GValue.IsGValue Paned where
toGValue :: Paned -> IO GValue
toGValue Paned
o = do
GType
gtype <- IO GType
c_gtk_paned_get_type
Paned -> (Ptr Paned -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Paned
o (GType -> (GValue -> Ptr Paned -> IO ()) -> Ptr Paned -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Paned -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Paned
fromGValue GValue
gv = do
Ptr Paned
ptr <- GValue -> IO (Ptr Paned)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Paned)
(ManagedPtr Paned -> Paned) -> Ptr Paned -> IO Paned
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Paned -> Paned
Paned Ptr Paned
ptr
class (SP.GObject o, O.IsDescendantOf Paned o) => IsPaned o
instance (SP.GObject o, O.IsDescendantOf Paned o) => IsPaned o
instance O.HasParentTypes Paned
type instance O.ParentTypes Paned = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toPaned :: (MonadIO m, IsPaned o) => o -> m Paned
toPaned :: o -> m Paned
toPaned = IO Paned -> m Paned
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Paned -> m Paned) -> (o -> IO Paned) -> o -> m Paned
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Paned -> Paned) -> o -> IO Paned
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Paned -> Paned
Paned
#if defined(ENABLE_OVERLOADING)
type family ResolvePanedMethod (t :: Symbol) (o :: *) :: * where
ResolvePanedMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolvePanedMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolvePanedMethod "add1" o = PanedAdd1MethodInfo
ResolvePanedMethod "add2" o = PanedAdd2MethodInfo
ResolvePanedMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolvePanedMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolvePanedMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolvePanedMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolvePanedMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolvePanedMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolvePanedMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePanedMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePanedMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolvePanedMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolvePanedMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolvePanedMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolvePanedMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolvePanedMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolvePanedMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolvePanedMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolvePanedMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolvePanedMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolvePanedMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolvePanedMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolvePanedMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolvePanedMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolvePanedMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolvePanedMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolvePanedMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolvePanedMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolvePanedMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolvePanedMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolvePanedMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolvePanedMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolvePanedMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolvePanedMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolvePanedMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolvePanedMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolvePanedMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolvePanedMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolvePanedMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolvePanedMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolvePanedMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolvePanedMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolvePanedMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolvePanedMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolvePanedMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolvePanedMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolvePanedMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolvePanedMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolvePanedMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolvePanedMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolvePanedMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolvePanedMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolvePanedMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolvePanedMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolvePanedMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolvePanedMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolvePanedMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolvePanedMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolvePanedMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolvePanedMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolvePanedMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolvePanedMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolvePanedMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePanedMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolvePanedMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolvePanedMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePanedMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePanedMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolvePanedMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolvePanedMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolvePanedMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolvePanedMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolvePanedMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolvePanedMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolvePanedMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolvePanedMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolvePanedMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolvePanedMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolvePanedMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolvePanedMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolvePanedMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolvePanedMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolvePanedMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolvePanedMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolvePanedMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolvePanedMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolvePanedMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolvePanedMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePanedMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolvePanedMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolvePanedMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolvePanedMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolvePanedMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolvePanedMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolvePanedMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolvePanedMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolvePanedMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolvePanedMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolvePanedMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolvePanedMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolvePanedMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolvePanedMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolvePanedMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolvePanedMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolvePanedMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolvePanedMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePanedMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePanedMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolvePanedMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolvePanedMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolvePanedMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolvePanedMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolvePanedMethod "pack1" o = PanedPack1MethodInfo
ResolvePanedMethod "pack2" o = PanedPack2MethodInfo
ResolvePanedMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolvePanedMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolvePanedMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolvePanedMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolvePanedMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolvePanedMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolvePanedMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolvePanedMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolvePanedMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolvePanedMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolvePanedMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolvePanedMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePanedMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePanedMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolvePanedMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolvePanedMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolvePanedMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolvePanedMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolvePanedMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolvePanedMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolvePanedMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolvePanedMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolvePanedMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolvePanedMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolvePanedMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolvePanedMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePanedMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolvePanedMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolvePanedMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolvePanedMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolvePanedMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolvePanedMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolvePanedMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolvePanedMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolvePanedMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolvePanedMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePanedMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePanedMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolvePanedMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolvePanedMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolvePanedMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePanedMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolvePanedMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolvePanedMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolvePanedMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolvePanedMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolvePanedMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePanedMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolvePanedMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolvePanedMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolvePanedMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePanedMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolvePanedMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolvePanedMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolvePanedMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolvePanedMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolvePanedMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolvePanedMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolvePanedMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolvePanedMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolvePanedMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolvePanedMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolvePanedMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolvePanedMethod "getChild1" o = PanedGetChild1MethodInfo
ResolvePanedMethod "getChild2" o = PanedGetChild2MethodInfo
ResolvePanedMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolvePanedMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolvePanedMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolvePanedMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolvePanedMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolvePanedMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolvePanedMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePanedMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolvePanedMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolvePanedMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolvePanedMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolvePanedMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolvePanedMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolvePanedMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolvePanedMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolvePanedMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolvePanedMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolvePanedMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolvePanedMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolvePanedMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolvePanedMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolvePanedMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolvePanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo
ResolvePanedMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolvePanedMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolvePanedMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolvePanedMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolvePanedMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolvePanedMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolvePanedMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolvePanedMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolvePanedMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolvePanedMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolvePanedMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolvePanedMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolvePanedMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolvePanedMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolvePanedMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolvePanedMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolvePanedMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolvePanedMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolvePanedMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolvePanedMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolvePanedMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolvePanedMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolvePanedMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolvePanedMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolvePanedMethod "getPosition" o = PanedGetPositionMethodInfo
ResolvePanedMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolvePanedMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolvePanedMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolvePanedMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolvePanedMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolvePanedMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolvePanedMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePanedMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePanedMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolvePanedMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolvePanedMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolvePanedMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolvePanedMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolvePanedMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolvePanedMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolvePanedMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolvePanedMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolvePanedMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolvePanedMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolvePanedMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolvePanedMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolvePanedMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolvePanedMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolvePanedMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolvePanedMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolvePanedMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolvePanedMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolvePanedMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolvePanedMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolvePanedMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolvePanedMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolvePanedMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolvePanedMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolvePanedMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolvePanedMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolvePanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo
ResolvePanedMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolvePanedMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolvePanedMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolvePanedMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolvePanedMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolvePanedMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolvePanedMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolvePanedMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolvePanedMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolvePanedMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolvePanedMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolvePanedMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePanedMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePanedMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolvePanedMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolvePanedMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolvePanedMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolvePanedMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolvePanedMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolvePanedMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolvePanedMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolvePanedMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolvePanedMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolvePanedMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolvePanedMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolvePanedMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolvePanedMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolvePanedMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolvePanedMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolvePanedMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolvePanedMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolvePanedMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolvePanedMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolvePanedMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolvePanedMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolvePanedMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolvePanedMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolvePanedMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolvePanedMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolvePanedMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolvePanedMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolvePanedMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolvePanedMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolvePanedMethod "setPosition" o = PanedSetPositionMethodInfo
ResolvePanedMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePanedMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolvePanedMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolvePanedMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolvePanedMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolvePanedMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolvePanedMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolvePanedMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolvePanedMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolvePanedMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolvePanedMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolvePanedMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolvePanedMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolvePanedMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolvePanedMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolvePanedMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolvePanedMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolvePanedMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolvePanedMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolvePanedMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolvePanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo
ResolvePanedMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolvePanedMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePanedMethod t Paned, O.MethodInfo info Paned p) => OL.IsLabel t (Paned -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type PanedAcceptPositionCallback =
IO Bool
noPanedAcceptPositionCallback :: Maybe PanedAcceptPositionCallback
noPanedAcceptPositionCallback :: Maybe PanedAcceptPositionCallback
noPanedAcceptPositionCallback = Maybe PanedAcceptPositionCallback
forall a. Maybe a
Nothing
type C_PanedAcceptPositionCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedAcceptPositionCallback :: C_PanedAcceptPositionCallback -> IO (FunPtr C_PanedAcceptPositionCallback)
genClosure_PanedAcceptPosition :: MonadIO m => PanedAcceptPositionCallback -> m (GClosure C_PanedAcceptPositionCallback)
genClosure_PanedAcceptPosition :: PanedAcceptPositionCallback
-> m (GClosure C_PanedAcceptPositionCallback)
genClosure_PanedAcceptPosition PanedAcceptPositionCallback
cb = IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback))
-> IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback PanedAcceptPositionCallback
cb
C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedAcceptPositionCallback C_PanedAcceptPositionCallback
cb' IO (FunPtr C_PanedAcceptPositionCallback)
-> (FunPtr C_PanedAcceptPositionCallback
-> IO (GClosure C_PanedAcceptPositionCallback))
-> IO (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PanedAcceptPositionCallback
-> IO (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PanedAcceptPositionCallback ::
PanedAcceptPositionCallback ->
C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback :: PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback PanedAcceptPositionCallback
_cb Ptr ()
_ Ptr ()
_ = do
Bool
result <- PanedAcceptPositionCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedAcceptPosition :: (IsPaned a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId
onPanedAcceptPosition :: a -> PanedAcceptPositionCallback -> m SignalHandlerId
onPanedAcceptPosition a
obj PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback PanedAcceptPositionCallback
cb
FunPtr C_PanedAcceptPositionCallback
cb'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedAcceptPositionCallback C_PanedAcceptPositionCallback
cb'
a
-> Text
-> FunPtr C_PanedAcceptPositionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"accept-position" FunPtr C_PanedAcceptPositionCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedAcceptPosition :: (IsPaned a, MonadIO m) => a -> PanedAcceptPositionCallback -> m SignalHandlerId
afterPanedAcceptPosition :: a -> PanedAcceptPositionCallback -> m SignalHandlerId
afterPanedAcceptPosition a
obj PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback PanedAcceptPositionCallback
cb
FunPtr C_PanedAcceptPositionCallback
cb'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedAcceptPositionCallback C_PanedAcceptPositionCallback
cb'
a
-> Text
-> FunPtr C_PanedAcceptPositionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"accept-position" FunPtr C_PanedAcceptPositionCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PanedAcceptPositionSignalInfo
instance SignalInfo PanedAcceptPositionSignalInfo where
type HaskellCallbackType PanedAcceptPositionSignalInfo = PanedAcceptPositionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PanedAcceptPositionCallback cb
cb'' <- mk_PanedAcceptPositionCallback cb'
connectSignalFunPtr obj "accept-position" cb'' connectMode detail
#endif
type PanedCancelPositionCallback =
IO Bool
noPanedCancelPositionCallback :: Maybe PanedCancelPositionCallback
noPanedCancelPositionCallback :: Maybe PanedAcceptPositionCallback
noPanedCancelPositionCallback = Maybe PanedAcceptPositionCallback
forall a. Maybe a
Nothing
type C_PanedCancelPositionCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedCancelPositionCallback :: C_PanedCancelPositionCallback -> IO (FunPtr C_PanedCancelPositionCallback)
genClosure_PanedCancelPosition :: MonadIO m => PanedCancelPositionCallback -> m (GClosure C_PanedCancelPositionCallback)
genClosure_PanedCancelPosition :: PanedAcceptPositionCallback
-> m (GClosure C_PanedAcceptPositionCallback)
genClosure_PanedCancelPosition PanedAcceptPositionCallback
cb = IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback))
-> IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback PanedAcceptPositionCallback
cb
C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedCancelPositionCallback C_PanedAcceptPositionCallback
cb' IO (FunPtr C_PanedAcceptPositionCallback)
-> (FunPtr C_PanedAcceptPositionCallback
-> IO (GClosure C_PanedAcceptPositionCallback))
-> IO (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PanedAcceptPositionCallback
-> IO (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PanedCancelPositionCallback ::
PanedCancelPositionCallback ->
C_PanedCancelPositionCallback
wrap_PanedCancelPositionCallback :: PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback PanedAcceptPositionCallback
_cb Ptr ()
_ Ptr ()
_ = do
Bool
result <- PanedAcceptPositionCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedCancelPosition :: (IsPaned a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId
onPanedCancelPosition :: a -> PanedAcceptPositionCallback -> m SignalHandlerId
onPanedCancelPosition a
obj PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback PanedAcceptPositionCallback
cb
FunPtr C_PanedAcceptPositionCallback
cb'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedCancelPositionCallback C_PanedAcceptPositionCallback
cb'
a
-> Text
-> FunPtr C_PanedAcceptPositionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cancel-position" FunPtr C_PanedAcceptPositionCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedCancelPosition :: (IsPaned a, MonadIO m) => a -> PanedCancelPositionCallback -> m SignalHandlerId
afterPanedCancelPosition :: a -> PanedAcceptPositionCallback -> m SignalHandlerId
afterPanedCancelPosition a
obj PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback PanedAcceptPositionCallback
cb
FunPtr C_PanedAcceptPositionCallback
cb'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedCancelPositionCallback C_PanedAcceptPositionCallback
cb'
a
-> Text
-> FunPtr C_PanedAcceptPositionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cancel-position" FunPtr C_PanedAcceptPositionCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PanedCancelPositionSignalInfo
instance SignalInfo PanedCancelPositionSignalInfo where
type HaskellCallbackType PanedCancelPositionSignalInfo = PanedCancelPositionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PanedCancelPositionCallback cb
cb'' <- mk_PanedCancelPositionCallback cb'
connectSignalFunPtr obj "cancel-position" cb'' connectMode detail
#endif
type PanedCycleChildFocusCallback =
Bool
-> IO Bool
noPanedCycleChildFocusCallback :: Maybe PanedCycleChildFocusCallback
noPanedCycleChildFocusCallback :: Maybe PanedCycleChildFocusCallback
noPanedCycleChildFocusCallback = Maybe PanedCycleChildFocusCallback
forall a. Maybe a
Nothing
type C_PanedCycleChildFocusCallback =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedCycleChildFocusCallback :: C_PanedCycleChildFocusCallback -> IO (FunPtr C_PanedCycleChildFocusCallback)
genClosure_PanedCycleChildFocus :: MonadIO m => PanedCycleChildFocusCallback -> m (GClosure C_PanedCycleChildFocusCallback)
genClosure_PanedCycleChildFocus :: PanedCycleChildFocusCallback
-> m (GClosure C_PanedCycleChildFocusCallback)
genClosure_PanedCycleChildFocus PanedCycleChildFocusCallback
cb = IO (GClosure C_PanedCycleChildFocusCallback)
-> m (GClosure C_PanedCycleChildFocusCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PanedCycleChildFocusCallback)
-> m (GClosure C_PanedCycleChildFocusCallback))
-> IO (GClosure C_PanedCycleChildFocusCallback)
-> m (GClosure C_PanedCycleChildFocusCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedCycleChildFocusCallback
cb' = PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback PanedCycleChildFocusCallback
cb
C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleChildFocusCallback C_PanedCycleChildFocusCallback
cb' IO (FunPtr C_PanedCycleChildFocusCallback)
-> (FunPtr C_PanedCycleChildFocusCallback
-> IO (GClosure C_PanedCycleChildFocusCallback))
-> IO (GClosure C_PanedCycleChildFocusCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PanedCycleChildFocusCallback
-> IO (GClosure C_PanedCycleChildFocusCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PanedCycleChildFocusCallback ::
PanedCycleChildFocusCallback ->
C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback :: PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback PanedCycleChildFocusCallback
_cb Ptr ()
_ CInt
reversed Ptr ()
_ = do
let reversed' :: Bool
reversed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
reversed
Bool
result <- PanedCycleChildFocusCallback
_cb Bool
reversed'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedCycleChildFocus :: (IsPaned a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId
onPanedCycleChildFocus :: a -> PanedCycleChildFocusCallback -> m SignalHandlerId
onPanedCycleChildFocus a
obj PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedCycleChildFocusCallback
cb' = PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback PanedCycleChildFocusCallback
cb
FunPtr C_PanedCycleChildFocusCallback
cb'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleChildFocusCallback C_PanedCycleChildFocusCallback
cb'
a
-> Text
-> FunPtr C_PanedCycleChildFocusCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cycle-child-focus" FunPtr C_PanedCycleChildFocusCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedCycleChildFocus :: (IsPaned a, MonadIO m) => a -> PanedCycleChildFocusCallback -> m SignalHandlerId
afterPanedCycleChildFocus :: a -> PanedCycleChildFocusCallback -> m SignalHandlerId
afterPanedCycleChildFocus a
obj PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedCycleChildFocusCallback
cb' = PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback PanedCycleChildFocusCallback
cb
FunPtr C_PanedCycleChildFocusCallback
cb'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleChildFocusCallback C_PanedCycleChildFocusCallback
cb'
a
-> Text
-> FunPtr C_PanedCycleChildFocusCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cycle-child-focus" FunPtr C_PanedCycleChildFocusCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PanedCycleChildFocusSignalInfo
instance SignalInfo PanedCycleChildFocusSignalInfo where
type HaskellCallbackType PanedCycleChildFocusSignalInfo = PanedCycleChildFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PanedCycleChildFocusCallback cb
cb'' <- mk_PanedCycleChildFocusCallback cb'
connectSignalFunPtr obj "cycle-child-focus" cb'' connectMode detail
#endif
type PanedCycleHandleFocusCallback =
Bool
-> IO Bool
noPanedCycleHandleFocusCallback :: Maybe PanedCycleHandleFocusCallback
noPanedCycleHandleFocusCallback :: Maybe PanedCycleChildFocusCallback
noPanedCycleHandleFocusCallback = Maybe PanedCycleChildFocusCallback
forall a. Maybe a
Nothing
type C_PanedCycleHandleFocusCallback =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedCycleHandleFocusCallback :: C_PanedCycleHandleFocusCallback -> IO (FunPtr C_PanedCycleHandleFocusCallback)
genClosure_PanedCycleHandleFocus :: MonadIO m => PanedCycleHandleFocusCallback -> m (GClosure C_PanedCycleHandleFocusCallback)
genClosure_PanedCycleHandleFocus :: PanedCycleChildFocusCallback
-> m (GClosure C_PanedCycleChildFocusCallback)
genClosure_PanedCycleHandleFocus PanedCycleChildFocusCallback
cb = IO (GClosure C_PanedCycleChildFocusCallback)
-> m (GClosure C_PanedCycleChildFocusCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PanedCycleChildFocusCallback)
-> m (GClosure C_PanedCycleChildFocusCallback))
-> IO (GClosure C_PanedCycleChildFocusCallback)
-> m (GClosure C_PanedCycleChildFocusCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedCycleChildFocusCallback
cb' = PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback PanedCycleChildFocusCallback
cb
C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleHandleFocusCallback C_PanedCycleChildFocusCallback
cb' IO (FunPtr C_PanedCycleChildFocusCallback)
-> (FunPtr C_PanedCycleChildFocusCallback
-> IO (GClosure C_PanedCycleChildFocusCallback))
-> IO (GClosure C_PanedCycleChildFocusCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PanedCycleChildFocusCallback
-> IO (GClosure C_PanedCycleChildFocusCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PanedCycleHandleFocusCallback ::
PanedCycleHandleFocusCallback ->
C_PanedCycleHandleFocusCallback
wrap_PanedCycleHandleFocusCallback :: PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback PanedCycleChildFocusCallback
_cb Ptr ()
_ CInt
reversed Ptr ()
_ = do
let reversed' :: Bool
reversed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
reversed
Bool
result <- PanedCycleChildFocusCallback
_cb Bool
reversed'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedCycleHandleFocus :: (IsPaned a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId
onPanedCycleHandleFocus :: a -> PanedCycleChildFocusCallback -> m SignalHandlerId
onPanedCycleHandleFocus a
obj PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedCycleChildFocusCallback
cb' = PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback PanedCycleChildFocusCallback
cb
FunPtr C_PanedCycleChildFocusCallback
cb'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleHandleFocusCallback C_PanedCycleChildFocusCallback
cb'
a
-> Text
-> FunPtr C_PanedCycleChildFocusCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cycle-handle-focus" FunPtr C_PanedCycleChildFocusCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedCycleHandleFocus :: (IsPaned a, MonadIO m) => a -> PanedCycleHandleFocusCallback -> m SignalHandlerId
afterPanedCycleHandleFocus :: a -> PanedCycleChildFocusCallback -> m SignalHandlerId
afterPanedCycleHandleFocus a
obj PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedCycleChildFocusCallback
cb' = PanedCycleChildFocusCallback -> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback PanedCycleChildFocusCallback
cb
FunPtr C_PanedCycleChildFocusCallback
cb'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleHandleFocusCallback C_PanedCycleChildFocusCallback
cb'
a
-> Text
-> FunPtr C_PanedCycleChildFocusCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cycle-handle-focus" FunPtr C_PanedCycleChildFocusCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PanedCycleHandleFocusSignalInfo
instance SignalInfo PanedCycleHandleFocusSignalInfo where
type HaskellCallbackType PanedCycleHandleFocusSignalInfo = PanedCycleHandleFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PanedCycleHandleFocusCallback cb
cb'' <- mk_PanedCycleHandleFocusCallback cb'
connectSignalFunPtr obj "cycle-handle-focus" cb'' connectMode detail
#endif
type PanedMoveHandleCallback =
Gtk.Enums.ScrollType
-> IO Bool
noPanedMoveHandleCallback :: Maybe PanedMoveHandleCallback
noPanedMoveHandleCallback :: Maybe PanedMoveHandleCallback
noPanedMoveHandleCallback = Maybe PanedMoveHandleCallback
forall a. Maybe a
Nothing
type C_PanedMoveHandleCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedMoveHandleCallback :: C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
genClosure_PanedMoveHandle :: MonadIO m => PanedMoveHandleCallback -> m (GClosure C_PanedMoveHandleCallback)
genClosure_PanedMoveHandle :: PanedMoveHandleCallback -> m (GClosure C_PanedMoveHandleCallback)
genClosure_PanedMoveHandle PanedMoveHandleCallback
cb = IO (GClosure C_PanedMoveHandleCallback)
-> m (GClosure C_PanedMoveHandleCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PanedMoveHandleCallback)
-> m (GClosure C_PanedMoveHandleCallback))
-> IO (GClosure C_PanedMoveHandleCallback)
-> m (GClosure C_PanedMoveHandleCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedMoveHandleCallback
cb' = PanedMoveHandleCallback -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback PanedMoveHandleCallback
cb
C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
mk_PanedMoveHandleCallback C_PanedMoveHandleCallback
cb' IO (FunPtr C_PanedMoveHandleCallback)
-> (FunPtr C_PanedMoveHandleCallback
-> IO (GClosure C_PanedMoveHandleCallback))
-> IO (GClosure C_PanedMoveHandleCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PanedMoveHandleCallback
-> IO (GClosure C_PanedMoveHandleCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PanedMoveHandleCallback ::
PanedMoveHandleCallback ->
C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback :: PanedMoveHandleCallback -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback PanedMoveHandleCallback
_cb Ptr ()
_ CUInt
scrollType Ptr ()
_ = do
let scrollType' :: ScrollType
scrollType' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scrollType
Bool
result <- PanedMoveHandleCallback
_cb ScrollType
scrollType'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedMoveHandle :: (IsPaned a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId
onPanedMoveHandle :: a -> PanedMoveHandleCallback -> m SignalHandlerId
onPanedMoveHandle a
obj PanedMoveHandleCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedMoveHandleCallback
cb' = PanedMoveHandleCallback -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback PanedMoveHandleCallback
cb
FunPtr C_PanedMoveHandleCallback
cb'' <- C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
mk_PanedMoveHandleCallback C_PanedMoveHandleCallback
cb'
a
-> Text
-> FunPtr C_PanedMoveHandleCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-handle" FunPtr C_PanedMoveHandleCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedMoveHandle :: (IsPaned a, MonadIO m) => a -> PanedMoveHandleCallback -> m SignalHandlerId
afterPanedMoveHandle :: a -> PanedMoveHandleCallback -> m SignalHandlerId
afterPanedMoveHandle a
obj PanedMoveHandleCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedMoveHandleCallback
cb' = PanedMoveHandleCallback -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback PanedMoveHandleCallback
cb
FunPtr C_PanedMoveHandleCallback
cb'' <- C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
mk_PanedMoveHandleCallback C_PanedMoveHandleCallback
cb'
a
-> Text
-> FunPtr C_PanedMoveHandleCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-handle" FunPtr C_PanedMoveHandleCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PanedMoveHandleSignalInfo
instance SignalInfo PanedMoveHandleSignalInfo where
type HaskellCallbackType PanedMoveHandleSignalInfo = PanedMoveHandleCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PanedMoveHandleCallback cb
cb'' <- mk_PanedMoveHandleCallback cb'
connectSignalFunPtr obj "move-handle" cb'' connectMode detail
#endif
type PanedToggleHandleFocusCallback =
IO Bool
noPanedToggleHandleFocusCallback :: Maybe PanedToggleHandleFocusCallback
noPanedToggleHandleFocusCallback :: Maybe PanedAcceptPositionCallback
noPanedToggleHandleFocusCallback = Maybe PanedAcceptPositionCallback
forall a. Maybe a
Nothing
type C_PanedToggleHandleFocusCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedToggleHandleFocusCallback :: C_PanedToggleHandleFocusCallback -> IO (FunPtr C_PanedToggleHandleFocusCallback)
genClosure_PanedToggleHandleFocus :: MonadIO m => PanedToggleHandleFocusCallback -> m (GClosure C_PanedToggleHandleFocusCallback)
genClosure_PanedToggleHandleFocus :: PanedAcceptPositionCallback
-> m (GClosure C_PanedAcceptPositionCallback)
genClosure_PanedToggleHandleFocus PanedAcceptPositionCallback
cb = IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback))
-> IO (GClosure C_PanedAcceptPositionCallback)
-> m (GClosure C_PanedAcceptPositionCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback PanedAcceptPositionCallback
cb
C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedToggleHandleFocusCallback C_PanedAcceptPositionCallback
cb' IO (FunPtr C_PanedAcceptPositionCallback)
-> (FunPtr C_PanedAcceptPositionCallback
-> IO (GClosure C_PanedAcceptPositionCallback))
-> IO (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PanedAcceptPositionCallback
-> IO (GClosure C_PanedAcceptPositionCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PanedToggleHandleFocusCallback ::
PanedToggleHandleFocusCallback ->
C_PanedToggleHandleFocusCallback
wrap_PanedToggleHandleFocusCallback :: PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback PanedAcceptPositionCallback
_cb Ptr ()
_ Ptr ()
_ = do
Bool
result <- PanedAcceptPositionCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedToggleHandleFocus :: (IsPaned a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId
onPanedToggleHandleFocus :: a -> PanedAcceptPositionCallback -> m SignalHandlerId
onPanedToggleHandleFocus a
obj PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback PanedAcceptPositionCallback
cb
FunPtr C_PanedAcceptPositionCallback
cb'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedToggleHandleFocusCallback C_PanedAcceptPositionCallback
cb'
a
-> Text
-> FunPtr C_PanedAcceptPositionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggle-handle-focus" FunPtr C_PanedAcceptPositionCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedToggleHandleFocus :: (IsPaned a, MonadIO m) => a -> PanedToggleHandleFocusCallback -> m SignalHandlerId
afterPanedToggleHandleFocus :: a -> PanedAcceptPositionCallback -> m SignalHandlerId
afterPanedToggleHandleFocus a
obj PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PanedAcceptPositionCallback
cb' = PanedAcceptPositionCallback -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback PanedAcceptPositionCallback
cb
FunPtr C_PanedAcceptPositionCallback
cb'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedToggleHandleFocusCallback C_PanedAcceptPositionCallback
cb'
a
-> Text
-> FunPtr C_PanedAcceptPositionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggle-handle-focus" FunPtr C_PanedAcceptPositionCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PanedToggleHandleFocusSignalInfo
instance SignalInfo PanedToggleHandleFocusSignalInfo where
type HaskellCallbackType PanedToggleHandleFocusSignalInfo = PanedToggleHandleFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PanedToggleHandleFocusCallback cb
cb'' <- mk_PanedToggleHandleFocusCallback cb'
connectSignalFunPtr obj "toggle-handle-focus" cb'' connectMode detail
#endif
getPanedMaxPosition :: (MonadIO m, IsPaned o) => o -> m Int32
getPanedMaxPosition :: o -> m Int32
getPanedMaxPosition o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-position"
#if defined(ENABLE_OVERLOADING)
data PanedMaxPositionPropertyInfo
instance AttrInfo PanedMaxPositionPropertyInfo where
type AttrAllowedOps PanedMaxPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint PanedMaxPositionPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedMaxPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint PanedMaxPositionPropertyInfo = (~) ()
type AttrTransferType PanedMaxPositionPropertyInfo = ()
type AttrGetType PanedMaxPositionPropertyInfo = Int32
type AttrLabel PanedMaxPositionPropertyInfo = "max-position"
type AttrOrigin PanedMaxPositionPropertyInfo = Paned
attrGet = getPanedMaxPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getPanedMinPosition :: (MonadIO m, IsPaned o) => o -> m Int32
getPanedMinPosition :: o -> m Int32
getPanedMinPosition o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"min-position"
#if defined(ENABLE_OVERLOADING)
data PanedMinPositionPropertyInfo
instance AttrInfo PanedMinPositionPropertyInfo where
type AttrAllowedOps PanedMinPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint PanedMinPositionPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedMinPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint PanedMinPositionPropertyInfo = (~) ()
type AttrTransferType PanedMinPositionPropertyInfo = ()
type AttrGetType PanedMinPositionPropertyInfo = Int32
type AttrLabel PanedMinPositionPropertyInfo = "min-position"
type AttrOrigin PanedMinPositionPropertyInfo = Paned
attrGet = getPanedMinPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getPanedPosition :: (MonadIO m, IsPaned o) => o -> m Int32
getPanedPosition :: o -> m Int32
getPanedPosition o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"position"
setPanedPosition :: (MonadIO m, IsPaned o) => o -> Int32 -> m ()
setPanedPosition :: o -> Int32 -> m ()
setPanedPosition o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"position" Int32
val
constructPanedPosition :: (IsPaned o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructPanedPosition :: Int32 -> m (GValueConstruct o)
constructPanedPosition Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"position" Int32
val
#if defined(ENABLE_OVERLOADING)
data PanedPositionPropertyInfo
instance AttrInfo PanedPositionPropertyInfo where
type AttrAllowedOps PanedPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedPositionPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedPositionPropertyInfo = (~) Int32
type AttrTransferTypeConstraint PanedPositionPropertyInfo = (~) Int32
type AttrTransferType PanedPositionPropertyInfo = Int32
type AttrGetType PanedPositionPropertyInfo = Int32
type AttrLabel PanedPositionPropertyInfo = "position"
type AttrOrigin PanedPositionPropertyInfo = Paned
attrGet = getPanedPosition
attrSet = setPanedPosition
attrTransfer _ v = do
return v
attrConstruct = constructPanedPosition
attrClear = undefined
#endif
getPanedPositionSet :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedPositionSet :: o -> m Bool
getPanedPositionSet o
obj = PanedAcceptPositionCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (PanedAcceptPositionCallback -> m Bool)
-> PanedAcceptPositionCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> PanedAcceptPositionCallback
forall a. GObject a => a -> String -> PanedAcceptPositionCallback
B.Properties.getObjectPropertyBool o
obj String
"position-set"
setPanedPositionSet :: (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedPositionSet :: o -> Bool -> m ()
setPanedPositionSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"position-set" Bool
val
constructPanedPositionSet :: (IsPaned o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPanedPositionSet :: Bool -> m (GValueConstruct o)
constructPanedPositionSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"position-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data PanedPositionSetPropertyInfo
instance AttrInfo PanedPositionSetPropertyInfo where
type AttrAllowedOps PanedPositionSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedPositionSetPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedPositionSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PanedPositionSetPropertyInfo = (~) Bool
type AttrTransferType PanedPositionSetPropertyInfo = Bool
type AttrGetType PanedPositionSetPropertyInfo = Bool
type AttrLabel PanedPositionSetPropertyInfo = "position-set"
type AttrOrigin PanedPositionSetPropertyInfo = Paned
attrGet = getPanedPositionSet
attrSet = setPanedPositionSet
attrTransfer _ v = do
return v
attrConstruct = constructPanedPositionSet
attrClear = undefined
#endif
getPanedWideHandle :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedWideHandle :: o -> m Bool
getPanedWideHandle o
obj = PanedAcceptPositionCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (PanedAcceptPositionCallback -> m Bool)
-> PanedAcceptPositionCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> PanedAcceptPositionCallback
forall a. GObject a => a -> String -> PanedAcceptPositionCallback
B.Properties.getObjectPropertyBool o
obj String
"wide-handle"
setPanedWideHandle :: (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedWideHandle :: o -> Bool -> m ()
setPanedWideHandle o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"wide-handle" Bool
val
constructPanedWideHandle :: (IsPaned o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPanedWideHandle :: Bool -> m (GValueConstruct o)
constructPanedWideHandle Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"wide-handle" Bool
val
#if defined(ENABLE_OVERLOADING)
data PanedWideHandlePropertyInfo
instance AttrInfo PanedWideHandlePropertyInfo where
type AttrAllowedOps PanedWideHandlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedWideHandlePropertyInfo = IsPaned
type AttrSetTypeConstraint PanedWideHandlePropertyInfo = (~) Bool
type AttrTransferTypeConstraint PanedWideHandlePropertyInfo = (~) Bool
type AttrTransferType PanedWideHandlePropertyInfo = Bool
type AttrGetType PanedWideHandlePropertyInfo = Bool
type AttrLabel PanedWideHandlePropertyInfo = "wide-handle"
type AttrOrigin PanedWideHandlePropertyInfo = Paned
attrGet = getPanedWideHandle
attrSet = setPanedWideHandle
attrTransfer _ v = do
return v
attrConstruct = constructPanedWideHandle
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Paned
type instance O.AttributeList Paned = PanedAttributeList
type PanedAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
panedMaxPosition :: AttrLabelProxy "maxPosition"
panedMaxPosition = AttrLabelProxy
panedMinPosition :: AttrLabelProxy "minPosition"
panedMinPosition = AttrLabelProxy
panedPosition :: AttrLabelProxy "position"
panedPosition = AttrLabelProxy
panedPositionSet :: AttrLabelProxy "positionSet"
panedPositionSet = AttrLabelProxy
panedWideHandle :: AttrLabelProxy "wideHandle"
panedWideHandle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Paned = PanedSignalList
type PanedSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_paned_new" gtk_paned_new ::
CUInt ->
IO (Ptr Paned)
panedNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.Orientation
-> m Paned
panedNew :: Orientation -> m Paned
panedNew Orientation
orientation = IO Paned -> m Paned
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Paned -> m Paned) -> IO Paned -> m Paned
forall a b. (a -> b) -> a -> b
$ do
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr Paned
result <- CUInt -> IO (Ptr Paned)
gtk_paned_new CUInt
orientation'
Text -> Ptr Paned -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"panedNew" Ptr Paned
result
Paned
result' <- ((ManagedPtr Paned -> Paned) -> Ptr Paned -> IO Paned
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Paned -> Paned
Paned) Ptr Paned
result
Paned -> IO Paned
forall (m :: * -> *) a. Monad m => a -> m a
return Paned
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_paned_add1" gtk_paned_add1 ::
Ptr Paned ->
Ptr Gtk.Widget.Widget ->
IO ()
panedAdd1 ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
panedAdd1 :: a -> b -> m ()
panedAdd1 a
paned b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Paned -> Ptr Widget -> IO ()
gtk_paned_add1 Ptr Paned
paned' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedAdd1MethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) => O.MethodInfo PanedAdd1MethodInfo a signature where
overloadedMethod = panedAdd1
#endif
foreign import ccall "gtk_paned_add2" gtk_paned_add2 ::
Ptr Paned ->
Ptr Gtk.Widget.Widget ->
IO ()
panedAdd2 ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
panedAdd2 :: a -> b -> m ()
panedAdd2 a
paned b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Paned -> Ptr Widget -> IO ()
gtk_paned_add2 Ptr Paned
paned' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedAdd2MethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) => O.MethodInfo PanedAdd2MethodInfo a signature where
overloadedMethod = panedAdd2
#endif
foreign import ccall "gtk_paned_get_child1" gtk_paned_get_child1 ::
Ptr Paned ->
IO (Ptr Gtk.Widget.Widget)
panedGetChild1 ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m (Maybe Gtk.Widget.Widget)
panedGetChild1 :: a -> m (Maybe Widget)
panedGetChild1 a
paned = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Widget
result <- Ptr Paned -> IO (Ptr Widget)
gtk_paned_get_child1 Ptr Paned
paned'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data PanedGetChild1MethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPaned a) => O.MethodInfo PanedGetChild1MethodInfo a signature where
overloadedMethod = panedGetChild1
#endif
foreign import ccall "gtk_paned_get_child2" gtk_paned_get_child2 ::
Ptr Paned ->
IO (Ptr Gtk.Widget.Widget)
panedGetChild2 ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m (Maybe Gtk.Widget.Widget)
panedGetChild2 :: a -> m (Maybe Widget)
panedGetChild2 a
paned = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Widget
result <- Ptr Paned -> IO (Ptr Widget)
gtk_paned_get_child2 Ptr Paned
paned'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data PanedGetChild2MethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPaned a) => O.MethodInfo PanedGetChild2MethodInfo a signature where
overloadedMethod = panedGetChild2
#endif
foreign import ccall "gtk_paned_get_handle_window" gtk_paned_get_handle_window ::
Ptr Paned ->
IO (Ptr Gdk.Window.Window)
panedGetHandleWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Gdk.Window.Window
panedGetHandleWindow :: a -> m Window
panedGetHandleWindow a
paned = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> IO Window -> m Window
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Window
result <- Ptr Paned -> IO (Ptr Window)
gtk_paned_get_handle_window Ptr Paned
paned'
Text -> Ptr Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"panedGetHandleWindow" Ptr Window
result
Window
result' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
data PanedGetHandleWindowMethodInfo
instance (signature ~ (m Gdk.Window.Window), MonadIO m, IsPaned a) => O.MethodInfo PanedGetHandleWindowMethodInfo a signature where
overloadedMethod = panedGetHandleWindow
#endif
foreign import ccall "gtk_paned_get_position" gtk_paned_get_position ::
Ptr Paned ->
IO Int32
panedGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Int32
panedGetPosition :: a -> m Int32
panedGetPosition a
paned = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Int32
result <- Ptr Paned -> IO Int32
gtk_paned_get_position Ptr Paned
paned'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PanedGetPositionMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsPaned a) => O.MethodInfo PanedGetPositionMethodInfo a signature where
overloadedMethod = panedGetPosition
#endif
foreign import ccall "gtk_paned_get_wide_handle" gtk_paned_get_wide_handle ::
Ptr Paned ->
IO CInt
panedGetWideHandle ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Bool
panedGetWideHandle :: a -> m Bool
panedGetWideHandle a
paned = PanedAcceptPositionCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (PanedAcceptPositionCallback -> m Bool)
-> PanedAcceptPositionCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
CInt
result <- Ptr Paned -> IO CInt
gtk_paned_get_wide_handle Ptr Paned
paned'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
PanedCycleChildFocusCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PanedGetWideHandleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPaned a) => O.MethodInfo PanedGetWideHandleMethodInfo a signature where
overloadedMethod = panedGetWideHandle
#endif
foreign import ccall "gtk_paned_pack1" gtk_paned_pack1 ::
Ptr Paned ->
Ptr Gtk.Widget.Widget ->
CInt ->
CInt ->
IO ()
panedPack1 ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> Bool
-> m ()
panedPack1 :: a -> b -> Bool -> Bool -> m ()
panedPack1 a
paned b
child Bool
resize Bool
shrink = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
let resize' :: CInt
resize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
resize
let shrink' :: CInt
shrink' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
shrink
Ptr Paned -> Ptr Widget -> CInt -> CInt -> IO ()
gtk_paned_pack1 Ptr Paned
paned' Ptr Widget
child' CInt
resize' CInt
shrink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedPack1MethodInfo
instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) => O.MethodInfo PanedPack1MethodInfo a signature where
overloadedMethod = panedPack1
#endif
foreign import ccall "gtk_paned_pack2" gtk_paned_pack2 ::
Ptr Paned ->
Ptr Gtk.Widget.Widget ->
CInt ->
CInt ->
IO ()
panedPack2 ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> Bool
-> m ()
panedPack2 :: a -> b -> Bool -> Bool -> m ()
panedPack2 a
paned b
child Bool
resize Bool
shrink = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
let resize' :: CInt
resize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
resize
let shrink' :: CInt
shrink' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
shrink
Ptr Paned -> Ptr Widget -> CInt -> CInt -> IO ()
gtk_paned_pack2 Ptr Paned
paned' Ptr Widget
child' CInt
resize' CInt
shrink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedPack2MethodInfo
instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) => O.MethodInfo PanedPack2MethodInfo a signature where
overloadedMethod = panedPack2
#endif
foreign import ccall "gtk_paned_set_position" gtk_paned_set_position ::
Ptr Paned ->
Int32 ->
IO ()
panedSetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> Int32
-> m ()
panedSetPosition :: a -> Int32 -> m ()
panedSetPosition a
paned Int32
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
Ptr Paned -> Int32 -> IO ()
gtk_paned_set_position Ptr Paned
paned' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetPositionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsPaned a) => O.MethodInfo PanedSetPositionMethodInfo a signature where
overloadedMethod = panedSetPosition
#endif
foreign import ccall "gtk_paned_set_wide_handle" gtk_paned_set_wide_handle ::
Ptr Paned ->
CInt ->
IO ()
panedSetWideHandle ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> Bool
-> m ()
panedSetWideHandle :: a -> Bool -> m ()
panedSetWideHandle a
paned Bool
wide = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paned
paned' <- a -> IO (Ptr Paned)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paned
let wide' :: CInt
wide' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
wide
Ptr Paned -> CInt -> IO ()
gtk_paned_set_wide_handle Ptr Paned
paned' CInt
wide'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetWideHandleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPaned a) => O.MethodInfo PanedSetWideHandleMethodInfo a signature where
overloadedMethod = panedSetWideHandle
#endif