module GI.Gtk.Objects.ScrolledWindow
(
ScrolledWindow(..) ,
ScrolledWindowK ,
toScrolledWindow ,
noScrolledWindow ,
scrolledWindowAddWithViewport ,
scrolledWindowGetCaptureButtonPress ,
scrolledWindowGetHadjustment ,
scrolledWindowGetHscrollbar ,
scrolledWindowGetKineticScrolling ,
scrolledWindowGetMinContentHeight ,
scrolledWindowGetMinContentWidth ,
scrolledWindowGetOverlayScrolling ,
scrolledWindowGetPlacement ,
scrolledWindowGetPolicy ,
scrolledWindowGetShadowType ,
scrolledWindowGetVadjustment ,
scrolledWindowGetVscrollbar ,
scrolledWindowNew ,
scrolledWindowSetCaptureButtonPress ,
scrolledWindowSetHadjustment ,
scrolledWindowSetKineticScrolling ,
scrolledWindowSetMinContentHeight ,
scrolledWindowSetMinContentWidth ,
scrolledWindowSetOverlayScrolling ,
scrolledWindowSetPlacement ,
scrolledWindowSetPolicy ,
scrolledWindowSetShadowType ,
scrolledWindowSetVadjustment ,
scrolledWindowUnsetPlacement ,
ScrolledWindowHadjustmentPropertyInfo ,
constructScrolledWindowHadjustment ,
getScrolledWindowHadjustment ,
setScrolledWindowHadjustment ,
ScrolledWindowHscrollbarPolicyPropertyInfo,
constructScrolledWindowHscrollbarPolicy ,
getScrolledWindowHscrollbarPolicy ,
setScrolledWindowHscrollbarPolicy ,
ScrolledWindowKineticScrollingPropertyInfo,
constructScrolledWindowKineticScrolling ,
getScrolledWindowKineticScrolling ,
setScrolledWindowKineticScrolling ,
ScrolledWindowMinContentHeightPropertyInfo,
constructScrolledWindowMinContentHeight ,
getScrolledWindowMinContentHeight ,
setScrolledWindowMinContentHeight ,
ScrolledWindowMinContentWidthPropertyInfo,
constructScrolledWindowMinContentWidth ,
getScrolledWindowMinContentWidth ,
setScrolledWindowMinContentWidth ,
ScrolledWindowOverlayScrollingPropertyInfo,
constructScrolledWindowOverlayScrolling ,
getScrolledWindowOverlayScrolling ,
setScrolledWindowOverlayScrolling ,
ScrolledWindowShadowTypePropertyInfo ,
constructScrolledWindowShadowType ,
getScrolledWindowShadowType ,
setScrolledWindowShadowType ,
ScrolledWindowVadjustmentPropertyInfo ,
constructScrolledWindowVadjustment ,
getScrolledWindowVadjustment ,
setScrolledWindowVadjustment ,
ScrolledWindowVscrollbarPolicyPropertyInfo,
constructScrolledWindowVscrollbarPolicy ,
getScrolledWindowVscrollbarPolicy ,
setScrolledWindowVscrollbarPolicy ,
ScrolledWindowWindowPlacementPropertyInfo,
constructScrolledWindowWindowPlacement ,
getScrolledWindowWindowPlacement ,
setScrolledWindowWindowPlacement ,
ScrolledWindowWindowPlacementSetPropertyInfo,
constructScrolledWindowWindowPlacementSet,
getScrolledWindowWindowPlacementSet ,
setScrolledWindowWindowPlacementSet ,
ScrolledWindowEdgeOvershotCallback ,
ScrolledWindowEdgeOvershotCallbackC ,
ScrolledWindowEdgeOvershotSignalInfo ,
afterScrolledWindowEdgeOvershot ,
mkScrolledWindowEdgeOvershotCallback ,
noScrolledWindowEdgeOvershotCallback ,
onScrolledWindowEdgeOvershot ,
scrolledWindowEdgeOvershotCallbackWrapper,
scrolledWindowEdgeOvershotClosure ,
ScrolledWindowEdgeReachedCallback ,
ScrolledWindowEdgeReachedCallbackC ,
ScrolledWindowEdgeReachedSignalInfo ,
afterScrolledWindowEdgeReached ,
mkScrolledWindowEdgeReachedCallback ,
noScrolledWindowEdgeReachedCallback ,
onScrolledWindowEdgeReached ,
scrolledWindowEdgeReachedCallbackWrapper,
scrolledWindowEdgeReachedClosure ,
ScrolledWindowMoveFocusOutCallback ,
ScrolledWindowMoveFocusOutCallbackC ,
ScrolledWindowMoveFocusOutSignalInfo ,
afterScrolledWindowMoveFocusOut ,
mkScrolledWindowMoveFocusOutCallback ,
noScrolledWindowMoveFocusOutCallback ,
onScrolledWindowMoveFocusOut ,
scrolledWindowMoveFocusOutCallbackWrapper,
scrolledWindowMoveFocusOutClosure ,
ScrolledWindowScrollChildCallback ,
ScrolledWindowScrollChildCallbackC ,
ScrolledWindowScrollChildSignalInfo ,
afterScrolledWindowScrollChild ,
mkScrolledWindowScrollChildCallback ,
noScrolledWindowScrollChildCallback ,
onScrolledWindowScrollChild ,
scrolledWindowScrollChildCallbackWrapper,
scrolledWindowScrollChildClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
newtype ScrolledWindow = ScrolledWindow (ForeignPtr ScrolledWindow)
foreign import ccall "gtk_scrolled_window_get_type"
c_gtk_scrolled_window_get_type :: IO GType
type instance ParentTypes ScrolledWindow = ScrolledWindowParentTypes
type ScrolledWindowParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject ScrolledWindow where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_scrolled_window_get_type
class GObject o => ScrolledWindowK o
instance (GObject o, IsDescendantOf ScrolledWindow o) => ScrolledWindowK o
toScrolledWindow :: ScrolledWindowK o => o -> IO ScrolledWindow
toScrolledWindow = unsafeCastTo ScrolledWindow
noScrolledWindow :: Maybe ScrolledWindow
noScrolledWindow = Nothing
type ScrolledWindowEdgeOvershotCallback =
PositionType ->
IO ()
noScrolledWindowEdgeOvershotCallback :: Maybe ScrolledWindowEdgeOvershotCallback
noScrolledWindowEdgeOvershotCallback = Nothing
type ScrolledWindowEdgeOvershotCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkScrolledWindowEdgeOvershotCallback :: ScrolledWindowEdgeOvershotCallbackC -> IO (FunPtr ScrolledWindowEdgeOvershotCallbackC)
scrolledWindowEdgeOvershotClosure :: ScrolledWindowEdgeOvershotCallback -> IO Closure
scrolledWindowEdgeOvershotClosure cb = newCClosure =<< mkScrolledWindowEdgeOvershotCallback wrapped
where wrapped = scrolledWindowEdgeOvershotCallbackWrapper cb
scrolledWindowEdgeOvershotCallbackWrapper ::
ScrolledWindowEdgeOvershotCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
scrolledWindowEdgeOvershotCallbackWrapper _cb _ pos _ = do
let pos' = (toEnum . fromIntegral) pos
_cb pos'
onScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
onScrolledWindowEdgeOvershot obj cb = liftIO $ connectScrolledWindowEdgeOvershot obj cb SignalConnectBefore
afterScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeOvershotCallback -> m SignalHandlerId
afterScrolledWindowEdgeOvershot obj cb = connectScrolledWindowEdgeOvershot obj cb SignalConnectAfter
connectScrolledWindowEdgeOvershot :: (GObject a, MonadIO m) =>
a -> ScrolledWindowEdgeOvershotCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowEdgeOvershot obj cb after = liftIO $ do
cb' <- mkScrolledWindowEdgeOvershotCallback (scrolledWindowEdgeOvershotCallbackWrapper cb)
connectSignalFunPtr obj "edge-overshot" cb' after
type ScrolledWindowEdgeReachedCallback =
PositionType ->
IO ()
noScrolledWindowEdgeReachedCallback :: Maybe ScrolledWindowEdgeReachedCallback
noScrolledWindowEdgeReachedCallback = Nothing
type ScrolledWindowEdgeReachedCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkScrolledWindowEdgeReachedCallback :: ScrolledWindowEdgeReachedCallbackC -> IO (FunPtr ScrolledWindowEdgeReachedCallbackC)
scrolledWindowEdgeReachedClosure :: ScrolledWindowEdgeReachedCallback -> IO Closure
scrolledWindowEdgeReachedClosure cb = newCClosure =<< mkScrolledWindowEdgeReachedCallback wrapped
where wrapped = scrolledWindowEdgeReachedCallbackWrapper cb
scrolledWindowEdgeReachedCallbackWrapper ::
ScrolledWindowEdgeReachedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
scrolledWindowEdgeReachedCallbackWrapper _cb _ pos _ = do
let pos' = (toEnum . fromIntegral) pos
_cb pos'
onScrolledWindowEdgeReached :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId
onScrolledWindowEdgeReached obj cb = liftIO $ connectScrolledWindowEdgeReached obj cb SignalConnectBefore
afterScrolledWindowEdgeReached :: (GObject a, MonadIO m) => a -> ScrolledWindowEdgeReachedCallback -> m SignalHandlerId
afterScrolledWindowEdgeReached obj cb = connectScrolledWindowEdgeReached obj cb SignalConnectAfter
connectScrolledWindowEdgeReached :: (GObject a, MonadIO m) =>
a -> ScrolledWindowEdgeReachedCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowEdgeReached obj cb after = liftIO $ do
cb' <- mkScrolledWindowEdgeReachedCallback (scrolledWindowEdgeReachedCallbackWrapper cb)
connectSignalFunPtr obj "edge-reached" cb' after
type ScrolledWindowMoveFocusOutCallback =
DirectionType ->
IO ()
noScrolledWindowMoveFocusOutCallback :: Maybe ScrolledWindowMoveFocusOutCallback
noScrolledWindowMoveFocusOutCallback = Nothing
type ScrolledWindowMoveFocusOutCallbackC =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkScrolledWindowMoveFocusOutCallback :: ScrolledWindowMoveFocusOutCallbackC -> IO (FunPtr ScrolledWindowMoveFocusOutCallbackC)
scrolledWindowMoveFocusOutClosure :: ScrolledWindowMoveFocusOutCallback -> IO Closure
scrolledWindowMoveFocusOutClosure cb = newCClosure =<< mkScrolledWindowMoveFocusOutCallback wrapped
where wrapped = scrolledWindowMoveFocusOutCallbackWrapper cb
scrolledWindowMoveFocusOutCallbackWrapper ::
ScrolledWindowMoveFocusOutCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
scrolledWindowMoveFocusOutCallbackWrapper _cb _ direction_type _ = do
let direction_type' = (toEnum . fromIntegral) direction_type
_cb direction_type'
onScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
onScrolledWindowMoveFocusOut obj cb = liftIO $ connectScrolledWindowMoveFocusOut obj cb SignalConnectBefore
afterScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId
afterScrolledWindowMoveFocusOut obj cb = connectScrolledWindowMoveFocusOut obj cb SignalConnectAfter
connectScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) =>
a -> ScrolledWindowMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowMoveFocusOut obj cb after = liftIO $ do
cb' <- mkScrolledWindowMoveFocusOutCallback (scrolledWindowMoveFocusOutCallbackWrapper cb)
connectSignalFunPtr obj "move-focus-out" cb' after
type ScrolledWindowScrollChildCallback =
ScrollType ->
Bool ->
IO Bool
noScrolledWindowScrollChildCallback :: Maybe ScrolledWindowScrollChildCallback
noScrolledWindowScrollChildCallback = Nothing
type ScrolledWindowScrollChildCallbackC =
Ptr () ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkScrolledWindowScrollChildCallback :: ScrolledWindowScrollChildCallbackC -> IO (FunPtr ScrolledWindowScrollChildCallbackC)
scrolledWindowScrollChildClosure :: ScrolledWindowScrollChildCallback -> IO Closure
scrolledWindowScrollChildClosure cb = newCClosure =<< mkScrolledWindowScrollChildCallback wrapped
where wrapped = scrolledWindowScrollChildCallbackWrapper cb
scrolledWindowScrollChildCallbackWrapper ::
ScrolledWindowScrollChildCallback ->
Ptr () ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
scrolledWindowScrollChildCallbackWrapper _cb _ scroll horizontal _ = do
let scroll' = (toEnum . fromIntegral) scroll
let horizontal' = (/= 0) horizontal
result <- _cb scroll' horizontal'
let result' = (fromIntegral . fromEnum) result
return result'
onScrolledWindowScrollChild :: (GObject a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
onScrolledWindowScrollChild obj cb = liftIO $ connectScrolledWindowScrollChild obj cb SignalConnectBefore
afterScrolledWindowScrollChild :: (GObject a, MonadIO m) => a -> ScrolledWindowScrollChildCallback -> m SignalHandlerId
afterScrolledWindowScrollChild obj cb = connectScrolledWindowScrollChild obj cb SignalConnectAfter
connectScrolledWindowScrollChild :: (GObject a, MonadIO m) =>
a -> ScrolledWindowScrollChildCallback -> SignalConnectMode -> m SignalHandlerId
connectScrolledWindowScrollChild obj cb after = liftIO $ do
cb' <- mkScrolledWindowScrollChildCallback (scrolledWindowScrollChildCallbackWrapper cb)
connectSignalFunPtr obj "scroll-child" cb' after
getScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment
getScrolledWindowHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment
setScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m ()
setScrolledWindowHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val
constructScrolledWindowHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)
constructScrolledWindowHadjustment val = constructObjectPropertyObject "hadjustment" val
data ScrolledWindowHadjustmentPropertyInfo
instance AttrInfo ScrolledWindowHadjustmentPropertyInfo where
type AttrAllowedOps ScrolledWindowHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowHadjustmentPropertyInfo = AdjustmentK
type AttrBaseTypeConstraint ScrolledWindowHadjustmentPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowHadjustmentPropertyInfo = Adjustment
type AttrLabel ScrolledWindowHadjustmentPropertyInfo = "ScrolledWindow::hadjustment"
attrGet _ = getScrolledWindowHadjustment
attrSet _ = setScrolledWindowHadjustment
attrConstruct _ = constructScrolledWindowHadjustment
getScrolledWindowHscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> m PolicyType
getScrolledWindowHscrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "hscrollbar-policy"
setScrolledWindowHscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> PolicyType -> m ()
setScrolledWindowHscrollbarPolicy obj val = liftIO $ setObjectPropertyEnum obj "hscrollbar-policy" val
constructScrolledWindowHscrollbarPolicy :: PolicyType -> IO ([Char], GValue)
constructScrolledWindowHscrollbarPolicy val = constructObjectPropertyEnum "hscrollbar-policy" val
data ScrolledWindowHscrollbarPolicyPropertyInfo
instance AttrInfo ScrolledWindowHscrollbarPolicyPropertyInfo where
type AttrAllowedOps ScrolledWindowHscrollbarPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = (~) PolicyType
type AttrBaseTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowHscrollbarPolicyPropertyInfo = PolicyType
type AttrLabel ScrolledWindowHscrollbarPolicyPropertyInfo = "ScrolledWindow::hscrollbar-policy"
attrGet _ = getScrolledWindowHscrollbarPolicy
attrSet _ = setScrolledWindowHscrollbarPolicy
attrConstruct _ = constructScrolledWindowHscrollbarPolicy
getScrolledWindowKineticScrolling :: (MonadIO m, ScrolledWindowK o) => o -> m Bool
getScrolledWindowKineticScrolling obj = liftIO $ getObjectPropertyBool obj "kinetic-scrolling"
setScrolledWindowKineticScrolling :: (MonadIO m, ScrolledWindowK o) => o -> Bool -> m ()
setScrolledWindowKineticScrolling obj val = liftIO $ setObjectPropertyBool obj "kinetic-scrolling" val
constructScrolledWindowKineticScrolling :: Bool -> IO ([Char], GValue)
constructScrolledWindowKineticScrolling val = constructObjectPropertyBool "kinetic-scrolling" val
data ScrolledWindowKineticScrollingPropertyInfo
instance AttrInfo ScrolledWindowKineticScrollingPropertyInfo where
type AttrAllowedOps ScrolledWindowKineticScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowKineticScrollingPropertyInfo = Bool
type AttrLabel ScrolledWindowKineticScrollingPropertyInfo = "ScrolledWindow::kinetic-scrolling"
attrGet _ = getScrolledWindowKineticScrolling
attrSet _ = setScrolledWindowKineticScrolling
attrConstruct _ = constructScrolledWindowKineticScrolling
getScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> m Int32
getScrolledWindowMinContentHeight obj = liftIO $ getObjectPropertyCInt obj "min-content-height"
setScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m ()
setScrolledWindowMinContentHeight obj val = liftIO $ setObjectPropertyCInt obj "min-content-height" val
constructScrolledWindowMinContentHeight :: Int32 -> IO ([Char], GValue)
constructScrolledWindowMinContentHeight val = constructObjectPropertyCInt "min-content-height" val
data ScrolledWindowMinContentHeightPropertyInfo
instance AttrInfo ScrolledWindowMinContentHeightPropertyInfo where
type AttrAllowedOps ScrolledWindowMinContentHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowMinContentHeightPropertyInfo = Int32
type AttrLabel ScrolledWindowMinContentHeightPropertyInfo = "ScrolledWindow::min-content-height"
attrGet _ = getScrolledWindowMinContentHeight
attrSet _ = setScrolledWindowMinContentHeight
attrConstruct _ = constructScrolledWindowMinContentHeight
getScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> m Int32
getScrolledWindowMinContentWidth obj = liftIO $ getObjectPropertyCInt obj "min-content-width"
setScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m ()
setScrolledWindowMinContentWidth obj val = liftIO $ setObjectPropertyCInt obj "min-content-width" val
constructScrolledWindowMinContentWidth :: Int32 -> IO ([Char], GValue)
constructScrolledWindowMinContentWidth val = constructObjectPropertyCInt "min-content-width" val
data ScrolledWindowMinContentWidthPropertyInfo
instance AttrInfo ScrolledWindowMinContentWidthPropertyInfo where
type AttrAllowedOps ScrolledWindowMinContentWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowMinContentWidthPropertyInfo = Int32
type AttrLabel ScrolledWindowMinContentWidthPropertyInfo = "ScrolledWindow::min-content-width"
attrGet _ = getScrolledWindowMinContentWidth
attrSet _ = setScrolledWindowMinContentWidth
attrConstruct _ = constructScrolledWindowMinContentWidth
getScrolledWindowOverlayScrolling :: (MonadIO m, ScrolledWindowK o) => o -> m Bool
getScrolledWindowOverlayScrolling obj = liftIO $ getObjectPropertyBool obj "overlay-scrolling"
setScrolledWindowOverlayScrolling :: (MonadIO m, ScrolledWindowK o) => o -> Bool -> m ()
setScrolledWindowOverlayScrolling obj val = liftIO $ setObjectPropertyBool obj "overlay-scrolling" val
constructScrolledWindowOverlayScrolling :: Bool -> IO ([Char], GValue)
constructScrolledWindowOverlayScrolling val = constructObjectPropertyBool "overlay-scrolling" val
data ScrolledWindowOverlayScrollingPropertyInfo
instance AttrInfo ScrolledWindowOverlayScrollingPropertyInfo where
type AttrAllowedOps ScrolledWindowOverlayScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowOverlayScrollingPropertyInfo = Bool
type AttrLabel ScrolledWindowOverlayScrollingPropertyInfo = "ScrolledWindow::overlay-scrolling"
attrGet _ = getScrolledWindowOverlayScrolling
attrSet _ = setScrolledWindowOverlayScrolling
attrConstruct _ = constructScrolledWindowOverlayScrolling
getScrolledWindowShadowType :: (MonadIO m, ScrolledWindowK o) => o -> m ShadowType
getScrolledWindowShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type"
setScrolledWindowShadowType :: (MonadIO m, ScrolledWindowK o) => o -> ShadowType -> m ()
setScrolledWindowShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val
constructScrolledWindowShadowType :: ShadowType -> IO ([Char], GValue)
constructScrolledWindowShadowType val = constructObjectPropertyEnum "shadow-type" val
data ScrolledWindowShadowTypePropertyInfo
instance AttrInfo ScrolledWindowShadowTypePropertyInfo where
type AttrAllowedOps ScrolledWindowShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowShadowTypePropertyInfo = (~) ShadowType
type AttrBaseTypeConstraint ScrolledWindowShadowTypePropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowShadowTypePropertyInfo = ShadowType
type AttrLabel ScrolledWindowShadowTypePropertyInfo = "ScrolledWindow::shadow-type"
attrGet _ = getScrolledWindowShadowType
attrSet _ = setScrolledWindowShadowType
attrConstruct _ = constructScrolledWindowShadowType
getScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment
getScrolledWindowVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment
setScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m ()
setScrolledWindowVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val
constructScrolledWindowVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue)
constructScrolledWindowVadjustment val = constructObjectPropertyObject "vadjustment" val
data ScrolledWindowVadjustmentPropertyInfo
instance AttrInfo ScrolledWindowVadjustmentPropertyInfo where
type AttrAllowedOps ScrolledWindowVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowVadjustmentPropertyInfo = AdjustmentK
type AttrBaseTypeConstraint ScrolledWindowVadjustmentPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowVadjustmentPropertyInfo = Adjustment
type AttrLabel ScrolledWindowVadjustmentPropertyInfo = "ScrolledWindow::vadjustment"
attrGet _ = getScrolledWindowVadjustment
attrSet _ = setScrolledWindowVadjustment
attrConstruct _ = constructScrolledWindowVadjustment
getScrolledWindowVscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> m PolicyType
getScrolledWindowVscrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vscrollbar-policy"
setScrolledWindowVscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> PolicyType -> m ()
setScrolledWindowVscrollbarPolicy obj val = liftIO $ setObjectPropertyEnum obj "vscrollbar-policy" val
constructScrolledWindowVscrollbarPolicy :: PolicyType -> IO ([Char], GValue)
constructScrolledWindowVscrollbarPolicy val = constructObjectPropertyEnum "vscrollbar-policy" val
data ScrolledWindowVscrollbarPolicyPropertyInfo
instance AttrInfo ScrolledWindowVscrollbarPolicyPropertyInfo where
type AttrAllowedOps ScrolledWindowVscrollbarPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = (~) PolicyType
type AttrBaseTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowVscrollbarPolicyPropertyInfo = PolicyType
type AttrLabel ScrolledWindowVscrollbarPolicyPropertyInfo = "ScrolledWindow::vscrollbar-policy"
attrGet _ = getScrolledWindowVscrollbarPolicy
attrSet _ = setScrolledWindowVscrollbarPolicy
attrConstruct _ = constructScrolledWindowVscrollbarPolicy
getScrolledWindowWindowPlacement :: (MonadIO m, ScrolledWindowK o) => o -> m CornerType
getScrolledWindowWindowPlacement obj = liftIO $ getObjectPropertyEnum obj "window-placement"
setScrolledWindowWindowPlacement :: (MonadIO m, ScrolledWindowK o) => o -> CornerType -> m ()
setScrolledWindowWindowPlacement obj val = liftIO $ setObjectPropertyEnum obj "window-placement" val
constructScrolledWindowWindowPlacement :: CornerType -> IO ([Char], GValue)
constructScrolledWindowWindowPlacement val = constructObjectPropertyEnum "window-placement" val
data ScrolledWindowWindowPlacementPropertyInfo
instance AttrInfo ScrolledWindowWindowPlacementPropertyInfo where
type AttrAllowedOps ScrolledWindowWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = (~) CornerType
type AttrBaseTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowWindowPlacementPropertyInfo = CornerType
type AttrLabel ScrolledWindowWindowPlacementPropertyInfo = "ScrolledWindow::window-placement"
attrGet _ = getScrolledWindowWindowPlacement
attrSet _ = setScrolledWindowWindowPlacement
attrConstruct _ = constructScrolledWindowWindowPlacement
getScrolledWindowWindowPlacementSet :: (MonadIO m, ScrolledWindowK o) => o -> m Bool
getScrolledWindowWindowPlacementSet obj = liftIO $ getObjectPropertyBool obj "window-placement-set"
setScrolledWindowWindowPlacementSet :: (MonadIO m, ScrolledWindowK o) => o -> Bool -> m ()
setScrolledWindowWindowPlacementSet obj val = liftIO $ setObjectPropertyBool obj "window-placement-set" val
constructScrolledWindowWindowPlacementSet :: Bool -> IO ([Char], GValue)
constructScrolledWindowWindowPlacementSet val = constructObjectPropertyBool "window-placement-set" val
data ScrolledWindowWindowPlacementSetPropertyInfo
instance AttrInfo ScrolledWindowWindowPlacementSetPropertyInfo where
type AttrAllowedOps ScrolledWindowWindowPlacementSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = ScrolledWindowK
type AttrGetType ScrolledWindowWindowPlacementSetPropertyInfo = Bool
type AttrLabel ScrolledWindowWindowPlacementSetPropertyInfo = "ScrolledWindow::window-placement-set"
attrGet _ = getScrolledWindowWindowPlacementSet
attrSet _ = setScrolledWindowWindowPlacementSet
attrConstruct _ = constructScrolledWindowWindowPlacementSet
type instance AttributeList ScrolledWindow = ScrolledWindowAttributeList
type ScrolledWindowAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)])
data ScrolledWindowEdgeOvershotSignalInfo
instance SignalInfo ScrolledWindowEdgeOvershotSignalInfo where
type HaskellCallbackType ScrolledWindowEdgeOvershotSignalInfo = ScrolledWindowEdgeOvershotCallback
connectSignal _ = connectScrolledWindowEdgeOvershot
data ScrolledWindowEdgeReachedSignalInfo
instance SignalInfo ScrolledWindowEdgeReachedSignalInfo where
type HaskellCallbackType ScrolledWindowEdgeReachedSignalInfo = ScrolledWindowEdgeReachedCallback
connectSignal _ = connectScrolledWindowEdgeReached
data ScrolledWindowMoveFocusOutSignalInfo
instance SignalInfo ScrolledWindowMoveFocusOutSignalInfo where
type HaskellCallbackType ScrolledWindowMoveFocusOutSignalInfo = ScrolledWindowMoveFocusOutCallback
connectSignal _ = connectScrolledWindowMoveFocusOut
data ScrolledWindowScrollChildSignalInfo
instance SignalInfo ScrolledWindowScrollChildSignalInfo where
type HaskellCallbackType ScrolledWindowScrollChildSignalInfo = ScrolledWindowScrollChildCallback
connectSignal _ = connectScrolledWindowScrollChild
type instance SignalList ScrolledWindow = ScrolledWindowSignalList
type ScrolledWindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_scrolled_window_new" gtk_scrolled_window_new ::
Ptr Adjustment ->
Ptr Adjustment ->
IO (Ptr ScrolledWindow)
scrolledWindowNew ::
(MonadIO m, AdjustmentK a, AdjustmentK b) =>
Maybe (a) ->
Maybe (b) ->
m ScrolledWindow
scrolledWindowNew hadjustment vadjustment = liftIO $ do
maybeHadjustment <- case hadjustment of
Nothing -> return nullPtr
Just jHadjustment -> do
let jHadjustment' = unsafeManagedPtrCastPtr jHadjustment
return jHadjustment'
maybeVadjustment <- case vadjustment of
Nothing -> return nullPtr
Just jVadjustment -> do
let jVadjustment' = unsafeManagedPtrCastPtr jVadjustment
return jVadjustment'
result <- gtk_scrolled_window_new maybeHadjustment maybeVadjustment
checkUnexpectedReturnNULL "gtk_scrolled_window_new" result
result' <- (newObject ScrolledWindow) result
whenJust hadjustment touchManagedPtr
whenJust vadjustment touchManagedPtr
return result'
foreign import ccall "gtk_scrolled_window_add_with_viewport" gtk_scrolled_window_add_with_viewport ::
Ptr ScrolledWindow ->
Ptr Widget ->
IO ()
scrolledWindowAddWithViewport ::
(MonadIO m, ScrolledWindowK a, WidgetK b) =>
a ->
b ->
m ()
scrolledWindowAddWithViewport _obj child = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_scrolled_window_add_with_viewport _obj' child'
touchManagedPtr _obj
touchManagedPtr child
return ()
foreign import ccall "gtk_scrolled_window_get_capture_button_press" gtk_scrolled_window_get_capture_button_press ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetCaptureButtonPress ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Bool
scrolledWindowGetCaptureButtonPress _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_capture_button_press _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_hadjustment" gtk_scrolled_window_get_hadjustment ::
Ptr ScrolledWindow ->
IO (Ptr Adjustment)
scrolledWindowGetHadjustment ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Adjustment
scrolledWindowGetHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_hscrollbar" gtk_scrolled_window_get_hscrollbar ::
Ptr ScrolledWindow ->
IO (Ptr Widget)
scrolledWindowGetHscrollbar ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Widget
scrolledWindowGetHscrollbar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_hscrollbar _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_hscrollbar" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_kinetic_scrolling" gtk_scrolled_window_get_kinetic_scrolling ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetKineticScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Bool
scrolledWindowGetKineticScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_kinetic_scrolling _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_min_content_height" gtk_scrolled_window_get_min_content_height ::
Ptr ScrolledWindow ->
IO Int32
scrolledWindowGetMinContentHeight ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Int32
scrolledWindowGetMinContentHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_min_content_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_scrolled_window_get_min_content_width" gtk_scrolled_window_get_min_content_width ::
Ptr ScrolledWindow ->
IO Int32
scrolledWindowGetMinContentWidth ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Int32
scrolledWindowGetMinContentWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_min_content_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_scrolled_window_get_overlay_scrolling" gtk_scrolled_window_get_overlay_scrolling ::
Ptr ScrolledWindow ->
IO CInt
scrolledWindowGetOverlayScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Bool
scrolledWindowGetOverlayScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_overlay_scrolling _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_placement" gtk_scrolled_window_get_placement ::
Ptr ScrolledWindow ->
IO CUInt
scrolledWindowGetPlacement ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m CornerType
scrolledWindowGetPlacement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_placement _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_policy" gtk_scrolled_window_get_policy ::
Ptr ScrolledWindow ->
Ptr CUInt ->
Ptr CUInt ->
IO ()
scrolledWindowGetPolicy ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m (PolicyType,PolicyType)
scrolledWindowGetPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
hscrollbar_policy <- allocMem :: IO (Ptr CUInt)
vscrollbar_policy <- allocMem :: IO (Ptr CUInt)
gtk_scrolled_window_get_policy _obj' hscrollbar_policy vscrollbar_policy
hscrollbar_policy' <- peek hscrollbar_policy
let hscrollbar_policy'' = (toEnum . fromIntegral) hscrollbar_policy'
vscrollbar_policy' <- peek vscrollbar_policy
let vscrollbar_policy'' = (toEnum . fromIntegral) vscrollbar_policy'
touchManagedPtr _obj
freeMem hscrollbar_policy
freeMem vscrollbar_policy
return (hscrollbar_policy'', vscrollbar_policy'')
foreign import ccall "gtk_scrolled_window_get_shadow_type" gtk_scrolled_window_get_shadow_type ::
Ptr ScrolledWindow ->
IO CUInt
scrolledWindowGetShadowType ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m ShadowType
scrolledWindowGetShadowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_shadow_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_vadjustment" gtk_scrolled_window_get_vadjustment ::
Ptr ScrolledWindow ->
IO (Ptr Adjustment)
scrolledWindowGetVadjustment ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Adjustment
scrolledWindowGetVadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_vadjustment _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_vadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_get_vscrollbar" gtk_scrolled_window_get_vscrollbar ::
Ptr ScrolledWindow ->
IO (Ptr Widget)
scrolledWindowGetVscrollbar ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m Widget
scrolledWindowGetVscrollbar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_scrolled_window_get_vscrollbar _obj'
checkUnexpectedReturnNULL "gtk_scrolled_window_get_vscrollbar" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_scrolled_window_set_capture_button_press" gtk_scrolled_window_set_capture_button_press ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetCaptureButtonPress ::
(MonadIO m, ScrolledWindowK a) =>
a ->
Bool ->
m ()
scrolledWindowSetCaptureButtonPress _obj capture_button_press = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let capture_button_press' = (fromIntegral . fromEnum) capture_button_press
gtk_scrolled_window_set_capture_button_press _obj' capture_button_press'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_hadjustment" gtk_scrolled_window_set_hadjustment ::
Ptr ScrolledWindow ->
Ptr Adjustment ->
IO ()
scrolledWindowSetHadjustment ::
(MonadIO m, ScrolledWindowK a, AdjustmentK b) =>
a ->
b ->
m ()
scrolledWindowSetHadjustment _obj hadjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hadjustment' = unsafeManagedPtrCastPtr hadjustment
gtk_scrolled_window_set_hadjustment _obj' hadjustment'
touchManagedPtr _obj
touchManagedPtr hadjustment
return ()
foreign import ccall "gtk_scrolled_window_set_kinetic_scrolling" gtk_scrolled_window_set_kinetic_scrolling ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetKineticScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a ->
Bool ->
m ()
scrolledWindowSetKineticScrolling _obj kinetic_scrolling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let kinetic_scrolling' = (fromIntegral . fromEnum) kinetic_scrolling
gtk_scrolled_window_set_kinetic_scrolling _obj' kinetic_scrolling'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_min_content_height" gtk_scrolled_window_set_min_content_height ::
Ptr ScrolledWindow ->
Int32 ->
IO ()
scrolledWindowSetMinContentHeight ::
(MonadIO m, ScrolledWindowK a) =>
a ->
Int32 ->
m ()
scrolledWindowSetMinContentHeight _obj height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scrolled_window_set_min_content_height _obj' height
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_min_content_width" gtk_scrolled_window_set_min_content_width ::
Ptr ScrolledWindow ->
Int32 ->
IO ()
scrolledWindowSetMinContentWidth ::
(MonadIO m, ScrolledWindowK a) =>
a ->
Int32 ->
m ()
scrolledWindowSetMinContentWidth _obj width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scrolled_window_set_min_content_width _obj' width
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_overlay_scrolling" gtk_scrolled_window_set_overlay_scrolling ::
Ptr ScrolledWindow ->
CInt ->
IO ()
scrolledWindowSetOverlayScrolling ::
(MonadIO m, ScrolledWindowK a) =>
a ->
Bool ->
m ()
scrolledWindowSetOverlayScrolling _obj overlay_scrolling = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let overlay_scrolling' = (fromIntegral . fromEnum) overlay_scrolling
gtk_scrolled_window_set_overlay_scrolling _obj' overlay_scrolling'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_placement" gtk_scrolled_window_set_placement ::
Ptr ScrolledWindow ->
CUInt ->
IO ()
scrolledWindowSetPlacement ::
(MonadIO m, ScrolledWindowK a) =>
a ->
CornerType ->
m ()
scrolledWindowSetPlacement _obj window_placement = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window_placement' = (fromIntegral . fromEnum) window_placement
gtk_scrolled_window_set_placement _obj' window_placement'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_policy" gtk_scrolled_window_set_policy ::
Ptr ScrolledWindow ->
CUInt ->
CUInt ->
IO ()
scrolledWindowSetPolicy ::
(MonadIO m, ScrolledWindowK a) =>
a ->
PolicyType ->
PolicyType ->
m ()
scrolledWindowSetPolicy _obj hscrollbar_policy vscrollbar_policy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hscrollbar_policy' = (fromIntegral . fromEnum) hscrollbar_policy
let vscrollbar_policy' = (fromIntegral . fromEnum) vscrollbar_policy
gtk_scrolled_window_set_policy _obj' hscrollbar_policy' vscrollbar_policy'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_shadow_type" gtk_scrolled_window_set_shadow_type ::
Ptr ScrolledWindow ->
CUInt ->
IO ()
scrolledWindowSetShadowType ::
(MonadIO m, ScrolledWindowK a) =>
a ->
ShadowType ->
m ()
scrolledWindowSetShadowType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_scrolled_window_set_shadow_type _obj' type_'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_scrolled_window_set_vadjustment" gtk_scrolled_window_set_vadjustment ::
Ptr ScrolledWindow ->
Ptr Adjustment ->
IO ()
scrolledWindowSetVadjustment ::
(MonadIO m, ScrolledWindowK a, AdjustmentK b) =>
a ->
b ->
m ()
scrolledWindowSetVadjustment _obj vadjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let vadjustment' = unsafeManagedPtrCastPtr vadjustment
gtk_scrolled_window_set_vadjustment _obj' vadjustment'
touchManagedPtr _obj
touchManagedPtr vadjustment
return ()
foreign import ccall "gtk_scrolled_window_unset_placement" gtk_scrolled_window_unset_placement ::
Ptr ScrolledWindow ->
IO ()
scrolledWindowUnsetPlacement ::
(MonadIO m, ScrolledWindowK a) =>
a ->
m ()
scrolledWindowUnsetPlacement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_scrolled_window_unset_placement _obj'
touchManagedPtr _obj
return ()