{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Dazzle.Objects.Slider
(
Slider(..) ,
IsSlider ,
toSlider ,
#if defined(ENABLE_OVERLOADING)
ResolveSliderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SliderAddSliderMethodInfo ,
#endif
sliderAddSlider ,
#if defined(ENABLE_OVERLOADING)
SliderGetPositionMethodInfo ,
#endif
sliderGetPosition ,
sliderNew ,
#if defined(ENABLE_OVERLOADING)
SliderSetPositionMethodInfo ,
#endif
sliderSetPosition ,
#if defined(ENABLE_OVERLOADING)
SliderPositionPropertyInfo ,
#endif
constructSliderPosition ,
getSliderPosition ,
setSliderPosition ,
#if defined(ENABLE_OVERLOADING)
sliderPosition ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import {-# SOURCE #-} qualified GI.Dazzle.Enums as Dazzle.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.Container as Gtk.Container
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#else
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import {-# SOURCE #-} qualified GI.Dazzle.Enums as Dazzle.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.Container as Gtk.Container
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype Slider = Slider (SP.ManagedPtr Slider)
deriving (Slider -> Slider -> Bool
(Slider -> Slider -> Bool)
-> (Slider -> Slider -> Bool) -> Eq Slider
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Slider -> Slider -> Bool
== :: Slider -> Slider -> Bool
$c/= :: Slider -> Slider -> Bool
/= :: Slider -> Slider -> Bool
Eq)
instance SP.ManagedPtrNewtype Slider where
toManagedPtr :: Slider -> ManagedPtr Slider
toManagedPtr (Slider ManagedPtr Slider
p) = ManagedPtr Slider
p
foreign import ccall "dzl_slider_get_type"
c_dzl_slider_get_type :: IO B.Types.GType
instance B.Types.TypedObject Slider where
glibType :: IO GType
glibType = IO GType
c_dzl_slider_get_type
instance B.Types.GObject Slider
class (SP.GObject o, O.IsDescendantOf Slider o) => IsSlider o
instance (SP.GObject o, O.IsDescendantOf Slider o) => IsSlider o
instance O.HasParentTypes Slider
type instance O.ParentTypes Slider = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toSlider :: (MIO.MonadIO m, IsSlider o) => o -> m Slider
toSlider :: forall (m :: * -> *) o. (MonadIO m, IsSlider o) => o -> m Slider
toSlider = IO Slider -> m Slider
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Slider -> m Slider) -> (o -> IO Slider) -> o -> m Slider
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Slider -> Slider) -> o -> IO Slider
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Slider -> Slider
Slider
instance B.GValue.IsGValue (Maybe Slider) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_dzl_slider_get_type
gvalueSet_ :: Ptr GValue -> Maybe Slider -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Slider
P.Nothing = Ptr GValue -> Ptr Slider -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Slider
forall a. Ptr a
FP.nullPtr :: FP.Ptr Slider)
gvalueSet_ Ptr GValue
gv (P.Just Slider
obj) = Slider -> (Ptr Slider -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Slider
obj (Ptr GValue -> Ptr Slider -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Slider)
gvalueGet_ Ptr GValue
gv = do
Ptr Slider
ptr <- Ptr GValue -> IO (Ptr Slider)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Slider)
if Ptr Slider
ptr Ptr Slider -> Ptr Slider -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Slider
forall a. Ptr a
FP.nullPtr
then Slider -> Maybe Slider
forall a. a -> Maybe a
P.Just (Slider -> Maybe Slider) -> IO Slider -> IO (Maybe Slider)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Slider -> Slider) -> Ptr Slider -> IO Slider
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Slider -> Slider
Slider Ptr Slider
ptr
else Maybe Slider -> IO (Maybe Slider)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Slider
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSliderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSliderMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveSliderMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveSliderMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveSliderMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveSliderMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveSliderMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveSliderMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveSliderMethod "addSlider" o = SliderAddSliderMethodInfo
ResolveSliderMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveSliderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSliderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSliderMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveSliderMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveSliderMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveSliderMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveSliderMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveSliderMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveSliderMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveSliderMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveSliderMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveSliderMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveSliderMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveSliderMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveSliderMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveSliderMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveSliderMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveSliderMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveSliderMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveSliderMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveSliderMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveSliderMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveSliderMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveSliderMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveSliderMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveSliderMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveSliderMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveSliderMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveSliderMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveSliderMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveSliderMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveSliderMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveSliderMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveSliderMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveSliderMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveSliderMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveSliderMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveSliderMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveSliderMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveSliderMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveSliderMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveSliderMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveSliderMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveSliderMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveSliderMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveSliderMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveSliderMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveSliderMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveSliderMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveSliderMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveSliderMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveSliderMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveSliderMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveSliderMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveSliderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSliderMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveSliderMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveSliderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSliderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSliderMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveSliderMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveSliderMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveSliderMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveSliderMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveSliderMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveSliderMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveSliderMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveSliderMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveSliderMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveSliderMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveSliderMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveSliderMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveSliderMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveSliderMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveSliderMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveSliderMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveSliderMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveSliderMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveSliderMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveSliderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSliderMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveSliderMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveSliderMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveSliderMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveSliderMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveSliderMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveSliderMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveSliderMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveSliderMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveSliderMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveSliderMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveSliderMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveSliderMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveSliderMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveSliderMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveSliderMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveSliderMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveSliderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSliderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSliderMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveSliderMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveSliderMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveSliderMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveSliderMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveSliderMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveSliderMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveSliderMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveSliderMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveSliderMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveSliderMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveSliderMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveSliderMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveSliderMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveSliderMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveSliderMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveSliderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSliderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSliderMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveSliderMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveSliderMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveSliderMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveSliderMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveSliderMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveSliderMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveSliderMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveSliderMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveSliderMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveSliderMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveSliderMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveSliderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSliderMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveSliderMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveSliderMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveSliderMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveSliderMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveSliderMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveSliderMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveSliderMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveSliderMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveSliderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSliderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSliderMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveSliderMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveSliderMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveSliderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSliderMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveSliderMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveSliderMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveSliderMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveSliderMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveSliderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSliderMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveSliderMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveSliderMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveSliderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSliderMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveSliderMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveSliderMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveSliderMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveSliderMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveSliderMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveSliderMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveSliderMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveSliderMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveSliderMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveSliderMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveSliderMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveSliderMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveSliderMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveSliderMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveSliderMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveSliderMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveSliderMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveSliderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSliderMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveSliderMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveSliderMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveSliderMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveSliderMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveSliderMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveSliderMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveSliderMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveSliderMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveSliderMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveSliderMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveSliderMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveSliderMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveSliderMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveSliderMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveSliderMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveSliderMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveSliderMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveSliderMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveSliderMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveSliderMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveSliderMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveSliderMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveSliderMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveSliderMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveSliderMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveSliderMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveSliderMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveSliderMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveSliderMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveSliderMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveSliderMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveSliderMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveSliderMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveSliderMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveSliderMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveSliderMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveSliderMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveSliderMethod "getPosition" o = SliderGetPositionMethodInfo
ResolveSliderMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveSliderMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveSliderMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveSliderMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveSliderMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveSliderMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveSliderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSliderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSliderMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveSliderMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveSliderMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveSliderMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveSliderMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveSliderMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveSliderMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveSliderMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveSliderMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveSliderMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveSliderMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveSliderMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveSliderMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveSliderMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveSliderMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveSliderMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveSliderMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveSliderMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveSliderMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveSliderMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveSliderMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveSliderMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveSliderMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveSliderMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveSliderMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveSliderMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveSliderMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveSliderMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveSliderMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveSliderMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveSliderMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveSliderMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveSliderMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveSliderMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveSliderMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveSliderMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveSliderMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveSliderMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveSliderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSliderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSliderMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveSliderMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveSliderMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveSliderMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveSliderMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveSliderMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveSliderMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveSliderMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveSliderMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveSliderMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveSliderMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveSliderMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveSliderMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveSliderMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveSliderMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveSliderMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveSliderMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveSliderMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveSliderMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveSliderMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveSliderMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveSliderMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveSliderMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveSliderMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveSliderMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveSliderMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveSliderMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveSliderMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveSliderMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveSliderMethod "setPosition" o = SliderSetPositionMethodInfo
ResolveSliderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSliderMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveSliderMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveSliderMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveSliderMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveSliderMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveSliderMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveSliderMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveSliderMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveSliderMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveSliderMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveSliderMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveSliderMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveSliderMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveSliderMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveSliderMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveSliderMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveSliderMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveSliderMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveSliderMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveSliderMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveSliderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSliderMethod t Slider, O.OverloadedMethod info Slider p) => OL.IsLabel t (Slider -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveSliderMethod t Slider, O.OverloadedMethod info Slider p, R.HasField t Slider p) => R.HasField t Slider p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSliderMethod t Slider, O.OverloadedMethodInfo info Slider) => OL.IsLabel t (O.MethodProxy info Slider) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSliderPosition :: (MonadIO m, IsSlider o) => o -> m Dazzle.Enums.SliderPosition
getSliderPosition :: forall (m :: * -> *) o.
(MonadIO m, IsSlider o) =>
o -> m SliderPosition
getSliderPosition o
obj = IO SliderPosition -> m SliderPosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SliderPosition -> m SliderPosition)
-> IO SliderPosition -> m SliderPosition
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SliderPosition
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"position"
setSliderPosition :: (MonadIO m, IsSlider o) => o -> Dazzle.Enums.SliderPosition -> m ()
setSliderPosition :: forall (m :: * -> *) o.
(MonadIO m, IsSlider o) =>
o -> SliderPosition -> m ()
setSliderPosition o
obj SliderPosition
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SliderPosition -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"position" SliderPosition
val
constructSliderPosition :: (IsSlider o, MIO.MonadIO m) => Dazzle.Enums.SliderPosition -> m (GValueConstruct o)
constructSliderPosition :: forall o (m :: * -> *).
(IsSlider o, MonadIO m) =>
SliderPosition -> m (GValueConstruct o)
constructSliderPosition SliderPosition
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SliderPosition -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"position" SliderPosition
val
#if defined(ENABLE_OVERLOADING)
data SliderPositionPropertyInfo
instance AttrInfo SliderPositionPropertyInfo where
type AttrAllowedOps SliderPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SliderPositionPropertyInfo = IsSlider
type AttrSetTypeConstraint SliderPositionPropertyInfo = (~) Dazzle.Enums.SliderPosition
type AttrTransferTypeConstraint SliderPositionPropertyInfo = (~) Dazzle.Enums.SliderPosition
type AttrTransferType SliderPositionPropertyInfo = Dazzle.Enums.SliderPosition
type AttrGetType SliderPositionPropertyInfo = Dazzle.Enums.SliderPosition
type AttrLabel SliderPositionPropertyInfo = "position"
type AttrOrigin SliderPositionPropertyInfo = Slider
attrGet = getSliderPosition
attrSet = setSliderPosition
attrTransfer _ v = do
return v
attrConstruct = constructSliderPosition
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.Slider.position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-Slider.html#g:attr:position"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Slider
type instance O.AttributeList Slider = SliderAttributeList
type SliderAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("position", SliderPositionPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
sliderPosition :: AttrLabelProxy "position"
sliderPosition = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Slider = SliderSignalList
type SliderSignalList = ('[ '("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), '("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), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("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, DK.Type)])
#endif
foreign import ccall "dzl_slider_new" dzl_slider_new ::
IO (Ptr Slider)
sliderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Slider
sliderNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Slider
sliderNew = IO Slider -> m Slider
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Slider -> m Slider) -> IO Slider -> m Slider
forall a b. (a -> b) -> a -> b
$ do
Ptr Slider
result <- IO (Ptr Slider)
dzl_slider_new
Text -> Ptr Slider -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"sliderNew" Ptr Slider
result
Slider
result' <- ((ManagedPtr Slider -> Slider) -> Ptr Slider -> IO Slider
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Slider -> Slider
Slider) Ptr Slider
result
Slider -> IO Slider
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Slider
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "dzl_slider_add_slider" dzl_slider_add_slider ::
Ptr Slider ->
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
sliderAddSlider ::
(B.CallStack.HasCallStack, MonadIO m, IsSlider a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Dazzle.Enums.SliderPosition
-> m ()
sliderAddSlider :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSlider a, IsWidget b) =>
a -> b -> SliderPosition -> m ()
sliderAddSlider a
self b
widget SliderPosition
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Slider
self' <- a -> IO (Ptr Slider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SliderPosition -> Int) -> SliderPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SliderPosition -> Int
forall a. Enum a => a -> Int
fromEnum) SliderPosition
position
Ptr Slider -> Ptr Widget -> CUInt -> IO ()
dzl_slider_add_slider Ptr Slider
self' Ptr Widget
widget' CUInt
position'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SliderAddSliderMethodInfo
instance (signature ~ (b -> Dazzle.Enums.SliderPosition -> m ()), MonadIO m, IsSlider a, Gtk.Widget.IsWidget b) => O.OverloadedMethod SliderAddSliderMethodInfo a signature where
overloadedMethod = sliderAddSlider
instance O.OverloadedMethodInfo SliderAddSliderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.Slider.sliderAddSlider",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-Slider.html#v:sliderAddSlider"
})
#endif
foreign import ccall "dzl_slider_get_position" dzl_slider_get_position ::
Ptr Slider ->
IO CUInt
sliderGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsSlider a) =>
a
-> m Dazzle.Enums.SliderPosition
sliderGetPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSlider a) =>
a -> m SliderPosition
sliderGetPosition a
self = IO SliderPosition -> m SliderPosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SliderPosition -> m SliderPosition)
-> IO SliderPosition -> m SliderPosition
forall a b. (a -> b) -> a -> b
$ do
Ptr Slider
self' <- a -> IO (Ptr Slider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Slider -> IO CUInt
dzl_slider_get_position Ptr Slider
self'
let result' :: SliderPosition
result' = (Int -> SliderPosition
forall a. Enum a => Int -> a
toEnum (Int -> SliderPosition)
-> (CUInt -> Int) -> CUInt -> SliderPosition
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
self
SliderPosition -> IO SliderPosition
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SliderPosition
result'
#if defined(ENABLE_OVERLOADING)
data SliderGetPositionMethodInfo
instance (signature ~ (m Dazzle.Enums.SliderPosition), MonadIO m, IsSlider a) => O.OverloadedMethod SliderGetPositionMethodInfo a signature where
overloadedMethod = sliderGetPosition
instance O.OverloadedMethodInfo SliderGetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.Slider.sliderGetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-Slider.html#v:sliderGetPosition"
})
#endif
foreign import ccall "dzl_slider_set_position" dzl_slider_set_position ::
Ptr Slider ->
CUInt ->
IO ()
sliderSetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsSlider a) =>
a
-> Dazzle.Enums.SliderPosition
-> m ()
sliderSetPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSlider a) =>
a -> SliderPosition -> m ()
sliderSetPosition a
self SliderPosition
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Slider
self' <- a -> IO (Ptr Slider)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SliderPosition -> Int) -> SliderPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SliderPosition -> Int
forall a. Enum a => a -> Int
fromEnum) SliderPosition
position
Ptr Slider -> CUInt -> IO ()
dzl_slider_set_position Ptr Slider
self' CUInt
position'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SliderSetPositionMethodInfo
instance (signature ~ (Dazzle.Enums.SliderPosition -> m ()), MonadIO m, IsSlider a) => O.OverloadedMethod SliderSetPositionMethodInfo a signature where
overloadedMethod = sliderSetPosition
instance O.OverloadedMethodInfo SliderSetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.Slider.sliderSetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-Slider.html#v:sliderSetPosition"
})
#endif