{-# LANGUAGE ImplicitParams, RankNTypes, 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)
PanedGetEndChildMethodInfo ,
#endif
panedGetEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedGetPositionMethodInfo ,
#endif
panedGetPosition ,
#if defined(ENABLE_OVERLOADING)
PanedGetResizeEndChildMethodInfo ,
#endif
panedGetResizeEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedGetResizeStartChildMethodInfo ,
#endif
panedGetResizeStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedGetShrinkEndChildMethodInfo ,
#endif
panedGetShrinkEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedGetShrinkStartChildMethodInfo ,
#endif
panedGetShrinkStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedGetStartChildMethodInfo ,
#endif
panedGetStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedGetWideHandleMethodInfo ,
#endif
panedGetWideHandle ,
panedNew ,
#if defined(ENABLE_OVERLOADING)
PanedSetEndChildMethodInfo ,
#endif
panedSetEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedSetPositionMethodInfo ,
#endif
panedSetPosition ,
#if defined(ENABLE_OVERLOADING)
PanedSetResizeEndChildMethodInfo ,
#endif
panedSetResizeEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedSetResizeStartChildMethodInfo ,
#endif
panedSetResizeStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedSetShrinkEndChildMethodInfo ,
#endif
panedSetShrinkEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedSetShrinkStartChildMethodInfo ,
#endif
panedSetShrinkStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedSetStartChildMethodInfo ,
#endif
panedSetStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedSetWideHandleMethodInfo ,
#endif
panedSetWideHandle ,
#if defined(ENABLE_OVERLOADING)
PanedEndChildPropertyInfo ,
#endif
clearPanedEndChild ,
constructPanedEndChild ,
getPanedEndChild ,
#if defined(ENABLE_OVERLOADING)
panedEndChild ,
#endif
setPanedEndChild ,
#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)
PanedResizeEndChildPropertyInfo ,
#endif
constructPanedResizeEndChild ,
getPanedResizeEndChild ,
#if defined(ENABLE_OVERLOADING)
panedResizeEndChild ,
#endif
setPanedResizeEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedResizeStartChildPropertyInfo ,
#endif
constructPanedResizeStartChild ,
getPanedResizeStartChild ,
#if defined(ENABLE_OVERLOADING)
panedResizeStartChild ,
#endif
setPanedResizeStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedShrinkEndChildPropertyInfo ,
#endif
constructPanedShrinkEndChild ,
getPanedShrinkEndChild ,
#if defined(ENABLE_OVERLOADING)
panedShrinkEndChild ,
#endif
setPanedShrinkEndChild ,
#if defined(ENABLE_OVERLOADING)
PanedShrinkStartChildPropertyInfo ,
#endif
constructPanedShrinkStartChild ,
getPanedShrinkStartChild ,
#if defined(ENABLE_OVERLOADING)
panedShrinkStartChild ,
#endif
setPanedShrinkStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedStartChildPropertyInfo ,
#endif
clearPanedStartChild ,
constructPanedStartChild ,
getPanedStartChild ,
#if defined(ENABLE_OVERLOADING)
panedStartChild ,
#endif
setPanedStartChild ,
#if defined(ENABLE_OVERLOADING)
PanedWideHandlePropertyInfo ,
#endif
constructPanedWideHandle ,
getPanedWideHandle ,
#if defined(ENABLE_OVERLOADING)
panedWideHandle ,
#endif
setPanedWideHandle ,
PanedAcceptPositionCallback ,
#if defined(ENABLE_OVERLOADING)
PanedAcceptPositionSignalInfo ,
#endif
afterPanedAcceptPosition ,
onPanedAcceptPosition ,
PanedCancelPositionCallback ,
#if defined(ENABLE_OVERLOADING)
PanedCancelPositionSignalInfo ,
#endif
afterPanedCancelPosition ,
onPanedCancelPosition ,
PanedCycleChildFocusCallback ,
#if defined(ENABLE_OVERLOADING)
PanedCycleChildFocusSignalInfo ,
#endif
afterPanedCycleChildFocus ,
onPanedCycleChildFocus ,
PanedCycleHandleFocusCallback ,
#if defined(ENABLE_OVERLOADING)
PanedCycleHandleFocusSignalInfo ,
#endif
afterPanedCycleHandleFocus ,
onPanedCycleHandleFocus ,
PanedMoveHandleCallback ,
#if defined(ENABLE_OVERLOADING)
PanedMoveHandleSignalInfo ,
#endif
afterPanedMoveHandle ,
onPanedMoveHandle ,
PanedToggleHandleFocusCallback ,
#if defined(ENABLE_OVERLOADING)
PanedToggleHandleFocusSignalInfo ,
#endif
afterPanedToggleHandleFocus ,
onPanedToggleHandleFocus ,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AccessibleRange as Gtk.AccessibleRange
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
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
$c== :: Paned -> Paned -> Bool
== :: Paned -> Paned -> Bool
$c/= :: Paned -> Paned -> Bool
/= :: 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
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.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.AccessibleRange.AccessibleRange, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toPaned :: (MIO.MonadIO m, IsPaned o) => o -> m Paned
toPaned :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Paned
toPaned = IO Paned -> m Paned
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr Paned -> Paned
Paned
instance B.GValue.IsGValue (Maybe Paned) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_paned_get_type
gvalueSet_ :: Ptr GValue -> Maybe Paned -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Paned
P.Nothing = Ptr GValue -> Ptr Paned -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Paned
forall a. Ptr a
FP.nullPtr :: FP.Ptr Paned)
gvalueSet_ Ptr GValue
gv (P.Just Paned
obj) = Paned -> (Ptr Paned -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Paned
obj (Ptr GValue -> Ptr Paned -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Paned)
gvalueGet_ Ptr GValue
gv = do
Ptr Paned
ptr <- Ptr GValue -> IO (Ptr Paned)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Paned)
if Ptr Paned
ptr Ptr Paned -> Ptr Paned -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Paned
forall a. Ptr a
FP.nullPtr
then Paned -> Maybe Paned
forall a. a -> Maybe a
P.Just (Paned -> Maybe Paned) -> IO Paned -> IO (Maybe Paned)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe Paned -> IO (Maybe Paned)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Paned
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePanedMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePanedMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolvePanedMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolvePanedMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolvePanedMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolvePanedMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolvePanedMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolvePanedMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolvePanedMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolvePanedMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolvePanedMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePanedMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePanedMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolvePanedMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolvePanedMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolvePanedMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolvePanedMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolvePanedMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolvePanedMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolvePanedMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolvePanedMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolvePanedMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolvePanedMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolvePanedMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePanedMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePanedMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePanedMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolvePanedMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolvePanedMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolvePanedMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolvePanedMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolvePanedMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolvePanedMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolvePanedMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolvePanedMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolvePanedMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolvePanedMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolvePanedMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
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 "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolvePanedMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolvePanedMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolvePanedMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolvePanedMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolvePanedMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolvePanedMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePanedMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePanedMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolvePanedMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolvePanedMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolvePanedMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolvePanedMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolvePanedMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolvePanedMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolvePanedMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePanedMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePanedMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolvePanedMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolvePanedMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolvePanedMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolvePanedMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolvePanedMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolvePanedMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolvePanedMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePanedMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolvePanedMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolvePanedMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolvePanedMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolvePanedMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePanedMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
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 "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolvePanedMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolvePanedMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolvePanedMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolvePanedMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolvePanedMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePanedMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolvePanedMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolvePanedMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolvePanedMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolvePanedMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolvePanedMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolvePanedMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolvePanedMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolvePanedMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolvePanedMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolvePanedMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolvePanedMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolvePanedMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolvePanedMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolvePanedMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolvePanedMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolvePanedMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolvePanedMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolvePanedMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePanedMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolvePanedMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolvePanedMethod "getEndChild" o = PanedGetEndChildMethodInfo
ResolvePanedMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolvePanedMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolvePanedMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolvePanedMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolvePanedMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
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 "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolvePanedMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolvePanedMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolvePanedMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolvePanedMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolvePanedMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolvePanedMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolvePanedMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolvePanedMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolvePanedMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolvePanedMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolvePanedMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolvePanedMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolvePanedMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolvePanedMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolvePanedMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolvePanedMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolvePanedMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolvePanedMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolvePanedMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolvePanedMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolvePanedMethod "getPosition" o = PanedGetPositionMethodInfo
ResolvePanedMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolvePanedMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolvePanedMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
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 "getResizeEndChild" o = PanedGetResizeEndChildMethodInfo
ResolvePanedMethod "getResizeStartChild" o = PanedGetResizeStartChildMethodInfo
ResolvePanedMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolvePanedMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolvePanedMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolvePanedMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolvePanedMethod "getShrinkEndChild" o = PanedGetShrinkEndChildMethodInfo
ResolvePanedMethod "getShrinkStartChild" o = PanedGetShrinkStartChildMethodInfo
ResolvePanedMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolvePanedMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolvePanedMethod "getStartChild" o = PanedGetStartChildMethodInfo
ResolvePanedMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolvePanedMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolvePanedMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolvePanedMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolvePanedMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolvePanedMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolvePanedMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolvePanedMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolvePanedMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolvePanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo
ResolvePanedMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolvePanedMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolvePanedMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolvePanedMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolvePanedMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolvePanedMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolvePanedMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolvePanedMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolvePanedMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePanedMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePanedMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolvePanedMethod "setEndChild" o = PanedSetEndChildMethodInfo
ResolvePanedMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolvePanedMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolvePanedMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
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 "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolvePanedMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolvePanedMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolvePanedMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolvePanedMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolvePanedMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolvePanedMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolvePanedMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolvePanedMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolvePanedMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolvePanedMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolvePanedMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolvePanedMethod "setPosition" o = PanedSetPositionMethodInfo
ResolvePanedMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePanedMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolvePanedMethod "setResizeEndChild" o = PanedSetResizeEndChildMethodInfo
ResolvePanedMethod "setResizeStartChild" o = PanedSetResizeStartChildMethodInfo
ResolvePanedMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolvePanedMethod "setShrinkEndChild" o = PanedSetShrinkEndChildMethodInfo
ResolvePanedMethod "setShrinkStartChild" o = PanedSetShrinkStartChildMethodInfo
ResolvePanedMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolvePanedMethod "setStartChild" o = PanedSetStartChildMethodInfo
ResolvePanedMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolvePanedMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolvePanedMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
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 "setWideHandle" o = PanedSetWideHandleMethodInfo
ResolvePanedMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePanedMethod t Paned, O.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePanedMethod t Paned, O.OverloadedMethod info Paned p, R.HasField t Paned p) => R.HasField t Paned p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePanedMethod t Paned, O.OverloadedMethodInfo info Paned) => OL.IsLabel t (O.MethodProxy info Paned) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type PanedAcceptPositionCallback =
IO Bool
type C_PanedAcceptPositionCallback =
Ptr Paned ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedAcceptPositionCallback :: C_PanedAcceptPositionCallback -> IO (FunPtr C_PanedAcceptPositionCallback)
wrap_PanedAcceptPositionCallback ::
GObject a => (a -> PanedAcceptPositionCallback) ->
C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback :: forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback a -> PanedAcceptPositionCallback
gi'cb Ptr Paned
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr Paned
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Paned
gi'selfPtr ((Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback)
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall a b. (a -> b) -> a -> b
$ \Paned
gi'self -> a -> PanedAcceptPositionCallback
gi'cb (Paned -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Paned
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedAcceptPosition :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedAcceptPositionCallback) -> m SignalHandlerId
onPanedAcceptPosition :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedAcceptPositionCallback) -> m SignalHandlerId
onPanedAcceptPosition a
obj (?self::a) => PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedAcceptPositionCallback
wrapped a
self = let ?self = a
?self::a
self in PanedAcceptPositionCallback
(?self::a) => PanedAcceptPositionCallback
cb
let wrapped' :: C_PanedAcceptPositionCallback
wrapped' = (a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback a -> PanedAcceptPositionCallback
wrapped
FunPtr C_PanedAcceptPositionCallback
wrapped'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedAcceptPositionCallback C_PanedAcceptPositionCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedAcceptPosition :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedAcceptPositionCallback) -> m SignalHandlerId
afterPanedAcceptPosition :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedAcceptPositionCallback) -> m SignalHandlerId
afterPanedAcceptPosition a
obj (?self::a) => PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedAcceptPositionCallback
wrapped a
self = let ?self = a
?self::a
self in PanedAcceptPositionCallback
(?self::a) => PanedAcceptPositionCallback
cb
let wrapped' :: C_PanedAcceptPositionCallback
wrapped' = (a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedAcceptPositionCallback a -> PanedAcceptPositionCallback
wrapped
FunPtr C_PanedAcceptPositionCallback
wrapped'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedAcceptPositionCallback C_PanedAcceptPositionCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned::accept-position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:signal:acceptPosition"})
#endif
type PanedCancelPositionCallback =
IO Bool
type C_PanedCancelPositionCallback =
Ptr Paned ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedCancelPositionCallback :: C_PanedCancelPositionCallback -> IO (FunPtr C_PanedCancelPositionCallback)
wrap_PanedCancelPositionCallback ::
GObject a => (a -> PanedCancelPositionCallback) ->
C_PanedCancelPositionCallback
wrap_PanedCancelPositionCallback :: forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback a -> PanedAcceptPositionCallback
gi'cb Ptr Paned
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr Paned
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Paned
gi'selfPtr ((Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback)
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall a b. (a -> b) -> a -> b
$ \Paned
gi'self -> a -> PanedAcceptPositionCallback
gi'cb (Paned -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Paned
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedCancelPosition :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedCancelPositionCallback) -> m SignalHandlerId
onPanedCancelPosition :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedAcceptPositionCallback) -> m SignalHandlerId
onPanedCancelPosition a
obj (?self::a) => PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedAcceptPositionCallback
wrapped a
self = let ?self = a
?self::a
self in PanedAcceptPositionCallback
(?self::a) => PanedAcceptPositionCallback
cb
let wrapped' :: C_PanedAcceptPositionCallback
wrapped' = (a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback a -> PanedAcceptPositionCallback
wrapped
FunPtr C_PanedAcceptPositionCallback
wrapped'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedCancelPositionCallback C_PanedAcceptPositionCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedCancelPosition :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedCancelPositionCallback) -> m SignalHandlerId
afterPanedCancelPosition :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedAcceptPositionCallback) -> m SignalHandlerId
afterPanedCancelPosition a
obj (?self::a) => PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedAcceptPositionCallback
wrapped a
self = let ?self = a
?self::a
self in PanedAcceptPositionCallback
(?self::a) => PanedAcceptPositionCallback
cb
let wrapped' :: C_PanedAcceptPositionCallback
wrapped' = (a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedCancelPositionCallback a -> PanedAcceptPositionCallback
wrapped
FunPtr C_PanedAcceptPositionCallback
wrapped'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedCancelPositionCallback C_PanedAcceptPositionCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned::cancel-position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:signal:cancelPosition"})
#endif
type PanedCycleChildFocusCallback =
Bool
-> IO Bool
type C_PanedCycleChildFocusCallback =
Ptr Paned ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedCycleChildFocusCallback :: C_PanedCycleChildFocusCallback -> IO (FunPtr C_PanedCycleChildFocusCallback)
wrap_PanedCycleChildFocusCallback ::
GObject a => (a -> PanedCycleChildFocusCallback) ->
C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback :: forall a.
GObject a =>
(a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback a -> PanedCycleChildFocusCallback
gi'cb Ptr Paned
gi'selfPtr CInt
reversed Ptr ()
_ = do
let reversed' :: Bool
reversed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
reversed
Bool
result <- Ptr Paned
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Paned
gi'selfPtr ((Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback)
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall a b. (a -> b) -> a -> b
$ \Paned
gi'self -> a -> PanedCycleChildFocusCallback
gi'cb (Paned -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Paned
gi'self) Bool
reversed'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedCycleChildFocus :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedCycleChildFocusCallback) -> m SignalHandlerId
onPanedCycleChildFocus :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedCycleChildFocusCallback)
-> m SignalHandlerId
onPanedCycleChildFocus a
obj (?self::a) => PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedCycleChildFocusCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => PanedCycleChildFocusCallback
PanedCycleChildFocusCallback
cb
let wrapped' :: C_PanedCycleChildFocusCallback
wrapped' = (a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
forall a.
GObject a =>
(a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback a -> PanedCycleChildFocusCallback
wrapped
FunPtr C_PanedCycleChildFocusCallback
wrapped'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleChildFocusCallback C_PanedCycleChildFocusCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedCycleChildFocus :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedCycleChildFocusCallback) -> m SignalHandlerId
afterPanedCycleChildFocus :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedCycleChildFocusCallback)
-> m SignalHandlerId
afterPanedCycleChildFocus a
obj (?self::a) => PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedCycleChildFocusCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => PanedCycleChildFocusCallback
PanedCycleChildFocusCallback
cb
let wrapped' :: C_PanedCycleChildFocusCallback
wrapped' = (a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
forall a.
GObject a =>
(a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
wrap_PanedCycleChildFocusCallback a -> PanedCycleChildFocusCallback
wrapped
FunPtr C_PanedCycleChildFocusCallback
wrapped'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleChildFocusCallback C_PanedCycleChildFocusCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned::cycle-child-focus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:signal:cycleChildFocus"})
#endif
type PanedCycleHandleFocusCallback =
Bool
-> IO Bool
type C_PanedCycleHandleFocusCallback =
Ptr Paned ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedCycleHandleFocusCallback :: C_PanedCycleHandleFocusCallback -> IO (FunPtr C_PanedCycleHandleFocusCallback)
wrap_PanedCycleHandleFocusCallback ::
GObject a => (a -> PanedCycleHandleFocusCallback) ->
C_PanedCycleHandleFocusCallback
wrap_PanedCycleHandleFocusCallback :: forall a.
GObject a =>
(a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback a -> PanedCycleChildFocusCallback
gi'cb Ptr Paned
gi'selfPtr CInt
reversed Ptr ()
_ = do
let reversed' :: Bool
reversed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
reversed
Bool
result <- Ptr Paned
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Paned
gi'selfPtr ((Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback)
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall a b. (a -> b) -> a -> b
$ \Paned
gi'self -> a -> PanedCycleChildFocusCallback
gi'cb (Paned -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Paned
gi'self) Bool
reversed'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedCycleHandleFocus :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedCycleHandleFocusCallback) -> m SignalHandlerId
onPanedCycleHandleFocus :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedCycleChildFocusCallback)
-> m SignalHandlerId
onPanedCycleHandleFocus a
obj (?self::a) => PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedCycleChildFocusCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => PanedCycleChildFocusCallback
PanedCycleChildFocusCallback
cb
let wrapped' :: C_PanedCycleChildFocusCallback
wrapped' = (a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
forall a.
GObject a =>
(a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback a -> PanedCycleChildFocusCallback
wrapped
FunPtr C_PanedCycleChildFocusCallback
wrapped'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleHandleFocusCallback C_PanedCycleChildFocusCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedCycleHandleFocus :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedCycleHandleFocusCallback) -> m SignalHandlerId
afterPanedCycleHandleFocus :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedCycleChildFocusCallback)
-> m SignalHandlerId
afterPanedCycleHandleFocus a
obj (?self::a) => PanedCycleChildFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedCycleChildFocusCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => PanedCycleChildFocusCallback
PanedCycleChildFocusCallback
cb
let wrapped' :: C_PanedCycleChildFocusCallback
wrapped' = (a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
forall a.
GObject a =>
(a -> PanedCycleChildFocusCallback)
-> C_PanedCycleChildFocusCallback
wrap_PanedCycleHandleFocusCallback a -> PanedCycleChildFocusCallback
wrapped
FunPtr C_PanedCycleChildFocusCallback
wrapped'' <- C_PanedCycleChildFocusCallback
-> IO (FunPtr C_PanedCycleChildFocusCallback)
mk_PanedCycleHandleFocusCallback C_PanedCycleChildFocusCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned::cycle-handle-focus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:signal:cycleHandleFocus"})
#endif
type PanedMoveHandleCallback =
Gtk.Enums.ScrollType
-> IO Bool
type C_PanedMoveHandleCallback =
Ptr Paned ->
CUInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedMoveHandleCallback :: C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
wrap_PanedMoveHandleCallback ::
GObject a => (a -> PanedMoveHandleCallback) ->
C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback :: forall a.
GObject a =>
(a -> PanedMoveHandleCallback) -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback a -> PanedMoveHandleCallback
gi'cb Ptr Paned
gi'selfPtr 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 <- Ptr Paned
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Paned
gi'selfPtr ((Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback)
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall a b. (a -> b) -> a -> b
$ \Paned
gi'self -> a -> PanedMoveHandleCallback
gi'cb (Paned -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Paned
gi'self) ScrollType
scrollType'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedMoveHandle :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedMoveHandleCallback) -> m SignalHandlerId
onPanedMoveHandle :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a -> ((?self::a) => PanedMoveHandleCallback) -> m SignalHandlerId
onPanedMoveHandle a
obj (?self::a) => PanedMoveHandleCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedMoveHandleCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => PanedMoveHandleCallback
PanedMoveHandleCallback
cb
let wrapped' :: C_PanedMoveHandleCallback
wrapped' = (a -> PanedMoveHandleCallback) -> C_PanedMoveHandleCallback
forall a.
GObject a =>
(a -> PanedMoveHandleCallback) -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback a -> PanedMoveHandleCallback
wrapped
FunPtr C_PanedMoveHandleCallback
wrapped'' <- C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
mk_PanedMoveHandleCallback C_PanedMoveHandleCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedMoveHandle :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedMoveHandleCallback) -> m SignalHandlerId
afterPanedMoveHandle :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a -> ((?self::a) => PanedMoveHandleCallback) -> m SignalHandlerId
afterPanedMoveHandle a
obj (?self::a) => PanedMoveHandleCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedMoveHandleCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => PanedMoveHandleCallback
PanedMoveHandleCallback
cb
let wrapped' :: C_PanedMoveHandleCallback
wrapped' = (a -> PanedMoveHandleCallback) -> C_PanedMoveHandleCallback
forall a.
GObject a =>
(a -> PanedMoveHandleCallback) -> C_PanedMoveHandleCallback
wrap_PanedMoveHandleCallback a -> PanedMoveHandleCallback
wrapped
FunPtr C_PanedMoveHandleCallback
wrapped'' <- C_PanedMoveHandleCallback -> IO (FunPtr C_PanedMoveHandleCallback)
mk_PanedMoveHandleCallback C_PanedMoveHandleCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned::move-handle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:signal:moveHandle"})
#endif
type PanedToggleHandleFocusCallback =
IO Bool
type C_PanedToggleHandleFocusCallback =
Ptr Paned ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_PanedToggleHandleFocusCallback :: C_PanedToggleHandleFocusCallback -> IO (FunPtr C_PanedToggleHandleFocusCallback)
wrap_PanedToggleHandleFocusCallback ::
GObject a => (a -> PanedToggleHandleFocusCallback) ->
C_PanedToggleHandleFocusCallback
wrap_PanedToggleHandleFocusCallback :: forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback a -> PanedAcceptPositionCallback
gi'cb Ptr Paned
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr Paned
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Paned
gi'selfPtr ((Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback)
-> (Paned -> PanedAcceptPositionCallback)
-> PanedAcceptPositionCallback
forall a b. (a -> b) -> a -> b
$ \Paned
gi'self -> a -> PanedAcceptPositionCallback
gi'cb (Paned -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Paned
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onPanedToggleHandleFocus :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedToggleHandleFocusCallback) -> m SignalHandlerId
onPanedToggleHandleFocus :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedAcceptPositionCallback) -> m SignalHandlerId
onPanedToggleHandleFocus a
obj (?self::a) => PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedAcceptPositionCallback
wrapped a
self = let ?self = a
?self::a
self in PanedAcceptPositionCallback
(?self::a) => PanedAcceptPositionCallback
cb
let wrapped' :: C_PanedAcceptPositionCallback
wrapped' = (a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback a -> PanedAcceptPositionCallback
wrapped
FunPtr C_PanedAcceptPositionCallback
wrapped'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedToggleHandleFocusCallback C_PanedAcceptPositionCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPanedToggleHandleFocus :: (IsPaned a, MonadIO m) => a -> ((?self :: a) => PanedToggleHandleFocusCallback) -> m SignalHandlerId
afterPanedToggleHandleFocus :: forall a (m :: * -> *).
(IsPaned a, MonadIO m) =>
a
-> ((?self::a) => PanedAcceptPositionCallback) -> m SignalHandlerId
afterPanedToggleHandleFocus a
obj (?self::a) => PanedAcceptPositionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> PanedAcceptPositionCallback
wrapped a
self = let ?self = a
?self::a
self in PanedAcceptPositionCallback
(?self::a) => PanedAcceptPositionCallback
cb
let wrapped' :: C_PanedAcceptPositionCallback
wrapped' = (a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
forall a.
GObject a =>
(a -> PanedAcceptPositionCallback) -> C_PanedAcceptPositionCallback
wrap_PanedToggleHandleFocusCallback a -> PanedAcceptPositionCallback
wrapped
FunPtr C_PanedAcceptPositionCallback
wrapped'' <- C_PanedAcceptPositionCallback
-> IO (FunPtr C_PanedAcceptPositionCallback)
mk_PanedToggleHandleFocusCallback C_PanedAcceptPositionCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned::toggle-handle-focus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:signal:toggleHandleFocus"})
#endif
getPanedEndChild :: (MonadIO m, IsPaned o) => o -> m (Maybe Gtk.Widget.Widget)
getPanedEndChild :: forall (m :: * -> *) o.
(MonadIO m, IsPaned o) =>
o -> m (Maybe Widget)
getPanedEndChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"end-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setPanedEndChild :: (MonadIO m, IsPaned o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setPanedEndChild :: forall (m :: * -> *) o a.
(MonadIO m, IsPaned o, IsWidget a) =>
o -> a -> m ()
setPanedEndChild o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"end-child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructPanedEndChild :: (IsPaned o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructPanedEndChild :: forall o (m :: * -> *) a.
(IsPaned o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructPanedEndChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"end-child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearPanedEndChild :: (MonadIO m, IsPaned o) => o -> m ()
clearPanedEndChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m ()
clearPanedEndChild o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"end-child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data PanedEndChildPropertyInfo
instance AttrInfo PanedEndChildPropertyInfo where
type AttrAllowedOps PanedEndChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PanedEndChildPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedEndChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint PanedEndChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType PanedEndChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType PanedEndChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel PanedEndChildPropertyInfo = "end-child"
type AttrOrigin PanedEndChildPropertyInfo = Paned
attrGet = getPanedEndChild
attrSet = setPanedEndChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructPanedEndChild
attrClear = clearPanedEndChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.endChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:endChild"
})
#endif
getPanedMaxPosition :: (MonadIO m, IsPaned o) => o -> m Int32
getPanedMaxPosition :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Int32
getPanedMaxPosition o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.maxPosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:maxPosition"
})
#endif
getPanedMinPosition :: (MonadIO m, IsPaned o) => o -> m Int32
getPanedMinPosition :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Int32
getPanedMinPosition o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.minPosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:minPosition"
})
#endif
getPanedPosition :: (MonadIO m, IsPaned o) => o -> m Int32
getPanedPosition :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Int32
getPanedPosition o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsPaned o) =>
o -> Int32 -> m ()
setPanedPosition o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructPanedPosition Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:position"
})
#endif
getPanedPositionSet :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedPositionSet :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Bool
getPanedPositionSet o
obj = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedPositionSet o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPanedPositionSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.positionSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:positionSet"
})
#endif
getPanedResizeEndChild :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedResizeEndChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Bool
getPanedResizeEndChild o
obj = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"resize-end-child"
setPanedResizeEndChild :: (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedResizeEndChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedResizeEndChild o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"resize-end-child" Bool
val
constructPanedResizeEndChild :: (IsPaned o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPanedResizeEndChild :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPanedResizeEndChild Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"resize-end-child" Bool
val
#if defined(ENABLE_OVERLOADING)
data PanedResizeEndChildPropertyInfo
instance AttrInfo PanedResizeEndChildPropertyInfo where
type AttrAllowedOps PanedResizeEndChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedResizeEndChildPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedResizeEndChildPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PanedResizeEndChildPropertyInfo = (~) Bool
type AttrTransferType PanedResizeEndChildPropertyInfo = Bool
type AttrGetType PanedResizeEndChildPropertyInfo = Bool
type AttrLabel PanedResizeEndChildPropertyInfo = "resize-end-child"
type AttrOrigin PanedResizeEndChildPropertyInfo = Paned
attrGet = getPanedResizeEndChild
attrSet = setPanedResizeEndChild
attrTransfer _ v = do
return v
attrConstruct = constructPanedResizeEndChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.resizeEndChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:resizeEndChild"
})
#endif
getPanedResizeStartChild :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedResizeStartChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Bool
getPanedResizeStartChild o
obj = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"resize-start-child"
setPanedResizeStartChild :: (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedResizeStartChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedResizeStartChild o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"resize-start-child" Bool
val
constructPanedResizeStartChild :: (IsPaned o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPanedResizeStartChild :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPanedResizeStartChild Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"resize-start-child" Bool
val
#if defined(ENABLE_OVERLOADING)
data PanedResizeStartChildPropertyInfo
instance AttrInfo PanedResizeStartChildPropertyInfo where
type AttrAllowedOps PanedResizeStartChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedResizeStartChildPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedResizeStartChildPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PanedResizeStartChildPropertyInfo = (~) Bool
type AttrTransferType PanedResizeStartChildPropertyInfo = Bool
type AttrGetType PanedResizeStartChildPropertyInfo = Bool
type AttrLabel PanedResizeStartChildPropertyInfo = "resize-start-child"
type AttrOrigin PanedResizeStartChildPropertyInfo = Paned
attrGet = getPanedResizeStartChild
attrSet = setPanedResizeStartChild
attrTransfer _ v = do
return v
attrConstruct = constructPanedResizeStartChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.resizeStartChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:resizeStartChild"
})
#endif
getPanedShrinkEndChild :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedShrinkEndChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Bool
getPanedShrinkEndChild o
obj = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"shrink-end-child"
setPanedShrinkEndChild :: (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedShrinkEndChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedShrinkEndChild o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"shrink-end-child" Bool
val
constructPanedShrinkEndChild :: (IsPaned o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPanedShrinkEndChild :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPanedShrinkEndChild Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"shrink-end-child" Bool
val
#if defined(ENABLE_OVERLOADING)
data PanedShrinkEndChildPropertyInfo
instance AttrInfo PanedShrinkEndChildPropertyInfo where
type AttrAllowedOps PanedShrinkEndChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedShrinkEndChildPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedShrinkEndChildPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PanedShrinkEndChildPropertyInfo = (~) Bool
type AttrTransferType PanedShrinkEndChildPropertyInfo = Bool
type AttrGetType PanedShrinkEndChildPropertyInfo = Bool
type AttrLabel PanedShrinkEndChildPropertyInfo = "shrink-end-child"
type AttrOrigin PanedShrinkEndChildPropertyInfo = Paned
attrGet = getPanedShrinkEndChild
attrSet = setPanedShrinkEndChild
attrTransfer _ v = do
return v
attrConstruct = constructPanedShrinkEndChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.shrinkEndChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:shrinkEndChild"
})
#endif
getPanedShrinkStartChild :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedShrinkStartChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Bool
getPanedShrinkStartChild o
obj = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
"shrink-start-child"
setPanedShrinkStartChild :: (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedShrinkStartChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedShrinkStartChild o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"shrink-start-child" Bool
val
constructPanedShrinkStartChild :: (IsPaned o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructPanedShrinkStartChild :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPanedShrinkStartChild Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"shrink-start-child" Bool
val
#if defined(ENABLE_OVERLOADING)
data PanedShrinkStartChildPropertyInfo
instance AttrInfo PanedShrinkStartChildPropertyInfo where
type AttrAllowedOps PanedShrinkStartChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PanedShrinkStartChildPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedShrinkStartChildPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PanedShrinkStartChildPropertyInfo = (~) Bool
type AttrTransferType PanedShrinkStartChildPropertyInfo = Bool
type AttrGetType PanedShrinkStartChildPropertyInfo = Bool
type AttrLabel PanedShrinkStartChildPropertyInfo = "shrink-start-child"
type AttrOrigin PanedShrinkStartChildPropertyInfo = Paned
attrGet = getPanedShrinkStartChild
attrSet = setPanedShrinkStartChild
attrTransfer _ v = do
return v
attrConstruct = constructPanedShrinkStartChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.shrinkStartChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:shrinkStartChild"
})
#endif
getPanedStartChild :: (MonadIO m, IsPaned o) => o -> m (Maybe Gtk.Widget.Widget)
getPanedStartChild :: forall (m :: * -> *) o.
(MonadIO m, IsPaned o) =>
o -> m (Maybe Widget)
getPanedStartChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"start-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setPanedStartChild :: (MonadIO m, IsPaned o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setPanedStartChild :: forall (m :: * -> *) o a.
(MonadIO m, IsPaned o, IsWidget a) =>
o -> a -> m ()
setPanedStartChild o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"start-child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructPanedStartChild :: (IsPaned o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructPanedStartChild :: forall o (m :: * -> *) a.
(IsPaned o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructPanedStartChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"start-child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearPanedStartChild :: (MonadIO m, IsPaned o) => o -> m ()
clearPanedStartChild :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m ()
clearPanedStartChild o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"start-child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data PanedStartChildPropertyInfo
instance AttrInfo PanedStartChildPropertyInfo where
type AttrAllowedOps PanedStartChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PanedStartChildPropertyInfo = IsPaned
type AttrSetTypeConstraint PanedStartChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint PanedStartChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType PanedStartChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType PanedStartChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel PanedStartChildPropertyInfo = "start-child"
type AttrOrigin PanedStartChildPropertyInfo = Paned
attrGet = getPanedStartChild
attrSet = setPanedStartChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructPanedStartChild
attrClear = clearPanedStartChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.startChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:startChild"
})
#endif
getPanedWideHandle :: (MonadIO m, IsPaned o) => o -> m Bool
getPanedWideHandle :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> m Bool
getPanedWideHandle o
obj = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o. (MonadIO m, IsPaned o) => o -> Bool -> m ()
setPanedWideHandle o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsPaned o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructPanedWideHandle Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.wideHandle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#g:attr:wideHandle"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Paned
type instance O.AttributeList Paned = PanedAttributeList
type PanedAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("endChild", PanedEndChildPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeEndChild", PanedResizeEndChildPropertyInfo), '("resizeStartChild", PanedResizeStartChildPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shrinkEndChild", PanedShrinkEndChildPropertyInfo), '("shrinkStartChild", PanedShrinkStartChildPropertyInfo), '("startChild", PanedStartChildPropertyInfo), '("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)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
panedEndChild :: AttrLabelProxy "endChild"
panedEndChild = AttrLabelProxy
panedMaxPosition :: AttrLabelProxy "maxPosition"
panedMaxPosition = AttrLabelProxy
panedMinPosition :: AttrLabelProxy "minPosition"
panedMinPosition = AttrLabelProxy
panedPosition :: AttrLabelProxy "position"
panedPosition = AttrLabelProxy
panedPositionSet :: AttrLabelProxy "positionSet"
panedPositionSet = AttrLabelProxy
panedResizeEndChild :: AttrLabelProxy "resizeEndChild"
panedResizeEndChild = AttrLabelProxy
panedResizeStartChild :: AttrLabelProxy "resizeStartChild"
panedResizeStartChild = AttrLabelProxy
panedShrinkEndChild :: AttrLabelProxy "shrinkEndChild"
panedShrinkEndChild = AttrLabelProxy
panedShrinkStartChild :: AttrLabelProxy "shrinkStartChild"
panedShrinkStartChild = AttrLabelProxy
panedStartChild :: AttrLabelProxy "startChild"
panedStartChild = AttrLabelProxy
panedWideHandle :: AttrLabelProxy "wideHandle"
panedWideHandle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Paned = PanedSignalList
type PanedSignalList = ('[ '("acceptPosition", PanedAcceptPositionSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Orientation -> m Paned
panedNew Orientation
orientation = IO Paned -> m Paned
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Paned
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_paned_get_end_child" gtk_paned_get_end_child ::
Ptr Paned ->
IO (Ptr Gtk.Widget.Widget)
panedGetEndChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m (Maybe Gtk.Widget.Widget)
panedGetEndChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m (Maybe Widget)
panedGetEndChild a
paned = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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_end_child 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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data PanedGetEndChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPaned a) => O.OverloadedMethod PanedGetEndChildMethodInfo a signature where
overloadedMethod = panedGetEndChild
instance O.OverloadedMethodInfo PanedGetEndChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetEndChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetEndChild"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m Int32
panedGetPosition a
paned = IO Int32 -> m Int32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod PanedGetPositionMethodInfo a signature where
overloadedMethod = panedGetPosition
instance O.OverloadedMethodInfo PanedGetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetPosition"
})
#endif
foreign import ccall "gtk_paned_get_resize_end_child" gtk_paned_get_resize_end_child ::
Ptr Paned ->
IO CInt
panedGetResizeEndChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Bool
panedGetResizeEndChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m Bool
panedGetResizeEndChild a
paned = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
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_resize_end_child 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PanedGetResizeEndChildMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPaned a) => O.OverloadedMethod PanedGetResizeEndChildMethodInfo a signature where
overloadedMethod = panedGetResizeEndChild
instance O.OverloadedMethodInfo PanedGetResizeEndChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetResizeEndChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetResizeEndChild"
})
#endif
foreign import ccall "gtk_paned_get_resize_start_child" gtk_paned_get_resize_start_child ::
Ptr Paned ->
IO CInt
panedGetResizeStartChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Bool
panedGetResizeStartChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m Bool
panedGetResizeStartChild a
paned = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
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_resize_start_child 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PanedGetResizeStartChildMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPaned a) => O.OverloadedMethod PanedGetResizeStartChildMethodInfo a signature where
overloadedMethod = panedGetResizeStartChild
instance O.OverloadedMethodInfo PanedGetResizeStartChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetResizeStartChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetResizeStartChild"
})
#endif
foreign import ccall "gtk_paned_get_shrink_end_child" gtk_paned_get_shrink_end_child ::
Ptr Paned ->
IO CInt
panedGetShrinkEndChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Bool
panedGetShrinkEndChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m Bool
panedGetShrinkEndChild a
paned = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
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_shrink_end_child 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PanedGetShrinkEndChildMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPaned a) => O.OverloadedMethod PanedGetShrinkEndChildMethodInfo a signature where
overloadedMethod = panedGetShrinkEndChild
instance O.OverloadedMethodInfo PanedGetShrinkEndChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetShrinkEndChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetShrinkEndChild"
})
#endif
foreign import ccall "gtk_paned_get_shrink_start_child" gtk_paned_get_shrink_start_child ::
Ptr Paned ->
IO CInt
panedGetShrinkStartChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m Bool
panedGetShrinkStartChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m Bool
panedGetShrinkStartChild a
paned = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
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_shrink_start_child 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PanedGetShrinkStartChildMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPaned a) => O.OverloadedMethod PanedGetShrinkStartChildMethodInfo a signature where
overloadedMethod = panedGetShrinkStartChild
instance O.OverloadedMethodInfo PanedGetShrinkStartChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetShrinkStartChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetShrinkStartChild"
})
#endif
foreign import ccall "gtk_paned_get_start_child" gtk_paned_get_start_child ::
Ptr Paned ->
IO (Ptr Gtk.Widget.Widget)
panedGetStartChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> m (Maybe Gtk.Widget.Widget)
panedGetStartChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m (Maybe Widget)
panedGetStartChild a
paned = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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_start_child 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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data PanedGetStartChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPaned a) => O.OverloadedMethod PanedGetStartChildMethodInfo a signature where
overloadedMethod = panedGetStartChild
instance O.OverloadedMethodInfo PanedGetStartChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetStartChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetStartChild"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> m Bool
panedGetWideHandle a
paned = PanedAcceptPositionCallback -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod PanedGetWideHandleMethodInfo a signature where
overloadedMethod = panedGetWideHandle
instance O.OverloadedMethodInfo PanedGetWideHandleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedGetWideHandle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedGetWideHandle"
})
#endif
foreign import ccall "gtk_paned_set_end_child" gtk_paned_set_end_child ::
Ptr Paned ->
Ptr Gtk.Widget.Widget ->
IO ()
panedSetEndChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
panedSetEndChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPaned a, IsWidget b) =>
a -> Maybe b -> m ()
panedSetEndChild a
paned Maybe b
child = IO () -> m ()
forall a. IO a -> m a
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
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Paned -> Ptr Widget -> IO ()
gtk_paned_set_end_child Ptr Paned
paned' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetEndChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) => O.OverloadedMethod PanedSetEndChildMethodInfo a signature where
overloadedMethod = panedSetEndChild
instance O.OverloadedMethodInfo PanedSetEndChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetEndChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetEndChild"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> Int32 -> m ()
panedSetPosition a
paned Int32
position = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetPositionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsPaned a) => O.OverloadedMethod PanedSetPositionMethodInfo a signature where
overloadedMethod = panedSetPosition
instance O.OverloadedMethodInfo PanedSetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetPosition"
})
#endif
foreign import ccall "gtk_paned_set_resize_end_child" gtk_paned_set_resize_end_child ::
Ptr Paned ->
CInt ->
IO ()
panedSetResizeEndChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> Bool
-> m ()
panedSetResizeEndChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> Bool -> m ()
panedSetResizeEndChild a
paned Bool
resize = IO () -> m ()
forall a. IO a -> m a
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 resize' :: CInt
resize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
resize
Ptr Paned -> CInt -> IO ()
gtk_paned_set_resize_end_child Ptr Paned
paned' CInt
resize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetResizeEndChildMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPaned a) => O.OverloadedMethod PanedSetResizeEndChildMethodInfo a signature where
overloadedMethod = panedSetResizeEndChild
instance O.OverloadedMethodInfo PanedSetResizeEndChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetResizeEndChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetResizeEndChild"
})
#endif
foreign import ccall "gtk_paned_set_resize_start_child" gtk_paned_set_resize_start_child ::
Ptr Paned ->
CInt ->
IO ()
panedSetResizeStartChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> Bool
-> m ()
panedSetResizeStartChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> Bool -> m ()
panedSetResizeStartChild a
paned Bool
resize = IO () -> m ()
forall a. IO a -> m a
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 resize' :: CInt
resize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
resize
Ptr Paned -> CInt -> IO ()
gtk_paned_set_resize_start_child Ptr Paned
paned' CInt
resize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetResizeStartChildMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPaned a) => O.OverloadedMethod PanedSetResizeStartChildMethodInfo a signature where
overloadedMethod = panedSetResizeStartChild
instance O.OverloadedMethodInfo PanedSetResizeStartChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetResizeStartChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetResizeStartChild"
})
#endif
foreign import ccall "gtk_paned_set_shrink_end_child" gtk_paned_set_shrink_end_child ::
Ptr Paned ->
CInt ->
IO ()
panedSetShrinkEndChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> Bool
-> m ()
panedSetShrinkEndChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> Bool -> m ()
panedSetShrinkEndChild a
paned Bool
resize = IO () -> m ()
forall a. IO a -> m a
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 resize' :: CInt
resize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
resize
Ptr Paned -> CInt -> IO ()
gtk_paned_set_shrink_end_child Ptr Paned
paned' CInt
resize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetShrinkEndChildMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPaned a) => O.OverloadedMethod PanedSetShrinkEndChildMethodInfo a signature where
overloadedMethod = panedSetShrinkEndChild
instance O.OverloadedMethodInfo PanedSetShrinkEndChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetShrinkEndChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetShrinkEndChild"
})
#endif
foreign import ccall "gtk_paned_set_shrink_start_child" gtk_paned_set_shrink_start_child ::
Ptr Paned ->
CInt ->
IO ()
panedSetShrinkStartChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a) =>
a
-> Bool
-> m ()
panedSetShrinkStartChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> Bool -> m ()
panedSetShrinkStartChild a
paned Bool
resize = IO () -> m ()
forall a. IO a -> m a
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 resize' :: CInt
resize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
resize
Ptr Paned -> CInt -> IO ()
gtk_paned_set_shrink_start_child Ptr Paned
paned' CInt
resize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetShrinkStartChildMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPaned a) => O.OverloadedMethod PanedSetShrinkStartChildMethodInfo a signature where
overloadedMethod = panedSetShrinkStartChild
instance O.OverloadedMethodInfo PanedSetShrinkStartChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetShrinkStartChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetShrinkStartChild"
})
#endif
foreign import ccall "gtk_paned_set_start_child" gtk_paned_set_start_child ::
Ptr Paned ->
Ptr Gtk.Widget.Widget ->
IO ()
panedSetStartChild ::
(B.CallStack.HasCallStack, MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
panedSetStartChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPaned a, IsWidget b) =>
a -> Maybe b -> m ()
panedSetStartChild a
paned Maybe b
child = IO () -> m ()
forall a. IO a -> m a
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
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Paned -> Ptr Widget -> IO ()
gtk_paned_set_start_child Ptr Paned
paned' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
paned
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetStartChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPaned a, Gtk.Widget.IsWidget b) => O.OverloadedMethod PanedSetStartChildMethodInfo a signature where
overloadedMethod = panedSetStartChild
instance O.OverloadedMethodInfo PanedSetStartChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetStartChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetStartChild"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPaned a) =>
a -> Bool -> m ()
panedSetWideHandle a
paned Bool
wide = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PanedSetWideHandleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPaned a) => O.OverloadedMethod PanedSetWideHandleMethodInfo a signature where
overloadedMethod = panedSetWideHandle
instance O.OverloadedMethodInfo PanedSetWideHandleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Paned.panedSetWideHandle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Paned.html#v:panedSetWideHandle"
})
#endif