{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ScrolledWindow
(
ScrolledWindow(..) ,
IsScrolledWindow ,
toScrolledWindow ,
#if defined(ENABLE_OVERLOADING)
ResolveScrolledWindowMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetChildMethodInfo ,
#endif
scrolledWindowGetChild ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetHadjustmentMethodInfo ,
#endif
scrolledWindowGetHadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetHasFrameMethodInfo ,
#endif
scrolledWindowGetHasFrame ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetHscrollbarMethodInfo ,
#endif
scrolledWindowGetHscrollbar ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetKineticScrollingMethodInfo,
#endif
scrolledWindowGetKineticScrolling ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetMaxContentHeightMethodInfo,
#endif
scrolledWindowGetMaxContentHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetMaxContentWidthMethodInfo,
#endif
scrolledWindowGetMaxContentWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetMinContentHeightMethodInfo,
#endif
scrolledWindowGetMinContentHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetMinContentWidthMethodInfo,
#endif
scrolledWindowGetMinContentWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetOverlayScrollingMethodInfo,
#endif
scrolledWindowGetOverlayScrolling ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetPlacementMethodInfo ,
#endif
scrolledWindowGetPlacement ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetPolicyMethodInfo ,
#endif
scrolledWindowGetPolicy ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetPropagateNaturalHeightMethodInfo,
#endif
scrolledWindowGetPropagateNaturalHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetPropagateNaturalWidthMethodInfo,
#endif
scrolledWindowGetPropagateNaturalWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetVadjustmentMethodInfo ,
#endif
scrolledWindowGetVadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetVscrollbarMethodInfo ,
#endif
scrolledWindowGetVscrollbar ,
scrolledWindowNew ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetChildMethodInfo ,
#endif
scrolledWindowSetChild ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetHadjustmentMethodInfo ,
#endif
scrolledWindowSetHadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetHasFrameMethodInfo ,
#endif
scrolledWindowSetHasFrame ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetKineticScrollingMethodInfo,
#endif
scrolledWindowSetKineticScrolling ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetMaxContentHeightMethodInfo,
#endif
scrolledWindowSetMaxContentHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetMaxContentWidthMethodInfo,
#endif
scrolledWindowSetMaxContentWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetMinContentHeightMethodInfo,
#endif
scrolledWindowSetMinContentHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetMinContentWidthMethodInfo,
#endif
scrolledWindowSetMinContentWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetOverlayScrollingMethodInfo,
#endif
scrolledWindowSetOverlayScrolling ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetPlacementMethodInfo ,
#endif
scrolledWindowSetPlacement ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetPolicyMethodInfo ,
#endif
scrolledWindowSetPolicy ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetPropagateNaturalHeightMethodInfo,
#endif
scrolledWindowSetPropagateNaturalHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetPropagateNaturalWidthMethodInfo,
#endif
scrolledWindowSetPropagateNaturalWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetVadjustmentMethodInfo ,
#endif
scrolledWindowSetVadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowUnsetPlacementMethodInfo ,
#endif
scrolledWindowUnsetPlacement ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowChildPropertyInfo ,
#endif
clearScrolledWindowChild ,
constructScrolledWindowChild ,
getScrolledWindowChild ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowChild ,
#endif
setScrolledWindowChild ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowHadjustmentPropertyInfo ,
#endif
clearScrolledWindowHadjustment ,
constructScrolledWindowHadjustment ,
getScrolledWindowHadjustment ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowHadjustment ,
#endif
setScrolledWindowHadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowHasFramePropertyInfo ,
#endif
constructScrolledWindowHasFrame ,
getScrolledWindowHasFrame ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowHasFrame ,
#endif
setScrolledWindowHasFrame ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowHscrollbarPolicyPropertyInfo,
#endif
constructScrolledWindowHscrollbarPolicy ,
getScrolledWindowHscrollbarPolicy ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowHscrollbarPolicy ,
#endif
setScrolledWindowHscrollbarPolicy ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowKineticScrollingPropertyInfo,
#endif
constructScrolledWindowKineticScrolling ,
getScrolledWindowKineticScrolling ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowKineticScrolling ,
#endif
setScrolledWindowKineticScrolling ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowMaxContentHeightPropertyInfo,
#endif
constructScrolledWindowMaxContentHeight ,
getScrolledWindowMaxContentHeight ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowMaxContentHeight ,
#endif
setScrolledWindowMaxContentHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowMaxContentWidthPropertyInfo,
#endif
constructScrolledWindowMaxContentWidth ,
getScrolledWindowMaxContentWidth ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowMaxContentWidth ,
#endif
setScrolledWindowMaxContentWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowMinContentHeightPropertyInfo,
#endif
constructScrolledWindowMinContentHeight ,
getScrolledWindowMinContentHeight ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowMinContentHeight ,
#endif
setScrolledWindowMinContentHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowMinContentWidthPropertyInfo,
#endif
constructScrolledWindowMinContentWidth ,
getScrolledWindowMinContentWidth ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowMinContentWidth ,
#endif
setScrolledWindowMinContentWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowOverlayScrollingPropertyInfo,
#endif
constructScrolledWindowOverlayScrolling ,
getScrolledWindowOverlayScrolling ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowOverlayScrolling ,
#endif
setScrolledWindowOverlayScrolling ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowPropagateNaturalHeightPropertyInfo,
#endif
constructScrolledWindowPropagateNaturalHeight,
getScrolledWindowPropagateNaturalHeight ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowPropagateNaturalHeight ,
#endif
setScrolledWindowPropagateNaturalHeight ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowPropagateNaturalWidthPropertyInfo,
#endif
constructScrolledWindowPropagateNaturalWidth,
getScrolledWindowPropagateNaturalWidth ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowPropagateNaturalWidth ,
#endif
setScrolledWindowPropagateNaturalWidth ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowVadjustmentPropertyInfo ,
#endif
clearScrolledWindowVadjustment ,
constructScrolledWindowVadjustment ,
getScrolledWindowVadjustment ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowVadjustment ,
#endif
setScrolledWindowVadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowVscrollbarPolicyPropertyInfo,
#endif
constructScrolledWindowVscrollbarPolicy ,
getScrolledWindowVscrollbarPolicy ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowVscrollbarPolicy ,
#endif
setScrolledWindowVscrollbarPolicy ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowWindowPlacementPropertyInfo,
#endif
constructScrolledWindowWindowPlacement ,
getScrolledWindowWindowPlacement ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowWindowPlacement ,
#endif
setScrolledWindowWindowPlacement ,
C_ScrolledWindowEdgeOvershotCallback ,
ScrolledWindowEdgeOvershotCallback ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowEdgeOvershotSignalInfo ,
#endif
afterScrolledWindowEdgeOvershot ,
genClosure_ScrolledWindowEdgeOvershot ,
mk_ScrolledWindowEdgeOvershotCallback ,
noScrolledWindowEdgeOvershotCallback ,
onScrolledWindowEdgeOvershot ,
wrap_ScrolledWindowEdgeOvershotCallback ,
C_ScrolledWindowEdgeReachedCallback ,
ScrolledWindowEdgeReachedCallback ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowEdgeReachedSignalInfo ,
#endif
afterScrolledWindowEdgeReached ,
genClosure_ScrolledWindowEdgeReached ,
mk_ScrolledWindowEdgeReachedCallback ,
noScrolledWindowEdgeReachedCallback ,
onScrolledWindowEdgeReached ,
wrap_ScrolledWindowEdgeReachedCallback ,
C_ScrolledWindowMoveFocusOutCallback ,
ScrolledWindowMoveFocusOutCallback ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowMoveFocusOutSignalInfo ,
#endif
afterScrolledWindowMoveFocusOut ,
genClosure_ScrolledWindowMoveFocusOut ,
mk_ScrolledWindowMoveFocusOutCallback ,
noScrolledWindowMoveFocusOutCallback ,
onScrolledWindowMoveFocusOut ,
wrap_ScrolledWindowMoveFocusOutCallback ,
C_ScrolledWindowScrollChildCallback ,
ScrolledWindowScrollChildCallback ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowScrollChildSignalInfo ,
#endif
afterScrolledWindowScrollChild ,
genClosure_ScrolledWindowScrollChild ,
mk_ScrolledWindowScrollChildCallback ,
noScrolledWindowScrollChildCallback ,
onScrolledWindowScrollChild ,
wrap_ScrolledWindowScrollChildCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified 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.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype ScrolledWindow = ScrolledWindow (SP.ManagedPtr ScrolledWindow)
deriving (ScrolledWindow -> ScrolledWindow -> Bool
(ScrolledWindow -> ScrolledWindow -> Bool)
-> (ScrolledWindow -> ScrolledWindow -> Bool) -> Eq ScrolledWindow
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ScrolledWindow -> ScrolledWindow -> Bool
$c/= :: ScrolledWindow -> ScrolledWindow -> Bool
== :: ScrolledWindow -> ScrolledWindow -> Bool
$c== :: ScrolledWindow -> ScrolledWindow -> Bool
Eq)
instance SP.ManagedPtrNewtype ScrolledWindow where
toManagedPtr :: ScrolledWindow -> ManagedPtr ScrolledWindow
toManagedPtr (ScrolledWindow ManagedPtr ScrolledWindow
p) = ManagedPtr ScrolledWindow
p
foreign import ccall "gtk_scrolled_window_get_type"
c_gtk_scrolled_window_get_type :: IO B.Types.GType
instance B.Types.TypedObject ScrolledWindow where
glibType :: IO GType
glibType = IO GType
c_gtk_scrolled_window_get_type
instance B.Types.GObject ScrolledWindow
class (SP.GObject o, O.IsDescendantOf ScrolledWindow o) => IsScrolledWindow o
instance (SP.GObject o, O.IsDescendantOf ScrolledWindow o) => IsScrolledWindow o
instance O.HasParentTypes ScrolledWindow
type instance O.ParentTypes ScrolledWindow = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toScrolledWindow :: (MIO.MonadIO m, IsScrolledWindow o) => o -> m ScrolledWindow
toScrolledWindow :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m ScrolledWindow
toScrolledWindow = IO ScrolledWindow -> m ScrolledWindow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ScrolledWindow -> m ScrolledWindow)
-> (o -> IO ScrolledWindow) -> o -> m ScrolledWindow
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ScrolledWindow -> ScrolledWindow)
-> o -> IO ScrolledWindow
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ScrolledWindow -> ScrolledWindow
ScrolledWindow
instance B.GValue.IsGValue (Maybe ScrolledWindow) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_scrolled_window_get_type
gvalueSet_ :: Ptr GValue -> Maybe ScrolledWindow -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ScrolledWindow
P.Nothing = Ptr GValue -> Ptr ScrolledWindow -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ScrolledWindow
forall a. Ptr a
FP.nullPtr :: FP.Ptr ScrolledWindow)
gvalueSet_ Ptr GValue
gv (P.Just ScrolledWindow
obj) = ScrolledWindow -> (Ptr ScrolledWindow -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScrolledWindow
obj (Ptr GValue -> Ptr ScrolledWindow -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ScrolledWindow)
gvalueGet_ Ptr GValue
gv = do
Ptr ScrolledWindow
ptr <- Ptr GValue -> IO (Ptr ScrolledWindow)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ScrolledWindow)
if Ptr ScrolledWindow
ptr Ptr ScrolledWindow -> Ptr ScrolledWindow -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ScrolledWindow
forall a. Ptr a
FP.nullPtr
then ScrolledWindow -> Maybe ScrolledWindow
forall a. a -> Maybe a
P.Just (ScrolledWindow -> Maybe ScrolledWindow)
-> IO ScrolledWindow -> IO (Maybe ScrolledWindow)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ScrolledWindow -> ScrolledWindow)
-> Ptr ScrolledWindow -> IO ScrolledWindow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ScrolledWindow -> ScrolledWindow
ScrolledWindow Ptr ScrolledWindow
ptr
else Maybe ScrolledWindow -> IO (Maybe ScrolledWindow)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ScrolledWindow
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveScrolledWindowMethod (t :: Symbol) (o :: *) :: * where
ResolveScrolledWindowMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveScrolledWindowMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveScrolledWindowMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveScrolledWindowMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveScrolledWindowMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveScrolledWindowMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveScrolledWindowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveScrolledWindowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveScrolledWindowMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveScrolledWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveScrolledWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveScrolledWindowMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveScrolledWindowMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveScrolledWindowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveScrolledWindowMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveScrolledWindowMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveScrolledWindowMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveScrolledWindowMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveScrolledWindowMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveScrolledWindowMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveScrolledWindowMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveScrolledWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveScrolledWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveScrolledWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveScrolledWindowMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveScrolledWindowMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveScrolledWindowMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveScrolledWindowMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveScrolledWindowMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveScrolledWindowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveScrolledWindowMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveScrolledWindowMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveScrolledWindowMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveScrolledWindowMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveScrolledWindowMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveScrolledWindowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveScrolledWindowMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveScrolledWindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveScrolledWindowMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveScrolledWindowMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveScrolledWindowMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveScrolledWindowMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveScrolledWindowMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveScrolledWindowMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveScrolledWindowMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveScrolledWindowMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveScrolledWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveScrolledWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveScrolledWindowMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveScrolledWindowMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveScrolledWindowMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveScrolledWindowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveScrolledWindowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveScrolledWindowMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveScrolledWindowMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveScrolledWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveScrolledWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveScrolledWindowMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveScrolledWindowMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveScrolledWindowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveScrolledWindowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveScrolledWindowMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveScrolledWindowMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveScrolledWindowMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveScrolledWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveScrolledWindowMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveScrolledWindowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveScrolledWindowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveScrolledWindowMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveScrolledWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveScrolledWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveScrolledWindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveScrolledWindowMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveScrolledWindowMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveScrolledWindowMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveScrolledWindowMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveScrolledWindowMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveScrolledWindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveScrolledWindowMethod "unsetPlacement" o = ScrolledWindowUnsetPlacementMethodInfo
ResolveScrolledWindowMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveScrolledWindowMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveScrolledWindowMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveScrolledWindowMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveScrolledWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveScrolledWindowMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveScrolledWindowMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveScrolledWindowMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveScrolledWindowMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveScrolledWindowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveScrolledWindowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveScrolledWindowMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveScrolledWindowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveScrolledWindowMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveScrolledWindowMethod "getChild" o = ScrolledWindowGetChildMethodInfo
ResolveScrolledWindowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveScrolledWindowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveScrolledWindowMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveScrolledWindowMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveScrolledWindowMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveScrolledWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveScrolledWindowMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveScrolledWindowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveScrolledWindowMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveScrolledWindowMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveScrolledWindowMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveScrolledWindowMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveScrolledWindowMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveScrolledWindowMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveScrolledWindowMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveScrolledWindowMethod "getHadjustment" o = ScrolledWindowGetHadjustmentMethodInfo
ResolveScrolledWindowMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveScrolledWindowMethod "getHasFrame" o = ScrolledWindowGetHasFrameMethodInfo
ResolveScrolledWindowMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveScrolledWindowMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveScrolledWindowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveScrolledWindowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveScrolledWindowMethod "getHscrollbar" o = ScrolledWindowGetHscrollbarMethodInfo
ResolveScrolledWindowMethod "getKineticScrolling" o = ScrolledWindowGetKineticScrollingMethodInfo
ResolveScrolledWindowMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveScrolledWindowMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveScrolledWindowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveScrolledWindowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveScrolledWindowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveScrolledWindowMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveScrolledWindowMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveScrolledWindowMethod "getMaxContentHeight" o = ScrolledWindowGetMaxContentHeightMethodInfo
ResolveScrolledWindowMethod "getMaxContentWidth" o = ScrolledWindowGetMaxContentWidthMethodInfo
ResolveScrolledWindowMethod "getMinContentHeight" o = ScrolledWindowGetMinContentHeightMethodInfo
ResolveScrolledWindowMethod "getMinContentWidth" o = ScrolledWindowGetMinContentWidthMethodInfo
ResolveScrolledWindowMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveScrolledWindowMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveScrolledWindowMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveScrolledWindowMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveScrolledWindowMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveScrolledWindowMethod "getOverlayScrolling" o = ScrolledWindowGetOverlayScrollingMethodInfo
ResolveScrolledWindowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveScrolledWindowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveScrolledWindowMethod "getPlacement" o = ScrolledWindowGetPlacementMethodInfo
ResolveScrolledWindowMethod "getPolicy" o = ScrolledWindowGetPolicyMethodInfo
ResolveScrolledWindowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveScrolledWindowMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveScrolledWindowMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveScrolledWindowMethod "getPropagateNaturalHeight" o = ScrolledWindowGetPropagateNaturalHeightMethodInfo
ResolveScrolledWindowMethod "getPropagateNaturalWidth" o = ScrolledWindowGetPropagateNaturalWidthMethodInfo
ResolveScrolledWindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveScrolledWindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveScrolledWindowMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveScrolledWindowMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveScrolledWindowMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveScrolledWindowMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveScrolledWindowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveScrolledWindowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveScrolledWindowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveScrolledWindowMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveScrolledWindowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveScrolledWindowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveScrolledWindowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveScrolledWindowMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveScrolledWindowMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveScrolledWindowMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveScrolledWindowMethod "getVadjustment" o = ScrolledWindowGetVadjustmentMethodInfo
ResolveScrolledWindowMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveScrolledWindowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveScrolledWindowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveScrolledWindowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveScrolledWindowMethod "getVscrollbar" o = ScrolledWindowGetVscrollbarMethodInfo
ResolveScrolledWindowMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveScrolledWindowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveScrolledWindowMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveScrolledWindowMethod "setChild" o = ScrolledWindowSetChildMethodInfo
ResolveScrolledWindowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveScrolledWindowMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveScrolledWindowMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveScrolledWindowMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveScrolledWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveScrolledWindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveScrolledWindowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveScrolledWindowMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveScrolledWindowMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveScrolledWindowMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveScrolledWindowMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveScrolledWindowMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveScrolledWindowMethod "setHadjustment" o = ScrolledWindowSetHadjustmentMethodInfo
ResolveScrolledWindowMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveScrolledWindowMethod "setHasFrame" o = ScrolledWindowSetHasFrameMethodInfo
ResolveScrolledWindowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveScrolledWindowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveScrolledWindowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveScrolledWindowMethod "setKineticScrolling" o = ScrolledWindowSetKineticScrollingMethodInfo
ResolveScrolledWindowMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveScrolledWindowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveScrolledWindowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveScrolledWindowMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveScrolledWindowMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveScrolledWindowMethod "setMaxContentHeight" o = ScrolledWindowSetMaxContentHeightMethodInfo
ResolveScrolledWindowMethod "setMaxContentWidth" o = ScrolledWindowSetMaxContentWidthMethodInfo
ResolveScrolledWindowMethod "setMinContentHeight" o = ScrolledWindowSetMinContentHeightMethodInfo
ResolveScrolledWindowMethod "setMinContentWidth" o = ScrolledWindowSetMinContentWidthMethodInfo
ResolveScrolledWindowMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveScrolledWindowMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveScrolledWindowMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveScrolledWindowMethod "setOverlayScrolling" o = ScrolledWindowSetOverlayScrollingMethodInfo
ResolveScrolledWindowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveScrolledWindowMethod "setPlacement" o = ScrolledWindowSetPlacementMethodInfo
ResolveScrolledWindowMethod "setPolicy" o = ScrolledWindowSetPolicyMethodInfo
ResolveScrolledWindowMethod "setPropagateNaturalHeight" o = ScrolledWindowSetPropagateNaturalHeightMethodInfo
ResolveScrolledWindowMethod "setPropagateNaturalWidth" o = ScrolledWindowSetPropagateNaturalWidthMethodInfo
ResolveScrolledWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveScrolledWindowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveScrolledWindowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveScrolledWindowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveScrolledWindowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveScrolledWindowMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveScrolledWindowMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveScrolledWindowMethod "setVadjustment" o = ScrolledWindowSetVadjustmentMethodInfo
ResolveScrolledWindowMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveScrolledWindowMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveScrolledWindowMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveScrolledWindowMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveScrolledWindowMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, O.OverloadedMethod info ScrolledWindow p) => OL.IsLabel t (ScrolledWindow -> 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 ~ ResolveScrolledWindowMethod t ScrolledWindow, O.OverloadedMethod info ScrolledWindow p, R.HasField t ScrolledWindow p) => R.HasField t ScrolledWindow p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, O.OverloadedMethodInfo info ScrolledWindow) => OL.IsLabel t (O.MethodProxy info ScrolledWindow) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ScrolledWindowEdgeOvershotCallback =
Gtk.Enums.PositionType
-> IO ()
noScrolledWindowEdgeOvershotCallback :: Maybe ScrolledWindowEdgeOvershotCallback
noScrolledWindowEdgeOvershotCallback :: Maybe ScrolledWindowEdgeOvershotCallback
noScrolledWindowEdgeOvershotCallback = Maybe ScrolledWindowEdgeOvershotCallback
forall a. Maybe a
Nothing
type C_ScrolledWindowEdgeOvershotCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ScrolledWindowEdgeOvershotCallback :: C_ScrolledWindowEdgeOvershotCallback -> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
genClosure_ScrolledWindowEdgeOvershot :: MonadIO m => ScrolledWindowEdgeOvershotCallback -> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
genClosure_ScrolledWindowEdgeOvershot :: forall (m :: * -> *).
MonadIO m =>
ScrolledWindowEdgeOvershotCallback
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
genClosure_ScrolledWindowEdgeOvershot ScrolledWindowEdgeOvershotCallback
cb = IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback))
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeOvershotCallback ScrolledWindowEdgeOvershotCallback
cb
C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowEdgeOvershotCallback C_ScrolledWindowEdgeOvershotCallback
cb' IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
-> (FunPtr C_ScrolledWindowEdgeOvershotCallback
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback))
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ScrolledWindowEdgeOvershotCallback
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ScrolledWindowEdgeOvershotCallback ::
ScrolledWindowEdgeOvershotCallback ->
C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeOvershotCallback :: ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeOvershotCallback ScrolledWindowEdgeOvershotCallback
_cb Ptr ()
_ CUInt
pos Ptr ()
_ = do
let pos' :: PositionType
pos' = (Int -> PositionType
forall a. Enum a => Int -> a
toEnum (Int -> PositionType) -> (CUInt -> Int) -> CUInt -> PositionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
pos
ScrolledWindowEdgeOvershotCallback
_cb PositionType
pos'
onScrolledWindowEdgeOvershot :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
onScrolledWindowEdgeOvershot :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
onScrolledWindowEdgeOvershot a
obj ScrolledWindowEdgeOvershotCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeOvershotCallback ScrolledWindowEdgeOvershotCallback
cb
FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' <- C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowEdgeOvershotCallback C_ScrolledWindowEdgeOvershotCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowEdgeOvershotCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"edge-overshot" FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScrolledWindowEdgeOvershot :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
afterScrolledWindowEdgeOvershot :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
afterScrolledWindowEdgeOvershot a
obj ScrolledWindowEdgeOvershotCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeOvershotCallback ScrolledWindowEdgeOvershotCallback
cb
FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' <- C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowEdgeOvershotCallback C_ScrolledWindowEdgeOvershotCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowEdgeOvershotCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"edge-overshot" FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowEdgeOvershotSignalInfo
instance SignalInfo ScrolledWindowEdgeOvershotSignalInfo where
type HaskellCallbackType ScrolledWindowEdgeOvershotSignalInfo = ScrolledWindowEdgeOvershotCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScrolledWindowEdgeOvershotCallback cb
cb'' <- mk_ScrolledWindowEdgeOvershotCallback cb'
connectSignalFunPtr obj "edge-overshot" cb'' connectMode detail
#endif
type ScrolledWindowEdgeReachedCallback =
Gtk.Enums.PositionType
-> IO ()
noScrolledWindowEdgeReachedCallback :: Maybe ScrolledWindowEdgeReachedCallback
noScrolledWindowEdgeReachedCallback :: Maybe ScrolledWindowEdgeOvershotCallback
noScrolledWindowEdgeReachedCallback = Maybe ScrolledWindowEdgeOvershotCallback
forall a. Maybe a
Nothing
type C_ScrolledWindowEdgeReachedCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ScrolledWindowEdgeReachedCallback :: C_ScrolledWindowEdgeReachedCallback -> IO (FunPtr C_ScrolledWindowEdgeReachedCallback)
genClosure_ScrolledWindowEdgeReached :: MonadIO m => ScrolledWindowEdgeReachedCallback -> m (GClosure C_ScrolledWindowEdgeReachedCallback)
genClosure_ScrolledWindowEdgeReached :: forall (m :: * -> *).
MonadIO m =>
ScrolledWindowEdgeOvershotCallback
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
genClosure_ScrolledWindowEdgeReached ScrolledWindowEdgeOvershotCallback
cb = IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback))
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeReachedCallback ScrolledWindowEdgeOvershotCallback
cb
C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowEdgeReachedCallback C_ScrolledWindowEdgeOvershotCallback
cb' IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
-> (FunPtr C_ScrolledWindowEdgeOvershotCallback
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback))
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ScrolledWindowEdgeOvershotCallback
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ScrolledWindowEdgeReachedCallback ::
ScrolledWindowEdgeReachedCallback ->
C_ScrolledWindowEdgeReachedCallback
wrap_ScrolledWindowEdgeReachedCallback :: ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeReachedCallback ScrolledWindowEdgeOvershotCallback
_cb Ptr ()
_ CUInt
pos Ptr ()
_ = do
let pos' :: PositionType
pos' = (Int -> PositionType
forall a. Enum a => Int -> a
toEnum (Int -> PositionType) -> (CUInt -> Int) -> CUInt -> PositionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
pos
ScrolledWindowEdgeOvershotCallback
_cb PositionType
pos'
onScrolledWindowEdgeReached :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId
onScrolledWindowEdgeReached :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
onScrolledWindowEdgeReached a
obj ScrolledWindowEdgeOvershotCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeReachedCallback ScrolledWindowEdgeOvershotCallback
cb
FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' <- C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowEdgeReachedCallback C_ScrolledWindowEdgeOvershotCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowEdgeOvershotCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"edge-reached" FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScrolledWindowEdgeReached :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId
afterScrolledWindowEdgeReached :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
afterScrolledWindowEdgeReached a
obj ScrolledWindowEdgeOvershotCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowEdgeOvershotCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowEdgeReachedCallback ScrolledWindowEdgeOvershotCallback
cb
FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' <- C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowEdgeReachedCallback C_ScrolledWindowEdgeOvershotCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowEdgeOvershotCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"edge-reached" FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowEdgeReachedSignalInfo
instance SignalInfo ScrolledWindowEdgeReachedSignalInfo where
type HaskellCallbackType ScrolledWindowEdgeReachedSignalInfo = ScrolledWindowEdgeReachedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScrolledWindowEdgeReachedCallback cb
cb'' <- mk_ScrolledWindowEdgeReachedCallback cb'
connectSignalFunPtr obj "edge-reached" cb'' connectMode detail
#endif
type ScrolledWindowMoveFocusOutCallback =
Gtk.Enums.DirectionType
-> IO ()
noScrolledWindowMoveFocusOutCallback :: Maybe ScrolledWindowMoveFocusOutCallback
noScrolledWindowMoveFocusOutCallback :: Maybe ScrolledWindowMoveFocusOutCallback
noScrolledWindowMoveFocusOutCallback = Maybe ScrolledWindowMoveFocusOutCallback
forall a. Maybe a
Nothing
type C_ScrolledWindowMoveFocusOutCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ScrolledWindowMoveFocusOutCallback :: C_ScrolledWindowMoveFocusOutCallback -> IO (FunPtr C_ScrolledWindowMoveFocusOutCallback)
genClosure_ScrolledWindowMoveFocusOut :: MonadIO m => ScrolledWindowMoveFocusOutCallback -> m (GClosure C_ScrolledWindowMoveFocusOutCallback)
genClosure_ScrolledWindowMoveFocusOut :: forall (m :: * -> *).
MonadIO m =>
ScrolledWindowMoveFocusOutCallback
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
genClosure_ScrolledWindowMoveFocusOut ScrolledWindowMoveFocusOutCallback
cb = IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback))
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
-> m (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowMoveFocusOutCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowMoveFocusOutCallback ScrolledWindowMoveFocusOutCallback
cb
C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowMoveFocusOutCallback C_ScrolledWindowEdgeOvershotCallback
cb' IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
-> (FunPtr C_ScrolledWindowEdgeOvershotCallback
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback))
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ScrolledWindowEdgeOvershotCallback
-> IO (GClosure C_ScrolledWindowEdgeOvershotCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ScrolledWindowMoveFocusOutCallback ::
ScrolledWindowMoveFocusOutCallback ->
C_ScrolledWindowMoveFocusOutCallback
wrap_ScrolledWindowMoveFocusOutCallback :: ScrolledWindowMoveFocusOutCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowMoveFocusOutCallback ScrolledWindowMoveFocusOutCallback
_cb Ptr ()
_ CUInt
directionType Ptr ()
_ = do
let directionType' :: DirectionType
directionType' = (Int -> DirectionType
forall a. Enum a => Int -> a
toEnum (Int -> DirectionType) -> (CUInt -> Int) -> CUInt -> DirectionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
directionType
ScrolledWindowMoveFocusOutCallback
_cb DirectionType
directionType'
onScrolledWindowMoveFocusOut :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
onScrolledWindowMoveFocusOut :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
onScrolledWindowMoveFocusOut a
obj ScrolledWindowMoveFocusOutCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowMoveFocusOutCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowMoveFocusOutCallback ScrolledWindowMoveFocusOutCallback
cb
FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' <- C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowMoveFocusOutCallback C_ScrolledWindowEdgeOvershotCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowEdgeOvershotCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-focus-out" FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScrolledWindowMoveFocusOut :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
afterScrolledWindowMoveFocusOut :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
afterScrolledWindowMoveFocusOut a
obj ScrolledWindowMoveFocusOutCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowEdgeOvershotCallback
cb' = ScrolledWindowMoveFocusOutCallback
-> C_ScrolledWindowEdgeOvershotCallback
wrap_ScrolledWindowMoveFocusOutCallback ScrolledWindowMoveFocusOutCallback
cb
FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' <- C_ScrolledWindowEdgeOvershotCallback
-> IO (FunPtr C_ScrolledWindowEdgeOvershotCallback)
mk_ScrolledWindowMoveFocusOutCallback C_ScrolledWindowEdgeOvershotCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowEdgeOvershotCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-focus-out" FunPtr C_ScrolledWindowEdgeOvershotCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowMoveFocusOutSignalInfo
instance SignalInfo ScrolledWindowMoveFocusOutSignalInfo where
type HaskellCallbackType ScrolledWindowMoveFocusOutSignalInfo = ScrolledWindowMoveFocusOutCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScrolledWindowMoveFocusOutCallback cb
cb'' <- mk_ScrolledWindowMoveFocusOutCallback cb'
connectSignalFunPtr obj "move-focus-out" cb'' connectMode detail
#endif
type ScrolledWindowScrollChildCallback =
Gtk.Enums.ScrollType
-> Bool
-> IO Bool
noScrolledWindowScrollChildCallback :: Maybe ScrolledWindowScrollChildCallback
noScrolledWindowScrollChildCallback :: Maybe ScrolledWindowScrollChildCallback
noScrolledWindowScrollChildCallback = Maybe ScrolledWindowScrollChildCallback
forall a. Maybe a
Nothing
type C_ScrolledWindowScrollChildCallback =
Ptr () ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_ScrolledWindowScrollChildCallback :: C_ScrolledWindowScrollChildCallback -> IO (FunPtr C_ScrolledWindowScrollChildCallback)
genClosure_ScrolledWindowScrollChild :: MonadIO m => ScrolledWindowScrollChildCallback -> m (GClosure C_ScrolledWindowScrollChildCallback)
genClosure_ScrolledWindowScrollChild :: forall (m :: * -> *).
MonadIO m =>
ScrolledWindowScrollChildCallback
-> m (GClosure C_ScrolledWindowScrollChildCallback)
genClosure_ScrolledWindowScrollChild ScrolledWindowScrollChildCallback
cb = IO (GClosure C_ScrolledWindowScrollChildCallback)
-> m (GClosure C_ScrolledWindowScrollChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ScrolledWindowScrollChildCallback)
-> m (GClosure C_ScrolledWindowScrollChildCallback))
-> IO (GClosure C_ScrolledWindowScrollChildCallback)
-> m (GClosure C_ScrolledWindowScrollChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowScrollChildCallback
cb' = ScrolledWindowScrollChildCallback
-> C_ScrolledWindowScrollChildCallback
wrap_ScrolledWindowScrollChildCallback ScrolledWindowScrollChildCallback
cb
C_ScrolledWindowScrollChildCallback
-> IO (FunPtr C_ScrolledWindowScrollChildCallback)
mk_ScrolledWindowScrollChildCallback C_ScrolledWindowScrollChildCallback
cb' IO (FunPtr C_ScrolledWindowScrollChildCallback)
-> (FunPtr C_ScrolledWindowScrollChildCallback
-> IO (GClosure C_ScrolledWindowScrollChildCallback))
-> IO (GClosure C_ScrolledWindowScrollChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ScrolledWindowScrollChildCallback
-> IO (GClosure C_ScrolledWindowScrollChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ScrolledWindowScrollChildCallback ::
ScrolledWindowScrollChildCallback ->
C_ScrolledWindowScrollChildCallback
wrap_ScrolledWindowScrollChildCallback :: ScrolledWindowScrollChildCallback
-> C_ScrolledWindowScrollChildCallback
wrap_ScrolledWindowScrollChildCallback ScrolledWindowScrollChildCallback
_cb Ptr ()
_ CUInt
scroll CInt
horizontal Ptr ()
_ = do
let scroll' :: ScrollType
scroll' = (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
scroll
let horizontal' :: Bool
horizontal' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
horizontal
Bool
result <- ScrolledWindowScrollChildCallback
_cb ScrollType
scroll' Bool
horizontal'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onScrolledWindowScrollChild :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
onScrolledWindowScrollChild :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
onScrolledWindowScrollChild a
obj ScrolledWindowScrollChildCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowScrollChildCallback
cb' = ScrolledWindowScrollChildCallback
-> C_ScrolledWindowScrollChildCallback
wrap_ScrolledWindowScrollChildCallback ScrolledWindowScrollChildCallback
cb
FunPtr C_ScrolledWindowScrollChildCallback
cb'' <- C_ScrolledWindowScrollChildCallback
-> IO (FunPtr C_ScrolledWindowScrollChildCallback)
mk_ScrolledWindowScrollChildCallback C_ScrolledWindowScrollChildCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowScrollChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"scroll-child" FunPtr C_ScrolledWindowScrollChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScrolledWindowScrollChild :: (IsScrolledWindow a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
afterScrolledWindowScrollChild :: forall a (m :: * -> *).
(IsScrolledWindow a, MonadIO m) =>
a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
afterScrolledWindowScrollChild a
obj ScrolledWindowScrollChildCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ScrolledWindowScrollChildCallback
cb' = ScrolledWindowScrollChildCallback
-> C_ScrolledWindowScrollChildCallback
wrap_ScrolledWindowScrollChildCallback ScrolledWindowScrollChildCallback
cb
FunPtr C_ScrolledWindowScrollChildCallback
cb'' <- C_ScrolledWindowScrollChildCallback
-> IO (FunPtr C_ScrolledWindowScrollChildCallback)
mk_ScrolledWindowScrollChildCallback C_ScrolledWindowScrollChildCallback
cb'
a
-> Text
-> FunPtr C_ScrolledWindowScrollChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"scroll-child" FunPtr C_ScrolledWindowScrollChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowScrollChildSignalInfo
instance SignalInfo ScrolledWindowScrollChildSignalInfo where
type HaskellCallbackType ScrolledWindowScrollChildSignalInfo = ScrolledWindowScrollChildCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScrolledWindowScrollChildCallback cb
cb'' <- mk_ScrolledWindowScrollChildCallback cb'
connectSignalFunPtr obj "scroll-child" cb'' connectMode detail
#endif
getScrolledWindowChild :: (MonadIO m, IsScrolledWindow o) => o -> m (Maybe Gtk.Widget.Widget)
getScrolledWindowChild :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m (Maybe Widget)
getScrolledWindowChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
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
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setScrolledWindowChild :: (MonadIO m, IsScrolledWindow o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setScrolledWindowChild :: forall (m :: * -> *) o a.
(MonadIO m, IsScrolledWindow o, IsWidget a) =>
o -> a -> m ()
setScrolledWindowChild o
obj a
val = IO () -> m ()
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
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructScrolledWindowChild :: (IsScrolledWindow o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructScrolledWindowChild :: forall o (m :: * -> *) a.
(IsScrolledWindow o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructScrolledWindowChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearScrolledWindowChild :: (MonadIO m, IsScrolledWindow o) => o -> m ()
clearScrolledWindowChild :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m ()
clearScrolledWindowChild o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowChildPropertyInfo
instance AttrInfo ScrolledWindowChildPropertyInfo where
type AttrAllowedOps ScrolledWindowChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ScrolledWindowChildPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ScrolledWindowChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ScrolledWindowChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType ScrolledWindowChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ScrolledWindowChildPropertyInfo = "child"
type AttrOrigin ScrolledWindowChildPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowChild
attrSet = setScrolledWindowChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructScrolledWindowChild
attrClear = clearScrolledWindowChild
#endif
getScrolledWindowHadjustment :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Adjustment.Adjustment
getScrolledWindowHadjustment :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Adjustment
getScrolledWindowHadjustment o
obj = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Adjustment) -> IO Adjustment
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getScrolledWindowHadjustment" (IO (Maybe Adjustment) -> IO Adjustment)
-> IO (Maybe Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Adjustment -> Adjustment)
-> IO (Maybe Adjustment)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"hadjustment" ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment
setScrolledWindowHadjustment :: (MonadIO m, IsScrolledWindow o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setScrolledWindowHadjustment :: forall (m :: * -> *) o a.
(MonadIO m, IsScrolledWindow o, IsAdjustment a) =>
o -> a -> m ()
setScrolledWindowHadjustment o
obj a
val = IO () -> m ()
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
"hadjustment" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructScrolledWindowHadjustment :: (IsScrolledWindow o, MIO.MonadIO m, Gtk.Adjustment.IsAdjustment a) => a -> m (GValueConstruct o)
constructScrolledWindowHadjustment :: forall o (m :: * -> *) a.
(IsScrolledWindow o, MonadIO m, IsAdjustment a) =>
a -> m (GValueConstruct o)
constructScrolledWindowHadjustment a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"hadjustment" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearScrolledWindowHadjustment :: (MonadIO m, IsScrolledWindow o) => o -> m ()
clearScrolledWindowHadjustment :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m ()
clearScrolledWindowHadjustment o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Adjustment -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"hadjustment" (Maybe Adjustment
forall a. Maybe a
Nothing :: Maybe Gtk.Adjustment.Adjustment)
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowHadjustmentPropertyInfo
instance AttrInfo ScrolledWindowHadjustmentPropertyInfo where
type AttrAllowedOps ScrolledWindowHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ScrolledWindowHadjustmentPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowHadjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferTypeConstraint ScrolledWindowHadjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferType ScrolledWindowHadjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrGetType ScrolledWindowHadjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel ScrolledWindowHadjustmentPropertyInfo = "hadjustment"
type AttrOrigin ScrolledWindowHadjustmentPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowHadjustment
attrSet = setScrolledWindowHadjustment
attrTransfer _ v = do
unsafeCastTo Gtk.Adjustment.Adjustment v
attrConstruct = constructScrolledWindowHadjustment
attrClear = clearScrolledWindowHadjustment
#endif
getScrolledWindowHasFrame :: (MonadIO m, IsScrolledWindow o) => o -> m Bool
getScrolledWindowHasFrame :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Bool
getScrolledWindowHasFrame o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-frame"
setScrolledWindowHasFrame :: (MonadIO m, IsScrolledWindow o) => o -> Bool -> m ()
setScrolledWindowHasFrame :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Bool -> m ()
setScrolledWindowHasFrame o
obj Bool
val = IO () -> m ()
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
"has-frame" Bool
val
constructScrolledWindowHasFrame :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowHasFrame :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScrolledWindowHasFrame Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"has-frame" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowHasFramePropertyInfo
instance AttrInfo ScrolledWindowHasFramePropertyInfo where
type AttrAllowedOps ScrolledWindowHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowHasFramePropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowHasFramePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScrolledWindowHasFramePropertyInfo = (~) Bool
type AttrTransferType ScrolledWindowHasFramePropertyInfo = Bool
type AttrGetType ScrolledWindowHasFramePropertyInfo = Bool
type AttrLabel ScrolledWindowHasFramePropertyInfo = "has-frame"
type AttrOrigin ScrolledWindowHasFramePropertyInfo = ScrolledWindow
attrGet = getScrolledWindowHasFrame
attrSet = setScrolledWindowHasFrame
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowHasFrame
attrClear = undefined
#endif
getScrolledWindowHscrollbarPolicy :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Enums.PolicyType
getScrolledWindowHscrollbarPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m PolicyType
getScrolledWindowHscrollbarPolicy o
obj = IO PolicyType -> m PolicyType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PolicyType -> m PolicyType) -> IO PolicyType -> m PolicyType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PolicyType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"hscrollbar-policy"
setScrolledWindowHscrollbarPolicy :: (MonadIO m, IsScrolledWindow o) => o -> Gtk.Enums.PolicyType -> m ()
setScrolledWindowHscrollbarPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> PolicyType -> m ()
setScrolledWindowHscrollbarPolicy o
obj PolicyType
val = IO () -> m ()
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 -> PolicyType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"hscrollbar-policy" PolicyType
val
constructScrolledWindowHscrollbarPolicy :: (IsScrolledWindow o, MIO.MonadIO m) => Gtk.Enums.PolicyType -> m (GValueConstruct o)
constructScrolledWindowHscrollbarPolicy :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
PolicyType -> m (GValueConstruct o)
constructScrolledWindowHscrollbarPolicy PolicyType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 -> PolicyType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"hscrollbar-policy" PolicyType
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowHscrollbarPolicyPropertyInfo
instance AttrInfo ScrolledWindowHscrollbarPolicyPropertyInfo where
type AttrAllowedOps ScrolledWindowHscrollbarPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = (~) Gtk.Enums.PolicyType
type AttrTransferTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = (~) Gtk.Enums.PolicyType
type AttrTransferType ScrolledWindowHscrollbarPolicyPropertyInfo = Gtk.Enums.PolicyType
type AttrGetType ScrolledWindowHscrollbarPolicyPropertyInfo = Gtk.Enums.PolicyType
type AttrLabel ScrolledWindowHscrollbarPolicyPropertyInfo = "hscrollbar-policy"
type AttrOrigin ScrolledWindowHscrollbarPolicyPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowHscrollbarPolicy
attrSet = setScrolledWindowHscrollbarPolicy
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowHscrollbarPolicy
attrClear = undefined
#endif
getScrolledWindowKineticScrolling :: (MonadIO m, IsScrolledWindow o) => o -> m Bool
getScrolledWindowKineticScrolling :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Bool
getScrolledWindowKineticScrolling o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"kinetic-scrolling"
setScrolledWindowKineticScrolling :: (MonadIO m, IsScrolledWindow o) => o -> Bool -> m ()
setScrolledWindowKineticScrolling :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Bool -> m ()
setScrolledWindowKineticScrolling o
obj Bool
val = IO () -> m ()
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
"kinetic-scrolling" Bool
val
constructScrolledWindowKineticScrolling :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowKineticScrolling :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScrolledWindowKineticScrolling Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"kinetic-scrolling" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowKineticScrollingPropertyInfo
instance AttrInfo ScrolledWindowKineticScrollingPropertyInfo where
type AttrAllowedOps ScrolledWindowKineticScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = (~) Bool
type AttrTransferType ScrolledWindowKineticScrollingPropertyInfo = Bool
type AttrGetType ScrolledWindowKineticScrollingPropertyInfo = Bool
type AttrLabel ScrolledWindowKineticScrollingPropertyInfo = "kinetic-scrolling"
type AttrOrigin ScrolledWindowKineticScrollingPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowKineticScrolling
attrSet = setScrolledWindowKineticScrolling
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowKineticScrolling
attrClear = undefined
#endif
getScrolledWindowMaxContentHeight :: (MonadIO m, IsScrolledWindow o) => o -> m Int32
getScrolledWindowMaxContentHeight :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Int32
getScrolledWindowMaxContentHeight o
obj = IO Int32 -> m Int32
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-content-height"
setScrolledWindowMaxContentHeight :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMaxContentHeight :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Int32 -> m ()
setScrolledWindowMaxContentHeight o
obj Int32
val = IO () -> m ()
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
"max-content-height" Int32
val
constructScrolledWindowMaxContentHeight :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMaxContentHeight :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructScrolledWindowMaxContentHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"max-content-height" Int32
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowMaxContentHeightPropertyInfo
instance AttrInfo ScrolledWindowMaxContentHeightPropertyInfo where
type AttrAllowedOps ScrolledWindowMaxContentHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowMaxContentHeightPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowMaxContentHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ScrolledWindowMaxContentHeightPropertyInfo = (~) Int32
type AttrTransferType ScrolledWindowMaxContentHeightPropertyInfo = Int32
type AttrGetType ScrolledWindowMaxContentHeightPropertyInfo = Int32
type AttrLabel ScrolledWindowMaxContentHeightPropertyInfo = "max-content-height"
type AttrOrigin ScrolledWindowMaxContentHeightPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowMaxContentHeight
attrSet = setScrolledWindowMaxContentHeight
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowMaxContentHeight
attrClear = undefined
#endif
getScrolledWindowMaxContentWidth :: (MonadIO m, IsScrolledWindow o) => o -> m Int32
getScrolledWindowMaxContentWidth :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Int32
getScrolledWindowMaxContentWidth o
obj = IO Int32 -> m Int32
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-content-width"
setScrolledWindowMaxContentWidth :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMaxContentWidth :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Int32 -> m ()
setScrolledWindowMaxContentWidth o
obj Int32
val = IO () -> m ()
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
"max-content-width" Int32
val
constructScrolledWindowMaxContentWidth :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMaxContentWidth :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructScrolledWindowMaxContentWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"max-content-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowMaxContentWidthPropertyInfo
instance AttrInfo ScrolledWindowMaxContentWidthPropertyInfo where
type AttrAllowedOps ScrolledWindowMaxContentWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowMaxContentWidthPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowMaxContentWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ScrolledWindowMaxContentWidthPropertyInfo = (~) Int32
type AttrTransferType ScrolledWindowMaxContentWidthPropertyInfo = Int32
type AttrGetType ScrolledWindowMaxContentWidthPropertyInfo = Int32
type AttrLabel ScrolledWindowMaxContentWidthPropertyInfo = "max-content-width"
type AttrOrigin ScrolledWindowMaxContentWidthPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowMaxContentWidth
attrSet = setScrolledWindowMaxContentWidth
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowMaxContentWidth
attrClear = undefined
#endif
getScrolledWindowMinContentHeight :: (MonadIO m, IsScrolledWindow o) => o -> m Int32
getScrolledWindowMinContentHeight :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Int32
getScrolledWindowMinContentHeight o
obj = IO Int32 -> m Int32
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-content-height"
setScrolledWindowMinContentHeight :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMinContentHeight :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Int32 -> m ()
setScrolledWindowMinContentHeight o
obj Int32
val = IO () -> m ()
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
"min-content-height" Int32
val
constructScrolledWindowMinContentHeight :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMinContentHeight :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructScrolledWindowMinContentHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"min-content-height" Int32
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowMinContentHeightPropertyInfo
instance AttrInfo ScrolledWindowMinContentHeightPropertyInfo where
type AttrAllowedOps ScrolledWindowMinContentHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = (~) Int32
type AttrTransferType ScrolledWindowMinContentHeightPropertyInfo = Int32
type AttrGetType ScrolledWindowMinContentHeightPropertyInfo = Int32
type AttrLabel ScrolledWindowMinContentHeightPropertyInfo = "min-content-height"
type AttrOrigin ScrolledWindowMinContentHeightPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowMinContentHeight
attrSet = setScrolledWindowMinContentHeight
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowMinContentHeight
attrClear = undefined
#endif
getScrolledWindowMinContentWidth :: (MonadIO m, IsScrolledWindow o) => o -> m Int32
getScrolledWindowMinContentWidth :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Int32
getScrolledWindowMinContentWidth o
obj = IO Int32 -> m Int32
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-content-width"
setScrolledWindowMinContentWidth :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMinContentWidth :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Int32 -> m ()
setScrolledWindowMinContentWidth o
obj Int32
val = IO () -> m ()
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
"min-content-width" Int32
val
constructScrolledWindowMinContentWidth :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMinContentWidth :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructScrolledWindowMinContentWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"min-content-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowMinContentWidthPropertyInfo
instance AttrInfo ScrolledWindowMinContentWidthPropertyInfo where
type AttrAllowedOps ScrolledWindowMinContentWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = (~) Int32
type AttrTransferType ScrolledWindowMinContentWidthPropertyInfo = Int32
type AttrGetType ScrolledWindowMinContentWidthPropertyInfo = Int32
type AttrLabel ScrolledWindowMinContentWidthPropertyInfo = "min-content-width"
type AttrOrigin ScrolledWindowMinContentWidthPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowMinContentWidth
attrSet = setScrolledWindowMinContentWidth
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowMinContentWidth
attrClear = undefined
#endif
getScrolledWindowOverlayScrolling :: (MonadIO m, IsScrolledWindow o) => o -> m Bool
getScrolledWindowOverlayScrolling :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Bool
getScrolledWindowOverlayScrolling o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"overlay-scrolling"
setScrolledWindowOverlayScrolling :: (MonadIO m, IsScrolledWindow o) => o -> Bool -> m ()
setScrolledWindowOverlayScrolling :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Bool -> m ()
setScrolledWindowOverlayScrolling o
obj Bool
val = IO () -> m ()
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
"overlay-scrolling" Bool
val
constructScrolledWindowOverlayScrolling :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowOverlayScrolling :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScrolledWindowOverlayScrolling Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"overlay-scrolling" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowOverlayScrollingPropertyInfo
instance AttrInfo ScrolledWindowOverlayScrollingPropertyInfo where
type AttrAllowedOps ScrolledWindowOverlayScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = (~) Bool
type AttrTransferType ScrolledWindowOverlayScrollingPropertyInfo = Bool
type AttrGetType ScrolledWindowOverlayScrollingPropertyInfo = Bool
type AttrLabel ScrolledWindowOverlayScrollingPropertyInfo = "overlay-scrolling"
type AttrOrigin ScrolledWindowOverlayScrollingPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowOverlayScrolling
attrSet = setScrolledWindowOverlayScrolling
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowOverlayScrolling
attrClear = undefined
#endif
getScrolledWindowPropagateNaturalHeight :: (MonadIO m, IsScrolledWindow o) => o -> m Bool
getScrolledWindowPropagateNaturalHeight :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Bool
getScrolledWindowPropagateNaturalHeight o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"propagate-natural-height"
setScrolledWindowPropagateNaturalHeight :: (MonadIO m, IsScrolledWindow o) => o -> Bool -> m ()
setScrolledWindowPropagateNaturalHeight :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Bool -> m ()
setScrolledWindowPropagateNaturalHeight o
obj Bool
val = IO () -> m ()
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
"propagate-natural-height" Bool
val
constructScrolledWindowPropagateNaturalHeight :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowPropagateNaturalHeight :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScrolledWindowPropagateNaturalHeight Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"propagate-natural-height" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowPropagateNaturalHeightPropertyInfo
instance AttrInfo ScrolledWindowPropagateNaturalHeightPropertyInfo where
type AttrAllowedOps ScrolledWindowPropagateNaturalHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowPropagateNaturalHeightPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowPropagateNaturalHeightPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScrolledWindowPropagateNaturalHeightPropertyInfo = (~) Bool
type AttrTransferType ScrolledWindowPropagateNaturalHeightPropertyInfo = Bool
type AttrGetType ScrolledWindowPropagateNaturalHeightPropertyInfo = Bool
type AttrLabel ScrolledWindowPropagateNaturalHeightPropertyInfo = "propagate-natural-height"
type AttrOrigin ScrolledWindowPropagateNaturalHeightPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowPropagateNaturalHeight
attrSet = setScrolledWindowPropagateNaturalHeight
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowPropagateNaturalHeight
attrClear = undefined
#endif
getScrolledWindowPropagateNaturalWidth :: (MonadIO m, IsScrolledWindow o) => o -> m Bool
getScrolledWindowPropagateNaturalWidth :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Bool
getScrolledWindowPropagateNaturalWidth o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"propagate-natural-width"
setScrolledWindowPropagateNaturalWidth :: (MonadIO m, IsScrolledWindow o) => o -> Bool -> m ()
setScrolledWindowPropagateNaturalWidth :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> Bool -> m ()
setScrolledWindowPropagateNaturalWidth o
obj Bool
val = IO () -> m ()
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
"propagate-natural-width" Bool
val
constructScrolledWindowPropagateNaturalWidth :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowPropagateNaturalWidth :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScrolledWindowPropagateNaturalWidth Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"propagate-natural-width" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowPropagateNaturalWidthPropertyInfo
instance AttrInfo ScrolledWindowPropagateNaturalWidthPropertyInfo where
type AttrAllowedOps ScrolledWindowPropagateNaturalWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowPropagateNaturalWidthPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowPropagateNaturalWidthPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScrolledWindowPropagateNaturalWidthPropertyInfo = (~) Bool
type AttrTransferType ScrolledWindowPropagateNaturalWidthPropertyInfo = Bool
type AttrGetType ScrolledWindowPropagateNaturalWidthPropertyInfo = Bool
type AttrLabel ScrolledWindowPropagateNaturalWidthPropertyInfo = "propagate-natural-width"
type AttrOrigin ScrolledWindowPropagateNaturalWidthPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowPropagateNaturalWidth
attrSet = setScrolledWindowPropagateNaturalWidth
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowPropagateNaturalWidth
attrClear = undefined
#endif
getScrolledWindowVadjustment :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Adjustment.Adjustment
getScrolledWindowVadjustment :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m Adjustment
getScrolledWindowVadjustment o
obj = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Adjustment) -> IO Adjustment
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getScrolledWindowVadjustment" (IO (Maybe Adjustment) -> IO Adjustment)
-> IO (Maybe Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Adjustment -> Adjustment)
-> IO (Maybe Adjustment)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"vadjustment" ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment
setScrolledWindowVadjustment :: (MonadIO m, IsScrolledWindow o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setScrolledWindowVadjustment :: forall (m :: * -> *) o a.
(MonadIO m, IsScrolledWindow o, IsAdjustment a) =>
o -> a -> m ()
setScrolledWindowVadjustment o
obj a
val = IO () -> m ()
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
"vadjustment" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructScrolledWindowVadjustment :: (IsScrolledWindow o, MIO.MonadIO m, Gtk.Adjustment.IsAdjustment a) => a -> m (GValueConstruct o)
constructScrolledWindowVadjustment :: forall o (m :: * -> *) a.
(IsScrolledWindow o, MonadIO m, IsAdjustment a) =>
a -> m (GValueConstruct o)
constructScrolledWindowVadjustment a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"vadjustment" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearScrolledWindowVadjustment :: (MonadIO m, IsScrolledWindow o) => o -> m ()
clearScrolledWindowVadjustment :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m ()
clearScrolledWindowVadjustment o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Adjustment -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"vadjustment" (Maybe Adjustment
forall a. Maybe a
Nothing :: Maybe Gtk.Adjustment.Adjustment)
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowVadjustmentPropertyInfo
instance AttrInfo ScrolledWindowVadjustmentPropertyInfo where
type AttrAllowedOps ScrolledWindowVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ScrolledWindowVadjustmentPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowVadjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferTypeConstraint ScrolledWindowVadjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferType ScrolledWindowVadjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrGetType ScrolledWindowVadjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel ScrolledWindowVadjustmentPropertyInfo = "vadjustment"
type AttrOrigin ScrolledWindowVadjustmentPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowVadjustment
attrSet = setScrolledWindowVadjustment
attrTransfer _ v = do
unsafeCastTo Gtk.Adjustment.Adjustment v
attrConstruct = constructScrolledWindowVadjustment
attrClear = clearScrolledWindowVadjustment
#endif
getScrolledWindowVscrollbarPolicy :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Enums.PolicyType
getScrolledWindowVscrollbarPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m PolicyType
getScrolledWindowVscrollbarPolicy o
obj = IO PolicyType -> m PolicyType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PolicyType -> m PolicyType) -> IO PolicyType -> m PolicyType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PolicyType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"vscrollbar-policy"
setScrolledWindowVscrollbarPolicy :: (MonadIO m, IsScrolledWindow o) => o -> Gtk.Enums.PolicyType -> m ()
setScrolledWindowVscrollbarPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> PolicyType -> m ()
setScrolledWindowVscrollbarPolicy o
obj PolicyType
val = IO () -> m ()
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 -> PolicyType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"vscrollbar-policy" PolicyType
val
constructScrolledWindowVscrollbarPolicy :: (IsScrolledWindow o, MIO.MonadIO m) => Gtk.Enums.PolicyType -> m (GValueConstruct o)
constructScrolledWindowVscrollbarPolicy :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
PolicyType -> m (GValueConstruct o)
constructScrolledWindowVscrollbarPolicy PolicyType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 -> PolicyType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"vscrollbar-policy" PolicyType
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowVscrollbarPolicyPropertyInfo
instance AttrInfo ScrolledWindowVscrollbarPolicyPropertyInfo where
type AttrAllowedOps ScrolledWindowVscrollbarPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = (~) Gtk.Enums.PolicyType
type AttrTransferTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = (~) Gtk.Enums.PolicyType
type AttrTransferType ScrolledWindowVscrollbarPolicyPropertyInfo = Gtk.Enums.PolicyType
type AttrGetType ScrolledWindowVscrollbarPolicyPropertyInfo = Gtk.Enums.PolicyType
type AttrLabel ScrolledWindowVscrollbarPolicyPropertyInfo = "vscrollbar-policy"
type AttrOrigin ScrolledWindowVscrollbarPolicyPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowVscrollbarPolicy
attrSet = setScrolledWindowVscrollbarPolicy
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowVscrollbarPolicy
attrClear = undefined
#endif
getScrolledWindowWindowPlacement :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Enums.CornerType
getScrolledWindowWindowPlacement :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> m CornerType
getScrolledWindowWindowPlacement o
obj = IO CornerType -> m CornerType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CornerType -> m CornerType) -> IO CornerType -> m CornerType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CornerType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"window-placement"
setScrolledWindowWindowPlacement :: (MonadIO m, IsScrolledWindow o) => o -> Gtk.Enums.CornerType -> m ()
setScrolledWindowWindowPlacement :: forall (m :: * -> *) o.
(MonadIO m, IsScrolledWindow o) =>
o -> CornerType -> m ()
setScrolledWindowWindowPlacement o
obj CornerType
val = IO () -> m ()
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 -> CornerType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"window-placement" CornerType
val
constructScrolledWindowWindowPlacement :: (IsScrolledWindow o, MIO.MonadIO m) => Gtk.Enums.CornerType -> m (GValueConstruct o)
constructScrolledWindowWindowPlacement :: forall o (m :: * -> *).
(IsScrolledWindow o, MonadIO m) =>
CornerType -> m (GValueConstruct o)
constructScrolledWindowWindowPlacement CornerType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 -> CornerType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"window-placement" CornerType
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowWindowPlacementPropertyInfo
instance AttrInfo ScrolledWindowWindowPlacementPropertyInfo where
type AttrAllowedOps ScrolledWindowWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = (~) Gtk.Enums.CornerType
type AttrTransferTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = (~) Gtk.Enums.CornerType
type AttrTransferType ScrolledWindowWindowPlacementPropertyInfo = Gtk.Enums.CornerType
type AttrGetType ScrolledWindowWindowPlacementPropertyInfo = Gtk.Enums.CornerType
type AttrLabel ScrolledWindowWindowPlacementPropertyInfo = "window-placement"
type AttrOrigin ScrolledWindowWindowPlacementPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowWindowPlacement
attrSet = setScrolledWindowWindowPlacement
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowWindowPlacement
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScrolledWindow
type instance O.AttributeList ScrolledWindow = ScrolledWindowAttributeList
type ScrolledWindowAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", ScrolledWindowChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasFrame", ScrolledWindowHasFramePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxContentHeight", ScrolledWindowMaxContentHeightPropertyInfo), '("maxContentWidth", ScrolledWindowMaxContentWidthPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("propagateNaturalHeight", ScrolledWindowPropagateNaturalHeightPropertyInfo), '("propagateNaturalWidth", ScrolledWindowPropagateNaturalWidthPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
scrolledWindowChild :: AttrLabelProxy "child"
scrolledWindowChild = AttrLabelProxy
scrolledWindowHadjustment :: AttrLabelProxy "hadjustment"
scrolledWindowHadjustment = AttrLabelProxy
scrolledWindowHasFrame :: AttrLabelProxy "hasFrame"
scrolledWindowHasFrame = AttrLabelProxy
scrolledWindowHscrollbarPolicy :: AttrLabelProxy "hscrollbarPolicy"
scrolledWindowHscrollbarPolicy = AttrLabelProxy
scrolledWindowKineticScrolling :: AttrLabelProxy "kineticScrolling"
scrolledWindowKineticScrolling = AttrLabelProxy
scrolledWindowMaxContentHeight :: AttrLabelProxy "maxContentHeight"
scrolledWindowMaxContentHeight = AttrLabelProxy
scrolledWindowMaxContentWidth :: AttrLabelProxy "maxContentWidth"
scrolledWindowMaxContentWidth = AttrLabelProxy
scrolledWindowMinContentHeight :: AttrLabelProxy "minContentHeight"
scrolledWindowMinContentHeight = AttrLabelProxy
scrolledWindowMinContentWidth :: AttrLabelProxy "minContentWidth"
scrolledWindowMinContentWidth = AttrLabelProxy
scrolledWindowOverlayScrolling :: AttrLabelProxy "overlayScrolling"
scrolledWindowOverlayScrolling = AttrLabelProxy
scrolledWindowPropagateNaturalHeight :: AttrLabelProxy "propagateNaturalHeight"
scrolledWindowPropagateNaturalHeight = AttrLabelProxy
scrolledWindowPropagateNaturalWidth :: AttrLabelProxy "propagateNaturalWidth"
scrolledWindowPropagateNaturalWidth = AttrLabelProxy
scrolledWindowVadjustment :: AttrLabelProxy "vadjustment"
scrolledWindowVadjustment = AttrLabelProxy
scrolledWindowVscrollbarPolicy :: AttrLabelProxy "vscrollbarPolicy"
scrolledWindowVscrollbarPolicy = AttrLabelProxy
scrolledWindowWindowPlacement :: AttrLabelProxy "windowPlacement"
scrolledWindowWindowPlacement = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ScrolledWindow = ScrolledWindowSignalList
type ScrolledWindowSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("edgeOvershot", ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", ScrolledWindowEdgeReachedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveFocusOut", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("scrollChild", ScrolledWindowScrollChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_scrolled_window_new" gtk_scrolled_window_new ::
IO (Ptr ScrolledWindow)
scrolledWindowNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ScrolledWindow
scrolledWindowNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ScrolledWindow
scrolledWindowNew = IO ScrolledWindow -> m ScrolledWindow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScrolledWindow -> m ScrolledWindow)
-> IO ScrolledWindow -> m ScrolledWindow
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
result <- IO (Ptr ScrolledWindow)
gtk_scrolled_window_new
Text -> Ptr ScrolledWindow -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrolledWindowNew" Ptr ScrolledWindow
result
ScrolledWindow
result' <- ((ManagedPtr ScrolledWindow -> ScrolledWindow)
-> Ptr ScrolledWindow -> IO ScrolledWindow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ScrolledWindow -> ScrolledWindow
ScrolledWindow) Ptr ScrolledWindow
result
ScrolledWindow -> IO ScrolledWindow
forall (m :: * -> *) a. Monad m => a -> m a
return ScrolledWindow
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_scrolled_window_get_child" gtk_scrolled_window_get_child ::
Ptr ScrolledWindow ->
IO (Ptr Gtk.Widget.Widget)
scrolledWindowGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m (Maybe Gtk.Widget.Widget)
scrolledWindowGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m (Maybe Widget)
scrolledWindowGetChild a
scrolledWindow = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Widget
result <- Ptr ScrolledWindow -> IO (Ptr Widget)
gtk_scrolled_window_get_child Ptr ScrolledWindow
scrolledWindow'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetChildMethodInfo a signature where
overloadedMethod = scrolledWindowGetChild
instance O.OverloadedMethodInfo ScrolledWindowGetChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetChild"
}
#endif
foreign import ccall "gtk_scrolled_window_get_hadjustment" gtk_scrolled_window_get_hadjustment ::
Ptr ScrolledWindow ->
IO (Ptr Gtk.Adjustment.Adjustment)
scrolledWindowGetHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Gtk.Adjustment.Adjustment
scrolledWindowGetHadjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Adjustment
scrolledWindowGetHadjustment a
scrolledWindow = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Adjustment
result <- Ptr ScrolledWindow -> IO (Ptr Adjustment)
gtk_scrolled_window_get_hadjustment Ptr ScrolledWindow
scrolledWindow'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrolledWindowGetHadjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetHadjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetHadjustmentMethodInfo a signature where
overloadedMethod = scrolledWindowGetHadjustment
instance O.OverloadedMethodInfo ScrolledWindowGetHadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetHadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetHadjustment"
}
#endif
foreign import ccall "gtk_scrolled_window_get_has_frame" gtk_scrolled_window_get_has_frame ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetHasFrame ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Bool
scrolledWindowGetHasFrame :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Bool
scrolledWindowGetHasFrame a
scrolledWindow = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
CInt
result <- Ptr ScrolledWindow -> IO CInt
gtk_scrolled_window_get_has_frame Ptr ScrolledWindow
scrolledWindow'
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
scrolledWindow
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetHasFrameMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetHasFrameMethodInfo a signature where
overloadedMethod = scrolledWindowGetHasFrame
instance O.OverloadedMethodInfo ScrolledWindowGetHasFrameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetHasFrame",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetHasFrame"
}
#endif
foreign import ccall "gtk_scrolled_window_get_hscrollbar" gtk_scrolled_window_get_hscrollbar ::
Ptr ScrolledWindow ->
IO (Ptr Gtk.Widget.Widget)
scrolledWindowGetHscrollbar ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Gtk.Widget.Widget
scrolledWindowGetHscrollbar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Widget
scrolledWindowGetHscrollbar a
scrolledWindow = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Widget
result <- Ptr ScrolledWindow -> IO (Ptr Widget)
gtk_scrolled_window_get_hscrollbar Ptr ScrolledWindow
scrolledWindow'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrolledWindowGetHscrollbar" Ptr Widget
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetHscrollbarMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetHscrollbarMethodInfo a signature where
overloadedMethod = scrolledWindowGetHscrollbar
instance O.OverloadedMethodInfo ScrolledWindowGetHscrollbarMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetHscrollbar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetHscrollbar"
}
#endif
foreign import ccall "gtk_scrolled_window_get_kinetic_scrolling" gtk_scrolled_window_get_kinetic_scrolling ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetKineticScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Bool
scrolledWindowGetKineticScrolling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Bool
scrolledWindowGetKineticScrolling a
scrolledWindow = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
CInt
result <- Ptr ScrolledWindow -> IO CInt
gtk_scrolled_window_get_kinetic_scrolling Ptr ScrolledWindow
scrolledWindow'
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
scrolledWindow
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetKineticScrollingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetKineticScrollingMethodInfo a signature where
overloadedMethod = scrolledWindowGetKineticScrolling
instance O.OverloadedMethodInfo ScrolledWindowGetKineticScrollingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetKineticScrolling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetKineticScrolling"
}
#endif
foreign import ccall "gtk_scrolled_window_get_max_content_height" gtk_scrolled_window_get_max_content_height ::
Ptr ScrolledWindow ->
IO Int32
scrolledWindowGetMaxContentHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Int32
scrolledWindowGetMaxContentHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Int32
scrolledWindowGetMaxContentHeight a
scrolledWindow = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Int32
result <- Ptr ScrolledWindow -> IO Int32
gtk_scrolled_window_get_max_content_height Ptr ScrolledWindow
scrolledWindow'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetMaxContentHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetMaxContentHeightMethodInfo a signature where
overloadedMethod = scrolledWindowGetMaxContentHeight
instance O.OverloadedMethodInfo ScrolledWindowGetMaxContentHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetMaxContentHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetMaxContentHeight"
}
#endif
foreign import ccall "gtk_scrolled_window_get_max_content_width" gtk_scrolled_window_get_max_content_width ::
Ptr ScrolledWindow ->
IO Int32
scrolledWindowGetMaxContentWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Int32
scrolledWindowGetMaxContentWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Int32
scrolledWindowGetMaxContentWidth a
scrolledWindow = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Int32
result <- Ptr ScrolledWindow -> IO Int32
gtk_scrolled_window_get_max_content_width Ptr ScrolledWindow
scrolledWindow'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetMaxContentWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetMaxContentWidthMethodInfo a signature where
overloadedMethod = scrolledWindowGetMaxContentWidth
instance O.OverloadedMethodInfo ScrolledWindowGetMaxContentWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetMaxContentWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetMaxContentWidth"
}
#endif
foreign import ccall "gtk_scrolled_window_get_min_content_height" gtk_scrolled_window_get_min_content_height ::
Ptr ScrolledWindow ->
IO Int32
scrolledWindowGetMinContentHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Int32
scrolledWindowGetMinContentHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Int32
scrolledWindowGetMinContentHeight a
scrolledWindow = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Int32
result <- Ptr ScrolledWindow -> IO Int32
gtk_scrolled_window_get_min_content_height Ptr ScrolledWindow
scrolledWindow'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetMinContentHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetMinContentHeightMethodInfo a signature where
overloadedMethod = scrolledWindowGetMinContentHeight
instance O.OverloadedMethodInfo ScrolledWindowGetMinContentHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetMinContentHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetMinContentHeight"
}
#endif
foreign import ccall "gtk_scrolled_window_get_min_content_width" gtk_scrolled_window_get_min_content_width ::
Ptr ScrolledWindow ->
IO Int32
scrolledWindowGetMinContentWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Int32
scrolledWindowGetMinContentWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Int32
scrolledWindowGetMinContentWidth a
scrolledWindow = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Int32
result <- Ptr ScrolledWindow -> IO Int32
gtk_scrolled_window_get_min_content_width Ptr ScrolledWindow
scrolledWindow'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetMinContentWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetMinContentWidthMethodInfo a signature where
overloadedMethod = scrolledWindowGetMinContentWidth
instance O.OverloadedMethodInfo ScrolledWindowGetMinContentWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetMinContentWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetMinContentWidth"
}
#endif
foreign import ccall "gtk_scrolled_window_get_overlay_scrolling" gtk_scrolled_window_get_overlay_scrolling ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetOverlayScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Bool
scrolledWindowGetOverlayScrolling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Bool
scrolledWindowGetOverlayScrolling a
scrolledWindow = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
CInt
result <- Ptr ScrolledWindow -> IO CInt
gtk_scrolled_window_get_overlay_scrolling Ptr ScrolledWindow
scrolledWindow'
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
scrolledWindow
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetOverlayScrollingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetOverlayScrollingMethodInfo a signature where
overloadedMethod = scrolledWindowGetOverlayScrolling
instance O.OverloadedMethodInfo ScrolledWindowGetOverlayScrollingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetOverlayScrolling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetOverlayScrolling"
}
#endif
foreign import ccall "gtk_scrolled_window_get_placement" gtk_scrolled_window_get_placement ::
Ptr ScrolledWindow ->
IO CUInt
scrolledWindowGetPlacement ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Gtk.Enums.CornerType
scrolledWindowGetPlacement :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m CornerType
scrolledWindowGetPlacement a
scrolledWindow = IO CornerType -> m CornerType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CornerType -> m CornerType) -> IO CornerType -> m CornerType
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
CUInt
result <- Ptr ScrolledWindow -> IO CUInt
gtk_scrolled_window_get_placement Ptr ScrolledWindow
scrolledWindow'
let result' :: CornerType
result' = (Int -> CornerType
forall a. Enum a => Int -> a
toEnum (Int -> CornerType) -> (CUInt -> Int) -> CUInt -> CornerType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
CornerType -> IO CornerType
forall (m :: * -> *) a. Monad m => a -> m a
return CornerType
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetPlacementMethodInfo
instance (signature ~ (m Gtk.Enums.CornerType), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetPlacementMethodInfo a signature where
overloadedMethod = scrolledWindowGetPlacement
instance O.OverloadedMethodInfo ScrolledWindowGetPlacementMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetPlacement",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetPlacement"
}
#endif
foreign import ccall "gtk_scrolled_window_get_policy" gtk_scrolled_window_get_policy ::
Ptr ScrolledWindow ->
Ptr CUInt ->
Ptr CUInt ->
IO ()
scrolledWindowGetPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m ((Gtk.Enums.PolicyType, Gtk.Enums.PolicyType))
scrolledWindowGetPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m (PolicyType, PolicyType)
scrolledWindowGetPolicy a
scrolledWindow = IO (PolicyType, PolicyType) -> m (PolicyType, PolicyType)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (PolicyType, PolicyType) -> m (PolicyType, PolicyType))
-> IO (PolicyType, PolicyType) -> m (PolicyType, PolicyType)
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr CUInt
hscrollbarPolicy <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
Ptr CUInt
vscrollbarPolicy <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
Ptr ScrolledWindow -> Ptr CUInt -> Ptr CUInt -> IO ()
gtk_scrolled_window_get_policy Ptr ScrolledWindow
scrolledWindow' Ptr CUInt
hscrollbarPolicy Ptr CUInt
vscrollbarPolicy
CUInt
hscrollbarPolicy' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
hscrollbarPolicy
let hscrollbarPolicy'' :: PolicyType
hscrollbarPolicy'' = (Int -> PolicyType
forall a. Enum a => Int -> a
toEnum (Int -> PolicyType) -> (CUInt -> Int) -> CUInt -> PolicyType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
hscrollbarPolicy'
CUInt
vscrollbarPolicy' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
vscrollbarPolicy
let vscrollbarPolicy'' :: PolicyType
vscrollbarPolicy'' = (Int -> PolicyType
forall a. Enum a => Int -> a
toEnum (Int -> PolicyType) -> (CUInt -> Int) -> CUInt -> PolicyType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
vscrollbarPolicy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
hscrollbarPolicy
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
vscrollbarPolicy
(PolicyType, PolicyType) -> IO (PolicyType, PolicyType)
forall (m :: * -> *) a. Monad m => a -> m a
return (PolicyType
hscrollbarPolicy'', PolicyType
vscrollbarPolicy'')
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetPolicyMethodInfo
instance (signature ~ (m ((Gtk.Enums.PolicyType, Gtk.Enums.PolicyType))), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetPolicyMethodInfo a signature where
overloadedMethod = scrolledWindowGetPolicy
instance O.OverloadedMethodInfo ScrolledWindowGetPolicyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetPolicy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetPolicy"
}
#endif
foreign import ccall "gtk_scrolled_window_get_propagate_natural_height" gtk_scrolled_window_get_propagate_natural_height ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetPropagateNaturalHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Bool
scrolledWindowGetPropagateNaturalHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Bool
scrolledWindowGetPropagateNaturalHeight a
scrolledWindow = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
CInt
result <- Ptr ScrolledWindow -> IO CInt
gtk_scrolled_window_get_propagate_natural_height Ptr ScrolledWindow
scrolledWindow'
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
scrolledWindow
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetPropagateNaturalHeightMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetPropagateNaturalHeightMethodInfo a signature where
overloadedMethod = scrolledWindowGetPropagateNaturalHeight
instance O.OverloadedMethodInfo ScrolledWindowGetPropagateNaturalHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetPropagateNaturalHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetPropagateNaturalHeight"
}
#endif
foreign import ccall "gtk_scrolled_window_get_propagate_natural_width" gtk_scrolled_window_get_propagate_natural_width ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetPropagateNaturalWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Bool
scrolledWindowGetPropagateNaturalWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Bool
scrolledWindowGetPropagateNaturalWidth a
scrolledWindow = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
CInt
result <- Ptr ScrolledWindow -> IO CInt
gtk_scrolled_window_get_propagate_natural_width Ptr ScrolledWindow
scrolledWindow'
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
scrolledWindow
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetPropagateNaturalWidthMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetPropagateNaturalWidthMethodInfo a signature where
overloadedMethod = scrolledWindowGetPropagateNaturalWidth
instance O.OverloadedMethodInfo ScrolledWindowGetPropagateNaturalWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetPropagateNaturalWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetPropagateNaturalWidth"
}
#endif
foreign import ccall "gtk_scrolled_window_get_vadjustment" gtk_scrolled_window_get_vadjustment ::
Ptr ScrolledWindow ->
IO (Ptr Gtk.Adjustment.Adjustment)
scrolledWindowGetVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Gtk.Adjustment.Adjustment
scrolledWindowGetVadjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Adjustment
scrolledWindowGetVadjustment a
scrolledWindow = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Adjustment
result <- Ptr ScrolledWindow -> IO (Ptr Adjustment)
gtk_scrolled_window_get_vadjustment Ptr ScrolledWindow
scrolledWindow'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrolledWindowGetVadjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetVadjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetVadjustmentMethodInfo a signature where
overloadedMethod = scrolledWindowGetVadjustment
instance O.OverloadedMethodInfo ScrolledWindowGetVadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetVadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetVadjustment"
}
#endif
foreign import ccall "gtk_scrolled_window_get_vscrollbar" gtk_scrolled_window_get_vscrollbar ::
Ptr ScrolledWindow ->
IO (Ptr Gtk.Widget.Widget)
scrolledWindowGetVscrollbar ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Gtk.Widget.Widget
scrolledWindowGetVscrollbar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m Widget
scrolledWindowGetVscrollbar a
scrolledWindow = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Widget
result <- Ptr ScrolledWindow -> IO (Ptr Widget)
gtk_scrolled_window_get_vscrollbar Ptr ScrolledWindow
scrolledWindow'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrolledWindowGetVscrollbar" Ptr Widget
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetVscrollbarMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowGetVscrollbarMethodInfo a signature where
overloadedMethod = scrolledWindowGetVscrollbar
instance O.OverloadedMethodInfo ScrolledWindowGetVscrollbarMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowGetVscrollbar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowGetVscrollbar"
}
#endif
foreign import ccall "gtk_scrolled_window_set_child" gtk_scrolled_window_set_child ::
Ptr ScrolledWindow ->
Ptr Gtk.Widget.Widget ->
IO ()
scrolledWindowSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
scrolledWindowSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsScrolledWindow a, IsWidget b) =>
a -> Maybe b -> m ()
scrolledWindowSetChild a
scrolledWindow Maybe b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr ScrolledWindow -> Ptr Widget -> IO ()
gtk_scrolled_window_set_child Ptr ScrolledWindow
scrolledWindow' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsScrolledWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ScrolledWindowSetChildMethodInfo a signature where
overloadedMethod = scrolledWindowSetChild
instance O.OverloadedMethodInfo ScrolledWindowSetChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetChild"
}
#endif
foreign import ccall "gtk_scrolled_window_set_hadjustment" gtk_scrolled_window_set_hadjustment ::
Ptr ScrolledWindow ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
scrolledWindowSetHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a, Gtk.Adjustment.IsAdjustment b) =>
a
-> Maybe (b)
-> m ()
scrolledWindowSetHadjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsScrolledWindow a, IsAdjustment b) =>
a -> Maybe b -> m ()
scrolledWindowSetHadjustment a
scrolledWindow Maybe b
hadjustment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Adjustment
maybeHadjustment <- case Maybe b
hadjustment of
Maybe b
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just b
jHadjustment -> do
Ptr Adjustment
jHadjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jHadjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jHadjustment'
Ptr ScrolledWindow -> Ptr Adjustment -> IO ()
gtk_scrolled_window_set_hadjustment Ptr ScrolledWindow
scrolledWindow' Ptr Adjustment
maybeHadjustment
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
hadjustment b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetHadjustmentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsScrolledWindow a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod ScrolledWindowSetHadjustmentMethodInfo a signature where
overloadedMethod = scrolledWindowSetHadjustment
instance O.OverloadedMethodInfo ScrolledWindowSetHadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetHadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetHadjustment"
}
#endif
foreign import ccall "gtk_scrolled_window_set_has_frame" gtk_scrolled_window_set_has_frame ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetHasFrame ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Bool
-> m ()
scrolledWindowSetHasFrame :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Bool -> m ()
scrolledWindowSetHasFrame a
scrolledWindow Bool
hasFrame = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let hasFrame' :: CInt
hasFrame' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasFrame
Ptr ScrolledWindow -> CInt -> IO ()
gtk_scrolled_window_set_has_frame Ptr ScrolledWindow
scrolledWindow' CInt
hasFrame'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetHasFrameMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetHasFrameMethodInfo a signature where
overloadedMethod = scrolledWindowSetHasFrame
instance O.OverloadedMethodInfo ScrolledWindowSetHasFrameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetHasFrame",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetHasFrame"
}
#endif
foreign import ccall "gtk_scrolled_window_set_kinetic_scrolling" gtk_scrolled_window_set_kinetic_scrolling ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetKineticScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Bool
-> m ()
scrolledWindowSetKineticScrolling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Bool -> m ()
scrolledWindowSetKineticScrolling a
scrolledWindow Bool
kineticScrolling = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let kineticScrolling' :: CInt
kineticScrolling' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
kineticScrolling
Ptr ScrolledWindow -> CInt -> IO ()
gtk_scrolled_window_set_kinetic_scrolling Ptr ScrolledWindow
scrolledWindow' CInt
kineticScrolling'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetKineticScrollingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetKineticScrollingMethodInfo a signature where
overloadedMethod = scrolledWindowSetKineticScrolling
instance O.OverloadedMethodInfo ScrolledWindowSetKineticScrollingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetKineticScrolling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetKineticScrolling"
}
#endif
foreign import ccall "gtk_scrolled_window_set_max_content_height" gtk_scrolled_window_set_max_content_height ::
Ptr ScrolledWindow ->
Int32 ->
IO ()
scrolledWindowSetMaxContentHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Int32
-> m ()
scrolledWindowSetMaxContentHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Int32 -> m ()
scrolledWindowSetMaxContentHeight a
scrolledWindow Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr ScrolledWindow -> Int32 -> IO ()
gtk_scrolled_window_set_max_content_height Ptr ScrolledWindow
scrolledWindow' Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetMaxContentHeightMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetMaxContentHeightMethodInfo a signature where
overloadedMethod = scrolledWindowSetMaxContentHeight
instance O.OverloadedMethodInfo ScrolledWindowSetMaxContentHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetMaxContentHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetMaxContentHeight"
}
#endif
foreign import ccall "gtk_scrolled_window_set_max_content_width" gtk_scrolled_window_set_max_content_width ::
Ptr ScrolledWindow ->
Int32 ->
IO ()
scrolledWindowSetMaxContentWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Int32
-> m ()
scrolledWindowSetMaxContentWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Int32 -> m ()
scrolledWindowSetMaxContentWidth a
scrolledWindow Int32
width = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr ScrolledWindow -> Int32 -> IO ()
gtk_scrolled_window_set_max_content_width Ptr ScrolledWindow
scrolledWindow' Int32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetMaxContentWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetMaxContentWidthMethodInfo a signature where
overloadedMethod = scrolledWindowSetMaxContentWidth
instance O.OverloadedMethodInfo ScrolledWindowSetMaxContentWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetMaxContentWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetMaxContentWidth"
}
#endif
foreign import ccall "gtk_scrolled_window_set_min_content_height" gtk_scrolled_window_set_min_content_height ::
Ptr ScrolledWindow ->
Int32 ->
IO ()
scrolledWindowSetMinContentHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Int32
-> m ()
scrolledWindowSetMinContentHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Int32 -> m ()
scrolledWindowSetMinContentHeight a
scrolledWindow Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr ScrolledWindow -> Int32 -> IO ()
gtk_scrolled_window_set_min_content_height Ptr ScrolledWindow
scrolledWindow' Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetMinContentHeightMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetMinContentHeightMethodInfo a signature where
overloadedMethod = scrolledWindowSetMinContentHeight
instance O.OverloadedMethodInfo ScrolledWindowSetMinContentHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetMinContentHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetMinContentHeight"
}
#endif
foreign import ccall "gtk_scrolled_window_set_min_content_width" gtk_scrolled_window_set_min_content_width ::
Ptr ScrolledWindow ->
Int32 ->
IO ()
scrolledWindowSetMinContentWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Int32
-> m ()
scrolledWindowSetMinContentWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Int32 -> m ()
scrolledWindowSetMinContentWidth a
scrolledWindow Int32
width = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr ScrolledWindow -> Int32 -> IO ()
gtk_scrolled_window_set_min_content_width Ptr ScrolledWindow
scrolledWindow' Int32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetMinContentWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetMinContentWidthMethodInfo a signature where
overloadedMethod = scrolledWindowSetMinContentWidth
instance O.OverloadedMethodInfo ScrolledWindowSetMinContentWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetMinContentWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetMinContentWidth"
}
#endif
foreign import ccall "gtk_scrolled_window_set_overlay_scrolling" gtk_scrolled_window_set_overlay_scrolling ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetOverlayScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Bool
-> m ()
scrolledWindowSetOverlayScrolling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Bool -> m ()
scrolledWindowSetOverlayScrolling a
scrolledWindow Bool
overlayScrolling = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let overlayScrolling' :: CInt
overlayScrolling' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
overlayScrolling
Ptr ScrolledWindow -> CInt -> IO ()
gtk_scrolled_window_set_overlay_scrolling Ptr ScrolledWindow
scrolledWindow' CInt
overlayScrolling'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetOverlayScrollingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetOverlayScrollingMethodInfo a signature where
overloadedMethod = scrolledWindowSetOverlayScrolling
instance O.OverloadedMethodInfo ScrolledWindowSetOverlayScrollingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetOverlayScrolling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetOverlayScrolling"
}
#endif
foreign import ccall "gtk_scrolled_window_set_placement" gtk_scrolled_window_set_placement ::
Ptr ScrolledWindow ->
CUInt ->
IO ()
scrolledWindowSetPlacement ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Gtk.Enums.CornerType
-> m ()
scrolledWindowSetPlacement :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> CornerType -> m ()
scrolledWindowSetPlacement a
scrolledWindow CornerType
windowPlacement = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let windowPlacement' :: CUInt
windowPlacement' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (CornerType -> Int) -> CornerType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CornerType -> Int
forall a. Enum a => a -> Int
fromEnum) CornerType
windowPlacement
Ptr ScrolledWindow -> CUInt -> IO ()
gtk_scrolled_window_set_placement Ptr ScrolledWindow
scrolledWindow' CUInt
windowPlacement'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetPlacementMethodInfo
instance (signature ~ (Gtk.Enums.CornerType -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetPlacementMethodInfo a signature where
overloadedMethod = scrolledWindowSetPlacement
instance O.OverloadedMethodInfo ScrolledWindowSetPlacementMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetPlacement",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetPlacement"
}
#endif
foreign import ccall "gtk_scrolled_window_set_policy" gtk_scrolled_window_set_policy ::
Ptr ScrolledWindow ->
CUInt ->
CUInt ->
IO ()
scrolledWindowSetPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Gtk.Enums.PolicyType
-> Gtk.Enums.PolicyType
-> m ()
scrolledWindowSetPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> PolicyType -> PolicyType -> m ()
scrolledWindowSetPolicy a
scrolledWindow PolicyType
hscrollbarPolicy PolicyType
vscrollbarPolicy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let hscrollbarPolicy' :: CUInt
hscrollbarPolicy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PolicyType -> Int) -> PolicyType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PolicyType -> Int
forall a. Enum a => a -> Int
fromEnum) PolicyType
hscrollbarPolicy
let vscrollbarPolicy' :: CUInt
vscrollbarPolicy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PolicyType -> Int) -> PolicyType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PolicyType -> Int
forall a. Enum a => a -> Int
fromEnum) PolicyType
vscrollbarPolicy
Ptr ScrolledWindow -> CUInt -> CUInt -> IO ()
gtk_scrolled_window_set_policy Ptr ScrolledWindow
scrolledWindow' CUInt
hscrollbarPolicy' CUInt
vscrollbarPolicy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetPolicyMethodInfo
instance (signature ~ (Gtk.Enums.PolicyType -> Gtk.Enums.PolicyType -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetPolicyMethodInfo a signature where
overloadedMethod = scrolledWindowSetPolicy
instance O.OverloadedMethodInfo ScrolledWindowSetPolicyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetPolicy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetPolicy"
}
#endif
foreign import ccall "gtk_scrolled_window_set_propagate_natural_height" gtk_scrolled_window_set_propagate_natural_height ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetPropagateNaturalHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Bool
-> m ()
scrolledWindowSetPropagateNaturalHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Bool -> m ()
scrolledWindowSetPropagateNaturalHeight a
scrolledWindow Bool
propagate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let propagate' :: CInt
propagate' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
propagate
Ptr ScrolledWindow -> CInt -> IO ()
gtk_scrolled_window_set_propagate_natural_height Ptr ScrolledWindow
scrolledWindow' CInt
propagate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetPropagateNaturalHeightMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetPropagateNaturalHeightMethodInfo a signature where
overloadedMethod = scrolledWindowSetPropagateNaturalHeight
instance O.OverloadedMethodInfo ScrolledWindowSetPropagateNaturalHeightMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetPropagateNaturalHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetPropagateNaturalHeight"
}
#endif
foreign import ccall "gtk_scrolled_window_set_propagate_natural_width" gtk_scrolled_window_set_propagate_natural_width ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetPropagateNaturalWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Bool
-> m ()
scrolledWindowSetPropagateNaturalWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> Bool -> m ()
scrolledWindowSetPropagateNaturalWidth a
scrolledWindow Bool
propagate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
let propagate' :: CInt
propagate' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
propagate
Ptr ScrolledWindow -> CInt -> IO ()
gtk_scrolled_window_set_propagate_natural_width Ptr ScrolledWindow
scrolledWindow' CInt
propagate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetPropagateNaturalWidthMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowSetPropagateNaturalWidthMethodInfo a signature where
overloadedMethod = scrolledWindowSetPropagateNaturalWidth
instance O.OverloadedMethodInfo ScrolledWindowSetPropagateNaturalWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetPropagateNaturalWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetPropagateNaturalWidth"
}
#endif
foreign import ccall "gtk_scrolled_window_set_vadjustment" gtk_scrolled_window_set_vadjustment ::
Ptr ScrolledWindow ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
scrolledWindowSetVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a, Gtk.Adjustment.IsAdjustment b) =>
a
-> Maybe (b)
-> m ()
scrolledWindowSetVadjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsScrolledWindow a, IsAdjustment b) =>
a -> Maybe b -> m ()
scrolledWindowSetVadjustment a
scrolledWindow Maybe b
vadjustment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr Adjustment
maybeVadjustment <- case Maybe b
vadjustment of
Maybe b
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just b
jVadjustment -> do
Ptr Adjustment
jVadjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jVadjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jVadjustment'
Ptr ScrolledWindow -> Ptr Adjustment -> IO ()
gtk_scrolled_window_set_vadjustment Ptr ScrolledWindow
scrolledWindow' Ptr Adjustment
maybeVadjustment
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
vadjustment b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowSetVadjustmentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsScrolledWindow a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod ScrolledWindowSetVadjustmentMethodInfo a signature where
overloadedMethod = scrolledWindowSetVadjustment
instance O.OverloadedMethodInfo ScrolledWindowSetVadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowSetVadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowSetVadjustment"
}
#endif
foreign import ccall "gtk_scrolled_window_unset_placement" gtk_scrolled_window_unset_placement ::
Ptr ScrolledWindow ->
IO ()
scrolledWindowUnsetPlacement ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m ()
scrolledWindowUnsetPlacement :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScrolledWindow a) =>
a -> m ()
scrolledWindowUnsetPlacement a
scrolledWindow = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrolledWindow
scrolledWindow' <- a -> IO (Ptr ScrolledWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scrolledWindow
Ptr ScrolledWindow -> IO ()
gtk_scrolled_window_unset_placement Ptr ScrolledWindow
scrolledWindow'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowUnsetPlacementMethodInfo
instance (signature ~ (m ()), MonadIO m, IsScrolledWindow a) => O.OverloadedMethod ScrolledWindowUnsetPlacementMethodInfo a signature where
overloadedMethod = scrolledWindowUnsetPlacement
instance O.OverloadedMethodInfo ScrolledWindowUnsetPlacementMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ScrolledWindow.scrolledWindowUnsetPlacement",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-ScrolledWindow.html#v:scrolledWindowUnsetPlacement"
}
#endif