{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ScaleButton
(
ScaleButton(..) ,
IsScaleButton ,
toScaleButton ,
#if defined(ENABLE_OVERLOADING)
ResolveScaleButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ScaleButtonGetActiveMethodInfo ,
#endif
scaleButtonGetActive ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonGetAdjustmentMethodInfo ,
#endif
scaleButtonGetAdjustment ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonGetMinusButtonMethodInfo ,
#endif
scaleButtonGetMinusButton ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonGetPlusButtonMethodInfo ,
#endif
scaleButtonGetPlusButton ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonGetPopupMethodInfo ,
#endif
scaleButtonGetPopup ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonGetValueMethodInfo ,
#endif
scaleButtonGetValue ,
scaleButtonNew ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonSetAdjustmentMethodInfo ,
#endif
scaleButtonSetAdjustment ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonSetIconsMethodInfo ,
#endif
scaleButtonSetIcons ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonSetValueMethodInfo ,
#endif
scaleButtonSetValue ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonActivePropertyInfo ,
#endif
getScaleButtonActive ,
#if defined(ENABLE_OVERLOADING)
scaleButtonActive ,
#endif
#if defined(ENABLE_OVERLOADING)
ScaleButtonAdjustmentPropertyInfo ,
#endif
constructScaleButtonAdjustment ,
getScaleButtonAdjustment ,
#if defined(ENABLE_OVERLOADING)
scaleButtonAdjustment ,
#endif
setScaleButtonAdjustment ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonIconsPropertyInfo ,
#endif
constructScaleButtonIcons ,
getScaleButtonIcons ,
#if defined(ENABLE_OVERLOADING)
scaleButtonIcons ,
#endif
setScaleButtonIcons ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonValuePropertyInfo ,
#endif
constructScaleButtonValue ,
getScaleButtonValue ,
#if defined(ENABLE_OVERLOADING)
scaleButtonValue ,
#endif
setScaleButtonValue ,
ScaleButtonPopdownCallback ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonPopdownSignalInfo ,
#endif
afterScaleButtonPopdown ,
onScaleButtonPopdown ,
ScaleButtonPopupCallback ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonPopupSignalInfo ,
#endif
afterScaleButtonPopup ,
onScaleButtonPopup ,
ScaleButtonValueChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ScaleButtonValueChangedSignalInfo ,
#endif
afterScaleButtonValueChanged ,
onScaleButtonValueChanged ,
) 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.GObject.Objects.Object as GObject.Object
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.Button as Gtk.Button
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype ScaleButton = ScaleButton (SP.ManagedPtr ScaleButton)
deriving (ScaleButton -> ScaleButton -> Bool
(ScaleButton -> ScaleButton -> Bool)
-> (ScaleButton -> ScaleButton -> Bool) -> Eq ScaleButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScaleButton -> ScaleButton -> Bool
== :: ScaleButton -> ScaleButton -> Bool
$c/= :: ScaleButton -> ScaleButton -> Bool
/= :: ScaleButton -> ScaleButton -> Bool
Eq)
instance SP.ManagedPtrNewtype ScaleButton where
toManagedPtr :: ScaleButton -> ManagedPtr ScaleButton
toManagedPtr (ScaleButton ManagedPtr ScaleButton
p) = ManagedPtr ScaleButton
p
foreign import ccall "gtk_scale_button_get_type"
c_gtk_scale_button_get_type :: IO B.Types.GType
instance B.Types.TypedObject ScaleButton where
glibType :: IO GType
glibType = IO GType
c_gtk_scale_button_get_type
instance B.Types.GObject ScaleButton
class (SP.GObject o, O.IsDescendantOf ScaleButton o) => IsScaleButton o
instance (SP.GObject o, O.IsDescendantOf ScaleButton o) => IsScaleButton o
instance O.HasParentTypes ScaleButton
type instance O.ParentTypes ScaleButton = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.AccessibleRange.AccessibleRange, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toScaleButton :: (MIO.MonadIO m, IsScaleButton o) => o -> m ScaleButton
toScaleButton :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButton o) =>
o -> m ScaleButton
toScaleButton = IO ScaleButton -> m ScaleButton
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ScaleButton -> m ScaleButton)
-> (o -> IO ScaleButton) -> o -> m ScaleButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ScaleButton -> ScaleButton) -> o -> IO ScaleButton
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ScaleButton -> ScaleButton
ScaleButton
instance B.GValue.IsGValue (Maybe ScaleButton) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_scale_button_get_type
gvalueSet_ :: Ptr GValue -> Maybe ScaleButton -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ScaleButton
P.Nothing = Ptr GValue -> Ptr ScaleButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ScaleButton
forall a. Ptr a
FP.nullPtr :: FP.Ptr ScaleButton)
gvalueSet_ Ptr GValue
gv (P.Just ScaleButton
obj) = ScaleButton -> (Ptr ScaleButton -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScaleButton
obj (Ptr GValue -> Ptr ScaleButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ScaleButton)
gvalueGet_ Ptr GValue
gv = do
Ptr ScaleButton
ptr <- Ptr GValue -> IO (Ptr ScaleButton)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ScaleButton)
if Ptr ScaleButton
ptr Ptr ScaleButton -> Ptr ScaleButton -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ScaleButton
forall a. Ptr a
FP.nullPtr
then ScaleButton -> Maybe ScaleButton
forall a. a -> Maybe a
P.Just (ScaleButton -> Maybe ScaleButton)
-> IO ScaleButton -> IO (Maybe ScaleButton)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ScaleButton -> ScaleButton)
-> Ptr ScaleButton -> IO ScaleButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ScaleButton -> ScaleButton
ScaleButton Ptr ScaleButton
ptr
else Maybe ScaleButton -> IO (Maybe ScaleButton)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ScaleButton
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveScaleButtonMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveScaleButtonMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveScaleButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveScaleButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveScaleButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveScaleButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveScaleButtonMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveScaleButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveScaleButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveScaleButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveScaleButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveScaleButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveScaleButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveScaleButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveScaleButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveScaleButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveScaleButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveScaleButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveScaleButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveScaleButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveScaleButtonMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveScaleButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveScaleButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveScaleButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveScaleButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveScaleButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveScaleButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveScaleButtonMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveScaleButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveScaleButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveScaleButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveScaleButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveScaleButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveScaleButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveScaleButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveScaleButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveScaleButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveScaleButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveScaleButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveScaleButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveScaleButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveScaleButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveScaleButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveScaleButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveScaleButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveScaleButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveScaleButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveScaleButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveScaleButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveScaleButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveScaleButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveScaleButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveScaleButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveScaleButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveScaleButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveScaleButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveScaleButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveScaleButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveScaleButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveScaleButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveScaleButtonMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveScaleButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveScaleButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveScaleButtonMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveScaleButtonMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveScaleButtonMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveScaleButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveScaleButtonMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveScaleButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveScaleButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveScaleButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveScaleButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveScaleButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveScaleButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveScaleButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveScaleButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveScaleButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveScaleButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveScaleButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveScaleButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveScaleButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveScaleButtonMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveScaleButtonMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveScaleButtonMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveScaleButtonMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveScaleButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveScaleButtonMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveScaleButtonMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveScaleButtonMethod "getActive" o = ScaleButtonGetActiveMethodInfo
ResolveScaleButtonMethod "getAdjustment" o = ScaleButtonGetAdjustmentMethodInfo
ResolveScaleButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveScaleButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveScaleButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveScaleButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveScaleButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveScaleButtonMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveScaleButtonMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveScaleButtonMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveScaleButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveScaleButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveScaleButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveScaleButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveScaleButtonMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveScaleButtonMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveScaleButtonMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveScaleButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveScaleButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveScaleButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveScaleButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveScaleButtonMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveScaleButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveScaleButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveScaleButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveScaleButtonMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveScaleButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveScaleButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveScaleButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveScaleButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveScaleButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveScaleButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveScaleButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveScaleButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveScaleButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveScaleButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveScaleButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveScaleButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveScaleButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveScaleButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveScaleButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveScaleButtonMethod "getMinusButton" o = ScaleButtonGetMinusButtonMethodInfo
ResolveScaleButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveScaleButtonMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveScaleButtonMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveScaleButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveScaleButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveScaleButtonMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveScaleButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveScaleButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveScaleButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveScaleButtonMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveScaleButtonMethod "getPlusButton" o = ScaleButtonGetPlusButtonMethodInfo
ResolveScaleButtonMethod "getPopup" o = ScaleButtonGetPopupMethodInfo
ResolveScaleButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveScaleButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveScaleButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveScaleButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveScaleButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveScaleButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveScaleButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveScaleButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveScaleButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveScaleButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveScaleButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveScaleButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveScaleButtonMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveScaleButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveScaleButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveScaleButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveScaleButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveScaleButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveScaleButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveScaleButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveScaleButtonMethod "getValue" o = ScaleButtonGetValueMethodInfo
ResolveScaleButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveScaleButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveScaleButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveScaleButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveScaleButtonMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveScaleButtonMethod "setAdjustment" o = ScaleButtonSetAdjustmentMethodInfo
ResolveScaleButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveScaleButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveScaleButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveScaleButtonMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveScaleButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveScaleButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveScaleButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveScaleButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveScaleButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveScaleButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveScaleButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveScaleButtonMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveScaleButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveScaleButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveScaleButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveScaleButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveScaleButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveScaleButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveScaleButtonMethod "setIcons" o = ScaleButtonSetIconsMethodInfo
ResolveScaleButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveScaleButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveScaleButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveScaleButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveScaleButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveScaleButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveScaleButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveScaleButtonMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveScaleButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveScaleButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveScaleButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveScaleButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveScaleButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveScaleButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveScaleButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveScaleButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveScaleButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveScaleButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveScaleButtonMethod "setValue" o = ScaleButtonSetValueMethodInfo
ResolveScaleButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveScaleButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveScaleButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveScaleButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScaleButtonMethod t ScaleButton, O.OverloadedMethod info ScaleButton p) => OL.IsLabel t (ScaleButton -> 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 ~ ResolveScaleButtonMethod t ScaleButton, O.OverloadedMethod info ScaleButton p, R.HasField t ScaleButton p) => R.HasField t ScaleButton p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveScaleButtonMethod t ScaleButton, O.OverloadedMethodInfo info ScaleButton) => OL.IsLabel t (O.MethodProxy info ScaleButton) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ScaleButtonPopdownCallback =
IO ()
type C_ScaleButtonPopdownCallback =
Ptr ScaleButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ScaleButtonPopdownCallback :: C_ScaleButtonPopdownCallback -> IO (FunPtr C_ScaleButtonPopdownCallback)
wrap_ScaleButtonPopdownCallback ::
GObject a => (a -> ScaleButtonPopdownCallback) ->
C_ScaleButtonPopdownCallback
wrap_ScaleButtonPopdownCallback :: forall a. GObject a => (a -> IO ()) -> C_ScaleButtonPopdownCallback
wrap_ScaleButtonPopdownCallback a -> IO ()
gi'cb Ptr ScaleButton
gi'selfPtr Ptr ()
_ = do
Ptr ScaleButton -> (ScaleButton -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ScaleButton
gi'selfPtr ((ScaleButton -> IO ()) -> IO ())
-> (ScaleButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ScaleButton
gi'self -> a -> IO ()
gi'cb (ScaleButton -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ScaleButton
gi'self)
onScaleButtonPopdown :: (IsScaleButton a, MonadIO m) => a -> ((?self :: a) => ScaleButtonPopdownCallback) -> m SignalHandlerId
onScaleButtonPopdown :: forall a (m :: * -> *).
(IsScaleButton a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onScaleButtonPopdown a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ScaleButtonPopdownCallback
wrapped' = (a -> IO ()) -> C_ScaleButtonPopdownCallback
forall a. GObject a => (a -> IO ()) -> C_ScaleButtonPopdownCallback
wrap_ScaleButtonPopdownCallback a -> IO ()
wrapped
FunPtr C_ScaleButtonPopdownCallback
wrapped'' <- C_ScaleButtonPopdownCallback
-> IO (FunPtr C_ScaleButtonPopdownCallback)
mk_ScaleButtonPopdownCallback C_ScaleButtonPopdownCallback
wrapped'
a
-> Text
-> FunPtr C_ScaleButtonPopdownCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popdown" FunPtr C_ScaleButtonPopdownCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScaleButtonPopdown :: (IsScaleButton a, MonadIO m) => a -> ((?self :: a) => ScaleButtonPopdownCallback) -> m SignalHandlerId
afterScaleButtonPopdown :: forall a (m :: * -> *).
(IsScaleButton a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterScaleButtonPopdown a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ScaleButtonPopdownCallback
wrapped' = (a -> IO ()) -> C_ScaleButtonPopdownCallback
forall a. GObject a => (a -> IO ()) -> C_ScaleButtonPopdownCallback
wrap_ScaleButtonPopdownCallback a -> IO ()
wrapped
FunPtr C_ScaleButtonPopdownCallback
wrapped'' <- C_ScaleButtonPopdownCallback
-> IO (FunPtr C_ScaleButtonPopdownCallback)
mk_ScaleButtonPopdownCallback C_ScaleButtonPopdownCallback
wrapped'
a
-> Text
-> FunPtr C_ScaleButtonPopdownCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popdown" FunPtr C_ScaleButtonPopdownCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScaleButtonPopdownSignalInfo
instance SignalInfo ScaleButtonPopdownSignalInfo where
type HaskellCallbackType ScaleButtonPopdownSignalInfo = ScaleButtonPopdownCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScaleButtonPopdownCallback cb
cb'' <- mk_ScaleButtonPopdownCallback cb'
connectSignalFunPtr obj "popdown" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton::popdown"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:signal:popdown"})
#endif
type =
IO ()
type =
Ptr ScaleButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_ScaleButtonPopupCallback -> IO (FunPtr C_ScaleButtonPopupCallback)
wrap_ScaleButtonPopupCallback ::
GObject a => (a -> ScaleButtonPopupCallback) ->
C_ScaleButtonPopupCallback
a -> IO ()
gi'cb Ptr ScaleButton
gi'selfPtr Ptr ()
_ = do
Ptr ScaleButton -> (ScaleButton -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ScaleButton
gi'selfPtr ((ScaleButton -> IO ()) -> IO ())
-> (ScaleButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ScaleButton
gi'self -> a -> IO ()
gi'cb (ScaleButton -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ScaleButton
gi'self)
onScaleButtonPopup :: (IsScaleButton a, MonadIO m) => a -> ((?self :: a) => ScaleButtonPopupCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ScaleButtonPopdownCallback
wrapped' = (a -> IO ()) -> C_ScaleButtonPopdownCallback
forall a. GObject a => (a -> IO ()) -> C_ScaleButtonPopdownCallback
wrap_ScaleButtonPopupCallback a -> IO ()
wrapped
FunPtr C_ScaleButtonPopdownCallback
wrapped'' <- C_ScaleButtonPopdownCallback
-> IO (FunPtr C_ScaleButtonPopdownCallback)
mk_ScaleButtonPopupCallback C_ScaleButtonPopdownCallback
wrapped'
a
-> Text
-> FunPtr C_ScaleButtonPopdownCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popup" FunPtr C_ScaleButtonPopdownCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScaleButtonPopup :: (IsScaleButton a, MonadIO m) => a -> ((?self :: a) => ScaleButtonPopupCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ScaleButtonPopdownCallback
wrapped' = (a -> IO ()) -> C_ScaleButtonPopdownCallback
forall a. GObject a => (a -> IO ()) -> C_ScaleButtonPopdownCallback
wrap_ScaleButtonPopupCallback a -> IO ()
wrapped
FunPtr C_ScaleButtonPopdownCallback
wrapped'' <- C_ScaleButtonPopdownCallback
-> IO (FunPtr C_ScaleButtonPopdownCallback)
mk_ScaleButtonPopupCallback C_ScaleButtonPopdownCallback
wrapped'
a
-> Text
-> FunPtr C_ScaleButtonPopdownCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popup" FunPtr C_ScaleButtonPopdownCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScaleButtonPopupSignalInfo
instance SignalInfo ScaleButtonPopupSignalInfo where
type HaskellCallbackType ScaleButtonPopupSignalInfo = ScaleButtonPopupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScaleButtonPopupCallback cb
cb'' <- mk_ScaleButtonPopupCallback cb'
connectSignalFunPtr obj "popup" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton::popup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:signal:popup"})
#endif
type ScaleButtonValueChangedCallback =
Double
-> IO ()
type C_ScaleButtonValueChangedCallback =
Ptr ScaleButton ->
CDouble ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ScaleButtonValueChangedCallback :: C_ScaleButtonValueChangedCallback -> IO (FunPtr C_ScaleButtonValueChangedCallback)
wrap_ScaleButtonValueChangedCallback ::
GObject a => (a -> ScaleButtonValueChangedCallback) ->
C_ScaleButtonValueChangedCallback
wrap_ScaleButtonValueChangedCallback :: forall a.
GObject a =>
(a -> ScaleButtonValueChangedCallback)
-> C_ScaleButtonValueChangedCallback
wrap_ScaleButtonValueChangedCallback a -> ScaleButtonValueChangedCallback
gi'cb Ptr ScaleButton
gi'selfPtr CDouble
value Ptr ()
_ = do
let value' :: Double
value' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value
Ptr ScaleButton -> (ScaleButton -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ScaleButton
gi'selfPtr ((ScaleButton -> IO ()) -> IO ())
-> (ScaleButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ScaleButton
gi'self -> a -> ScaleButtonValueChangedCallback
gi'cb (ScaleButton -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ScaleButton
gi'self) Double
value'
onScaleButtonValueChanged :: (IsScaleButton a, MonadIO m) => a -> ((?self :: a) => ScaleButtonValueChangedCallback) -> m SignalHandlerId
onScaleButtonValueChanged :: forall a (m :: * -> *).
(IsScaleButton a, MonadIO m) =>
a
-> ((?self::a) => ScaleButtonValueChangedCallback)
-> m SignalHandlerId
onScaleButtonValueChanged a
obj (?self::a) => ScaleButtonValueChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ScaleButtonValueChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ScaleButtonValueChangedCallback
ScaleButtonValueChangedCallback
cb
let wrapped' :: C_ScaleButtonValueChangedCallback
wrapped' = (a -> ScaleButtonValueChangedCallback)
-> C_ScaleButtonValueChangedCallback
forall a.
GObject a =>
(a -> ScaleButtonValueChangedCallback)
-> C_ScaleButtonValueChangedCallback
wrap_ScaleButtonValueChangedCallback a -> ScaleButtonValueChangedCallback
wrapped
FunPtr C_ScaleButtonValueChangedCallback
wrapped'' <- C_ScaleButtonValueChangedCallback
-> IO (FunPtr C_ScaleButtonValueChangedCallback)
mk_ScaleButtonValueChangedCallback C_ScaleButtonValueChangedCallback
wrapped'
a
-> Text
-> FunPtr C_ScaleButtonValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"value-changed" FunPtr C_ScaleButtonValueChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterScaleButtonValueChanged :: (IsScaleButton a, MonadIO m) => a -> ((?self :: a) => ScaleButtonValueChangedCallback) -> m SignalHandlerId
afterScaleButtonValueChanged :: forall a (m :: * -> *).
(IsScaleButton a, MonadIO m) =>
a
-> ((?self::a) => ScaleButtonValueChangedCallback)
-> m SignalHandlerId
afterScaleButtonValueChanged a
obj (?self::a) => ScaleButtonValueChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ScaleButtonValueChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ScaleButtonValueChangedCallback
ScaleButtonValueChangedCallback
cb
let wrapped' :: C_ScaleButtonValueChangedCallback
wrapped' = (a -> ScaleButtonValueChangedCallback)
-> C_ScaleButtonValueChangedCallback
forall a.
GObject a =>
(a -> ScaleButtonValueChangedCallback)
-> C_ScaleButtonValueChangedCallback
wrap_ScaleButtonValueChangedCallback a -> ScaleButtonValueChangedCallback
wrapped
FunPtr C_ScaleButtonValueChangedCallback
wrapped'' <- C_ScaleButtonValueChangedCallback
-> IO (FunPtr C_ScaleButtonValueChangedCallback)
mk_ScaleButtonValueChangedCallback C_ScaleButtonValueChangedCallback
wrapped'
a
-> Text
-> FunPtr C_ScaleButtonValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"value-changed" FunPtr C_ScaleButtonValueChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ScaleButtonValueChangedSignalInfo
instance SignalInfo ScaleButtonValueChangedSignalInfo where
type HaskellCallbackType ScaleButtonValueChangedSignalInfo = ScaleButtonValueChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ScaleButtonValueChangedCallback cb
cb'' <- mk_ScaleButtonValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton::value-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:signal:valueChanged"})
#endif
getScaleButtonActive :: (MonadIO m, IsScaleButton o) => o -> m Bool
getScaleButtonActive :: forall (m :: * -> *) o. (MonadIO m, IsScaleButton o) => o -> m Bool
getScaleButtonActive 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
"active"
#if defined(ENABLE_OVERLOADING)
data ScaleButtonActivePropertyInfo
instance AttrInfo ScaleButtonActivePropertyInfo where
type AttrAllowedOps ScaleButtonActivePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ScaleButtonActivePropertyInfo = IsScaleButton
type AttrSetTypeConstraint ScaleButtonActivePropertyInfo = (~) ()
type AttrTransferTypeConstraint ScaleButtonActivePropertyInfo = (~) ()
type AttrTransferType ScaleButtonActivePropertyInfo = ()
type AttrGetType ScaleButtonActivePropertyInfo = Bool
type AttrLabel ScaleButtonActivePropertyInfo = "active"
type AttrOrigin ScaleButtonActivePropertyInfo = ScaleButton
attrGet = getScaleButtonActive
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.active"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:attr:active"
})
#endif
getScaleButtonAdjustment :: (MonadIO m, IsScaleButton o) => o -> m Gtk.Adjustment.Adjustment
getScaleButtonAdjustment :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButton o) =>
o -> m Adjustment
getScaleButtonAdjustment o
obj = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Adjustment) -> IO Adjustment
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getScaleButtonAdjustment" (IO (Maybe Adjustment) -> IO Adjustment)
-> IO (Maybe Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Adjustment -> Adjustment)
-> IO (Maybe Adjustment)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"adjustment" ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment
setScaleButtonAdjustment :: (MonadIO m, IsScaleButton o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setScaleButtonAdjustment :: forall (m :: * -> *) o a.
(MonadIO m, IsScaleButton o, IsAdjustment a) =>
o -> a -> m ()
setScaleButtonAdjustment o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"adjustment" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructScaleButtonAdjustment :: (IsScaleButton o, MIO.MonadIO m, Gtk.Adjustment.IsAdjustment a) => a -> m (GValueConstruct o)
constructScaleButtonAdjustment :: forall o (m :: * -> *) a.
(IsScaleButton o, MonadIO m, IsAdjustment a) =>
a -> m (GValueConstruct o)
constructScaleButtonAdjustment a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"adjustment" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data ScaleButtonAdjustmentPropertyInfo
instance AttrInfo ScaleButtonAdjustmentPropertyInfo where
type AttrAllowedOps ScaleButtonAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleButtonAdjustmentPropertyInfo = IsScaleButton
type AttrSetTypeConstraint ScaleButtonAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferTypeConstraint ScaleButtonAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferType ScaleButtonAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrGetType ScaleButtonAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel ScaleButtonAdjustmentPropertyInfo = "adjustment"
type AttrOrigin ScaleButtonAdjustmentPropertyInfo = ScaleButton
attrGet = getScaleButtonAdjustment
attrSet = setScaleButtonAdjustment
attrTransfer _ v = do
unsafeCastTo Gtk.Adjustment.Adjustment v
attrConstruct = constructScaleButtonAdjustment
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.adjustment"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:attr:adjustment"
})
#endif
getScaleButtonIcons :: (MonadIO m, IsScaleButton o) => o -> m (Maybe [T.Text])
getScaleButtonIcons :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButton o) =>
o -> m (Maybe [Text])
getScaleButtonIcons o
obj = IO (Maybe [Text]) -> m (Maybe [Text])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe [Text]) -> m (Maybe [Text]))
-> IO (Maybe [Text]) -> m (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe [Text])
forall a. GObject a => a -> String -> IO (Maybe [Text])
B.Properties.getObjectPropertyStringArray o
obj String
"icons"
setScaleButtonIcons :: (MonadIO m, IsScaleButton o) => o -> [T.Text] -> m ()
setScaleButtonIcons :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButton o) =>
o -> [Text] -> m ()
setScaleButtonIcons o
obj [Text]
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 -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"icons" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)
constructScaleButtonIcons :: (IsScaleButton o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructScaleButtonIcons :: forall o (m :: * -> *).
(IsScaleButton o, MonadIO m) =>
[Text] -> m (GValueConstruct o)
constructScaleButtonIcons [Text]
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 -> Maybe [Text] -> IO (GValueConstruct o)
forall o. String -> Maybe [Text] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyStringArray String
"icons" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)
#if defined(ENABLE_OVERLOADING)
data ScaleButtonIconsPropertyInfo
instance AttrInfo ScaleButtonIconsPropertyInfo where
type AttrAllowedOps ScaleButtonIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleButtonIconsPropertyInfo = IsScaleButton
type AttrSetTypeConstraint ScaleButtonIconsPropertyInfo = (~) [T.Text]
type AttrTransferTypeConstraint ScaleButtonIconsPropertyInfo = (~) [T.Text]
type AttrTransferType ScaleButtonIconsPropertyInfo = [T.Text]
type AttrGetType ScaleButtonIconsPropertyInfo = (Maybe [T.Text])
type AttrLabel ScaleButtonIconsPropertyInfo = "icons"
type AttrOrigin ScaleButtonIconsPropertyInfo = ScaleButton
attrGet = getScaleButtonIcons
attrSet = setScaleButtonIcons
attrTransfer _ v = do
return v
attrConstruct = constructScaleButtonIcons
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.icons"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:attr:icons"
})
#endif
getScaleButtonValue :: (MonadIO m, IsScaleButton o) => o -> m Double
getScaleButtonValue :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButton o) =>
o -> m Double
getScaleButtonValue o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"value"
setScaleButtonValue :: (MonadIO m, IsScaleButton o) => o -> Double -> m ()
setScaleButtonValue :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButton o) =>
o -> Double -> m ()
setScaleButtonValue o
obj Double
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 -> ScaleButtonValueChangedCallback
forall a.
GObject a =>
a -> String -> ScaleButtonValueChangedCallback
B.Properties.setObjectPropertyDouble o
obj String
"value" Double
val
constructScaleButtonValue :: (IsScaleButton o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructScaleButtonValue :: forall o (m :: * -> *).
(IsScaleButton o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructScaleButtonValue Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"value" Double
val
#if defined(ENABLE_OVERLOADING)
data ScaleButtonValuePropertyInfo
instance AttrInfo ScaleButtonValuePropertyInfo where
type AttrAllowedOps ScaleButtonValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ScaleButtonValuePropertyInfo = IsScaleButton
type AttrSetTypeConstraint ScaleButtonValuePropertyInfo = (~) Double
type AttrTransferTypeConstraint ScaleButtonValuePropertyInfo = (~) Double
type AttrTransferType ScaleButtonValuePropertyInfo = Double
type AttrGetType ScaleButtonValuePropertyInfo = Double
type AttrLabel ScaleButtonValuePropertyInfo = "value"
type AttrOrigin ScaleButtonValuePropertyInfo = ScaleButton
attrGet = getScaleButtonValue
attrSet = setScaleButtonValue
attrTransfer _ v = do
return v
attrConstruct = constructScaleButtonValue
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.value"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#g:attr:value"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScaleButton
type instance O.AttributeList ScaleButton = ScaleButtonAttributeList
type ScaleButtonAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("active", ScaleButtonActivePropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("icons", ScaleButtonIconsPropertyInfo), '("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), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
scaleButtonActive :: AttrLabelProxy "active"
scaleButtonActive = AttrLabelProxy
scaleButtonAdjustment :: AttrLabelProxy "adjustment"
scaleButtonAdjustment = AttrLabelProxy
scaleButtonIcons :: AttrLabelProxy "icons"
scaleButtonIcons = AttrLabelProxy
scaleButtonValue :: AttrLabelProxy "value"
scaleButtonValue = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ScaleButton = ScaleButtonSignalList
type ScaleButtonSignalList = ('[ '("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), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("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", ScaleButtonValueChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_scale_button_new" gtk_scale_button_new ::
CDouble ->
CDouble ->
CDouble ->
Ptr CString ->
IO (Ptr ScaleButton)
scaleButtonNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Double
-> Double
-> Double
-> Maybe ([T.Text])
-> m ScaleButton
scaleButtonNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Double -> Double -> Double -> Maybe [Text] -> m ScaleButton
scaleButtonNew Double
min Double
max Double
step Maybe [Text]
icons = IO ScaleButton -> m ScaleButton
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScaleButton -> m ScaleButton)
-> IO ScaleButton -> m ScaleButton
forall a b. (a -> b) -> a -> b
$ do
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 CString
maybeIcons <- case Maybe [Text]
icons of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jIcons -> do
Ptr CString
jIcons' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jIcons
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jIcons'
Ptr ScaleButton
result <- CDouble
-> CDouble -> CDouble -> Ptr CString -> IO (Ptr ScaleButton)
gtk_scale_button_new CDouble
min' CDouble
max' CDouble
step' Ptr CString
maybeIcons
Text -> Ptr ScaleButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleButtonNew" Ptr ScaleButton
result
ScaleButton
result' <- ((ManagedPtr ScaleButton -> ScaleButton)
-> Ptr ScaleButton -> IO ScaleButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ScaleButton -> ScaleButton
ScaleButton) Ptr ScaleButton
result
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeIcons
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeIcons
ScaleButton -> IO ScaleButton
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ScaleButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_scale_button_get_active" gtk_scale_button_get_active ::
Ptr ScaleButton ->
IO CInt
scaleButtonGetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> m Bool
scaleButtonGetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> m Bool
scaleButtonGetActive a
button = 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 ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
CInt
result <- Ptr ScaleButton -> IO CInt
gtk_scale_button_get_active Ptr ScaleButton
button'
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
button
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScaleButtonGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonGetActiveMethodInfo a signature where
overloadedMethod = scaleButtonGetActive
instance O.OverloadedMethodInfo ScaleButtonGetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonGetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonGetActive"
})
#endif
foreign import ccall "gtk_scale_button_get_adjustment" gtk_scale_button_get_adjustment ::
Ptr ScaleButton ->
IO (Ptr Gtk.Adjustment.Adjustment)
scaleButtonGetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> m Gtk.Adjustment.Adjustment
scaleButtonGetAdjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> m Adjustment
scaleButtonGetAdjustment a
button = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Adjustment
result <- Ptr ScaleButton -> IO (Ptr Adjustment)
gtk_scale_button_get_adjustment Ptr ScaleButton
button'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleButtonGetAdjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Adjustment -> IO Adjustment
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data ScaleButtonGetAdjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonGetAdjustmentMethodInfo a signature where
overloadedMethod = scaleButtonGetAdjustment
instance O.OverloadedMethodInfo ScaleButtonGetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonGetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonGetAdjustment"
})
#endif
foreign import ccall "gtk_scale_button_get_minus_button" gtk_scale_button_get_minus_button ::
Ptr ScaleButton ->
IO (Ptr Gtk.Button.Button)
scaleButtonGetMinusButton ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> m Gtk.Button.Button
scaleButtonGetMinusButton :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> m Button
scaleButtonGetMinusButton a
button = IO Button -> m Button
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Button -> m Button) -> IO Button -> m Button
forall a b. (a -> b) -> a -> b
$ do
Ptr ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Button
result <- Ptr ScaleButton -> IO (Ptr Button)
gtk_scale_button_get_minus_button Ptr ScaleButton
button'
Text -> Ptr Button -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleButtonGetMinusButton" Ptr Button
result
Button
result' <- ((ManagedPtr Button -> Button) -> Ptr Button -> IO Button
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Button -> Button
Gtk.Button.Button) Ptr Button
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Button -> IO Button
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Button
result'
#if defined(ENABLE_OVERLOADING)
data ScaleButtonGetMinusButtonMethodInfo
instance (signature ~ (m Gtk.Button.Button), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonGetMinusButtonMethodInfo a signature where
overloadedMethod = scaleButtonGetMinusButton
instance O.OverloadedMethodInfo ScaleButtonGetMinusButtonMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonGetMinusButton",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonGetMinusButton"
})
#endif
foreign import ccall "gtk_scale_button_get_plus_button" gtk_scale_button_get_plus_button ::
Ptr ScaleButton ->
IO (Ptr Gtk.Button.Button)
scaleButtonGetPlusButton ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> m Gtk.Button.Button
scaleButtonGetPlusButton :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> m Button
scaleButtonGetPlusButton a
button = IO Button -> m Button
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Button -> m Button) -> IO Button -> m Button
forall a b. (a -> b) -> a -> b
$ do
Ptr ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Button
result <- Ptr ScaleButton -> IO (Ptr Button)
gtk_scale_button_get_plus_button Ptr ScaleButton
button'
Text -> Ptr Button -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleButtonGetPlusButton" Ptr Button
result
Button
result' <- ((ManagedPtr Button -> Button) -> Ptr Button -> IO Button
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Button -> Button
Gtk.Button.Button) Ptr Button
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Button -> IO Button
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Button
result'
#if defined(ENABLE_OVERLOADING)
data ScaleButtonGetPlusButtonMethodInfo
instance (signature ~ (m Gtk.Button.Button), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonGetPlusButtonMethodInfo a signature where
overloadedMethod = scaleButtonGetPlusButton
instance O.OverloadedMethodInfo ScaleButtonGetPlusButtonMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonGetPlusButton",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonGetPlusButton"
})
#endif
foreign import ccall "gtk_scale_button_get_popup" ::
Ptr ScaleButton ->
IO (Ptr Gtk.Widget.Widget)
scaleButtonGetPopup ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> m Gtk.Widget.Widget
a
button = IO Widget -> m Widget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Widget
result <- Ptr ScaleButton -> IO (Ptr Widget)
gtk_scale_button_get_popup Ptr ScaleButton
button'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scaleButtonGetPopup" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data ScaleButtonGetPopupMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonGetPopupMethodInfo a signature where
overloadedMethod = scaleButtonGetPopup
instance O.OverloadedMethodInfo ScaleButtonGetPopupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonGetPopup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonGetPopup"
})
#endif
foreign import ccall "gtk_scale_button_get_value" gtk_scale_button_get_value ::
Ptr ScaleButton ->
IO CDouble
scaleButtonGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> m Double
scaleButtonGetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> m Double
scaleButtonGetValue a
button = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
CDouble
result <- Ptr ScaleButton -> IO CDouble
gtk_scale_button_get_value Ptr ScaleButton
button'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data ScaleButtonGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonGetValueMethodInfo a signature where
overloadedMethod = scaleButtonGetValue
instance O.OverloadedMethodInfo ScaleButtonGetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonGetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonGetValue"
})
#endif
foreign import ccall "gtk_scale_button_set_adjustment" gtk_scale_button_set_adjustment ::
Ptr ScaleButton ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
scaleButtonSetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
scaleButtonSetAdjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsScaleButton a, IsAdjustment b) =>
a -> b -> m ()
scaleButtonSetAdjustment a
button b
adjustment = 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 ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr ScaleButton -> Ptr Adjustment -> IO ()
gtk_scale_button_set_adjustment Ptr ScaleButton
button' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleButtonSetAdjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsScaleButton a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod ScaleButtonSetAdjustmentMethodInfo a signature where
overloadedMethod = scaleButtonSetAdjustment
instance O.OverloadedMethodInfo ScaleButtonSetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonSetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonSetAdjustment"
})
#endif
foreign import ccall "gtk_scale_button_set_icons" gtk_scale_button_set_icons ::
Ptr ScaleButton ->
Ptr CString ->
IO ()
scaleButtonSetIcons ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> [T.Text]
-> m ()
scaleButtonSetIcons :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> [Text] -> m ()
scaleButtonSetIcons a
button [Text]
icons = 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 ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
Ptr CString
icons' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
icons
Ptr ScaleButton -> Ptr CString -> IO ()
gtk_scale_button_set_icons Ptr ScaleButton
button' Ptr CString
icons'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
icons'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
icons'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleButtonSetIconsMethodInfo
instance (signature ~ ([T.Text] -> m ()), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonSetIconsMethodInfo a signature where
overloadedMethod = scaleButtonSetIcons
instance O.OverloadedMethodInfo ScaleButtonSetIconsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonSetIcons",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonSetIcons"
})
#endif
foreign import ccall "gtk_scale_button_set_value" gtk_scale_button_set_value ::
Ptr ScaleButton ->
CDouble ->
IO ()
scaleButtonSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsScaleButton a) =>
a
-> Double
-> m ()
scaleButtonSetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScaleButton a) =>
a -> Double -> m ()
scaleButtonSetValue a
button Double
value = 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 ScaleButton
button' <- a -> IO (Ptr ScaleButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr ScaleButton -> CDouble -> IO ()
gtk_scale_button_set_value Ptr ScaleButton
button' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScaleButtonSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsScaleButton a) => O.OverloadedMethod ScaleButtonSetValueMethodInfo a signature where
overloadedMethod = scaleButtonSetValue
instance O.OverloadedMethodInfo ScaleButtonSetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ScaleButton.scaleButtonSetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ScaleButton.html#v:scaleButtonSetValue"
})
#endif