{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Scale
(
Scale(..) ,
IsScale ,
toScale ,
#if defined(ENABLE_OVERLOADING)
ResolveScaleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ScaleAddMarkMethodInfo ,
#endif
scaleAddMark ,
#if defined(ENABLE_OVERLOADING)
ScaleClearMarksMethodInfo ,
#endif
scaleClearMarks ,
#if defined(ENABLE_OVERLOADING)
ScaleGetDigitsMethodInfo ,
#endif
scaleGetDigits ,
#if defined(ENABLE_OVERLOADING)
ScaleGetDrawValueMethodInfo ,
#endif
scaleGetDrawValue ,
#if defined(ENABLE_OVERLOADING)
ScaleGetHasOriginMethodInfo ,
#endif
scaleGetHasOrigin ,
#if defined(ENABLE_OVERLOADING)
ScaleGetLayoutMethodInfo ,
#endif
scaleGetLayout ,
#if defined(ENABLE_OVERLOADING)
ScaleGetLayoutOffsetsMethodInfo ,
#endif
scaleGetLayoutOffsets ,
#if defined(ENABLE_OVERLOADING)
ScaleGetValuePosMethodInfo ,
#endif
scaleGetValuePos ,
scaleNew ,
scaleNewWithRange ,
#if defined(ENABLE_OVERLOADING)
ScaleSetDigitsMethodInfo ,
#endif
scaleSetDigits ,
#if defined(ENABLE_OVERLOADING)
ScaleSetDrawValueMethodInfo ,
#endif
scaleSetDrawValue ,
#if defined(ENABLE_OVERLOADING)
ScaleSetFormatValueFuncMethodInfo ,
#endif
scaleSetFormatValueFunc ,
#if defined(ENABLE_OVERLOADING)
ScaleSetHasOriginMethodInfo ,
#endif
scaleSetHasOrigin ,
#if defined(ENABLE_OVERLOADING)
ScaleSetValuePosMethodInfo ,
#endif
scaleSetValuePos ,
#if defined(ENABLE_OVERLOADING)
ScaleDigitsPropertyInfo ,
#endif
constructScaleDigits ,
getScaleDigits ,
#if defined(ENABLE_OVERLOADING)
scaleDigits ,
#endif
setScaleDigits ,
#if defined(ENABLE_OVERLOADING)
ScaleDrawValuePropertyInfo ,
#endif
constructScaleDrawValue ,
getScaleDrawValue ,
#if defined(ENABLE_OVERLOADING)
scaleDrawValue ,
#endif
setScaleDrawValue ,
#if defined(ENABLE_OVERLOADING)
ScaleHasOriginPropertyInfo ,
#endif
constructScaleHasOrigin ,
getScaleHasOrigin ,
#if defined(ENABLE_OVERLOADING)
scaleHasOrigin ,
#endif
setScaleHasOrigin ,
#if defined(ENABLE_OVERLOADING)
ScaleValuePosPropertyInfo ,
#endif
constructScaleValuePos ,
getScaleValuePos ,
#if defined(ENABLE_OVERLOADING)
scaleValuePos ,
#endif
setScaleValuePos ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.AccessibleRange as Gtk.AccessibleRange
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Range as Gtk.Range
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Pango.Objects.Layout as Pango.Layout
newtype Scale = Scale (SP.ManagedPtr Scale)
deriving (Scale -> Scale -> Bool
(Scale -> Scale -> Bool) -> (Scale -> Scale -> Bool) -> Eq Scale
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Scale -> Scale -> Bool
== :: Scale -> Scale -> Bool
$c/= :: Scale -> Scale -> Bool
/= :: Scale -> Scale -> Bool
Eq)
instance SP.ManagedPtrNewtype Scale where
toManagedPtr :: Scale -> ManagedPtr Scale
toManagedPtr (Scale ManagedPtr Scale
p) = ManagedPtr Scale
p
foreign import ccall "gtk_scale_get_type"
c_gtk_scale_get_type :: IO B.Types.GType
instance B.Types.TypedObject Scale where
glibType :: IO GType
glibType = IO GType
c_gtk_scale_get_type
instance B.Types.GObject Scale
class (SP.GObject o, O.IsDescendantOf Scale o) => IsScale o
instance (SP.GObject o, O.IsDescendantOf Scale o) => IsScale o
instance O.HasParentTypes Scale
type instance O.ParentTypes Scale = '[Gtk.Range.Range, Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.AccessibleRange.AccessibleRange, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toScale :: (MIO.MonadIO m, IsScale o) => o -> m Scale
toScale :: forall (m :: * -> *) o. (MonadIO m, IsScale o) => o -> m Scale
toScale = IO Scale -> m Scale
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Scale -> m Scale) -> (o -> IO Scale) -> o -> m Scale
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Scale -> Scale) -> o -> IO Scale
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Scale -> Scale
Scale
instance B.GValue.IsGValue (Maybe Scale) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_scale_get_type
gvalueSet_ :: Ptr GValue -> Maybe Scale -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Scale
P.Nothing = Ptr GValue -> Ptr Scale -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Scale
forall a. Ptr a
FP.nullPtr :: FP.Ptr Scale)
gvalueSet_ Ptr GValue
gv (P.Just Scale
obj) = Scale -> (Ptr Scale -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Scale
obj (Ptr GValue -> Ptr Scale -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Scale)
gvalueGet_ Ptr GValue
gv = do
Ptr Scale
ptr <- Ptr GValue -> IO (Ptr Scale)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Scale)
if Ptr Scale
ptr Ptr Scale -> Ptr Scale -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Scale
forall a. Ptr a
FP.nullPtr
then Scale -> Maybe Scale
forall a. a -> Maybe a
P.Just (Scale -> Maybe Scale) -> IO Scale -> IO (Maybe Scale)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Scale -> Scale) -> Ptr Scale -> IO Scale
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Scale -> Scale
Scale Ptr Scale
ptr
else Maybe Scale -> IO (Maybe Scale)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Scale
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveScaleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveScaleMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveScaleMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveScaleMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveScaleMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveScaleMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveScaleMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveScaleMethod "addMark" o = ScaleAddMarkMethodInfo
ResolveScaleMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveScaleMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveScaleMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveScaleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveScaleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveScaleMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo
ResolveScaleMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveScaleMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveScaleMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveScaleMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveScaleMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveScaleMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveScaleMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveScaleMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveScaleMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveScaleMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveScaleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveScaleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveScaleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveScaleMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveScaleMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveScaleMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveScaleMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveScaleMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveScaleMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveScaleMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveScaleMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveScaleMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveScaleMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveScaleMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveScaleMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveScaleMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveScaleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveScaleMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveScaleMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveScaleMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveScaleMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveScaleMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveScaleMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveScaleMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveScaleMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveScaleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveScaleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveScaleMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveScaleMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveScaleMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveScaleMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveScaleMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveScaleMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveScaleMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveScaleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveScaleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveScaleMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveScaleMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveScaleMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveScaleMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveScaleMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveScaleMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveScaleMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveScaleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveScaleMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveScaleMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveScaleMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveScaleMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveScaleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveScaleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveScaleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveScaleMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveScaleMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveScaleMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveScaleMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveScaleMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveScaleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveScaleMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveScaleMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveScaleMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveScaleMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveScaleMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveScaleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveScaleMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveScaleMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveScaleMethod "getAdjustment" o = Gtk.Range.RangeGetAdjustmentMethodInfo
ResolveScaleMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveScaleMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveScaleMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveScaleMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveScaleMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveScaleMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveScaleMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveScaleMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveScaleMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveScaleMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveScaleMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveScaleMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveScaleMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveScaleMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveScaleMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveScaleMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveScaleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo
ResolveScaleMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveScaleMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo
ResolveScaleMethod "getFillLevel" o = Gtk.Range.RangeGetFillLevelMethodInfo
ResolveScaleMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveScaleMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveScaleMethod "getFlippable" o = Gtk.Range.RangeGetFlippableMethodInfo
ResolveScaleMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveScaleMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveScaleMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveScaleMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveScaleMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveScaleMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveScaleMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo
ResolveScaleMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveScaleMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveScaleMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveScaleMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveScaleMethod "getInverted" o = Gtk.Range.RangeGetInvertedMethodInfo
ResolveScaleMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo
ResolveScaleMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo
ResolveScaleMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveScaleMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveScaleMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveScaleMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveScaleMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveScaleMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveScaleMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveScaleMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveScaleMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveScaleMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveScaleMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveScaleMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveScaleMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveScaleMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveScaleMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveScaleMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveScaleMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveScaleMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveScaleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveScaleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveScaleMethod "getRangeRect" o = Gtk.Range.RangeGetRangeRectMethodInfo
ResolveScaleMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveScaleMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveScaleMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveScaleMethod "getRestrictToFillLevel" o = Gtk.Range.RangeGetRestrictToFillLevelMethodInfo
ResolveScaleMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveScaleMethod "getRoundDigits" o = Gtk.Range.RangeGetRoundDigitsMethodInfo
ResolveScaleMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveScaleMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveScaleMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveScaleMethod "getShowFillLevel" o = Gtk.Range.RangeGetShowFillLevelMethodInfo
ResolveScaleMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveScaleMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveScaleMethod "getSliderRange" o = Gtk.Range.RangeGetSliderRangeMethodInfo
ResolveScaleMethod "getSliderSizeFixed" o = Gtk.Range.RangeGetSliderSizeFixedMethodInfo
ResolveScaleMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveScaleMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveScaleMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveScaleMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveScaleMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveScaleMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveScaleMethod "getValue" o = Gtk.Range.RangeGetValueMethodInfo
ResolveScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo
ResolveScaleMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveScaleMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveScaleMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveScaleMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveScaleMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveScaleMethod "setAdjustment" o = Gtk.Range.RangeSetAdjustmentMethodInfo
ResolveScaleMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveScaleMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveScaleMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveScaleMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveScaleMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveScaleMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveScaleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveScaleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo
ResolveScaleMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo
ResolveScaleMethod "setFillLevel" o = Gtk.Range.RangeSetFillLevelMethodInfo
ResolveScaleMethod "setFlippable" o = Gtk.Range.RangeSetFlippableMethodInfo
ResolveScaleMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveScaleMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveScaleMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveScaleMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveScaleMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveScaleMethod "setFormatValueFunc" o = ScaleSetFormatValueFuncMethodInfo
ResolveScaleMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo
ResolveScaleMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveScaleMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveScaleMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveScaleMethod "setIncrements" o = Gtk.Range.RangeSetIncrementsMethodInfo
ResolveScaleMethod "setInverted" o = Gtk.Range.RangeSetInvertedMethodInfo
ResolveScaleMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveScaleMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveScaleMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveScaleMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveScaleMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveScaleMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveScaleMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveScaleMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveScaleMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveScaleMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveScaleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveScaleMethod "setRange" o = Gtk.Range.RangeSetRangeMethodInfo
ResolveScaleMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveScaleMethod "setRestrictToFillLevel" o = Gtk.Range.RangeSetRestrictToFillLevelMethodInfo
ResolveScaleMethod "setRoundDigits" o = Gtk.Range.RangeSetRoundDigitsMethodInfo
ResolveScaleMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveScaleMethod "setShowFillLevel" o = Gtk.Range.RangeSetShowFillLevelMethodInfo
ResolveScaleMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveScaleMethod "setSliderSizeFixed" o = Gtk.Range.RangeSetSliderSizeFixedMethodInfo
ResolveScaleMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveScaleMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveScaleMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveScaleMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveScaleMethod "setValue" o = Gtk.Range.RangeSetValueMethodInfo
ResolveScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo
ResolveScaleMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveScaleMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveScaleMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveScaleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScaleMethod t Scale, O.OverloadedMethod info Scale p) => OL.IsLabel t (Scale -> 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 ~ ResolveScaleMethod t Scale, O.OverloadedMethod info Scale p, R.HasField t Scale p) => R.HasField t Scale p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveScaleMethod t Scale, O.OverloadedMethodInfo info Scale) => OL.IsLabel t (O.MethodProxy info Scale) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getScaleDigits :: (MonadIO m, IsScale o) => o -> m Int32
getScaleDigits :: forall (m :: * -> *) o. (MonadIO m, IsScale o) => o -> m Int32
getScaleDigits o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"digits"
setScaleDigits :: (MonadIO m, IsScale o) => o -> Int32 -> m ()
setScaleDigits :: forall (m :: * -> *) o.
(MonadIO m, IsScale o) =>
o -> Int32 -> m ()
setScaleDigits o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"digits" Int32
val
constructScaleDigits :: (IsScale o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructScaleDigits :: forall o (m :: * -> *).
(IsScale o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructScaleDigits Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"digits" Int32
val
#if defined(ENABLE_OVERLOADING)
data ScaleDigitsPropertyInfo
instance AttrInfo ScaleDigitsPropertyInfo where
type AttrAllowedOps ScaleDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleDigitsPropertyInfo = IsScale
type AttrSetTypeConstraint ScaleDigitsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ScaleDigitsPropertyInfo = (~) Int32
type AttrTransferType ScaleDigitsPropertyInfo = Int32
type AttrGetType ScaleDigitsPropertyInfo = Int32
type AttrLabel ScaleDigitsPropertyInfo = "digits"
type AttrOrigin ScaleDigitsPropertyInfo = Scale
attrGet = getScaleDigits
attrSet = setScaleDigits
attrTransfer _ v = do
return v
attrConstruct = constructScaleDigits
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.digits"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#g:attr:digits"
})
#endif
getScaleDrawValue :: (MonadIO m, IsScale o) => o -> m Bool
getScaleDrawValue :: forall (m :: * -> *) o. (MonadIO m, IsScale o) => o -> m Bool
getScaleDrawValue o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"draw-value"
setScaleDrawValue :: (MonadIO m, IsScale o) => o -> Bool -> m ()
setScaleDrawValue :: forall (m :: * -> *) o. (MonadIO m, IsScale o) => o -> Bool -> m ()
setScaleDrawValue o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"draw-value" Bool
val
constructScaleDrawValue :: (IsScale o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScaleDrawValue :: forall o (m :: * -> *).
(IsScale o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScaleDrawValue Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"draw-value" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScaleDrawValuePropertyInfo
instance AttrInfo ScaleDrawValuePropertyInfo where
type AttrAllowedOps ScaleDrawValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleDrawValuePropertyInfo = IsScale
type AttrSetTypeConstraint ScaleDrawValuePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScaleDrawValuePropertyInfo = (~) Bool
type AttrTransferType ScaleDrawValuePropertyInfo = Bool
type AttrGetType ScaleDrawValuePropertyInfo = Bool
type AttrLabel ScaleDrawValuePropertyInfo = "draw-value"
type AttrOrigin ScaleDrawValuePropertyInfo = Scale
attrGet = getScaleDrawValue
attrSet = setScaleDrawValue
attrTransfer _ v = do
return v
attrConstruct = constructScaleDrawValue
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.drawValue"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#g:attr:drawValue"
})
#endif
getScaleHasOrigin :: (MonadIO m, IsScale o) => o -> m Bool
getScaleHasOrigin :: forall (m :: * -> *) o. (MonadIO m, IsScale o) => o -> m Bool
getScaleHasOrigin o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-origin"
setScaleHasOrigin :: (MonadIO m, IsScale o) => o -> Bool -> m ()
setScaleHasOrigin :: forall (m :: * -> *) o. (MonadIO m, IsScale o) => o -> Bool -> m ()
setScaleHasOrigin o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-origin" Bool
val
constructScaleHasOrigin :: (IsScale o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructScaleHasOrigin :: forall o (m :: * -> *).
(IsScale o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructScaleHasOrigin Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-origin" Bool
val
#if defined(ENABLE_OVERLOADING)
data ScaleHasOriginPropertyInfo
instance AttrInfo ScaleHasOriginPropertyInfo where
type AttrAllowedOps ScaleHasOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleHasOriginPropertyInfo = IsScale
type AttrSetTypeConstraint ScaleHasOriginPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ScaleHasOriginPropertyInfo = (~) Bool
type AttrTransferType ScaleHasOriginPropertyInfo = Bool
type AttrGetType ScaleHasOriginPropertyInfo = Bool
type AttrLabel ScaleHasOriginPropertyInfo = "has-origin"
type AttrOrigin ScaleHasOriginPropertyInfo = Scale
attrGet = getScaleHasOrigin
attrSet = setScaleHasOrigin
attrTransfer _ v = do
return v
attrConstruct = constructScaleHasOrigin
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.hasOrigin"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#g:attr:hasOrigin"
})
#endif
getScaleValuePos :: (MonadIO m, IsScale o) => o -> m Gtk.Enums.PositionType
getScaleValuePos :: forall (m :: * -> *) o.
(MonadIO m, IsScale o) =>
o -> m PositionType
getScaleValuePos o
obj = IO PositionType -> m PositionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PositionType -> m PositionType)
-> IO PositionType -> m PositionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PositionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"value-pos"
setScaleValuePos :: (MonadIO m, IsScale o) => o -> Gtk.Enums.PositionType -> m ()
setScaleValuePos :: forall (m :: * -> *) o.
(MonadIO m, IsScale o) =>
o -> PositionType -> m ()
setScaleValuePos o
obj PositionType
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 -> PositionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"value-pos" PositionType
val
constructScaleValuePos :: (IsScale o, MIO.MonadIO m) => Gtk.Enums.PositionType -> m (GValueConstruct o)
constructScaleValuePos :: forall o (m :: * -> *).
(IsScale o, MonadIO m) =>
PositionType -> m (GValueConstruct o)
constructScaleValuePos PositionType
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 -> PositionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"value-pos" PositionType
val
#if defined(ENABLE_OVERLOADING)
data ScaleValuePosPropertyInfo
instance AttrInfo ScaleValuePosPropertyInfo where
type AttrAllowedOps ScaleValuePosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleValuePosPropertyInfo = IsScale
type AttrSetTypeConstraint ScaleValuePosPropertyInfo = (~) Gtk.Enums.PositionType
type AttrTransferTypeConstraint ScaleValuePosPropertyInfo = (~) Gtk.Enums.PositionType
type AttrTransferType ScaleValuePosPropertyInfo = Gtk.Enums.PositionType
type AttrGetType ScaleValuePosPropertyInfo = Gtk.Enums.PositionType
type AttrLabel ScaleValuePosPropertyInfo = "value-pos"
type AttrOrigin ScaleValuePosPropertyInfo = Scale
attrGet = getScaleValuePos
attrSet = setScaleValuePos
attrTransfer _ v = do
return v
attrConstruct = constructScaleValuePos
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.valuePos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#g:attr:valuePos"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Scale
type instance O.AttributeList Scale = ScaleAttributeList
type ScaleAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("adjustment", Gtk.Range.RangeAdjustmentPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("fillLevel", Gtk.Range.RangeFillLevelPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("inverted", Gtk.Range.RangeInvertedPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", Gtk.Range.RangeRestrictToFillLevelPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("roundDigits", Gtk.Range.RangeRoundDigitsPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showFillLevel", Gtk.Range.RangeShowFillLevelPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
scaleDigits :: AttrLabelProxy "digits"
scaleDigits = AttrLabelProxy
scaleDrawValue :: AttrLabelProxy "drawValue"
scaleDrawValue = AttrLabelProxy
scaleHasOrigin :: AttrLabelProxy "hasOrigin"
scaleHasOrigin = AttrLabelProxy
scaleValuePos :: AttrLabelProxy "valuePos"
scaleValuePos = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Scale = ScaleSignalList
type ScaleSignalList = ('[ '("adjustBounds", Gtk.Range.RangeAdjustBoundsSignalInfo), '("changeValue", Gtk.Range.RangeChangeValueSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveSlider", Gtk.Range.RangeMoveSliderSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("valueChanged", Gtk.Range.RangeValueChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_scale_new" gtk_scale_new ::
CUInt ->
Ptr Gtk.Adjustment.Adjustment ->
IO (Ptr Scale)
scaleNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Adjustment.IsAdjustment a) =>
Gtk.Enums.Orientation
-> Maybe (a)
-> m Scale
scaleNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAdjustment a) =>
Orientation -> Maybe a -> m Scale
scaleNew Orientation
orientation Maybe a
adjustment = IO Scale -> m Scale
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Scale -> m Scale) -> IO Scale -> m Scale
forall a b. (a -> b) -> a -> b
$ do
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr Adjustment
maybeAdjustment <- case Maybe a
adjustment of
Maybe a
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just a
jAdjustment -> do
Ptr Adjustment
jAdjustment' <- a -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jAdjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jAdjustment'
Ptr Scale
result <- CUInt -> Ptr Adjustment -> IO (Ptr Scale)
gtk_scale_new CUInt
orientation' Ptr Adjustment
maybeAdjustment
Text -> Ptr Scale -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleNew" Ptr Scale
result
Scale
result' <- ((ManagedPtr Scale -> Scale) -> Ptr Scale -> IO Scale
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Scale -> Scale
Scale) Ptr Scale
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
adjustment a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Scale -> IO Scale
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Scale
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_scale_new_with_range" gtk_scale_new_with_range ::
CUInt ->
CDouble ->
CDouble ->
CDouble ->
IO (Ptr Scale)
scaleNewWithRange ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.Orientation
-> Double
-> Double
-> Double
-> m Scale
scaleNewWithRange :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Orientation -> Double -> Double -> Double -> m Scale
scaleNewWithRange Orientation
orientation Double
min Double
max Double
step = IO Scale -> m Scale
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Scale -> m Scale) -> IO Scale -> m Scale
forall a b. (a -> b) -> a -> b
$ do
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
let min' :: CDouble
min' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
min
let max' :: CDouble
max' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
max
let step' :: CDouble
step' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
step
Ptr Scale
result <- CUInt -> CDouble -> CDouble -> CDouble -> IO (Ptr Scale)
gtk_scale_new_with_range CUInt
orientation' CDouble
min' CDouble
max' CDouble
step'
Text -> Ptr Scale -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleNewWithRange" Ptr Scale
result
Scale
result' <- ((ManagedPtr Scale -> Scale) -> Ptr Scale -> IO Scale
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Scale -> Scale
Scale) Ptr Scale
result
Scale -> IO Scale
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Scale
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_scale_add_mark" gtk_scale_add_mark ::
Ptr Scale ->
CDouble ->
CUInt ->
CString ->
IO ()
scaleAddMark ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> Double
-> Gtk.Enums.PositionType
-> Maybe (T.Text)
-> m ()
scaleAddMark :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> Double -> PositionType -> Maybe Text -> m ()
scaleAddMark a
scale Double
value PositionType
position Maybe Text
markup = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PositionType -> Int) -> PositionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PositionType -> Int
forall a. Enum a => a -> Int
fromEnum) PositionType
position
Ptr CChar
maybeMarkup <- case Maybe Text
markup of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jMarkup -> do
Ptr CChar
jMarkup' <- Text -> IO (Ptr CChar)
textToCString Text
jMarkup
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jMarkup'
Ptr Scale -> CDouble -> CUInt -> Ptr CChar -> IO ()
gtk_scale_add_mark Ptr Scale
scale' CDouble
value' CUInt
position' Ptr CChar
maybeMarkup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeMarkup
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleAddMarkMethodInfo
instance (signature ~ (Double -> Gtk.Enums.PositionType -> Maybe (T.Text) -> m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleAddMarkMethodInfo a signature where
overloadedMethod = scaleAddMark
instance O.OverloadedMethodInfo ScaleAddMarkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleAddMark",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleAddMark"
})
#endif
foreign import ccall "gtk_scale_clear_marks" gtk_scale_clear_marks ::
Ptr Scale ->
IO ()
scaleClearMarks ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m ()
scaleClearMarks :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m ()
scaleClearMarks a
scale = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
Ptr Scale -> IO ()
gtk_scale_clear_marks Ptr Scale
scale'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleClearMarksMethodInfo
instance (signature ~ (m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleClearMarksMethodInfo a signature where
overloadedMethod = scaleClearMarks
instance O.OverloadedMethodInfo ScaleClearMarksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleClearMarks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleClearMarks"
})
#endif
foreign import ccall "gtk_scale_get_digits" gtk_scale_get_digits ::
Ptr Scale ->
IO Int32
scaleGetDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m Int32
scaleGetDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m Int32
scaleGetDigits a
scale = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
Int32
result <- Ptr Scale -> IO Int32
gtk_scale_get_digits Ptr Scale
scale'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ScaleGetDigitsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsScale a) => O.OverloadedMethod ScaleGetDigitsMethodInfo a signature where
overloadedMethod = scaleGetDigits
instance O.OverloadedMethodInfo ScaleGetDigitsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleGetDigits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleGetDigits"
})
#endif
foreign import ccall "gtk_scale_get_draw_value" gtk_scale_get_draw_value ::
Ptr Scale ->
IO CInt
scaleGetDrawValue ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m Bool
scaleGetDrawValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m Bool
scaleGetDrawValue a
scale = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
CInt
result <- Ptr Scale -> IO CInt
gtk_scale_get_draw_value Ptr Scale
scale'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScaleGetDrawValueMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScale a) => O.OverloadedMethod ScaleGetDrawValueMethodInfo a signature where
overloadedMethod = scaleGetDrawValue
instance O.OverloadedMethodInfo ScaleGetDrawValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleGetDrawValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleGetDrawValue"
})
#endif
foreign import ccall "gtk_scale_get_has_origin" gtk_scale_get_has_origin ::
Ptr Scale ->
IO CInt
scaleGetHasOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m Bool
scaleGetHasOrigin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m Bool
scaleGetHasOrigin a
scale = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
CInt
result <- Ptr Scale -> IO CInt
gtk_scale_get_has_origin Ptr Scale
scale'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScaleGetHasOriginMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScale a) => O.OverloadedMethod ScaleGetHasOriginMethodInfo a signature where
overloadedMethod = scaleGetHasOrigin
instance O.OverloadedMethodInfo ScaleGetHasOriginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleGetHasOrigin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleGetHasOrigin"
})
#endif
foreign import ccall "gtk_scale_get_layout" gtk_scale_get_layout ::
Ptr Scale ->
IO (Ptr Pango.Layout.Layout)
scaleGetLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m (Maybe Pango.Layout.Layout)
scaleGetLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m (Maybe Layout)
scaleGetLayout a
scale = IO (Maybe Layout) -> m (Maybe Layout)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Layout) -> m (Maybe Layout))
-> IO (Maybe Layout) -> m (Maybe Layout)
forall a b. (a -> b) -> a -> b
$ do
Ptr Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
Ptr Layout
result <- Ptr Scale -> IO (Ptr Layout)
gtk_scale_get_layout Ptr Scale
scale'
Maybe Layout
maybeResult <- Ptr Layout -> (Ptr Layout -> IO Layout) -> IO (Maybe Layout)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Layout
result ((Ptr Layout -> IO Layout) -> IO (Maybe Layout))
-> (Ptr Layout -> IO Layout) -> IO (Maybe Layout)
forall a b. (a -> b) -> a -> b
$ \Ptr Layout
result' -> do
Layout
result'' <- ((ManagedPtr Layout -> Layout) -> Ptr Layout -> IO Layout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Layout -> Layout
Pango.Layout.Layout) Ptr Layout
result'
Layout -> IO Layout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Layout
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
Maybe Layout -> IO (Maybe Layout)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Layout
maybeResult
#if defined(ENABLE_OVERLOADING)
data ScaleGetLayoutMethodInfo
instance (signature ~ (m (Maybe Pango.Layout.Layout)), MonadIO m, IsScale a) => O.OverloadedMethod ScaleGetLayoutMethodInfo a signature where
overloadedMethod = scaleGetLayout
instance O.OverloadedMethodInfo ScaleGetLayoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleGetLayout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleGetLayout"
})
#endif
foreign import ccall "gtk_scale_get_layout_offsets" gtk_scale_get_layout_offsets ::
Ptr Scale ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
scaleGetLayoutOffsets ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m ((Int32, Int32))
scaleGetLayoutOffsets :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m (Int32, Int32)
scaleGetLayoutOffsets a
scale = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
Ptr Int32
x <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
y <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Scale -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_scale_get_layout_offsets Ptr Scale
scale' Ptr Int32
x Ptr Int32
y
Int32
x' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x
Int32
y' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
x', Int32
y')
#if defined(ENABLE_OVERLOADING)
data ScaleGetLayoutOffsetsMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsScale a) => O.OverloadedMethod ScaleGetLayoutOffsetsMethodInfo a signature where
overloadedMethod = scaleGetLayoutOffsets
instance O.OverloadedMethodInfo ScaleGetLayoutOffsetsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleGetLayoutOffsets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleGetLayoutOffsets"
})
#endif
foreign import ccall "gtk_scale_get_value_pos" gtk_scale_get_value_pos ::
Ptr Scale ->
IO CUInt
scaleGetValuePos ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> m Gtk.Enums.PositionType
scaleGetValuePos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> m PositionType
scaleGetValuePos a
scale = IO PositionType -> m PositionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PositionType -> m PositionType)
-> IO PositionType -> m PositionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
CUInt
result <- Ptr Scale -> IO CUInt
gtk_scale_get_value_pos Ptr Scale
scale'
let result' :: PositionType
result' = (Int -> PositionType
forall a. Enum a => Int -> a
toEnum (Int -> PositionType) -> (CUInt -> Int) -> CUInt -> PositionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
PositionType -> IO PositionType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PositionType
result'
#if defined(ENABLE_OVERLOADING)
data ScaleGetValuePosMethodInfo
instance (signature ~ (m Gtk.Enums.PositionType), MonadIO m, IsScale a) => O.OverloadedMethod ScaleGetValuePosMethodInfo a signature where
overloadedMethod = scaleGetValuePos
instance O.OverloadedMethodInfo ScaleGetValuePosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleGetValuePos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleGetValuePos"
})
#endif
foreign import ccall "gtk_scale_set_digits" gtk_scale_set_digits ::
Ptr Scale ->
Int32 ->
IO ()
scaleSetDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> Int32
-> m ()
scaleSetDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> Int32 -> m ()
scaleSetDigits a
scale Int32
digits = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
Ptr Scale -> Int32 -> IO ()
gtk_scale_set_digits Ptr Scale
scale' Int32
digits
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleSetDigitsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleSetDigitsMethodInfo a signature where
overloadedMethod = scaleSetDigits
instance O.OverloadedMethodInfo ScaleSetDigitsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleSetDigits",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleSetDigits"
})
#endif
foreign import ccall "gtk_scale_set_draw_value" gtk_scale_set_draw_value ::
Ptr Scale ->
CInt ->
IO ()
scaleSetDrawValue ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> Bool
-> m ()
scaleSetDrawValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> Bool -> m ()
scaleSetDrawValue a
scale Bool
drawValue = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
let drawValue' :: CInt
drawValue' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
drawValue
Ptr Scale -> CInt -> IO ()
gtk_scale_set_draw_value Ptr Scale
scale' CInt
drawValue'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleSetDrawValueMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleSetDrawValueMethodInfo a signature where
overloadedMethod = scaleSetDrawValue
instance O.OverloadedMethodInfo ScaleSetDrawValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleSetDrawValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleSetDrawValue"
})
#endif
foreign import ccall "gtk_scale_set_format_value_func" gtk_scale_set_format_value_func ::
Ptr Scale ->
FunPtr Gtk.Callbacks.C_ScaleFormatValueFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
scaleSetFormatValueFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> Maybe (Gtk.Callbacks.ScaleFormatValueFunc)
-> m ()
scaleSetFormatValueFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> Maybe ScaleFormatValueFunc -> m ()
scaleSetFormatValueFunc a
scale Maybe ScaleFormatValueFunc
func = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
FunPtr C_ScaleFormatValueFunc
maybeFunc <- case Maybe ScaleFormatValueFunc
func of
Maybe ScaleFormatValueFunc
Nothing -> FunPtr C_ScaleFormatValueFunc -> IO (FunPtr C_ScaleFormatValueFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_ScaleFormatValueFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just ScaleFormatValueFunc
jFunc -> do
FunPtr C_ScaleFormatValueFunc
jFunc' <- C_ScaleFormatValueFunc -> IO (FunPtr C_ScaleFormatValueFunc)
Gtk.Callbacks.mk_ScaleFormatValueFunc (Maybe (Ptr (FunPtr C_ScaleFormatValueFunc))
-> ScaleFormatValueFunc_WithClosures -> C_ScaleFormatValueFunc
Gtk.Callbacks.wrap_ScaleFormatValueFunc Maybe (Ptr (FunPtr C_ScaleFormatValueFunc))
forall a. Maybe a
Nothing (ScaleFormatValueFunc -> ScaleFormatValueFunc_WithClosures
Gtk.Callbacks.drop_closures_ScaleFormatValueFunc ScaleFormatValueFunc
jFunc))
FunPtr C_ScaleFormatValueFunc -> IO (FunPtr C_ScaleFormatValueFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ScaleFormatValueFunc
jFunc'
let userData :: Ptr ()
userData = FunPtr C_ScaleFormatValueFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ScaleFormatValueFunc
maybeFunc
let destroyNotify :: FunPtr (Ptr a -> IO ())
destroyNotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Scale
-> FunPtr C_ScaleFormatValueFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_scale_set_format_value_func Ptr Scale
scale' FunPtr C_ScaleFormatValueFunc
maybeFunc Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroyNotify
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleSetFormatValueFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.ScaleFormatValueFunc) -> m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleSetFormatValueFuncMethodInfo a signature where
overloadedMethod = scaleSetFormatValueFunc
instance O.OverloadedMethodInfo ScaleSetFormatValueFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleSetFormatValueFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleSetFormatValueFunc"
})
#endif
foreign import ccall "gtk_scale_set_has_origin" gtk_scale_set_has_origin ::
Ptr Scale ->
CInt ->
IO ()
scaleSetHasOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> Bool
-> m ()
scaleSetHasOrigin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> Bool -> m ()
scaleSetHasOrigin a
scale Bool
hasOrigin = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
let hasOrigin' :: CInt
hasOrigin' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
hasOrigin
Ptr Scale -> CInt -> IO ()
gtk_scale_set_has_origin Ptr Scale
scale' CInt
hasOrigin'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleSetHasOriginMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleSetHasOriginMethodInfo a signature where
overloadedMethod = scaleSetHasOrigin
instance O.OverloadedMethodInfo ScaleSetHasOriginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleSetHasOrigin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleSetHasOrigin"
})
#endif
foreign import ccall "gtk_scale_set_value_pos" gtk_scale_set_value_pos ::
Ptr Scale ->
CUInt ->
IO ()
scaleSetValuePos ::
(B.CallStack.HasCallStack, MonadIO m, IsScale a) =>
a
-> Gtk.Enums.PositionType
-> m ()
scaleSetValuePos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScale a) =>
a -> PositionType -> m ()
scaleSetValuePos a
scale PositionType
pos = 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 Scale
scale' <- a -> IO (Ptr Scale)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
scale
let pos' :: CUInt
pos' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PositionType -> Int) -> PositionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PositionType -> Int
forall a. Enum a => a -> Int
fromEnum) PositionType
pos
Ptr Scale -> CUInt -> IO ()
gtk_scale_set_value_pos Ptr Scale
scale' CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
scale
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleSetValuePosMethodInfo
instance (signature ~ (Gtk.Enums.PositionType -> m ()), MonadIO m, IsScale a) => O.OverloadedMethod ScaleSetValuePosMethodInfo a signature where
overloadedMethod = scaleSetValuePos
instance O.OverloadedMethodInfo ScaleSetValuePosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Scale.scaleSetValuePos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Scale.html#v:scaleSetValuePos"
})
#endif