{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.SpinButton
(
SpinButton(..) ,
IsSpinButton ,
toSpinButton ,
#if defined(ENABLE_OVERLOADING)
ResolveSpinButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonConfigureMethodInfo ,
#endif
spinButtonConfigure ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetAdjustmentMethodInfo ,
#endif
spinButtonGetAdjustment ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetClimbRateMethodInfo ,
#endif
spinButtonGetClimbRate ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetDigitsMethodInfo ,
#endif
spinButtonGetDigits ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetIncrementsMethodInfo ,
#endif
spinButtonGetIncrements ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetNumericMethodInfo ,
#endif
spinButtonGetNumeric ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetRangeMethodInfo ,
#endif
spinButtonGetRange ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetSnapToTicksMethodInfo ,
#endif
spinButtonGetSnapToTicks ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetUpdatePolicyMethodInfo ,
#endif
spinButtonGetUpdatePolicy ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetValueMethodInfo ,
#endif
spinButtonGetValue ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetValueAsIntMethodInfo ,
#endif
spinButtonGetValueAsInt ,
#if defined(ENABLE_OVERLOADING)
SpinButtonGetWrapMethodInfo ,
#endif
spinButtonGetWrap ,
spinButtonNew ,
spinButtonNewWithRange ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetAdjustmentMethodInfo ,
#endif
spinButtonSetAdjustment ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetClimbRateMethodInfo ,
#endif
spinButtonSetClimbRate ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetDigitsMethodInfo ,
#endif
spinButtonSetDigits ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetIncrementsMethodInfo ,
#endif
spinButtonSetIncrements ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetNumericMethodInfo ,
#endif
spinButtonSetNumeric ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetRangeMethodInfo ,
#endif
spinButtonSetRange ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetSnapToTicksMethodInfo ,
#endif
spinButtonSetSnapToTicks ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetUpdatePolicyMethodInfo ,
#endif
spinButtonSetUpdatePolicy ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetValueMethodInfo ,
#endif
spinButtonSetValue ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSetWrapMethodInfo ,
#endif
spinButtonSetWrap ,
#if defined(ENABLE_OVERLOADING)
SpinButtonSpinMethodInfo ,
#endif
spinButtonSpin ,
#if defined(ENABLE_OVERLOADING)
SpinButtonUpdateMethodInfo ,
#endif
spinButtonUpdate ,
#if defined(ENABLE_OVERLOADING)
SpinButtonAdjustmentPropertyInfo ,
#endif
constructSpinButtonAdjustment ,
getSpinButtonAdjustment ,
setSpinButtonAdjustment ,
#if defined(ENABLE_OVERLOADING)
spinButtonAdjustment ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonClimbRatePropertyInfo ,
#endif
constructSpinButtonClimbRate ,
getSpinButtonClimbRate ,
setSpinButtonClimbRate ,
#if defined(ENABLE_OVERLOADING)
spinButtonClimbRate ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonDigitsPropertyInfo ,
#endif
constructSpinButtonDigits ,
getSpinButtonDigits ,
setSpinButtonDigits ,
#if defined(ENABLE_OVERLOADING)
spinButtonDigits ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonNumericPropertyInfo ,
#endif
constructSpinButtonNumeric ,
getSpinButtonNumeric ,
setSpinButtonNumeric ,
#if defined(ENABLE_OVERLOADING)
spinButtonNumeric ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonSnapToTicksPropertyInfo ,
#endif
constructSpinButtonSnapToTicks ,
getSpinButtonSnapToTicks ,
setSpinButtonSnapToTicks ,
#if defined(ENABLE_OVERLOADING)
spinButtonSnapToTicks ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonUpdatePolicyPropertyInfo ,
#endif
constructSpinButtonUpdatePolicy ,
getSpinButtonUpdatePolicy ,
setSpinButtonUpdatePolicy ,
#if defined(ENABLE_OVERLOADING)
spinButtonUpdatePolicy ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonValuePropertyInfo ,
#endif
constructSpinButtonValue ,
getSpinButtonValue ,
setSpinButtonValue ,
#if defined(ENABLE_OVERLOADING)
spinButtonValue ,
#endif
#if defined(ENABLE_OVERLOADING)
SpinButtonWrapPropertyInfo ,
#endif
constructSpinButtonWrap ,
getSpinButtonWrap ,
setSpinButtonWrap ,
#if defined(ENABLE_OVERLOADING)
spinButtonWrap ,
#endif
C_SpinButtonChangeValueCallback ,
SpinButtonChangeValueCallback ,
#if defined(ENABLE_OVERLOADING)
SpinButtonChangeValueSignalInfo ,
#endif
afterSpinButtonChangeValue ,
genClosure_SpinButtonChangeValue ,
mk_SpinButtonChangeValueCallback ,
noSpinButtonChangeValueCallback ,
onSpinButtonChangeValue ,
wrap_SpinButtonChangeValueCallback ,
C_SpinButtonInputCallback ,
SpinButtonInputCallback ,
#if defined(ENABLE_OVERLOADING)
SpinButtonInputSignalInfo ,
#endif
afterSpinButtonInput ,
genClosure_SpinButtonInput ,
mk_SpinButtonInputCallback ,
noSpinButtonInputCallback ,
onSpinButtonInput ,
wrap_SpinButtonInputCallback ,
C_SpinButtonOutputCallback ,
SpinButtonOutputCallback ,
#if defined(ENABLE_OVERLOADING)
SpinButtonOutputSignalInfo ,
#endif
afterSpinButtonOutput ,
genClosure_SpinButtonOutput ,
mk_SpinButtonOutputCallback ,
noSpinButtonOutputCallback ,
onSpinButtonOutput ,
wrap_SpinButtonOutputCallback ,
C_SpinButtonValueChangedCallback ,
SpinButtonValueChangedCallback ,
#if defined(ENABLE_OVERLOADING)
SpinButtonValueChangedSignalInfo ,
#endif
afterSpinButtonValueChanged ,
genClosure_SpinButtonValueChanged ,
mk_SpinButtonValueChangedCallback ,
noSpinButtonValueChangedCallback ,
onSpinButtonValueChanged ,
wrap_SpinButtonValueChangedCallback ,
C_SpinButtonWrappedCallback ,
SpinButtonWrappedCallback ,
#if defined(ENABLE_OVERLOADING)
SpinButtonWrappedSignalInfo ,
#endif
afterSpinButtonWrapped ,
genClosure_SpinButtonWrapped ,
mk_SpinButtonWrappedCallback ,
noSpinButtonWrappedCallback ,
onSpinButtonWrapped ,
wrap_SpinButtonWrappedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
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.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
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.Widget as Gtk.Widget
newtype SpinButton = SpinButton (SP.ManagedPtr SpinButton)
deriving (SpinButton -> SpinButton -> Bool
(SpinButton -> SpinButton -> Bool)
-> (SpinButton -> SpinButton -> Bool) -> Eq SpinButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SpinButton -> SpinButton -> Bool
$c/= :: SpinButton -> SpinButton -> Bool
== :: SpinButton -> SpinButton -> Bool
$c== :: SpinButton -> SpinButton -> Bool
Eq)
instance SP.ManagedPtrNewtype SpinButton where
toManagedPtr :: SpinButton -> ManagedPtr SpinButton
toManagedPtr (SpinButton ManagedPtr SpinButton
p) = ManagedPtr SpinButton
p
foreign import ccall "gtk_spin_button_get_type"
c_gtk_spin_button_get_type :: IO B.Types.GType
instance B.Types.TypedObject SpinButton where
glibType :: IO GType
glibType = IO GType
c_gtk_spin_button_get_type
instance B.Types.GObject SpinButton
class (SP.GObject o, O.IsDescendantOf SpinButton o) => IsSpinButton o
instance (SP.GObject o, O.IsDescendantOf SpinButton o) => IsSpinButton o
instance O.HasParentTypes SpinButton
type instance O.ParentTypes SpinButton = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.CellEditable.CellEditable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Editable.Editable, Gtk.Orientable.Orientable]
toSpinButton :: (MIO.MonadIO m, IsSpinButton o) => o -> m SpinButton
toSpinButton :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> m SpinButton
toSpinButton = IO SpinButton -> m SpinButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SpinButton -> m SpinButton)
-> (o -> IO SpinButton) -> o -> m SpinButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SpinButton -> SpinButton) -> o -> IO SpinButton
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SpinButton -> SpinButton
SpinButton
instance B.GValue.IsGValue (Maybe SpinButton) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_spin_button_get_type
gvalueSet_ :: Ptr GValue -> Maybe SpinButton -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SpinButton
P.Nothing = Ptr GValue -> Ptr SpinButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SpinButton
forall a. Ptr a
FP.nullPtr :: FP.Ptr SpinButton)
gvalueSet_ Ptr GValue
gv (P.Just SpinButton
obj) = SpinButton -> (Ptr SpinButton -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SpinButton
obj (Ptr GValue -> Ptr SpinButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SpinButton)
gvalueGet_ Ptr GValue
gv = do
Ptr SpinButton
ptr <- Ptr GValue -> IO (Ptr SpinButton)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SpinButton)
if Ptr SpinButton
ptr Ptr SpinButton -> Ptr SpinButton -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SpinButton
forall a. Ptr a
FP.nullPtr
then SpinButton -> Maybe SpinButton
forall a. a -> Maybe a
P.Just (SpinButton -> Maybe SpinButton)
-> IO SpinButton -> IO (Maybe SpinButton)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SpinButton -> SpinButton)
-> Ptr SpinButton -> IO SpinButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SpinButton -> SpinButton
SpinButton Ptr SpinButton
ptr
else Maybe SpinButton -> IO (Maybe SpinButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SpinButton
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSpinButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveSpinButtonMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveSpinButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveSpinButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveSpinButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveSpinButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveSpinButtonMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveSpinButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveSpinButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveSpinButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveSpinButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSpinButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSpinButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveSpinButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveSpinButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveSpinButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveSpinButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveSpinButtonMethod "configure" o = SpinButtonConfigureMethodInfo
ResolveSpinButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveSpinButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveSpinButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveSpinButtonMethod "deleteSelection" o = Gtk.Editable.EditableDeleteSelectionMethodInfo
ResolveSpinButtonMethod "deleteText" o = Gtk.Editable.EditableDeleteTextMethodInfo
ResolveSpinButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveSpinButtonMethod "editingDone" o = Gtk.CellEditable.CellEditableEditingDoneMethodInfo
ResolveSpinButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveSpinButtonMethod "finishDelegate" o = Gtk.Editable.EditableFinishDelegateMethodInfo
ResolveSpinButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSpinButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSpinButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSpinButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveSpinButtonMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveSpinButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveSpinButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveSpinButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveSpinButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveSpinButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveSpinButtonMethod "initDelegate" o = Gtk.Editable.EditableInitDelegateMethodInfo
ResolveSpinButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveSpinButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveSpinButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveSpinButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveSpinButtonMethod "insertText" o = Gtk.Editable.EditableInsertTextMethodInfo
ResolveSpinButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveSpinButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveSpinButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSpinButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveSpinButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveSpinButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveSpinButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveSpinButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveSpinButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveSpinButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveSpinButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveSpinButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSpinButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSpinButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveSpinButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveSpinButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveSpinButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveSpinButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveSpinButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveSpinButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveSpinButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSpinButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSpinButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveSpinButtonMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveSpinButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveSpinButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveSpinButtonMethod "removeWidget" o = Gtk.CellEditable.CellEditableRemoveWidgetMethodInfo
ResolveSpinButtonMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveSpinButtonMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveSpinButtonMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveSpinButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSpinButtonMethod "selectRegion" o = Gtk.Editable.EditableSelectRegionMethodInfo
ResolveSpinButtonMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveSpinButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveSpinButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveSpinButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveSpinButtonMethod "spin" o = SpinButtonSpinMethodInfo
ResolveSpinButtonMethod "startEditing" o = Gtk.CellEditable.CellEditableStartEditingMethodInfo
ResolveSpinButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSpinButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSpinButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSpinButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveSpinButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveSpinButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveSpinButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveSpinButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveSpinButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSpinButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveSpinButtonMethod "update" o = SpinButtonUpdateMethodInfo
ResolveSpinButtonMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveSpinButtonMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveSpinButtonMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveSpinButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSpinButtonMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveSpinButtonMethod "getAdjustment" o = SpinButtonGetAdjustmentMethodInfo
ResolveSpinButtonMethod "getAlignment" o = Gtk.Editable.EditableGetAlignmentMethodInfo
ResolveSpinButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveSpinButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveSpinButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveSpinButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveSpinButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveSpinButtonMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveSpinButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveSpinButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveSpinButtonMethod "getChars" o = Gtk.Editable.EditableGetCharsMethodInfo
ResolveSpinButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveSpinButtonMethod "getClimbRate" o = SpinButtonGetClimbRateMethodInfo
ResolveSpinButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveSpinButtonMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveSpinButtonMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveSpinButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveSpinButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSpinButtonMethod "getDelegate" o = Gtk.Editable.EditableGetDelegateMethodInfo
ResolveSpinButtonMethod "getDigits" o = SpinButtonGetDigitsMethodInfo
ResolveSpinButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveSpinButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveSpinButtonMethod "getEditable" o = Gtk.Editable.EditableGetEditableMethodInfo
ResolveSpinButtonMethod "getEnableUndo" o = Gtk.Editable.EditableGetEnableUndoMethodInfo
ResolveSpinButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveSpinButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveSpinButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveSpinButtonMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveSpinButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveSpinButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveSpinButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveSpinButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveSpinButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveSpinButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveSpinButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveSpinButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveSpinButtonMethod "getIncrements" o = SpinButtonGetIncrementsMethodInfo
ResolveSpinButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveSpinButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveSpinButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveSpinButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveSpinButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveSpinButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveSpinButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveSpinButtonMethod "getMaxWidthChars" o = Gtk.Editable.EditableGetMaxWidthCharsMethodInfo
ResolveSpinButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveSpinButtonMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveSpinButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveSpinButtonMethod "getNumeric" o = SpinButtonGetNumericMethodInfo
ResolveSpinButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveSpinButtonMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveSpinButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveSpinButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveSpinButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveSpinButtonMethod "getPosition" o = Gtk.Editable.EditableGetPositionMethodInfo
ResolveSpinButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveSpinButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveSpinButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveSpinButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSpinButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSpinButtonMethod "getRange" o = SpinButtonGetRangeMethodInfo
ResolveSpinButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveSpinButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveSpinButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveSpinButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveSpinButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveSpinButtonMethod "getSelectionBounds" o = Gtk.Editable.EditableGetSelectionBoundsMethodInfo
ResolveSpinButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveSpinButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveSpinButtonMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveSpinButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveSpinButtonMethod "getSnapToTicks" o = SpinButtonGetSnapToTicksMethodInfo
ResolveSpinButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveSpinButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveSpinButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveSpinButtonMethod "getText" o = Gtk.Editable.EditableGetTextMethodInfo
ResolveSpinButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveSpinButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveSpinButtonMethod "getUpdatePolicy" o = SpinButtonGetUpdatePolicyMethodInfo
ResolveSpinButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveSpinButtonMethod "getValue" o = SpinButtonGetValueMethodInfo
ResolveSpinButtonMethod "getValueAsInt" o = SpinButtonGetValueAsIntMethodInfo
ResolveSpinButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveSpinButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveSpinButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveSpinButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveSpinButtonMethod "getWidthChars" o = Gtk.Editable.EditableGetWidthCharsMethodInfo
ResolveSpinButtonMethod "getWrap" o = SpinButtonGetWrapMethodInfo
ResolveSpinButtonMethod "setAdjustment" o = SpinButtonSetAdjustmentMethodInfo
ResolveSpinButtonMethod "setAlignment" o = Gtk.Editable.EditableSetAlignmentMethodInfo
ResolveSpinButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveSpinButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveSpinButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveSpinButtonMethod "setClimbRate" o = SpinButtonSetClimbRateMethodInfo
ResolveSpinButtonMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveSpinButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveSpinButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveSpinButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSpinButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSpinButtonMethod "setDigits" o = SpinButtonSetDigitsMethodInfo
ResolveSpinButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveSpinButtonMethod "setEditable" o = Gtk.Editable.EditableSetEditableMethodInfo
ResolveSpinButtonMethod "setEnableUndo" o = Gtk.Editable.EditableSetEnableUndoMethodInfo
ResolveSpinButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveSpinButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveSpinButtonMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveSpinButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveSpinButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveSpinButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveSpinButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveSpinButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveSpinButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveSpinButtonMethod "setIncrements" o = SpinButtonSetIncrementsMethodInfo
ResolveSpinButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveSpinButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveSpinButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveSpinButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveSpinButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveSpinButtonMethod "setMaxWidthChars" o = Gtk.Editable.EditableSetMaxWidthCharsMethodInfo
ResolveSpinButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveSpinButtonMethod "setNumeric" o = SpinButtonSetNumericMethodInfo
ResolveSpinButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveSpinButtonMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveSpinButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveSpinButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveSpinButtonMethod "setPosition" o = Gtk.Editable.EditableSetPositionMethodInfo
ResolveSpinButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSpinButtonMethod "setRange" o = SpinButtonSetRangeMethodInfo
ResolveSpinButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveSpinButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveSpinButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveSpinButtonMethod "setSnapToTicks" o = SpinButtonSetSnapToTicksMethodInfo
ResolveSpinButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveSpinButtonMethod "setText" o = Gtk.Editable.EditableSetTextMethodInfo
ResolveSpinButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveSpinButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveSpinButtonMethod "setUpdatePolicy" o = SpinButtonSetUpdatePolicyMethodInfo
ResolveSpinButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveSpinButtonMethod "setValue" o = SpinButtonSetValueMethodInfo
ResolveSpinButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveSpinButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveSpinButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveSpinButtonMethod "setWidthChars" o = Gtk.Editable.EditableSetWidthCharsMethodInfo
ResolveSpinButtonMethod "setWrap" o = SpinButtonSetWrapMethodInfo
ResolveSpinButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSpinButtonMethod t SpinButton, O.OverloadedMethod info SpinButton p) => OL.IsLabel t (SpinButton -> 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 ~ ResolveSpinButtonMethod t SpinButton, O.OverloadedMethod info SpinButton p, R.HasField t SpinButton p) => R.HasField t SpinButton p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSpinButtonMethod t SpinButton, O.OverloadedMethodInfo info SpinButton) => OL.IsLabel t (O.MethodProxy info SpinButton) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type SpinButtonChangeValueCallback =
Gtk.Enums.ScrollType
-> IO ()
noSpinButtonChangeValueCallback :: Maybe SpinButtonChangeValueCallback
noSpinButtonChangeValueCallback :: Maybe SpinButtonChangeValueCallback
noSpinButtonChangeValueCallback = Maybe SpinButtonChangeValueCallback
forall a. Maybe a
Nothing
type C_SpinButtonChangeValueCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SpinButtonChangeValueCallback :: C_SpinButtonChangeValueCallback -> IO (FunPtr C_SpinButtonChangeValueCallback)
genClosure_SpinButtonChangeValue :: MonadIO m => SpinButtonChangeValueCallback -> m (GClosure C_SpinButtonChangeValueCallback)
genClosure_SpinButtonChangeValue :: forall (m :: * -> *).
MonadIO m =>
SpinButtonChangeValueCallback
-> m (GClosure C_SpinButtonChangeValueCallback)
genClosure_SpinButtonChangeValue SpinButtonChangeValueCallback
cb = IO (GClosure C_SpinButtonChangeValueCallback)
-> m (GClosure C_SpinButtonChangeValueCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SpinButtonChangeValueCallback)
-> m (GClosure C_SpinButtonChangeValueCallback))
-> IO (GClosure C_SpinButtonChangeValueCallback)
-> m (GClosure C_SpinButtonChangeValueCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonChangeValueCallback
cb' = SpinButtonChangeValueCallback -> C_SpinButtonChangeValueCallback
wrap_SpinButtonChangeValueCallback SpinButtonChangeValueCallback
cb
C_SpinButtonChangeValueCallback
-> IO (FunPtr C_SpinButtonChangeValueCallback)
mk_SpinButtonChangeValueCallback C_SpinButtonChangeValueCallback
cb' IO (FunPtr C_SpinButtonChangeValueCallback)
-> (FunPtr C_SpinButtonChangeValueCallback
-> IO (GClosure C_SpinButtonChangeValueCallback))
-> IO (GClosure C_SpinButtonChangeValueCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SpinButtonChangeValueCallback
-> IO (GClosure C_SpinButtonChangeValueCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SpinButtonChangeValueCallback ::
SpinButtonChangeValueCallback ->
C_SpinButtonChangeValueCallback
wrap_SpinButtonChangeValueCallback :: SpinButtonChangeValueCallback -> C_SpinButtonChangeValueCallback
wrap_SpinButtonChangeValueCallback SpinButtonChangeValueCallback
_cb Ptr ()
_ CUInt
scroll Ptr ()
_ = do
let scroll' :: ScrollType
scroll' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scroll
SpinButtonChangeValueCallback
_cb ScrollType
scroll'
onSpinButtonChangeValue :: (IsSpinButton a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId
onSpinButtonChangeValue :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> SpinButtonChangeValueCallback -> m SignalHandlerId
onSpinButtonChangeValue a
obj SpinButtonChangeValueCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonChangeValueCallback
cb' = SpinButtonChangeValueCallback -> C_SpinButtonChangeValueCallback
wrap_SpinButtonChangeValueCallback SpinButtonChangeValueCallback
cb
FunPtr C_SpinButtonChangeValueCallback
cb'' <- C_SpinButtonChangeValueCallback
-> IO (FunPtr C_SpinButtonChangeValueCallback)
mk_SpinButtonChangeValueCallback C_SpinButtonChangeValueCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonChangeValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-value" FunPtr C_SpinButtonChangeValueCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSpinButtonChangeValue :: (IsSpinButton a, MonadIO m) => a -> SpinButtonChangeValueCallback -> m SignalHandlerId
afterSpinButtonChangeValue :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> SpinButtonChangeValueCallback -> m SignalHandlerId
afterSpinButtonChangeValue a
obj SpinButtonChangeValueCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonChangeValueCallback
cb' = SpinButtonChangeValueCallback -> C_SpinButtonChangeValueCallback
wrap_SpinButtonChangeValueCallback SpinButtonChangeValueCallback
cb
FunPtr C_SpinButtonChangeValueCallback
cb'' <- C_SpinButtonChangeValueCallback
-> IO (FunPtr C_SpinButtonChangeValueCallback)
mk_SpinButtonChangeValueCallback C_SpinButtonChangeValueCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonChangeValueCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"change-value" FunPtr C_SpinButtonChangeValueCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SpinButtonChangeValueSignalInfo
instance SignalInfo SpinButtonChangeValueSignalInfo where
type HaskellCallbackType SpinButtonChangeValueSignalInfo = SpinButtonChangeValueCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SpinButtonChangeValueCallback cb
cb'' <- mk_SpinButtonChangeValueCallback cb'
connectSignalFunPtr obj "change-value" cb'' connectMode detail
#endif
type SpinButtonInputCallback =
IO ((Int32, Double))
noSpinButtonInputCallback :: Maybe SpinButtonInputCallback
noSpinButtonInputCallback :: Maybe SpinButtonInputCallback
noSpinButtonInputCallback = Maybe SpinButtonInputCallback
forall a. Maybe a
Nothing
type C_SpinButtonInputCallback =
Ptr () ->
Ptr CDouble ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mk_SpinButtonInputCallback :: C_SpinButtonInputCallback -> IO (FunPtr C_SpinButtonInputCallback)
genClosure_SpinButtonInput :: MonadIO m => SpinButtonInputCallback -> m (GClosure C_SpinButtonInputCallback)
genClosure_SpinButtonInput :: forall (m :: * -> *).
MonadIO m =>
SpinButtonInputCallback -> m (GClosure C_SpinButtonInputCallback)
genClosure_SpinButtonInput SpinButtonInputCallback
cb = IO (GClosure C_SpinButtonInputCallback)
-> m (GClosure C_SpinButtonInputCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SpinButtonInputCallback)
-> m (GClosure C_SpinButtonInputCallback))
-> IO (GClosure C_SpinButtonInputCallback)
-> m (GClosure C_SpinButtonInputCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonInputCallback
cb' = SpinButtonInputCallback -> C_SpinButtonInputCallback
wrap_SpinButtonInputCallback SpinButtonInputCallback
cb
C_SpinButtonInputCallback -> IO (FunPtr C_SpinButtonInputCallback)
mk_SpinButtonInputCallback C_SpinButtonInputCallback
cb' IO (FunPtr C_SpinButtonInputCallback)
-> (FunPtr C_SpinButtonInputCallback
-> IO (GClosure C_SpinButtonInputCallback))
-> IO (GClosure C_SpinButtonInputCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SpinButtonInputCallback
-> IO (GClosure C_SpinButtonInputCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SpinButtonInputCallback ::
SpinButtonInputCallback ->
C_SpinButtonInputCallback
wrap_SpinButtonInputCallback :: SpinButtonInputCallback -> C_SpinButtonInputCallback
wrap_SpinButtonInputCallback SpinButtonInputCallback
_cb Ptr ()
_ Ptr CDouble
newValue Ptr ()
_ = do
(Int32
result, Double
outnewValue) <- SpinButtonInputCallback
_cb
let outnewValue' :: CDouble
outnewValue' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
outnewValue
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr CDouble
newValue CDouble
outnewValue'
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
onSpinButtonInput :: (IsSpinButton a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId
onSpinButtonInput :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> SpinButtonInputCallback -> m SignalHandlerId
onSpinButtonInput a
obj SpinButtonInputCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonInputCallback
cb' = SpinButtonInputCallback -> C_SpinButtonInputCallback
wrap_SpinButtonInputCallback SpinButtonInputCallback
cb
FunPtr C_SpinButtonInputCallback
cb'' <- C_SpinButtonInputCallback -> IO (FunPtr C_SpinButtonInputCallback)
mk_SpinButtonInputCallback C_SpinButtonInputCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonInputCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"input" FunPtr C_SpinButtonInputCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSpinButtonInput :: (IsSpinButton a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId
afterSpinButtonInput :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> SpinButtonInputCallback -> m SignalHandlerId
afterSpinButtonInput a
obj SpinButtonInputCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonInputCallback
cb' = SpinButtonInputCallback -> C_SpinButtonInputCallback
wrap_SpinButtonInputCallback SpinButtonInputCallback
cb
FunPtr C_SpinButtonInputCallback
cb'' <- C_SpinButtonInputCallback -> IO (FunPtr C_SpinButtonInputCallback)
mk_SpinButtonInputCallback C_SpinButtonInputCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonInputCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"input" FunPtr C_SpinButtonInputCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SpinButtonInputSignalInfo
instance SignalInfo SpinButtonInputSignalInfo where
type HaskellCallbackType SpinButtonInputSignalInfo = SpinButtonInputCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SpinButtonInputCallback cb
cb'' <- mk_SpinButtonInputCallback cb'
connectSignalFunPtr obj "input" cb'' connectMode detail
#endif
type SpinButtonOutputCallback =
IO Bool
noSpinButtonOutputCallback :: Maybe SpinButtonOutputCallback
noSpinButtonOutputCallback :: Maybe SpinButtonOutputCallback
noSpinButtonOutputCallback = Maybe SpinButtonOutputCallback
forall a. Maybe a
Nothing
type C_SpinButtonOutputCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_SpinButtonOutputCallback :: C_SpinButtonOutputCallback -> IO (FunPtr C_SpinButtonOutputCallback)
genClosure_SpinButtonOutput :: MonadIO m => SpinButtonOutputCallback -> m (GClosure C_SpinButtonOutputCallback)
genClosure_SpinButtonOutput :: forall (m :: * -> *).
MonadIO m =>
SpinButtonOutputCallback -> m (GClosure C_SpinButtonOutputCallback)
genClosure_SpinButtonOutput SpinButtonOutputCallback
cb = IO (GClosure C_SpinButtonOutputCallback)
-> m (GClosure C_SpinButtonOutputCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SpinButtonOutputCallback)
-> m (GClosure C_SpinButtonOutputCallback))
-> IO (GClosure C_SpinButtonOutputCallback)
-> m (GClosure C_SpinButtonOutputCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonOutputCallback
cb' = SpinButtonOutputCallback -> C_SpinButtonOutputCallback
wrap_SpinButtonOutputCallback SpinButtonOutputCallback
cb
C_SpinButtonOutputCallback
-> IO (FunPtr C_SpinButtonOutputCallback)
mk_SpinButtonOutputCallback C_SpinButtonOutputCallback
cb' IO (FunPtr C_SpinButtonOutputCallback)
-> (FunPtr C_SpinButtonOutputCallback
-> IO (GClosure C_SpinButtonOutputCallback))
-> IO (GClosure C_SpinButtonOutputCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SpinButtonOutputCallback
-> IO (GClosure C_SpinButtonOutputCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SpinButtonOutputCallback ::
SpinButtonOutputCallback ->
C_SpinButtonOutputCallback
wrap_SpinButtonOutputCallback :: SpinButtonOutputCallback -> C_SpinButtonOutputCallback
wrap_SpinButtonOutputCallback SpinButtonOutputCallback
_cb Ptr ()
_ Ptr ()
_ = do
Bool
result <- SpinButtonOutputCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onSpinButtonOutput :: (IsSpinButton a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId
onSpinButtonOutput :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> SpinButtonOutputCallback -> m SignalHandlerId
onSpinButtonOutput a
obj SpinButtonOutputCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonOutputCallback
cb' = SpinButtonOutputCallback -> C_SpinButtonOutputCallback
wrap_SpinButtonOutputCallback SpinButtonOutputCallback
cb
FunPtr C_SpinButtonOutputCallback
cb'' <- C_SpinButtonOutputCallback
-> IO (FunPtr C_SpinButtonOutputCallback)
mk_SpinButtonOutputCallback C_SpinButtonOutputCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonOutputCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"output" FunPtr C_SpinButtonOutputCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSpinButtonOutput :: (IsSpinButton a, MonadIO m) => a -> SpinButtonOutputCallback -> m SignalHandlerId
afterSpinButtonOutput :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> SpinButtonOutputCallback -> m SignalHandlerId
afterSpinButtonOutput a
obj SpinButtonOutputCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonOutputCallback
cb' = SpinButtonOutputCallback -> C_SpinButtonOutputCallback
wrap_SpinButtonOutputCallback SpinButtonOutputCallback
cb
FunPtr C_SpinButtonOutputCallback
cb'' <- C_SpinButtonOutputCallback
-> IO (FunPtr C_SpinButtonOutputCallback)
mk_SpinButtonOutputCallback C_SpinButtonOutputCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonOutputCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"output" FunPtr C_SpinButtonOutputCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SpinButtonOutputSignalInfo
instance SignalInfo SpinButtonOutputSignalInfo where
type HaskellCallbackType SpinButtonOutputSignalInfo = SpinButtonOutputCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SpinButtonOutputCallback cb
cb'' <- mk_SpinButtonOutputCallback cb'
connectSignalFunPtr obj "output" cb'' connectMode detail
#endif
type SpinButtonValueChangedCallback =
IO ()
noSpinButtonValueChangedCallback :: Maybe SpinButtonValueChangedCallback
noSpinButtonValueChangedCallback :: Maybe (IO ())
noSpinButtonValueChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_SpinButtonValueChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SpinButtonValueChangedCallback :: C_SpinButtonValueChangedCallback -> IO (FunPtr C_SpinButtonValueChangedCallback)
genClosure_SpinButtonValueChanged :: MonadIO m => SpinButtonValueChangedCallback -> m (GClosure C_SpinButtonValueChangedCallback)
genClosure_SpinButtonValueChanged :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_SpinButtonValueChangedCallback)
genClosure_SpinButtonValueChanged IO ()
cb = IO (GClosure C_SpinButtonValueChangedCallback)
-> m (GClosure C_SpinButtonValueChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SpinButtonValueChangedCallback)
-> m (GClosure C_SpinButtonValueChangedCallback))
-> IO (GClosure C_SpinButtonValueChangedCallback)
-> m (GClosure C_SpinButtonValueChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonValueChangedCallback
cb' = IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonValueChangedCallback IO ()
cb
C_SpinButtonValueChangedCallback
-> IO (FunPtr C_SpinButtonValueChangedCallback)
mk_SpinButtonValueChangedCallback C_SpinButtonValueChangedCallback
cb' IO (FunPtr C_SpinButtonValueChangedCallback)
-> (FunPtr C_SpinButtonValueChangedCallback
-> IO (GClosure C_SpinButtonValueChangedCallback))
-> IO (GClosure C_SpinButtonValueChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SpinButtonValueChangedCallback
-> IO (GClosure C_SpinButtonValueChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SpinButtonValueChangedCallback ::
SpinButtonValueChangedCallback ->
C_SpinButtonValueChangedCallback
wrap_SpinButtonValueChangedCallback :: IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonValueChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onSpinButtonValueChanged :: (IsSpinButton a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId
onSpinButtonValueChanged :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onSpinButtonValueChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonValueChangedCallback
cb' = IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonValueChangedCallback IO ()
cb
FunPtr C_SpinButtonValueChangedCallback
cb'' <- C_SpinButtonValueChangedCallback
-> IO (FunPtr C_SpinButtonValueChangedCallback)
mk_SpinButtonValueChangedCallback C_SpinButtonValueChangedCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonValueChangedCallback
-> 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_SpinButtonValueChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSpinButtonValueChanged :: (IsSpinButton a, MonadIO m) => a -> SpinButtonValueChangedCallback -> m SignalHandlerId
afterSpinButtonValueChanged :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterSpinButtonValueChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonValueChangedCallback
cb' = IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonValueChangedCallback IO ()
cb
FunPtr C_SpinButtonValueChangedCallback
cb'' <- C_SpinButtonValueChangedCallback
-> IO (FunPtr C_SpinButtonValueChangedCallback)
mk_SpinButtonValueChangedCallback C_SpinButtonValueChangedCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonValueChangedCallback
-> 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_SpinButtonValueChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SpinButtonValueChangedSignalInfo
instance SignalInfo SpinButtonValueChangedSignalInfo where
type HaskellCallbackType SpinButtonValueChangedSignalInfo = SpinButtonValueChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SpinButtonValueChangedCallback cb
cb'' <- mk_SpinButtonValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode detail
#endif
type SpinButtonWrappedCallback =
IO ()
noSpinButtonWrappedCallback :: Maybe SpinButtonWrappedCallback
noSpinButtonWrappedCallback :: Maybe (IO ())
noSpinButtonWrappedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_SpinButtonWrappedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SpinButtonWrappedCallback :: C_SpinButtonWrappedCallback -> IO (FunPtr C_SpinButtonWrappedCallback)
genClosure_SpinButtonWrapped :: MonadIO m => SpinButtonWrappedCallback -> m (GClosure C_SpinButtonWrappedCallback)
genClosure_SpinButtonWrapped :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_SpinButtonValueChangedCallback)
genClosure_SpinButtonWrapped IO ()
cb = IO (GClosure C_SpinButtonValueChangedCallback)
-> m (GClosure C_SpinButtonValueChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SpinButtonValueChangedCallback)
-> m (GClosure C_SpinButtonValueChangedCallback))
-> IO (GClosure C_SpinButtonValueChangedCallback)
-> m (GClosure C_SpinButtonValueChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonValueChangedCallback
cb' = IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonWrappedCallback IO ()
cb
C_SpinButtonValueChangedCallback
-> IO (FunPtr C_SpinButtonValueChangedCallback)
mk_SpinButtonWrappedCallback C_SpinButtonValueChangedCallback
cb' IO (FunPtr C_SpinButtonValueChangedCallback)
-> (FunPtr C_SpinButtonValueChangedCallback
-> IO (GClosure C_SpinButtonValueChangedCallback))
-> IO (GClosure C_SpinButtonValueChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SpinButtonValueChangedCallback
-> IO (GClosure C_SpinButtonValueChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_SpinButtonWrappedCallback ::
SpinButtonWrappedCallback ->
C_SpinButtonWrappedCallback
wrap_SpinButtonWrappedCallback :: IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonWrappedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onSpinButtonWrapped :: (IsSpinButton a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId
onSpinButtonWrapped :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onSpinButtonWrapped a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonValueChangedCallback
cb' = IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonWrappedCallback IO ()
cb
FunPtr C_SpinButtonValueChangedCallback
cb'' <- C_SpinButtonValueChangedCallback
-> IO (FunPtr C_SpinButtonValueChangedCallback)
mk_SpinButtonWrappedCallback C_SpinButtonValueChangedCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrapped" FunPtr C_SpinButtonValueChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterSpinButtonWrapped :: (IsSpinButton a, MonadIO m) => a -> SpinButtonWrappedCallback -> m SignalHandlerId
afterSpinButtonWrapped :: forall a (m :: * -> *).
(IsSpinButton a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterSpinButtonWrapped a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_SpinButtonValueChangedCallback
cb' = IO () -> C_SpinButtonValueChangedCallback
wrap_SpinButtonWrappedCallback IO ()
cb
FunPtr C_SpinButtonValueChangedCallback
cb'' <- C_SpinButtonValueChangedCallback
-> IO (FunPtr C_SpinButtonValueChangedCallback)
mk_SpinButtonWrappedCallback C_SpinButtonValueChangedCallback
cb'
a
-> Text
-> FunPtr C_SpinButtonValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"wrapped" FunPtr C_SpinButtonValueChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data SpinButtonWrappedSignalInfo
instance SignalInfo SpinButtonWrappedSignalInfo where
type HaskellCallbackType SpinButtonWrappedSignalInfo = SpinButtonWrappedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_SpinButtonWrappedCallback cb
cb'' <- mk_SpinButtonWrappedCallback cb'
connectSignalFunPtr obj "wrapped" cb'' connectMode detail
#endif
getSpinButtonAdjustment :: (MonadIO m, IsSpinButton o) => o -> m Gtk.Adjustment.Adjustment
getSpinButtonAdjustment :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> m Adjustment
getSpinButtonAdjustment o
obj = IO Adjustment -> m Adjustment
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
"getSpinButtonAdjustment" (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
setSpinButtonAdjustment :: (MonadIO m, IsSpinButton o, Gtk.Adjustment.IsAdjustment a) => o -> a -> m ()
setSpinButtonAdjustment :: forall (m :: * -> *) o a.
(MonadIO m, IsSpinButton o, IsAdjustment a) =>
o -> a -> m ()
setSpinButtonAdjustment o
obj a
val = IO () -> m ()
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)
constructSpinButtonAdjustment :: (IsSpinButton o, MIO.MonadIO m, Gtk.Adjustment.IsAdjustment a) => a -> m (GValueConstruct o)
constructSpinButtonAdjustment :: forall o (m :: * -> *) a.
(IsSpinButton o, MonadIO m, IsAdjustment a) =>
a -> m (GValueConstruct o)
constructSpinButtonAdjustment a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 SpinButtonAdjustmentPropertyInfo
instance AttrInfo SpinButtonAdjustmentPropertyInfo where
type AttrAllowedOps SpinButtonAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonAdjustmentPropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferTypeConstraint SpinButtonAdjustmentPropertyInfo = Gtk.Adjustment.IsAdjustment
type AttrTransferType SpinButtonAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrGetType SpinButtonAdjustmentPropertyInfo = Gtk.Adjustment.Adjustment
type AttrLabel SpinButtonAdjustmentPropertyInfo = "adjustment"
type AttrOrigin SpinButtonAdjustmentPropertyInfo = SpinButton
attrGet = getSpinButtonAdjustment
attrSet = setSpinButtonAdjustment
attrTransfer _ v = do
unsafeCastTo Gtk.Adjustment.Adjustment v
attrConstruct = constructSpinButtonAdjustment
attrClear = undefined
#endif
getSpinButtonClimbRate :: (MonadIO m, IsSpinButton o) => o -> m Double
getSpinButtonClimbRate :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> m Double
getSpinButtonClimbRate o
obj = IO Double -> m Double
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
"climb-rate"
setSpinButtonClimbRate :: (MonadIO m, IsSpinButton o) => o -> Double -> m ()
setSpinButtonClimbRate :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> Double -> m ()
setSpinButtonClimbRate o
obj Double
val = IO () -> m ()
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"climb-rate" Double
val
constructSpinButtonClimbRate :: (IsSpinButton o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructSpinButtonClimbRate :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructSpinButtonClimbRate Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"climb-rate" Double
val
#if defined(ENABLE_OVERLOADING)
data SpinButtonClimbRatePropertyInfo
instance AttrInfo SpinButtonClimbRatePropertyInfo where
type AttrAllowedOps SpinButtonClimbRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonClimbRatePropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonClimbRatePropertyInfo = (~) Double
type AttrTransferTypeConstraint SpinButtonClimbRatePropertyInfo = (~) Double
type AttrTransferType SpinButtonClimbRatePropertyInfo = Double
type AttrGetType SpinButtonClimbRatePropertyInfo = Double
type AttrLabel SpinButtonClimbRatePropertyInfo = "climb-rate"
type AttrOrigin SpinButtonClimbRatePropertyInfo = SpinButton
attrGet = getSpinButtonClimbRate
attrSet = setSpinButtonClimbRate
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonClimbRate
attrClear = undefined
#endif
getSpinButtonDigits :: (MonadIO m, IsSpinButton o) => o -> m Word32
getSpinButtonDigits :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> m Word32
getSpinButtonDigits o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"digits"
setSpinButtonDigits :: (MonadIO m, IsSpinButton o) => o -> Word32 -> m ()
setSpinButtonDigits :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> Word32 -> m ()
setSpinButtonDigits o
obj Word32
val = IO () -> m ()
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"digits" Word32
val
constructSpinButtonDigits :: (IsSpinButton o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSpinButtonDigits :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructSpinButtonDigits Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"digits" Word32
val
#if defined(ENABLE_OVERLOADING)
data SpinButtonDigitsPropertyInfo
instance AttrInfo SpinButtonDigitsPropertyInfo where
type AttrAllowedOps SpinButtonDigitsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonDigitsPropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonDigitsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SpinButtonDigitsPropertyInfo = (~) Word32
type AttrTransferType SpinButtonDigitsPropertyInfo = Word32
type AttrGetType SpinButtonDigitsPropertyInfo = Word32
type AttrLabel SpinButtonDigitsPropertyInfo = "digits"
type AttrOrigin SpinButtonDigitsPropertyInfo = SpinButton
attrGet = getSpinButtonDigits
attrSet = setSpinButtonDigits
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonDigits
attrClear = undefined
#endif
getSpinButtonNumeric :: (MonadIO m, IsSpinButton o) => o -> m Bool
getSpinButtonNumeric :: forall (m :: * -> *) o. (MonadIO m, IsSpinButton o) => o -> m Bool
getSpinButtonNumeric o
obj = SpinButtonOutputCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (SpinButtonOutputCallback -> m Bool)
-> SpinButtonOutputCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> SpinButtonOutputCallback
forall a. GObject a => a -> String -> SpinButtonOutputCallback
B.Properties.getObjectPropertyBool o
obj String
"numeric"
setSpinButtonNumeric :: (MonadIO m, IsSpinButton o) => o -> Bool -> m ()
setSpinButtonNumeric :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> Bool -> m ()
setSpinButtonNumeric o
obj Bool
val = IO () -> m ()
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
"numeric" Bool
val
constructSpinButtonNumeric :: (IsSpinButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSpinButtonNumeric :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSpinButtonNumeric Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"numeric" Bool
val
#if defined(ENABLE_OVERLOADING)
data SpinButtonNumericPropertyInfo
instance AttrInfo SpinButtonNumericPropertyInfo where
type AttrAllowedOps SpinButtonNumericPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonNumericPropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonNumericPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SpinButtonNumericPropertyInfo = (~) Bool
type AttrTransferType SpinButtonNumericPropertyInfo = Bool
type AttrGetType SpinButtonNumericPropertyInfo = Bool
type AttrLabel SpinButtonNumericPropertyInfo = "numeric"
type AttrOrigin SpinButtonNumericPropertyInfo = SpinButton
attrGet = getSpinButtonNumeric
attrSet = setSpinButtonNumeric
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonNumeric
attrClear = undefined
#endif
getSpinButtonSnapToTicks :: (MonadIO m, IsSpinButton o) => o -> m Bool
getSpinButtonSnapToTicks :: forall (m :: * -> *) o. (MonadIO m, IsSpinButton o) => o -> m Bool
getSpinButtonSnapToTicks o
obj = SpinButtonOutputCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (SpinButtonOutputCallback -> m Bool)
-> SpinButtonOutputCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> SpinButtonOutputCallback
forall a. GObject a => a -> String -> SpinButtonOutputCallback
B.Properties.getObjectPropertyBool o
obj String
"snap-to-ticks"
setSpinButtonSnapToTicks :: (MonadIO m, IsSpinButton o) => o -> Bool -> m ()
setSpinButtonSnapToTicks :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> Bool -> m ()
setSpinButtonSnapToTicks o
obj Bool
val = IO () -> m ()
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
"snap-to-ticks" Bool
val
constructSpinButtonSnapToTicks :: (IsSpinButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSpinButtonSnapToTicks :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSpinButtonSnapToTicks Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"snap-to-ticks" Bool
val
#if defined(ENABLE_OVERLOADING)
data SpinButtonSnapToTicksPropertyInfo
instance AttrInfo SpinButtonSnapToTicksPropertyInfo where
type AttrAllowedOps SpinButtonSnapToTicksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonSnapToTicksPropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonSnapToTicksPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SpinButtonSnapToTicksPropertyInfo = (~) Bool
type AttrTransferType SpinButtonSnapToTicksPropertyInfo = Bool
type AttrGetType SpinButtonSnapToTicksPropertyInfo = Bool
type AttrLabel SpinButtonSnapToTicksPropertyInfo = "snap-to-ticks"
type AttrOrigin SpinButtonSnapToTicksPropertyInfo = SpinButton
attrGet = getSpinButtonSnapToTicks
attrSet = setSpinButtonSnapToTicks
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonSnapToTicks
attrClear = undefined
#endif
getSpinButtonUpdatePolicy :: (MonadIO m, IsSpinButton o) => o -> m Gtk.Enums.SpinButtonUpdatePolicy
getSpinButtonUpdatePolicy :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> m SpinButtonUpdatePolicy
getSpinButtonUpdatePolicy o
obj = IO SpinButtonUpdatePolicy -> m SpinButtonUpdatePolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SpinButtonUpdatePolicy -> m SpinButtonUpdatePolicy)
-> IO SpinButtonUpdatePolicy -> m SpinButtonUpdatePolicy
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SpinButtonUpdatePolicy
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"update-policy"
setSpinButtonUpdatePolicy :: (MonadIO m, IsSpinButton o) => o -> Gtk.Enums.SpinButtonUpdatePolicy -> m ()
setSpinButtonUpdatePolicy :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> SpinButtonUpdatePolicy -> m ()
setSpinButtonUpdatePolicy o
obj SpinButtonUpdatePolicy
val = IO () -> m ()
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 -> SpinButtonUpdatePolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"update-policy" SpinButtonUpdatePolicy
val
constructSpinButtonUpdatePolicy :: (IsSpinButton o, MIO.MonadIO m) => Gtk.Enums.SpinButtonUpdatePolicy -> m (GValueConstruct o)
constructSpinButtonUpdatePolicy :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
SpinButtonUpdatePolicy -> m (GValueConstruct o)
constructSpinButtonUpdatePolicy SpinButtonUpdatePolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 -> SpinButtonUpdatePolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"update-policy" SpinButtonUpdatePolicy
val
#if defined(ENABLE_OVERLOADING)
data SpinButtonUpdatePolicyPropertyInfo
instance AttrInfo SpinButtonUpdatePolicyPropertyInfo where
type AttrAllowedOps SpinButtonUpdatePolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonUpdatePolicyPropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonUpdatePolicyPropertyInfo = (~) Gtk.Enums.SpinButtonUpdatePolicy
type AttrTransferTypeConstraint SpinButtonUpdatePolicyPropertyInfo = (~) Gtk.Enums.SpinButtonUpdatePolicy
type AttrTransferType SpinButtonUpdatePolicyPropertyInfo = Gtk.Enums.SpinButtonUpdatePolicy
type AttrGetType SpinButtonUpdatePolicyPropertyInfo = Gtk.Enums.SpinButtonUpdatePolicy
type AttrLabel SpinButtonUpdatePolicyPropertyInfo = "update-policy"
type AttrOrigin SpinButtonUpdatePolicyPropertyInfo = SpinButton
attrGet = getSpinButtonUpdatePolicy
attrSet = setSpinButtonUpdatePolicy
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonUpdatePolicy
attrClear = undefined
#endif
getSpinButtonValue :: (MonadIO m, IsSpinButton o) => o -> m Double
getSpinButtonValue :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> m Double
getSpinButtonValue o
obj = IO Double -> m Double
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"
setSpinButtonValue :: (MonadIO m, IsSpinButton o) => o -> Double -> m ()
setSpinButtonValue :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> Double -> m ()
setSpinButtonValue o
obj Double
val = IO () -> m ()
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"value" Double
val
constructSpinButtonValue :: (IsSpinButton o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructSpinButtonValue :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructSpinButtonValue Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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 SpinButtonValuePropertyInfo
instance AttrInfo SpinButtonValuePropertyInfo where
type AttrAllowedOps SpinButtonValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonValuePropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonValuePropertyInfo = (~) Double
type AttrTransferTypeConstraint SpinButtonValuePropertyInfo = (~) Double
type AttrTransferType SpinButtonValuePropertyInfo = Double
type AttrGetType SpinButtonValuePropertyInfo = Double
type AttrLabel SpinButtonValuePropertyInfo = "value"
type AttrOrigin SpinButtonValuePropertyInfo = SpinButton
attrGet = getSpinButtonValue
attrSet = setSpinButtonValue
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonValue
attrClear = undefined
#endif
getSpinButtonWrap :: (MonadIO m, IsSpinButton o) => o -> m Bool
getSpinButtonWrap :: forall (m :: * -> *) o. (MonadIO m, IsSpinButton o) => o -> m Bool
getSpinButtonWrap o
obj = SpinButtonOutputCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (SpinButtonOutputCallback -> m Bool)
-> SpinButtonOutputCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> SpinButtonOutputCallback
forall a. GObject a => a -> String -> SpinButtonOutputCallback
B.Properties.getObjectPropertyBool o
obj String
"wrap"
setSpinButtonWrap :: (MonadIO m, IsSpinButton o) => o -> Bool -> m ()
setSpinButtonWrap :: forall (m :: * -> *) o.
(MonadIO m, IsSpinButton o) =>
o -> Bool -> m ()
setSpinButtonWrap o
obj Bool
val = IO () -> m ()
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
"wrap" Bool
val
constructSpinButtonWrap :: (IsSpinButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSpinButtonWrap :: forall o (m :: * -> *).
(IsSpinButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSpinButtonWrap Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"wrap" Bool
val
#if defined(ENABLE_OVERLOADING)
data SpinButtonWrapPropertyInfo
instance AttrInfo SpinButtonWrapPropertyInfo where
type AttrAllowedOps SpinButtonWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpinButtonWrapPropertyInfo = IsSpinButton
type AttrSetTypeConstraint SpinButtonWrapPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SpinButtonWrapPropertyInfo = (~) Bool
type AttrTransferType SpinButtonWrapPropertyInfo = Bool
type AttrGetType SpinButtonWrapPropertyInfo = Bool
type AttrLabel SpinButtonWrapPropertyInfo = "wrap"
type AttrOrigin SpinButtonWrapPropertyInfo = SpinButton
attrGet = getSpinButtonWrap
attrSet = setSpinButtonWrap
attrTransfer _ v = do
return v
attrConstruct = constructSpinButtonWrap
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SpinButton
type instance O.AttributeList SpinButton = SpinButtonAttributeList
type SpinButtonAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("climbRate", SpinButtonClimbRatePropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("cursorPosition", Gtk.Editable.EditableCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("editable", Gtk.Editable.EditableEditablePropertyInfo), '("editingCanceled", Gtk.CellEditable.CellEditableEditingCanceledPropertyInfo), '("enableUndo", Gtk.Editable.EditableEnableUndoPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxWidthChars", Gtk.Editable.EditableMaxWidthCharsPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("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), '("selectionBound", Gtk.Editable.EditableSelectionBoundPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("snapToTicks", SpinButtonSnapToTicksPropertyInfo), '("text", Gtk.Editable.EditableTextPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("updatePolicy", SpinButtonUpdatePolicyPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthChars", Gtk.Editable.EditableWidthCharsPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", Gtk.Editable.EditableXalignPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
spinButtonAdjustment :: AttrLabelProxy "adjustment"
spinButtonAdjustment = AttrLabelProxy
spinButtonClimbRate :: AttrLabelProxy "climbRate"
spinButtonClimbRate = AttrLabelProxy
spinButtonDigits :: AttrLabelProxy "digits"
spinButtonDigits = AttrLabelProxy
spinButtonNumeric :: AttrLabelProxy "numeric"
spinButtonNumeric = AttrLabelProxy
spinButtonSnapToTicks :: AttrLabelProxy "snapToTicks"
spinButtonSnapToTicks = AttrLabelProxy
spinButtonUpdatePolicy :: AttrLabelProxy "updatePolicy"
spinButtonUpdatePolicy = AttrLabelProxy
spinButtonValue :: AttrLabelProxy "value"
spinButtonValue = AttrLabelProxy
spinButtonWrap :: AttrLabelProxy "wrap"
spinButtonWrap = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SpinButton = SpinButtonSignalList
type SpinButtonSignalList = ('[ '("changeValue", SpinButtonChangeValueSignalInfo), '("changed", Gtk.Editable.EditableChangedSignalInfo), '("deleteText", Gtk.Editable.EditableDeleteTextSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("editingDone", Gtk.CellEditable.CellEditableEditingDoneSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("input", SpinButtonInputSignalInfo), '("insertText", Gtk.Editable.EditableInsertTextSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("removeWidget", Gtk.CellEditable.CellEditableRemoveWidgetSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("valueChanged", SpinButtonValueChangedSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_spin_button_new" gtk_spin_button_new ::
Ptr Gtk.Adjustment.Adjustment ->
CDouble ->
Word32 ->
IO (Ptr SpinButton)
spinButtonNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Adjustment.IsAdjustment a) =>
Maybe (a)
-> Double
-> Word32
-> m SpinButton
spinButtonNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAdjustment a) =>
Maybe a -> Double -> Word32 -> m SpinButton
spinButtonNew Maybe a
adjustment Double
climbRate Word32
digits = IO SpinButton -> m SpinButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SpinButton -> m SpinButton) -> IO SpinButton -> m SpinButton
forall a b. (a -> b) -> a -> b
$ do
Ptr Adjustment
maybeAdjustment <- case Maybe a
adjustment of
Maybe a
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just a
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jAdjustment'
let climbRate' :: CDouble
climbRate' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
climbRate
Ptr SpinButton
result <- Ptr Adjustment -> CDouble -> Word32 -> IO (Ptr SpinButton)
gtk_spin_button_new Ptr Adjustment
maybeAdjustment CDouble
climbRate' Word32
digits
Text -> Ptr SpinButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"spinButtonNew" Ptr SpinButton
result
SpinButton
result' <- ((ManagedPtr SpinButton -> SpinButton)
-> Ptr SpinButton -> IO SpinButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SpinButton -> SpinButton
SpinButton) Ptr SpinButton
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
SpinButton -> IO SpinButton
forall (m :: * -> *) a. Monad m => a -> m a
return SpinButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_spin_button_new_with_range" gtk_spin_button_new_with_range ::
CDouble ->
CDouble ->
CDouble ->
IO (Ptr SpinButton)
spinButtonNewWithRange ::
(B.CallStack.HasCallStack, MonadIO m) =>
Double
-> Double
-> Double
-> m SpinButton
spinButtonNewWithRange :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Double -> Double -> Double -> m SpinButton
spinButtonNewWithRange Double
min Double
max Double
step = IO SpinButton -> m SpinButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SpinButton -> m SpinButton) -> IO SpinButton -> m SpinButton
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 SpinButton
result <- CDouble -> CDouble -> CDouble -> IO (Ptr SpinButton)
gtk_spin_button_new_with_range CDouble
min' CDouble
max' CDouble
step'
Text -> Ptr SpinButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"spinButtonNewWithRange" Ptr SpinButton
result
SpinButton
result' <- ((ManagedPtr SpinButton -> SpinButton)
-> Ptr SpinButton -> IO SpinButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SpinButton -> SpinButton
SpinButton) Ptr SpinButton
result
SpinButton -> IO SpinButton
forall (m :: * -> *) a. Monad m => a -> m a
return SpinButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_spin_button_configure" gtk_spin_button_configure ::
Ptr SpinButton ->
Ptr Gtk.Adjustment.Adjustment ->
CDouble ->
Word32 ->
IO ()
spinButtonConfigure ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a, Gtk.Adjustment.IsAdjustment b) =>
a
-> Maybe (b)
-> Double
-> Word32
-> m ()
spinButtonConfigure :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSpinButton a, IsAdjustment b) =>
a -> Maybe b -> Double -> Word32 -> m ()
spinButtonConfigure a
spinButton Maybe b
adjustment Double
climbRate Word32
digits = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr Adjustment
maybeAdjustment <- case Maybe b
adjustment of
Maybe b
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just b
jAdjustment -> do
Ptr Adjustment
jAdjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAdjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jAdjustment'
let climbRate' :: CDouble
climbRate' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
climbRate
Ptr SpinButton -> Ptr Adjustment -> CDouble -> Word32 -> IO ()
gtk_spin_button_configure Ptr SpinButton
spinButton' Ptr Adjustment
maybeAdjustment CDouble
climbRate' Word32
digits
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
adjustment b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonConfigureMethodInfo
instance (signature ~ (Maybe (b) -> Double -> Word32 -> m ()), MonadIO m, IsSpinButton a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod SpinButtonConfigureMethodInfo a signature where
overloadedMethod = spinButtonConfigure
instance O.OverloadedMethodInfo SpinButtonConfigureMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonConfigure",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonConfigure"
}
#endif
foreign import ccall "gtk_spin_button_get_adjustment" gtk_spin_button_get_adjustment ::
Ptr SpinButton ->
IO (Ptr Gtk.Adjustment.Adjustment)
spinButtonGetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Gtk.Adjustment.Adjustment
spinButtonGetAdjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Adjustment
spinButtonGetAdjustment a
spinButton = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr Adjustment
result <- Ptr SpinButton -> IO (Ptr Adjustment)
gtk_spin_button_get_adjustment Ptr SpinButton
spinButton'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"spinButtonGetAdjustment" 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
spinButton
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetAdjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetAdjustmentMethodInfo a signature where
overloadedMethod = spinButtonGetAdjustment
instance O.OverloadedMethodInfo SpinButtonGetAdjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetAdjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetAdjustment"
}
#endif
foreign import ccall "gtk_spin_button_get_climb_rate" gtk_spin_button_get_climb_rate ::
Ptr SpinButton ->
IO CDouble
spinButtonGetClimbRate ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Double
spinButtonGetClimbRate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Double
spinButtonGetClimbRate a
spinButton = IO Double -> m Double
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 SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
CDouble
result <- Ptr SpinButton -> IO CDouble
gtk_spin_button_get_climb_rate Ptr SpinButton
spinButton'
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
spinButton
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetClimbRateMethodInfo
instance (signature ~ (m Double), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetClimbRateMethodInfo a signature where
overloadedMethod = spinButtonGetClimbRate
instance O.OverloadedMethodInfo SpinButtonGetClimbRateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetClimbRate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetClimbRate"
}
#endif
foreign import ccall "gtk_spin_button_get_digits" gtk_spin_button_get_digits ::
Ptr SpinButton ->
IO Word32
spinButtonGetDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Word32
spinButtonGetDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Word32
spinButtonGetDigits a
spinButton = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Word32
result <- Ptr SpinButton -> IO Word32
gtk_spin_button_get_digits Ptr SpinButton
spinButton'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetDigitsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetDigitsMethodInfo a signature where
overloadedMethod = spinButtonGetDigits
instance O.OverloadedMethodInfo SpinButtonGetDigitsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetDigits",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetDigits"
}
#endif
foreign import ccall "gtk_spin_button_get_increments" gtk_spin_button_get_increments ::
Ptr SpinButton ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
spinButtonGetIncrements ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m ((Double, Double))
spinButtonGetIncrements :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m (Double, Double)
spinButtonGetIncrements a
spinButton = IO (Double, Double) -> m (Double, Double)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Double, Double) -> m (Double, Double))
-> IO (Double, Double) -> m (Double, Double)
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr CDouble
step <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
page <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr SpinButton -> Ptr CDouble -> Ptr CDouble -> IO ()
gtk_spin_button_get_increments Ptr SpinButton
spinButton' Ptr CDouble
step Ptr CDouble
page
CDouble
step' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
step
let step'' :: Double
step'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
step'
CDouble
page' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
page
let page'' :: Double
page'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
step
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
page
(Double, Double) -> IO (Double, Double)
forall (m :: * -> *) a. Monad m => a -> m a
return (Double
step'', Double
page'')
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetIncrementsMethodInfo
instance (signature ~ (m ((Double, Double))), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetIncrementsMethodInfo a signature where
overloadedMethod = spinButtonGetIncrements
instance O.OverloadedMethodInfo SpinButtonGetIncrementsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetIncrements",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetIncrements"
}
#endif
foreign import ccall "gtk_spin_button_get_numeric" gtk_spin_button_get_numeric ::
Ptr SpinButton ->
IO CInt
spinButtonGetNumeric ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Bool
spinButtonGetNumeric :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Bool
spinButtonGetNumeric a
spinButton = SpinButtonOutputCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (SpinButtonOutputCallback -> m Bool)
-> SpinButtonOutputCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
CInt
result <- Ptr SpinButton -> IO CInt
gtk_spin_button_get_numeric Ptr SpinButton
spinButton'
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
spinButton
Bool -> SpinButtonOutputCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetNumericMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetNumericMethodInfo a signature where
overloadedMethod = spinButtonGetNumeric
instance O.OverloadedMethodInfo SpinButtonGetNumericMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetNumeric",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetNumeric"
}
#endif
foreign import ccall "gtk_spin_button_get_range" gtk_spin_button_get_range ::
Ptr SpinButton ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
spinButtonGetRange ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m ((Double, Double))
spinButtonGetRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m (Double, Double)
spinButtonGetRange a
spinButton = IO (Double, Double) -> m (Double, Double)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Double, Double) -> m (Double, Double))
-> IO (Double, Double) -> m (Double, Double)
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr CDouble
min <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
max <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr SpinButton -> Ptr CDouble -> Ptr CDouble -> IO ()
gtk_spin_button_get_range Ptr SpinButton
spinButton' Ptr CDouble
min Ptr CDouble
max
CDouble
min' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
min
let min'' :: Double
min'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
min'
CDouble
max' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
max
let max'' :: Double
max'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
max'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
min
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
max
(Double, Double) -> IO (Double, Double)
forall (m :: * -> *) a. Monad m => a -> m a
return (Double
min'', Double
max'')
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetRangeMethodInfo
instance (signature ~ (m ((Double, Double))), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetRangeMethodInfo a signature where
overloadedMethod = spinButtonGetRange
instance O.OverloadedMethodInfo SpinButtonGetRangeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetRange",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetRange"
}
#endif
foreign import ccall "gtk_spin_button_get_snap_to_ticks" gtk_spin_button_get_snap_to_ticks ::
Ptr SpinButton ->
IO CInt
spinButtonGetSnapToTicks ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Bool
spinButtonGetSnapToTicks :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Bool
spinButtonGetSnapToTicks a
spinButton = SpinButtonOutputCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (SpinButtonOutputCallback -> m Bool)
-> SpinButtonOutputCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
CInt
result <- Ptr SpinButton -> IO CInt
gtk_spin_button_get_snap_to_ticks Ptr SpinButton
spinButton'
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
spinButton
Bool -> SpinButtonOutputCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetSnapToTicksMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetSnapToTicksMethodInfo a signature where
overloadedMethod = spinButtonGetSnapToTicks
instance O.OverloadedMethodInfo SpinButtonGetSnapToTicksMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetSnapToTicks",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetSnapToTicks"
}
#endif
foreign import ccall "gtk_spin_button_get_update_policy" gtk_spin_button_get_update_policy ::
Ptr SpinButton ->
IO CUInt
spinButtonGetUpdatePolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Gtk.Enums.SpinButtonUpdatePolicy
spinButtonGetUpdatePolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m SpinButtonUpdatePolicy
spinButtonGetUpdatePolicy a
spinButton = IO SpinButtonUpdatePolicy -> m SpinButtonUpdatePolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SpinButtonUpdatePolicy -> m SpinButtonUpdatePolicy)
-> IO SpinButtonUpdatePolicy -> m SpinButtonUpdatePolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
CUInt
result <- Ptr SpinButton -> IO CUInt
gtk_spin_button_get_update_policy Ptr SpinButton
spinButton'
let result' :: SpinButtonUpdatePolicy
result' = (Int -> SpinButtonUpdatePolicy
forall a. Enum a => Int -> a
toEnum (Int -> SpinButtonUpdatePolicy)
-> (CUInt -> Int) -> CUInt -> SpinButtonUpdatePolicy
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
spinButton
SpinButtonUpdatePolicy -> IO SpinButtonUpdatePolicy
forall (m :: * -> *) a. Monad m => a -> m a
return SpinButtonUpdatePolicy
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetUpdatePolicyMethodInfo
instance (signature ~ (m Gtk.Enums.SpinButtonUpdatePolicy), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetUpdatePolicyMethodInfo a signature where
overloadedMethod = spinButtonGetUpdatePolicy
instance O.OverloadedMethodInfo SpinButtonGetUpdatePolicyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetUpdatePolicy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetUpdatePolicy"
}
#endif
foreign import ccall "gtk_spin_button_get_value" gtk_spin_button_get_value ::
Ptr SpinButton ->
IO CDouble
spinButtonGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Double
spinButtonGetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Double
spinButtonGetValue a
spinButton = IO Double -> m Double
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 SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
CDouble
result <- Ptr SpinButton -> IO CDouble
gtk_spin_button_get_value Ptr SpinButton
spinButton'
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
spinButton
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetValueMethodInfo a signature where
overloadedMethod = spinButtonGetValue
instance O.OverloadedMethodInfo SpinButtonGetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetValue"
}
#endif
foreign import ccall "gtk_spin_button_get_value_as_int" gtk_spin_button_get_value_as_int ::
Ptr SpinButton ->
IO Int32
spinButtonGetValueAsInt ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Int32
spinButtonGetValueAsInt :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Int32
spinButtonGetValueAsInt a
spinButton = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Int32
result <- Ptr SpinButton -> IO Int32
gtk_spin_button_get_value_as_int Ptr SpinButton
spinButton'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetValueAsIntMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetValueAsIntMethodInfo a signature where
overloadedMethod = spinButtonGetValueAsInt
instance O.OverloadedMethodInfo SpinButtonGetValueAsIntMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetValueAsInt",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetValueAsInt"
}
#endif
foreign import ccall "gtk_spin_button_get_wrap" gtk_spin_button_get_wrap ::
Ptr SpinButton ->
IO CInt
spinButtonGetWrap ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m Bool
spinButtonGetWrap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m Bool
spinButtonGetWrap a
spinButton = SpinButtonOutputCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (SpinButtonOutputCallback -> m Bool)
-> SpinButtonOutputCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
CInt
result <- Ptr SpinButton -> IO CInt
gtk_spin_button_get_wrap Ptr SpinButton
spinButton'
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
spinButton
Bool -> SpinButtonOutputCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SpinButtonGetWrapMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonGetWrapMethodInfo a signature where
overloadedMethod = spinButtonGetWrap
instance O.OverloadedMethodInfo SpinButtonGetWrapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonGetWrap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonGetWrap"
}
#endif
foreign import ccall "gtk_spin_button_set_adjustment" gtk_spin_button_set_adjustment ::
Ptr SpinButton ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
spinButtonSetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
spinButtonSetAdjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSpinButton a, IsAdjustment b) =>
a -> b -> m ()
spinButtonSetAdjustment a
spinButton b
adjustment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr SpinButton -> Ptr Adjustment -> IO ()
gtk_spin_button_set_adjustment Ptr SpinButton
spinButton' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetAdjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSpinButton a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod SpinButtonSetAdjustmentMethodInfo a signature where
overloadedMethod = spinButtonSetAdjustment
instance O.OverloadedMethodInfo SpinButtonSetAdjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetAdjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetAdjustment"
}
#endif
foreign import ccall "gtk_spin_button_set_climb_rate" gtk_spin_button_set_climb_rate ::
Ptr SpinButton ->
CDouble ->
IO ()
spinButtonSetClimbRate ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Double
-> m ()
spinButtonSetClimbRate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Double -> m ()
spinButtonSetClimbRate a
spinButton Double
climbRate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let climbRate' :: CDouble
climbRate' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
climbRate
Ptr SpinButton -> CDouble -> IO ()
gtk_spin_button_set_climb_rate Ptr SpinButton
spinButton' CDouble
climbRate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetClimbRateMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetClimbRateMethodInfo a signature where
overloadedMethod = spinButtonSetClimbRate
instance O.OverloadedMethodInfo SpinButtonSetClimbRateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetClimbRate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetClimbRate"
}
#endif
foreign import ccall "gtk_spin_button_set_digits" gtk_spin_button_set_digits ::
Ptr SpinButton ->
Word32 ->
IO ()
spinButtonSetDigits ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Word32
-> m ()
spinButtonSetDigits :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Word32 -> m ()
spinButtonSetDigits a
spinButton Word32
digits = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr SpinButton -> Word32 -> IO ()
gtk_spin_button_set_digits Ptr SpinButton
spinButton' Word32
digits
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetDigitsMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetDigitsMethodInfo a signature where
overloadedMethod = spinButtonSetDigits
instance O.OverloadedMethodInfo SpinButtonSetDigitsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetDigits",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetDigits"
}
#endif
foreign import ccall "gtk_spin_button_set_increments" gtk_spin_button_set_increments ::
Ptr SpinButton ->
CDouble ->
CDouble ->
IO ()
spinButtonSetIncrements ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Double
-> Double
-> m ()
spinButtonSetIncrements :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Double -> Double -> m ()
spinButtonSetIncrements a
spinButton Double
step Double
page = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let step' :: CDouble
step' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
step
let page' :: CDouble
page' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
page
Ptr SpinButton -> CDouble -> CDouble -> IO ()
gtk_spin_button_set_increments Ptr SpinButton
spinButton' CDouble
step' CDouble
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetIncrementsMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetIncrementsMethodInfo a signature where
overloadedMethod = spinButtonSetIncrements
instance O.OverloadedMethodInfo SpinButtonSetIncrementsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetIncrements",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetIncrements"
}
#endif
foreign import ccall "gtk_spin_button_set_numeric" gtk_spin_button_set_numeric ::
Ptr SpinButton ->
CInt ->
IO ()
spinButtonSetNumeric ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Bool
-> m ()
spinButtonSetNumeric :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Bool -> m ()
spinButtonSetNumeric a
spinButton Bool
numeric = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let numeric' :: CInt
numeric' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
numeric
Ptr SpinButton -> CInt -> IO ()
gtk_spin_button_set_numeric Ptr SpinButton
spinButton' CInt
numeric'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetNumericMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetNumericMethodInfo a signature where
overloadedMethod = spinButtonSetNumeric
instance O.OverloadedMethodInfo SpinButtonSetNumericMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetNumeric",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetNumeric"
}
#endif
foreign import ccall "gtk_spin_button_set_range" gtk_spin_button_set_range ::
Ptr SpinButton ->
CDouble ->
CDouble ->
IO ()
spinButtonSetRange ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Double
-> Double
-> m ()
spinButtonSetRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Double -> Double -> m ()
spinButtonSetRange a
spinButton Double
min Double
max = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
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
Ptr SpinButton -> CDouble -> CDouble -> IO ()
gtk_spin_button_set_range Ptr SpinButton
spinButton' CDouble
min' CDouble
max'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetRangeMethodInfo
instance (signature ~ (Double -> Double -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetRangeMethodInfo a signature where
overloadedMethod = spinButtonSetRange
instance O.OverloadedMethodInfo SpinButtonSetRangeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetRange",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetRange"
}
#endif
foreign import ccall "gtk_spin_button_set_snap_to_ticks" gtk_spin_button_set_snap_to_ticks ::
Ptr SpinButton ->
CInt ->
IO ()
spinButtonSetSnapToTicks ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Bool
-> m ()
spinButtonSetSnapToTicks :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Bool -> m ()
spinButtonSetSnapToTicks a
spinButton Bool
snapToTicks = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let snapToTicks' :: CInt
snapToTicks' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
snapToTicks
Ptr SpinButton -> CInt -> IO ()
gtk_spin_button_set_snap_to_ticks Ptr SpinButton
spinButton' CInt
snapToTicks'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetSnapToTicksMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetSnapToTicksMethodInfo a signature where
overloadedMethod = spinButtonSetSnapToTicks
instance O.OverloadedMethodInfo SpinButtonSetSnapToTicksMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetSnapToTicks",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetSnapToTicks"
}
#endif
foreign import ccall "gtk_spin_button_set_update_policy" gtk_spin_button_set_update_policy ::
Ptr SpinButton ->
CUInt ->
IO ()
spinButtonSetUpdatePolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Gtk.Enums.SpinButtonUpdatePolicy
-> m ()
spinButtonSetUpdatePolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> SpinButtonUpdatePolicy -> m ()
spinButtonSetUpdatePolicy a
spinButton SpinButtonUpdatePolicy
policy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let policy' :: CUInt
policy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (SpinButtonUpdatePolicy -> Int)
-> SpinButtonUpdatePolicy
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SpinButtonUpdatePolicy -> Int
forall a. Enum a => a -> Int
fromEnum) SpinButtonUpdatePolicy
policy
Ptr SpinButton -> CUInt -> IO ()
gtk_spin_button_set_update_policy Ptr SpinButton
spinButton' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetUpdatePolicyMethodInfo
instance (signature ~ (Gtk.Enums.SpinButtonUpdatePolicy -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetUpdatePolicyMethodInfo a signature where
overloadedMethod = spinButtonSetUpdatePolicy
instance O.OverloadedMethodInfo SpinButtonSetUpdatePolicyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetUpdatePolicy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetUpdatePolicy"
}
#endif
foreign import ccall "gtk_spin_button_set_value" gtk_spin_button_set_value ::
Ptr SpinButton ->
CDouble ->
IO ()
spinButtonSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Double
-> m ()
spinButtonSetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Double -> m ()
spinButtonSetValue a
spinButton Double
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr SpinButton -> CDouble -> IO ()
gtk_spin_button_set_value Ptr SpinButton
spinButton' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetValueMethodInfo a signature where
overloadedMethod = spinButtonSetValue
instance O.OverloadedMethodInfo SpinButtonSetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetValue"
}
#endif
foreign import ccall "gtk_spin_button_set_wrap" gtk_spin_button_set_wrap ::
Ptr SpinButton ->
CInt ->
IO ()
spinButtonSetWrap ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Bool
-> m ()
spinButtonSetWrap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> Bool -> m ()
spinButtonSetWrap a
spinButton Bool
wrap = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let wrap' :: CInt
wrap' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
wrap
Ptr SpinButton -> CInt -> IO ()
gtk_spin_button_set_wrap Ptr SpinButton
spinButton' CInt
wrap'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSetWrapMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSetWrapMethodInfo a signature where
overloadedMethod = spinButtonSetWrap
instance O.OverloadedMethodInfo SpinButtonSetWrapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSetWrap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSetWrap"
}
#endif
foreign import ccall "gtk_spin_button_spin" gtk_spin_button_spin ::
Ptr SpinButton ->
CUInt ->
CDouble ->
IO ()
spinButtonSpin ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> Gtk.Enums.SpinType
-> Double
-> m ()
spinButtonSpin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> SpinType -> Double -> m ()
spinButtonSpin a
spinButton SpinType
direction Double
increment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
let direction' :: CUInt
direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SpinType -> Int) -> SpinType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SpinType -> Int
forall a. Enum a => a -> Int
fromEnum) SpinType
direction
let increment' :: CDouble
increment' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
increment
Ptr SpinButton -> CUInt -> CDouble -> IO ()
gtk_spin_button_spin Ptr SpinButton
spinButton' CUInt
direction' CDouble
increment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonSpinMethodInfo
instance (signature ~ (Gtk.Enums.SpinType -> Double -> m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonSpinMethodInfo a signature where
overloadedMethod = spinButtonSpin
instance O.OverloadedMethodInfo SpinButtonSpinMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonSpin",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonSpin"
}
#endif
foreign import ccall "gtk_spin_button_update" gtk_spin_button_update ::
Ptr SpinButton ->
IO ()
spinButtonUpdate ::
(B.CallStack.HasCallStack, MonadIO m, IsSpinButton a) =>
a
-> m ()
spinButtonUpdate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpinButton a) =>
a -> m ()
spinButtonUpdate a
spinButton = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SpinButton
spinButton' <- a -> IO (Ptr SpinButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
spinButton
Ptr SpinButton -> IO ()
gtk_spin_button_update Ptr SpinButton
spinButton'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
spinButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpinButtonUpdateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsSpinButton a) => O.OverloadedMethod SpinButtonUpdateMethodInfo a signature where
overloadedMethod = spinButtonUpdate
instance O.OverloadedMethodInfo SpinButtonUpdateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.SpinButton.spinButtonUpdate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-SpinButton.html#v:spinButtonUpdate"
}
#endif