{-# 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)
ScrolledWindowAddWithViewportMethodInfo ,
#endif
scrolledWindowAddWithViewport ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetCaptureButtonPressMethodInfo,
#endif
scrolledWindowGetCaptureButtonPress ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetHadjustmentMethodInfo ,
#endif
scrolledWindowGetHadjustment ,
#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)
ScrolledWindowGetShadowTypeMethodInfo ,
#endif
scrolledWindowGetShadowType ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetVadjustmentMethodInfo ,
#endif
scrolledWindowGetVadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowGetVscrollbarMethodInfo ,
#endif
scrolledWindowGetVscrollbar ,
scrolledWindowNew ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetCaptureButtonPressMethodInfo,
#endif
scrolledWindowSetCaptureButtonPress ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetHadjustmentMethodInfo ,
#endif
scrolledWindowSetHadjustment ,
#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)
ScrolledWindowSetShadowTypeMethodInfo ,
#endif
scrolledWindowSetShadowType ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowSetVadjustmentMethodInfo ,
#endif
scrolledWindowSetVadjustment ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowUnsetPlacementMethodInfo ,
#endif
scrolledWindowUnsetPlacement ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowHadjustmentPropertyInfo ,
#endif
clearScrolledWindowHadjustment ,
constructScrolledWindowHadjustment ,
getScrolledWindowHadjustment ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowHadjustment ,
#endif
setScrolledWindowHadjustment ,
#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)
ScrolledWindowShadowTypePropertyInfo ,
#endif
constructScrolledWindowShadowType ,
getScrolledWindowShadowType ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowShadowType ,
#endif
setScrolledWindowShadowType ,
#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 ,
#if defined(ENABLE_OVERLOADING)
ScrolledWindowWindowPlacementSetPropertyInfo,
#endif
constructScrolledWindowWindowPlacementSet,
getScrolledWindowWindowPlacementSet ,
#if defined(ENABLE_OVERLOADING)
scrolledWindowWindowPlacementSet ,
#endif
setScrolledWindowWindowPlacementSet ,
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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
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
instance B.GValue.IsGValue ScrolledWindow where
toGValue :: ScrolledWindow -> IO GValue
toGValue ScrolledWindow
o = do
GType
gtype <- IO GType
c_gtk_scrolled_window_get_type
ScrolledWindow -> (Ptr ScrolledWindow -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScrolledWindow
o (GType
-> (GValue -> Ptr ScrolledWindow -> IO ())
-> Ptr ScrolledWindow
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ScrolledWindow -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ScrolledWindow
fromGValue GValue
gv = do
Ptr ScrolledWindow
ptr <- GValue -> IO (Ptr ScrolledWindow)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ScrolledWindow)
(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
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.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toScrolledWindow :: (MonadIO m, IsScrolledWindow o) => o -> m ScrolledWindow
toScrolledWindow :: o -> m ScrolledWindow
toScrolledWindow = IO ScrolledWindow -> m ScrolledWindow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr ScrolledWindow -> ScrolledWindow
ScrolledWindow
#if defined(ENABLE_OVERLOADING)
type family ResolveScrolledWindowMethod (t :: Symbol) (o :: *) :: * where
ResolveScrolledWindowMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveScrolledWindowMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveScrolledWindowMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveScrolledWindowMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveScrolledWindowMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveScrolledWindowMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveScrolledWindowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveScrolledWindowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveScrolledWindowMethod "addWithViewport" o = ScrolledWindowAddWithViewportMethodInfo
ResolveScrolledWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveScrolledWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveScrolledWindowMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveScrolledWindowMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveScrolledWindowMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveScrolledWindowMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveScrolledWindowMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveScrolledWindowMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveScrolledWindowMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveScrolledWindowMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveScrolledWindowMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveScrolledWindowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveScrolledWindowMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveScrolledWindowMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveScrolledWindowMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveScrolledWindowMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveScrolledWindowMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveScrolledWindowMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveScrolledWindowMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveScrolledWindowMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveScrolledWindowMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveScrolledWindowMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveScrolledWindowMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveScrolledWindowMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveScrolledWindowMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveScrolledWindowMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveScrolledWindowMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveScrolledWindowMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveScrolledWindowMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveScrolledWindowMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveScrolledWindowMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveScrolledWindowMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveScrolledWindowMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveScrolledWindowMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveScrolledWindowMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveScrolledWindowMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveScrolledWindowMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveScrolledWindowMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveScrolledWindowMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveScrolledWindowMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveScrolledWindowMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveScrolledWindowMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveScrolledWindowMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveScrolledWindowMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveScrolledWindowMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveScrolledWindowMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveScrolledWindowMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveScrolledWindowMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveScrolledWindowMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveScrolledWindowMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveScrolledWindowMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveScrolledWindowMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveScrolledWindowMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveScrolledWindowMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveScrolledWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveScrolledWindowMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveScrolledWindowMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveScrolledWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveScrolledWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveScrolledWindowMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveScrolledWindowMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveScrolledWindowMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveScrolledWindowMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveScrolledWindowMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveScrolledWindowMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveScrolledWindowMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveScrolledWindowMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveScrolledWindowMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveScrolledWindowMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveScrolledWindowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveScrolledWindowMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveScrolledWindowMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveScrolledWindowMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveScrolledWindowMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveScrolledWindowMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveScrolledWindowMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveScrolledWindowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveScrolledWindowMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveScrolledWindowMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveScrolledWindowMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveScrolledWindowMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveScrolledWindowMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveScrolledWindowMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveScrolledWindowMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveScrolledWindowMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveScrolledWindowMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveScrolledWindowMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveScrolledWindowMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveScrolledWindowMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveScrolledWindowMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveScrolledWindowMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveScrolledWindowMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveScrolledWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveScrolledWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveScrolledWindowMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveScrolledWindowMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveScrolledWindowMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveScrolledWindowMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveScrolledWindowMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveScrolledWindowMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveScrolledWindowMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveScrolledWindowMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveScrolledWindowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveScrolledWindowMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveScrolledWindowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveScrolledWindowMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveScrolledWindowMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveScrolledWindowMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveScrolledWindowMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveScrolledWindowMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveScrolledWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveScrolledWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveScrolledWindowMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveScrolledWindowMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveScrolledWindowMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveScrolledWindowMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveScrolledWindowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveScrolledWindowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveScrolledWindowMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveScrolledWindowMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveScrolledWindowMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveScrolledWindowMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveScrolledWindowMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveScrolledWindowMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveScrolledWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveScrolledWindowMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveScrolledWindowMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveScrolledWindowMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveScrolledWindowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveScrolledWindowMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveScrolledWindowMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveScrolledWindowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveScrolledWindowMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveScrolledWindowMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveScrolledWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveScrolledWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveScrolledWindowMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveScrolledWindowMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveScrolledWindowMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
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 "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveScrolledWindowMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveScrolledWindowMethod "unsetPlacement" o = ScrolledWindowUnsetPlacementMethodInfo
ResolveScrolledWindowMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveScrolledWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveScrolledWindowMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveScrolledWindowMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveScrolledWindowMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveScrolledWindowMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveScrolledWindowMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveScrolledWindowMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveScrolledWindowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveScrolledWindowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveScrolledWindowMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveScrolledWindowMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveScrolledWindowMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveScrolledWindowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveScrolledWindowMethod "getCaptureButtonPress" o = ScrolledWindowGetCaptureButtonPressMethodInfo
ResolveScrolledWindowMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveScrolledWindowMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveScrolledWindowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveScrolledWindowMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveScrolledWindowMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveScrolledWindowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveScrolledWindowMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveScrolledWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveScrolledWindowMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveScrolledWindowMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveScrolledWindowMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveScrolledWindowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveScrolledWindowMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveScrolledWindowMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveScrolledWindowMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveScrolledWindowMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveScrolledWindowMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveScrolledWindowMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveScrolledWindowMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
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 "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveScrolledWindowMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveScrolledWindowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveScrolledWindowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveScrolledWindowMethod "getHscrollbar" o = ScrolledWindowGetHscrollbarMethodInfo
ResolveScrolledWindowMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveScrolledWindowMethod "getKineticScrolling" o = ScrolledWindowGetKineticScrollingMethodInfo
ResolveScrolledWindowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveScrolledWindowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveScrolledWindowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveScrolledWindowMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveScrolledWindowMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
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 "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveScrolledWindowMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveScrolledWindowMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveScrolledWindowMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveScrolledWindowMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveScrolledWindowMethod "getOverlayScrolling" o = ScrolledWindowGetOverlayScrollingMethodInfo
ResolveScrolledWindowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveScrolledWindowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveScrolledWindowMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveScrolledWindowMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveScrolledWindowMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveScrolledWindowMethod "getPlacement" o = ScrolledWindowGetPlacementMethodInfo
ResolveScrolledWindowMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveScrolledWindowMethod "getPolicy" o = ScrolledWindowGetPolicyMethodInfo
ResolveScrolledWindowMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveScrolledWindowMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveScrolledWindowMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveScrolledWindowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveScrolledWindowMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveScrolledWindowMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
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 "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveScrolledWindowMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveScrolledWindowMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveScrolledWindowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveScrolledWindowMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveScrolledWindowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveScrolledWindowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveScrolledWindowMethod "getShadowType" o = ScrolledWindowGetShadowTypeMethodInfo
ResolveScrolledWindowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveScrolledWindowMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveScrolledWindowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveScrolledWindowMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveScrolledWindowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveScrolledWindowMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveScrolledWindowMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveScrolledWindowMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveScrolledWindowMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveScrolledWindowMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveScrolledWindowMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveScrolledWindowMethod "getVadjustment" o = ScrolledWindowGetVadjustmentMethodInfo
ResolveScrolledWindowMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveScrolledWindowMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveScrolledWindowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveScrolledWindowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveScrolledWindowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveScrolledWindowMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveScrolledWindowMethod "getVscrollbar" o = ScrolledWindowGetVscrollbarMethodInfo
ResolveScrolledWindowMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveScrolledWindowMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveScrolledWindowMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveScrolledWindowMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveScrolledWindowMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveScrolledWindowMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveScrolledWindowMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveScrolledWindowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveScrolledWindowMethod "setCaptureButtonPress" o = ScrolledWindowSetCaptureButtonPressMethodInfo
ResolveScrolledWindowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveScrolledWindowMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveScrolledWindowMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveScrolledWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveScrolledWindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveScrolledWindowMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveScrolledWindowMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveScrolledWindowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveScrolledWindowMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveScrolledWindowMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveScrolledWindowMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveScrolledWindowMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveScrolledWindowMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveScrolledWindowMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveScrolledWindowMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveScrolledWindowMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveScrolledWindowMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveScrolledWindowMethod "setHadjustment" o = ScrolledWindowSetHadjustmentMethodInfo
ResolveScrolledWindowMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveScrolledWindowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveScrolledWindowMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveScrolledWindowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveScrolledWindowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveScrolledWindowMethod "setKineticScrolling" o = ScrolledWindowSetKineticScrollingMethodInfo
ResolveScrolledWindowMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveScrolledWindowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveScrolledWindowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveScrolledWindowMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveScrolledWindowMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
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 "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveScrolledWindowMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveScrolledWindowMethod "setOverlayScrolling" o = ScrolledWindowSetOverlayScrollingMethodInfo
ResolveScrolledWindowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveScrolledWindowMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveScrolledWindowMethod "setPlacement" o = ScrolledWindowSetPlacementMethodInfo
ResolveScrolledWindowMethod "setPolicy" o = ScrolledWindowSetPolicyMethodInfo
ResolveScrolledWindowMethod "setPropagateNaturalHeight" o = ScrolledWindowSetPropagateNaturalHeightMethodInfo
ResolveScrolledWindowMethod "setPropagateNaturalWidth" o = ScrolledWindowSetPropagateNaturalWidthMethodInfo
ResolveScrolledWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveScrolledWindowMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveScrolledWindowMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveScrolledWindowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveScrolledWindowMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveScrolledWindowMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveScrolledWindowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveScrolledWindowMethod "setShadowType" o = ScrolledWindowSetShadowTypeMethodInfo
ResolveScrolledWindowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveScrolledWindowMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveScrolledWindowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveScrolledWindowMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveScrolledWindowMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveScrolledWindowMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveScrolledWindowMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveScrolledWindowMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
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 "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveScrolledWindowMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveScrolledWindowMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, O.MethodInfo 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
#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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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
getScrolledWindowHadjustment :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Adjustment.Adjustment
getScrolledWindowHadjustment :: o -> m Adjustment
getScrolledWindowHadjustment o
obj = 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
$ 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 :: o -> a -> m ()
setScrolledWindowHadjustment o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: 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
$ 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 :: 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
getScrolledWindowHscrollbarPolicy :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Enums.PolicyType
getScrolledWindowHscrollbarPolicy :: o -> m PolicyType
getScrolledWindowHscrollbarPolicy o
obj = IO PolicyType -> m PolicyType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> PolicyType -> m ()
setScrolledWindowHscrollbarPolicy o
obj PolicyType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: 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
$ 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 :: o -> m Bool
getScrolledWindowKineticScrolling o
obj = 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
$ 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 :: o -> Bool -> m ()
setScrolledWindowKineticScrolling o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"kinetic-scrolling" Bool
val
constructScrolledWindowKineticScrolling :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowKineticScrolling :: 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
$ 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 :: o -> m Int32
getScrolledWindowMaxContentHeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-content-height"
setScrolledWindowMaxContentHeight :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMaxContentHeight :: o -> Int32 -> m ()
setScrolledWindowMaxContentHeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"max-content-height" Int32
val
constructScrolledWindowMaxContentHeight :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMaxContentHeight :: 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
$ 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 :: o -> m Int32
getScrolledWindowMaxContentWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-content-width"
setScrolledWindowMaxContentWidth :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMaxContentWidth :: o -> Int32 -> m ()
setScrolledWindowMaxContentWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"max-content-width" Int32
val
constructScrolledWindowMaxContentWidth :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMaxContentWidth :: 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
$ 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 :: o -> m Int32
getScrolledWindowMinContentHeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"min-content-height"
setScrolledWindowMinContentHeight :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMinContentHeight :: o -> Int32 -> m ()
setScrolledWindowMinContentHeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"min-content-height" Int32
val
constructScrolledWindowMinContentHeight :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMinContentHeight :: 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
$ 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 :: o -> m Int32
getScrolledWindowMinContentWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"min-content-width"
setScrolledWindowMinContentWidth :: (MonadIO m, IsScrolledWindow o) => o -> Int32 -> m ()
setScrolledWindowMinContentWidth :: o -> Int32 -> m ()
setScrolledWindowMinContentWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"min-content-width" Int32
val
constructScrolledWindowMinContentWidth :: (IsScrolledWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScrolledWindowMinContentWidth :: 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
$ 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 :: o -> m Bool
getScrolledWindowOverlayScrolling o
obj = 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
$ 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 :: o -> Bool -> m ()
setScrolledWindowOverlayScrolling o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"overlay-scrolling" Bool
val
constructScrolledWindowOverlayScrolling :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowOverlayScrolling :: 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
$ 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 :: o -> m Bool
getScrolledWindowPropagateNaturalHeight o
obj = 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
$ 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 :: o -> Bool -> m ()
setScrolledWindowPropagateNaturalHeight o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"propagate-natural-height" Bool
val
constructScrolledWindowPropagateNaturalHeight :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowPropagateNaturalHeight :: 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
$ 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 :: o -> m Bool
getScrolledWindowPropagateNaturalWidth o
obj = 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
$ 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 :: o -> Bool -> m ()
setScrolledWindowPropagateNaturalWidth o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"propagate-natural-width" Bool
val
constructScrolledWindowPropagateNaturalWidth :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowPropagateNaturalWidth :: 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
$ 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
getScrolledWindowShadowType :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Enums.ShadowType
getScrolledWindowShadowType :: o -> m ShadowType
getScrolledWindowShadowType o
obj = IO ShadowType -> m ShadowType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ShadowType -> m ShadowType) -> IO ShadowType -> m ShadowType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ShadowType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"shadow-type"
setScrolledWindowShadowType :: (MonadIO m, IsScrolledWindow o) => o -> Gtk.Enums.ShadowType -> m ()
setScrolledWindowShadowType :: o -> ShadowType -> m ()
setScrolledWindowShadowType o
obj ShadowType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ShadowType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"shadow-type" ShadowType
val
constructScrolledWindowShadowType :: (IsScrolledWindow o, MIO.MonadIO m) => Gtk.Enums.ShadowType -> m (GValueConstruct o)
constructScrolledWindowShadowType :: ShadowType -> m (GValueConstruct o)
constructScrolledWindowShadowType ShadowType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> ShadowType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"shadow-type" ShadowType
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowShadowTypePropertyInfo
instance AttrInfo ScrolledWindowShadowTypePropertyInfo where
type AttrAllowedOps ScrolledWindowShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowShadowTypePropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowShadowTypePropertyInfo = (~) Gtk.Enums.ShadowType
type AttrTransferTypeConstraint ScrolledWindowShadowTypePropertyInfo = (~) Gtk.Enums.ShadowType
type AttrTransferType ScrolledWindowShadowTypePropertyInfo = Gtk.Enums.ShadowType
type AttrGetType ScrolledWindowShadowTypePropertyInfo = Gtk.Enums.ShadowType
type AttrLabel ScrolledWindowShadowTypePropertyInfo = "shadow-type"
type AttrOrigin ScrolledWindowShadowTypePropertyInfo = ScrolledWindow
attrGet = getScrolledWindowShadowType
attrSet = setScrolledWindowShadowType
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowShadowType
attrClear = undefined
#endif
getScrolledWindowVadjustment :: (MonadIO m, IsScrolledWindow o) => o -> m Gtk.Adjustment.Adjustment
getScrolledWindowVadjustment :: o -> m Adjustment
getScrolledWindowVadjustment o
obj = 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
$ 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 :: o -> a -> m ()
setScrolledWindowVadjustment o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: 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
$ 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 :: 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 :: o -> m PolicyType
getScrolledWindowVscrollbarPolicy o
obj = IO PolicyType -> m PolicyType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> PolicyType -> m ()
setScrolledWindowVscrollbarPolicy o
obj PolicyType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: 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
$ 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 :: o -> m CornerType
getScrolledWindowWindowPlacement o
obj = 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
$ 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 :: o -> CornerType -> m ()
setScrolledWindowWindowPlacement o
obj CornerType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: 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
$ 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
getScrolledWindowWindowPlacementSet :: (MonadIO m, IsScrolledWindow o) => o -> m Bool
getScrolledWindowWindowPlacementSet :: o -> m Bool
getScrolledWindowWindowPlacementSet o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"window-placement-set"
setScrolledWindowWindowPlacementSet :: (MonadIO m, IsScrolledWindow o) => o -> Bool -> m ()
setScrolledWindowWindowPlacementSet :: o -> Bool -> m ()
setScrolledWindowWindowPlacementSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"window-placement-set" Bool
val
constructScrolledWindowWindowPlacementSet :: (IsScrolledWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScrolledWindowWindowPlacementSet :: Bool -> m (GValueConstruct o)
constructScrolledWindowWindowPlacementSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"window-placement-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowWindowPlacementSetPropertyInfo
instance AttrInfo ScrolledWindowWindowPlacementSetPropertyInfo where
type AttrAllowedOps ScrolledWindowWindowPlacementSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = IsScrolledWindow
type AttrSetTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = (~) Bool
type AttrTransferType ScrolledWindowWindowPlacementSetPropertyInfo = Bool
type AttrGetType ScrolledWindowWindowPlacementSetPropertyInfo = Bool
type AttrLabel ScrolledWindowWindowPlacementSetPropertyInfo = "window-placement-set"
type AttrOrigin ScrolledWindowWindowPlacementSetPropertyInfo = ScrolledWindow
attrGet = getScrolledWindowWindowPlacementSet
attrSet = setScrolledWindowWindowPlacementSet
attrTransfer _ v = do
return v
attrConstruct = constructScrolledWindowWindowPlacementSet
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScrolledWindow
type instance O.AttributeList ScrolledWindow = ScrolledWindowAttributeList
type ScrolledWindowAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxContentHeight", ScrolledWindowMaxContentHeightPropertyInfo), '("maxContentWidth", ScrolledWindowMaxContentWidthPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("propagateNaturalHeight", ScrolledWindowPropagateNaturalHeightPropertyInfo), '("propagateNaturalWidth", ScrolledWindowPropagateNaturalWidthPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("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), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
scrolledWindowHadjustment :: AttrLabelProxy "hadjustment"
scrolledWindowHadjustment = 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
scrolledWindowShadowType :: AttrLabelProxy "shadowType"
scrolledWindowShadowType = AttrLabelProxy
scrolledWindowVadjustment :: AttrLabelProxy "vadjustment"
scrolledWindowVadjustment = AttrLabelProxy
scrolledWindowVscrollbarPolicy :: AttrLabelProxy "vscrollbarPolicy"
scrolledWindowVscrollbarPolicy = AttrLabelProxy
scrolledWindowWindowPlacement :: AttrLabelProxy "windowPlacement"
scrolledWindowWindowPlacement = AttrLabelProxy
scrolledWindowWindowPlacementSet :: AttrLabelProxy "windowPlacementSet"
scrolledWindowWindowPlacementSet = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ScrolledWindow = ScrolledWindowSignalList
type ScrolledWindowSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("edgeOvershot", ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", ScrolledWindowEdgeReachedSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveFocusOut", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollChild", ScrolledWindowScrollChildSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_scrolled_window_new" gtk_scrolled_window_new ::
Ptr Gtk.Adjustment.Adjustment ->
Ptr Gtk.Adjustment.Adjustment ->
IO (Ptr ScrolledWindow)
scrolledWindowNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Adjustment.IsAdjustment a, Gtk.Adjustment.IsAdjustment b) =>
Maybe (a)
-> Maybe (b)
-> m ScrolledWindow
scrolledWindowNew :: Maybe a -> Maybe b -> m ScrolledWindow
scrolledWindowNew Maybe a
hadjustment Maybe b
vadjustment = 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 Adjustment
maybeHadjustment <- case Maybe a
hadjustment of
Maybe a
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just a
jHadjustment -> do
Ptr Adjustment
jHadjustment' <- a -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jHadjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jHadjustment'
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
result <- Ptr Adjustment -> Ptr Adjustment -> IO (Ptr ScrolledWindow)
gtk_scrolled_window_new Ptr Adjustment
maybeHadjustment Ptr Adjustment
maybeVadjustment
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
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
hadjustment a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
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
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_add_with_viewport" gtk_scrolled_window_add_with_viewport ::
Ptr ScrolledWindow ->
Ptr Gtk.Widget.Widget ->
IO ()
{-# DEPRECATED scrolledWindowAddWithViewport ["(Since version 3.8)","'GI.Gtk.Objects.Container.containerAdd' will automatically add","a t'GI.Gtk.Objects.Viewport.Viewport' if the child doesn\8217t implement t'GI.Gtk.Interfaces.Scrollable.Scrollable'."] #-}
scrolledWindowAddWithViewport ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
scrolledWindowAddWithViewport :: a -> b -> m ()
scrolledWindowAddWithViewport a
scrolledWindow 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
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ScrolledWindow -> Ptr Widget -> IO ()
gtk_scrolled_window_add_with_viewport Ptr ScrolledWindow
scrolledWindow' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scrolledWindow
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowAddWithViewportMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsScrolledWindow a, Gtk.Widget.IsWidget b) => O.MethodInfo ScrolledWindowAddWithViewportMethodInfo a signature where
overloadedMethod = scrolledWindowAddWithViewport
#endif
foreign import ccall "gtk_scrolled_window_get_capture_button_press" gtk_scrolled_window_get_capture_button_press ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetCaptureButtonPress ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Bool
scrolledWindowGetCaptureButtonPress :: a -> m Bool
scrolledWindowGetCaptureButtonPress 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_capture_button_press 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 ScrolledWindowGetCaptureButtonPressMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScrolledWindow a) => O.MethodInfo ScrolledWindowGetCaptureButtonPressMethodInfo a signature where
overloadedMethod = scrolledWindowGetCaptureButtonPress
#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 :: 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.MethodInfo ScrolledWindowGetHadjustmentMethodInfo a signature where
overloadedMethod = scrolledWindowGetHadjustment
#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 :: 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.MethodInfo ScrolledWindowGetHscrollbarMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetKineticScrollingMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetMaxContentHeightMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetMaxContentWidthMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetMinContentHeightMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetMinContentWidthMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetOverlayScrollingMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetPlacementMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetPolicyMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetPropagateNaturalHeightMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetPropagateNaturalWidthMethodInfo a signature where
overloadedMethod = scrolledWindowGetPropagateNaturalWidth
#endif
foreign import ccall "gtk_scrolled_window_get_shadow_type" gtk_scrolled_window_get_shadow_type ::
Ptr ScrolledWindow ->
IO CUInt
scrolledWindowGetShadowType ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> m Gtk.Enums.ShadowType
scrolledWindowGetShadowType :: a -> m ShadowType
scrolledWindowGetShadowType a
scrolledWindow = IO ShadowType -> m ShadowType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ShadowType -> m ShadowType) -> IO ShadowType -> m ShadowType
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_shadow_type Ptr ScrolledWindow
scrolledWindow'
let result' :: ShadowType
result' = (Int -> ShadowType
forall a. Enum a => Int -> a
toEnum (Int -> ShadowType) -> (CUInt -> Int) -> CUInt -> ShadowType
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
ShadowType -> IO ShadowType
forall (m :: * -> *) a. Monad m => a -> m a
return ShadowType
result'
#if defined(ENABLE_OVERLOADING)
data ScrolledWindowGetShadowTypeMethodInfo
instance (signature ~ (m Gtk.Enums.ShadowType), MonadIO m, IsScrolledWindow a) => O.MethodInfo ScrolledWindowGetShadowTypeMethodInfo a signature where
overloadedMethod = scrolledWindowGetShadowType
#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 :: 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.MethodInfo ScrolledWindowGetVadjustmentMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowGetVscrollbarMethodInfo a signature where
overloadedMethod = scrolledWindowGetVscrollbar
#endif
foreign import ccall "gtk_scrolled_window_set_capture_button_press" gtk_scrolled_window_set_capture_button_press ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetCaptureButtonPress ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Bool
-> m ()
scrolledWindowSetCaptureButtonPress :: a -> Bool -> m ()
scrolledWindowSetCaptureButtonPress a
scrolledWindow Bool
captureButtonPress = 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 captureButtonPress' :: CInt
captureButtonPress' = (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
captureButtonPress
Ptr ScrolledWindow -> CInt -> IO ()
gtk_scrolled_window_set_capture_button_press Ptr ScrolledWindow
scrolledWindow' CInt
captureButtonPress'
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 ScrolledWindowSetCaptureButtonPressMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScrolledWindow a) => O.MethodInfo ScrolledWindowSetCaptureButtonPressMethodInfo a signature where
overloadedMethod = scrolledWindowSetCaptureButtonPress
#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 :: 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.MethodInfo ScrolledWindowSetHadjustmentMethodInfo a signature where
overloadedMethod = scrolledWindowSetHadjustment
#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 :: 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.MethodInfo ScrolledWindowSetKineticScrollingMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetMaxContentHeightMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetMaxContentWidthMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetMinContentHeightMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetMinContentWidthMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetOverlayScrollingMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetPlacementMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetPolicyMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetPropagateNaturalHeightMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowSetPropagateNaturalWidthMethodInfo a signature where
overloadedMethod = scrolledWindowSetPropagateNaturalWidth
#endif
foreign import ccall "gtk_scrolled_window_set_shadow_type" gtk_scrolled_window_set_shadow_type ::
Ptr ScrolledWindow ->
CUInt ->
IO ()
scrolledWindowSetShadowType ::
(B.CallStack.HasCallStack, MonadIO m, IsScrolledWindow a) =>
a
-> Gtk.Enums.ShadowType
-> m ()
scrolledWindowSetShadowType :: a -> ShadowType -> m ()
scrolledWindowSetShadowType a
scrolledWindow ShadowType
type_ = 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 type_' :: CUInt
type_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ShadowType -> Int) -> ShadowType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ShadowType -> Int
forall a. Enum a => a -> Int
fromEnum) ShadowType
type_
Ptr ScrolledWindow -> CUInt -> IO ()
gtk_scrolled_window_set_shadow_type Ptr ScrolledWindow
scrolledWindow' CUInt
type_'
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 ScrolledWindowSetShadowTypeMethodInfo
instance (signature ~ (Gtk.Enums.ShadowType -> m ()), MonadIO m, IsScrolledWindow a) => O.MethodInfo ScrolledWindowSetShadowTypeMethodInfo a signature where
overloadedMethod = scrolledWindowSetShadowType
#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 :: 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.MethodInfo ScrolledWindowSetVadjustmentMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo ScrolledWindowUnsetPlacementMethodInfo a signature where
overloadedMethod = scrolledWindowUnsetPlacement
#endif