{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.LevelBar
(
LevelBar(..) ,
IsLevelBar ,
toLevelBar ,
noLevelBar ,
#if defined(ENABLE_OVERLOADING)
ResolveLevelBarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
LevelBarAddOffsetValueMethodInfo ,
#endif
levelBarAddOffsetValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarGetInvertedMethodInfo ,
#endif
levelBarGetInverted ,
#if defined(ENABLE_OVERLOADING)
LevelBarGetMaxValueMethodInfo ,
#endif
levelBarGetMaxValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarGetMinValueMethodInfo ,
#endif
levelBarGetMinValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarGetModeMethodInfo ,
#endif
levelBarGetMode ,
#if defined(ENABLE_OVERLOADING)
LevelBarGetOffsetValueMethodInfo ,
#endif
levelBarGetOffsetValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarGetValueMethodInfo ,
#endif
levelBarGetValue ,
levelBarNew ,
levelBarNewForInterval ,
#if defined(ENABLE_OVERLOADING)
LevelBarRemoveOffsetValueMethodInfo ,
#endif
levelBarRemoveOffsetValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarSetInvertedMethodInfo ,
#endif
levelBarSetInverted ,
#if defined(ENABLE_OVERLOADING)
LevelBarSetMaxValueMethodInfo ,
#endif
levelBarSetMaxValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarSetMinValueMethodInfo ,
#endif
levelBarSetMinValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarSetModeMethodInfo ,
#endif
levelBarSetMode ,
#if defined(ENABLE_OVERLOADING)
LevelBarSetValueMethodInfo ,
#endif
levelBarSetValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarInvertedPropertyInfo ,
#endif
constructLevelBarInverted ,
getLevelBarInverted ,
#if defined(ENABLE_OVERLOADING)
levelBarInverted ,
#endif
setLevelBarInverted ,
#if defined(ENABLE_OVERLOADING)
LevelBarMaxValuePropertyInfo ,
#endif
constructLevelBarMaxValue ,
getLevelBarMaxValue ,
#if defined(ENABLE_OVERLOADING)
levelBarMaxValue ,
#endif
setLevelBarMaxValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarMinValuePropertyInfo ,
#endif
constructLevelBarMinValue ,
getLevelBarMinValue ,
#if defined(ENABLE_OVERLOADING)
levelBarMinValue ,
#endif
setLevelBarMinValue ,
#if defined(ENABLE_OVERLOADING)
LevelBarModePropertyInfo ,
#endif
constructLevelBarMode ,
getLevelBarMode ,
#if defined(ENABLE_OVERLOADING)
levelBarMode ,
#endif
setLevelBarMode ,
#if defined(ENABLE_OVERLOADING)
LevelBarValuePropertyInfo ,
#endif
constructLevelBarValue ,
getLevelBarValue ,
#if defined(ENABLE_OVERLOADING)
levelBarValue ,
#endif
setLevelBarValue ,
C_LevelBarOffsetChangedCallback ,
LevelBarOffsetChangedCallback ,
#if defined(ENABLE_OVERLOADING)
LevelBarOffsetChangedSignalInfo ,
#endif
afterLevelBarOffsetChanged ,
genClosure_LevelBarOffsetChanged ,
mk_LevelBarOffsetChangedCallback ,
noLevelBarOffsetChangedCallback ,
onLevelBarOffsetChanged ,
wrap_LevelBarOffsetChangedCallback ,
) 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.ManagedPtr as B.ManagedPtr
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 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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype LevelBar = LevelBar (ManagedPtr LevelBar)
deriving (LevelBar -> LevelBar -> Bool
(LevelBar -> LevelBar -> Bool)
-> (LevelBar -> LevelBar -> Bool) -> Eq LevelBar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LevelBar -> LevelBar -> Bool
$c/= :: LevelBar -> LevelBar -> Bool
== :: LevelBar -> LevelBar -> Bool
$c== :: LevelBar -> LevelBar -> Bool
Eq)
foreign import ccall "gtk_level_bar_get_type"
c_gtk_level_bar_get_type :: IO GType
instance GObject LevelBar where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_level_bar_get_type
instance B.GValue.IsGValue LevelBar where
toGValue :: LevelBar -> IO GValue
toGValue o :: LevelBar
o = do
GType
gtype <- IO GType
c_gtk_level_bar_get_type
LevelBar -> (Ptr LevelBar -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr LevelBar
o (GType
-> (GValue -> Ptr LevelBar -> IO ()) -> Ptr LevelBar -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr LevelBar -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO LevelBar
fromGValue gv :: GValue
gv = do
Ptr LevelBar
ptr <- GValue -> IO (Ptr LevelBar)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr LevelBar)
(ManagedPtr LevelBar -> LevelBar) -> Ptr LevelBar -> IO LevelBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr LevelBar -> LevelBar
LevelBar Ptr LevelBar
ptr
class (GObject o, O.IsDescendantOf LevelBar o) => IsLevelBar o
instance (GObject o, O.IsDescendantOf LevelBar o) => IsLevelBar o
instance O.HasParentTypes LevelBar
type instance O.ParentTypes LevelBar = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toLevelBar :: (MonadIO m, IsLevelBar o) => o -> m LevelBar
toLevelBar :: o -> m LevelBar
toLevelBar = IO LevelBar -> m LevelBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LevelBar -> m LevelBar)
-> (o -> IO LevelBar) -> o -> m LevelBar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr LevelBar -> LevelBar) -> o -> IO LevelBar
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr LevelBar -> LevelBar
LevelBar
noLevelBar :: Maybe LevelBar
noLevelBar :: Maybe LevelBar
noLevelBar = Maybe LevelBar
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveLevelBarMethod (t :: Symbol) (o :: *) :: * where
ResolveLevelBarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveLevelBarMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveLevelBarMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveLevelBarMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveLevelBarMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveLevelBarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveLevelBarMethod "addOffsetValue" o = LevelBarAddOffsetValueMethodInfo
ResolveLevelBarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveLevelBarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLevelBarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLevelBarMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveLevelBarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveLevelBarMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveLevelBarMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveLevelBarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveLevelBarMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveLevelBarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveLevelBarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveLevelBarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveLevelBarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveLevelBarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveLevelBarMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveLevelBarMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveLevelBarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveLevelBarMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveLevelBarMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveLevelBarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveLevelBarMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveLevelBarMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveLevelBarMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveLevelBarMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveLevelBarMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveLevelBarMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveLevelBarMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveLevelBarMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveLevelBarMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveLevelBarMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveLevelBarMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveLevelBarMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveLevelBarMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveLevelBarMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveLevelBarMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveLevelBarMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveLevelBarMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveLevelBarMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveLevelBarMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveLevelBarMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveLevelBarMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveLevelBarMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveLevelBarMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveLevelBarMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveLevelBarMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveLevelBarMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveLevelBarMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveLevelBarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveLevelBarMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveLevelBarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLevelBarMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveLevelBarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLevelBarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLevelBarMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveLevelBarMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveLevelBarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveLevelBarMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveLevelBarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveLevelBarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveLevelBarMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveLevelBarMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveLevelBarMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveLevelBarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveLevelBarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveLevelBarMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveLevelBarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveLevelBarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveLevelBarMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveLevelBarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveLevelBarMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveLevelBarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveLevelBarMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveLevelBarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveLevelBarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLevelBarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveLevelBarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveLevelBarMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveLevelBarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveLevelBarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveLevelBarMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveLevelBarMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveLevelBarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveLevelBarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveLevelBarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveLevelBarMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveLevelBarMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveLevelBarMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveLevelBarMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveLevelBarMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveLevelBarMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveLevelBarMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveLevelBarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLevelBarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLevelBarMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveLevelBarMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveLevelBarMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveLevelBarMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveLevelBarMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveLevelBarMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveLevelBarMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveLevelBarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveLevelBarMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveLevelBarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveLevelBarMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveLevelBarMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveLevelBarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveLevelBarMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveLevelBarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveLevelBarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLevelBarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLevelBarMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveLevelBarMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveLevelBarMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveLevelBarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveLevelBarMethod "removeOffsetValue" o = LevelBarRemoveOffsetValueMethodInfo
ResolveLevelBarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveLevelBarMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveLevelBarMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveLevelBarMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveLevelBarMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveLevelBarMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveLevelBarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLevelBarMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveLevelBarMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveLevelBarMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveLevelBarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveLevelBarMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveLevelBarMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveLevelBarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveLevelBarMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveLevelBarMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveLevelBarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLevelBarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLevelBarMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveLevelBarMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveLevelBarMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveLevelBarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLevelBarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveLevelBarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveLevelBarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveLevelBarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveLevelBarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveLevelBarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLevelBarMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveLevelBarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveLevelBarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLevelBarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveLevelBarMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveLevelBarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveLevelBarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveLevelBarMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveLevelBarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveLevelBarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveLevelBarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveLevelBarMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveLevelBarMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveLevelBarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveLevelBarMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveLevelBarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveLevelBarMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveLevelBarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveLevelBarMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveLevelBarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLevelBarMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveLevelBarMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveLevelBarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveLevelBarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveLevelBarMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveLevelBarMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveLevelBarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveLevelBarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveLevelBarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveLevelBarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveLevelBarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveLevelBarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveLevelBarMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveLevelBarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveLevelBarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveLevelBarMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveLevelBarMethod "getInverted" o = LevelBarGetInvertedMethodInfo
ResolveLevelBarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveLevelBarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveLevelBarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveLevelBarMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveLevelBarMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveLevelBarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveLevelBarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveLevelBarMethod "getMaxValue" o = LevelBarGetMaxValueMethodInfo
ResolveLevelBarMethod "getMinValue" o = LevelBarGetMinValueMethodInfo
ResolveLevelBarMethod "getMode" o = LevelBarGetModeMethodInfo
ResolveLevelBarMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveLevelBarMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveLevelBarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveLevelBarMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveLevelBarMethod "getOffsetValue" o = LevelBarGetOffsetValueMethodInfo
ResolveLevelBarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveLevelBarMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveLevelBarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveLevelBarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveLevelBarMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveLevelBarMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveLevelBarMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveLevelBarMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveLevelBarMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveLevelBarMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveLevelBarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveLevelBarMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveLevelBarMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveLevelBarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLevelBarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLevelBarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveLevelBarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveLevelBarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveLevelBarMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveLevelBarMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveLevelBarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveLevelBarMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveLevelBarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveLevelBarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveLevelBarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveLevelBarMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveLevelBarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveLevelBarMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveLevelBarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveLevelBarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveLevelBarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveLevelBarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveLevelBarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveLevelBarMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveLevelBarMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveLevelBarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveLevelBarMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveLevelBarMethod "getValue" o = LevelBarGetValueMethodInfo
ResolveLevelBarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveLevelBarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveLevelBarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveLevelBarMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveLevelBarMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveLevelBarMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveLevelBarMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveLevelBarMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveLevelBarMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveLevelBarMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveLevelBarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveLevelBarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveLevelBarMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveLevelBarMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveLevelBarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLevelBarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveLevelBarMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveLevelBarMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveLevelBarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveLevelBarMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveLevelBarMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveLevelBarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveLevelBarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveLevelBarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveLevelBarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveLevelBarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveLevelBarMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveLevelBarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveLevelBarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveLevelBarMethod "setInverted" o = LevelBarSetInvertedMethodInfo
ResolveLevelBarMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveLevelBarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveLevelBarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveLevelBarMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveLevelBarMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveLevelBarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveLevelBarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveLevelBarMethod "setMaxValue" o = LevelBarSetMaxValueMethodInfo
ResolveLevelBarMethod "setMinValue" o = LevelBarSetMinValueMethodInfo
ResolveLevelBarMethod "setMode" o = LevelBarSetModeMethodInfo
ResolveLevelBarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveLevelBarMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveLevelBarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveLevelBarMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveLevelBarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveLevelBarMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveLevelBarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLevelBarMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveLevelBarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveLevelBarMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveLevelBarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveLevelBarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveLevelBarMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveLevelBarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveLevelBarMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveLevelBarMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveLevelBarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveLevelBarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveLevelBarMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveLevelBarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveLevelBarMethod "setValue" o = LevelBarSetValueMethodInfo
ResolveLevelBarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveLevelBarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveLevelBarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveLevelBarMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveLevelBarMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveLevelBarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLevelBarMethod t LevelBar, O.MethodInfo info LevelBar p) => OL.IsLabel t (LevelBar -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type LevelBarOffsetChangedCallback =
T.Text
-> IO ()
noLevelBarOffsetChangedCallback :: Maybe LevelBarOffsetChangedCallback
noLevelBarOffsetChangedCallback :: Maybe LevelBarOffsetChangedCallback
noLevelBarOffsetChangedCallback = Maybe LevelBarOffsetChangedCallback
forall a. Maybe a
Nothing
type C_LevelBarOffsetChangedCallback =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_LevelBarOffsetChangedCallback :: C_LevelBarOffsetChangedCallback -> IO (FunPtr C_LevelBarOffsetChangedCallback)
genClosure_LevelBarOffsetChanged :: MonadIO m => LevelBarOffsetChangedCallback -> m (GClosure C_LevelBarOffsetChangedCallback)
genClosure_LevelBarOffsetChanged :: LevelBarOffsetChangedCallback
-> m (GClosure C_LevelBarOffsetChangedCallback)
genClosure_LevelBarOffsetChanged cb :: LevelBarOffsetChangedCallback
cb = IO (GClosure C_LevelBarOffsetChangedCallback)
-> m (GClosure C_LevelBarOffsetChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_LevelBarOffsetChangedCallback)
-> m (GClosure C_LevelBarOffsetChangedCallback))
-> IO (GClosure C_LevelBarOffsetChangedCallback)
-> m (GClosure C_LevelBarOffsetChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_LevelBarOffsetChangedCallback
cb' = LevelBarOffsetChangedCallback -> C_LevelBarOffsetChangedCallback
wrap_LevelBarOffsetChangedCallback LevelBarOffsetChangedCallback
cb
C_LevelBarOffsetChangedCallback
-> IO (FunPtr C_LevelBarOffsetChangedCallback)
mk_LevelBarOffsetChangedCallback C_LevelBarOffsetChangedCallback
cb' IO (FunPtr C_LevelBarOffsetChangedCallback)
-> (FunPtr C_LevelBarOffsetChangedCallback
-> IO (GClosure C_LevelBarOffsetChangedCallback))
-> IO (GClosure C_LevelBarOffsetChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_LevelBarOffsetChangedCallback
-> IO (GClosure C_LevelBarOffsetChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_LevelBarOffsetChangedCallback ::
LevelBarOffsetChangedCallback ->
C_LevelBarOffsetChangedCallback
wrap_LevelBarOffsetChangedCallback :: LevelBarOffsetChangedCallback -> C_LevelBarOffsetChangedCallback
wrap_LevelBarOffsetChangedCallback _cb :: LevelBarOffsetChangedCallback
_cb _ name :: CString
name _ = do
Text
name' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
name
LevelBarOffsetChangedCallback
_cb Text
name'
onLevelBarOffsetChanged :: (IsLevelBar a, MonadIO m) => a -> P.Maybe T.Text -> LevelBarOffsetChangedCallback -> m SignalHandlerId
onLevelBarOffsetChanged :: a
-> Maybe Text -> LevelBarOffsetChangedCallback -> m SignalHandlerId
onLevelBarOffsetChanged obj :: a
obj detail :: Maybe Text
detail cb :: LevelBarOffsetChangedCallback
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_LevelBarOffsetChangedCallback
cb' = LevelBarOffsetChangedCallback -> C_LevelBarOffsetChangedCallback
wrap_LevelBarOffsetChangedCallback LevelBarOffsetChangedCallback
cb
FunPtr C_LevelBarOffsetChangedCallback
cb'' <- C_LevelBarOffsetChangedCallback
-> IO (FunPtr C_LevelBarOffsetChangedCallback)
mk_LevelBarOffsetChangedCallback C_LevelBarOffsetChangedCallback
cb'
a
-> Text
-> FunPtr C_LevelBarOffsetChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "offset-changed" FunPtr C_LevelBarOffsetChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
detail
afterLevelBarOffsetChanged :: (IsLevelBar a, MonadIO m) => a -> P.Maybe T.Text -> LevelBarOffsetChangedCallback -> m SignalHandlerId
afterLevelBarOffsetChanged :: a
-> Maybe Text -> LevelBarOffsetChangedCallback -> m SignalHandlerId
afterLevelBarOffsetChanged obj :: a
obj detail :: Maybe Text
detail cb :: LevelBarOffsetChangedCallback
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_LevelBarOffsetChangedCallback
cb' = LevelBarOffsetChangedCallback -> C_LevelBarOffsetChangedCallback
wrap_LevelBarOffsetChangedCallback LevelBarOffsetChangedCallback
cb
FunPtr C_LevelBarOffsetChangedCallback
cb'' <- C_LevelBarOffsetChangedCallback
-> IO (FunPtr C_LevelBarOffsetChangedCallback)
mk_LevelBarOffsetChangedCallback C_LevelBarOffsetChangedCallback
cb'
a
-> Text
-> FunPtr C_LevelBarOffsetChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "offset-changed" FunPtr C_LevelBarOffsetChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
detail
#if defined(ENABLE_OVERLOADING)
data LevelBarOffsetChangedSignalInfo
instance SignalInfo LevelBarOffsetChangedSignalInfo where
type HaskellCallbackType LevelBarOffsetChangedSignalInfo = LevelBarOffsetChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_LevelBarOffsetChangedCallback cb
cb'' <- mk_LevelBarOffsetChangedCallback cb'
connectSignalFunPtr obj "offset-changed" cb'' connectMode detail
#endif
getLevelBarInverted :: (MonadIO m, IsLevelBar o) => o -> m Bool
getLevelBarInverted :: o -> m Bool
getLevelBarInverted obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "inverted"
setLevelBarInverted :: (MonadIO m, IsLevelBar o) => o -> Bool -> m ()
setLevelBarInverted :: o -> Bool -> m ()
setLevelBarInverted obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "inverted" Bool
val
constructLevelBarInverted :: (IsLevelBar o) => Bool -> IO (GValueConstruct o)
constructLevelBarInverted :: Bool -> IO (GValueConstruct o)
constructLevelBarInverted val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "inverted" Bool
val
#if defined(ENABLE_OVERLOADING)
data LevelBarInvertedPropertyInfo
instance AttrInfo LevelBarInvertedPropertyInfo where
type AttrAllowedOps LevelBarInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LevelBarInvertedPropertyInfo = IsLevelBar
type AttrSetTypeConstraint LevelBarInvertedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LevelBarInvertedPropertyInfo = (~) Bool
type AttrTransferType LevelBarInvertedPropertyInfo = Bool
type AttrGetType LevelBarInvertedPropertyInfo = Bool
type AttrLabel LevelBarInvertedPropertyInfo = "inverted"
type AttrOrigin LevelBarInvertedPropertyInfo = LevelBar
attrGet = getLevelBarInverted
attrSet = setLevelBarInverted
attrTransfer _ v = do
return v
attrConstruct = constructLevelBarInverted
attrClear = undefined
#endif
getLevelBarMaxValue :: (MonadIO m, IsLevelBar o) => o -> m Double
getLevelBarMaxValue :: o -> m Double
getLevelBarMaxValue obj :: o
obj = 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
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "max-value"
setLevelBarMaxValue :: (MonadIO m, IsLevelBar o) => o -> Double -> m ()
setLevelBarMaxValue :: o -> Double -> m ()
setLevelBarMaxValue obj :: o
obj val :: Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj "max-value" Double
val
constructLevelBarMaxValue :: (IsLevelBar o) => Double -> IO (GValueConstruct o)
constructLevelBarMaxValue :: Double -> IO (GValueConstruct o)
constructLevelBarMaxValue val :: Double
val = String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble "max-value" Double
val
#if defined(ENABLE_OVERLOADING)
data LevelBarMaxValuePropertyInfo
instance AttrInfo LevelBarMaxValuePropertyInfo where
type AttrAllowedOps LevelBarMaxValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LevelBarMaxValuePropertyInfo = IsLevelBar
type AttrSetTypeConstraint LevelBarMaxValuePropertyInfo = (~) Double
type AttrTransferTypeConstraint LevelBarMaxValuePropertyInfo = (~) Double
type AttrTransferType LevelBarMaxValuePropertyInfo = Double
type AttrGetType LevelBarMaxValuePropertyInfo = Double
type AttrLabel LevelBarMaxValuePropertyInfo = "max-value"
type AttrOrigin LevelBarMaxValuePropertyInfo = LevelBar
attrGet = getLevelBarMaxValue
attrSet = setLevelBarMaxValue
attrTransfer _ v = do
return v
attrConstruct = constructLevelBarMaxValue
attrClear = undefined
#endif
getLevelBarMinValue :: (MonadIO m, IsLevelBar o) => o -> m Double
getLevelBarMinValue :: o -> m Double
getLevelBarMinValue obj :: o
obj = 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
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "min-value"
setLevelBarMinValue :: (MonadIO m, IsLevelBar o) => o -> Double -> m ()
setLevelBarMinValue :: o -> Double -> m ()
setLevelBarMinValue obj :: o
obj val :: Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj "min-value" Double
val
constructLevelBarMinValue :: (IsLevelBar o) => Double -> IO (GValueConstruct o)
constructLevelBarMinValue :: Double -> IO (GValueConstruct o)
constructLevelBarMinValue val :: Double
val = String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble "min-value" Double
val
#if defined(ENABLE_OVERLOADING)
data LevelBarMinValuePropertyInfo
instance AttrInfo LevelBarMinValuePropertyInfo where
type AttrAllowedOps LevelBarMinValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LevelBarMinValuePropertyInfo = IsLevelBar
type AttrSetTypeConstraint LevelBarMinValuePropertyInfo = (~) Double
type AttrTransferTypeConstraint LevelBarMinValuePropertyInfo = (~) Double
type AttrTransferType LevelBarMinValuePropertyInfo = Double
type AttrGetType LevelBarMinValuePropertyInfo = Double
type AttrLabel LevelBarMinValuePropertyInfo = "min-value"
type AttrOrigin LevelBarMinValuePropertyInfo = LevelBar
attrGet = getLevelBarMinValue
attrSet = setLevelBarMinValue
attrTransfer _ v = do
return v
attrConstruct = constructLevelBarMinValue
attrClear = undefined
#endif
getLevelBarMode :: (MonadIO m, IsLevelBar o) => o -> m Gtk.Enums.LevelBarMode
getLevelBarMode :: o -> m LevelBarMode
getLevelBarMode obj :: o
obj = IO LevelBarMode -> m LevelBarMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LevelBarMode -> m LevelBarMode)
-> IO LevelBarMode -> m LevelBarMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO LevelBarMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "mode"
setLevelBarMode :: (MonadIO m, IsLevelBar o) => o -> Gtk.Enums.LevelBarMode -> m ()
setLevelBarMode :: o -> LevelBarMode -> m ()
setLevelBarMode obj :: o
obj val :: LevelBarMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> LevelBarMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "mode" LevelBarMode
val
constructLevelBarMode :: (IsLevelBar o) => Gtk.Enums.LevelBarMode -> IO (GValueConstruct o)
constructLevelBarMode :: LevelBarMode -> IO (GValueConstruct o)
constructLevelBarMode val :: LevelBarMode
val = String -> LevelBarMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "mode" LevelBarMode
val
#if defined(ENABLE_OVERLOADING)
data LevelBarModePropertyInfo
instance AttrInfo LevelBarModePropertyInfo where
type AttrAllowedOps LevelBarModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LevelBarModePropertyInfo = IsLevelBar
type AttrSetTypeConstraint LevelBarModePropertyInfo = (~) Gtk.Enums.LevelBarMode
type AttrTransferTypeConstraint LevelBarModePropertyInfo = (~) Gtk.Enums.LevelBarMode
type AttrTransferType LevelBarModePropertyInfo = Gtk.Enums.LevelBarMode
type AttrGetType LevelBarModePropertyInfo = Gtk.Enums.LevelBarMode
type AttrLabel LevelBarModePropertyInfo = "mode"
type AttrOrigin LevelBarModePropertyInfo = LevelBar
attrGet = getLevelBarMode
attrSet = setLevelBarMode
attrTransfer _ v = do
return v
attrConstruct = constructLevelBarMode
attrClear = undefined
#endif
getLevelBarValue :: (MonadIO m, IsLevelBar o) => o -> m Double
getLevelBarValue :: o -> m Double
getLevelBarValue obj :: o
obj = 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
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "value"
setLevelBarValue :: (MonadIO m, IsLevelBar o) => o -> Double -> m ()
setLevelBarValue :: o -> Double -> m ()
setLevelBarValue obj :: o
obj val :: Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj "value" Double
val
constructLevelBarValue :: (IsLevelBar o) => Double -> IO (GValueConstruct o)
constructLevelBarValue :: Double -> IO (GValueConstruct o)
constructLevelBarValue val :: Double
val = String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble "value" Double
val
#if defined(ENABLE_OVERLOADING)
data LevelBarValuePropertyInfo
instance AttrInfo LevelBarValuePropertyInfo where
type AttrAllowedOps LevelBarValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LevelBarValuePropertyInfo = IsLevelBar
type AttrSetTypeConstraint LevelBarValuePropertyInfo = (~) Double
type AttrTransferTypeConstraint LevelBarValuePropertyInfo = (~) Double
type AttrTransferType LevelBarValuePropertyInfo = Double
type AttrGetType LevelBarValuePropertyInfo = Double
type AttrLabel LevelBarValuePropertyInfo = "value"
type AttrOrigin LevelBarValuePropertyInfo = LevelBar
attrGet = getLevelBarValue
attrSet = setLevelBarValue
attrTransfer _ v = do
return v
attrConstruct = constructLevelBarValue
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList LevelBar
type instance O.AttributeList LevelBar = LevelBarAttributeList
type LevelBarAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxValue", LevelBarMaxValuePropertyInfo), '("minValue", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
levelBarInverted :: AttrLabelProxy "inverted"
levelBarInverted = AttrLabelProxy
levelBarMaxValue :: AttrLabelProxy "maxValue"
levelBarMaxValue = AttrLabelProxy
levelBarMinValue :: AttrLabelProxy "minValue"
levelBarMinValue = AttrLabelProxy
levelBarMode :: AttrLabelProxy "mode"
levelBarMode = AttrLabelProxy
levelBarValue :: AttrLabelProxy "value"
levelBarValue = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList LevelBar = LevelBarSignalList
type LevelBarSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("offsetChanged", LevelBarOffsetChangedSignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_level_bar_new" gtk_level_bar_new ::
IO (Ptr LevelBar)
levelBarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m LevelBar
levelBarNew :: m LevelBar
levelBarNew = IO LevelBar -> m LevelBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LevelBar -> m LevelBar) -> IO LevelBar -> m LevelBar
forall a b. (a -> b) -> a -> b
$ do
Ptr LevelBar
result <- IO (Ptr LevelBar)
gtk_level_bar_new
Text -> Ptr LevelBar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "levelBarNew" Ptr LevelBar
result
LevelBar
result' <- ((ManagedPtr LevelBar -> LevelBar) -> Ptr LevelBar -> IO LevelBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LevelBar -> LevelBar
LevelBar) Ptr LevelBar
result
LevelBar -> IO LevelBar
forall (m :: * -> *) a. Monad m => a -> m a
return LevelBar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_level_bar_new_for_interval" gtk_level_bar_new_for_interval ::
CDouble ->
CDouble ->
IO (Ptr LevelBar)
levelBarNewForInterval ::
(B.CallStack.HasCallStack, MonadIO m) =>
Double
-> Double
-> m LevelBar
levelBarNewForInterval :: Double -> Double -> m LevelBar
levelBarNewForInterval minValue :: Double
minValue maxValue :: Double
maxValue = IO LevelBar -> m LevelBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LevelBar -> m LevelBar) -> IO LevelBar -> m LevelBar
forall a b. (a -> b) -> a -> b
$ do
let minValue' :: CDouble
minValue' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
minValue
let maxValue' :: CDouble
maxValue' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
maxValue
Ptr LevelBar
result <- CDouble -> CDouble -> IO (Ptr LevelBar)
gtk_level_bar_new_for_interval CDouble
minValue' CDouble
maxValue'
Text -> Ptr LevelBar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "levelBarNewForInterval" Ptr LevelBar
result
LevelBar
result' <- ((ManagedPtr LevelBar -> LevelBar) -> Ptr LevelBar -> IO LevelBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LevelBar -> LevelBar
LevelBar) Ptr LevelBar
result
LevelBar -> IO LevelBar
forall (m :: * -> *) a. Monad m => a -> m a
return LevelBar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_level_bar_add_offset_value" gtk_level_bar_add_offset_value ::
Ptr LevelBar ->
CString ->
CDouble ->
IO ()
levelBarAddOffsetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> T.Text
-> Double
-> m ()
levelBarAddOffsetValue :: a -> Text -> Double -> m ()
levelBarAddOffsetValue self :: a
self name :: Text
name value :: 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr LevelBar -> CString -> CDouble -> IO ()
gtk_level_bar_add_offset_value Ptr LevelBar
self' CString
name' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarAddOffsetValueMethodInfo
instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarAddOffsetValueMethodInfo a signature where
overloadedMethod = levelBarAddOffsetValue
#endif
foreign import ccall "gtk_level_bar_get_inverted" gtk_level_bar_get_inverted ::
Ptr LevelBar ->
IO CInt
levelBarGetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> m Bool
levelBarGetInverted :: a -> m Bool
levelBarGetInverted self :: a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr LevelBar -> IO CInt
gtk_level_bar_get_inverted Ptr LevelBar
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LevelBarGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarGetInvertedMethodInfo a signature where
overloadedMethod = levelBarGetInverted
#endif
foreign import ccall "gtk_level_bar_get_max_value" gtk_level_bar_get_max_value ::
Ptr LevelBar ->
IO CDouble
levelBarGetMaxValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> m Double
levelBarGetMaxValue :: a -> m Double
levelBarGetMaxValue self :: a
self = 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr LevelBar -> IO CDouble
gtk_level_bar_get_max_value Ptr LevelBar
self'
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
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data LevelBarGetMaxValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarGetMaxValueMethodInfo a signature where
overloadedMethod = levelBarGetMaxValue
#endif
foreign import ccall "gtk_level_bar_get_min_value" gtk_level_bar_get_min_value ::
Ptr LevelBar ->
IO CDouble
levelBarGetMinValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> m Double
levelBarGetMinValue :: a -> m Double
levelBarGetMinValue self :: a
self = 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr LevelBar -> IO CDouble
gtk_level_bar_get_min_value Ptr LevelBar
self'
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
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data LevelBarGetMinValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarGetMinValueMethodInfo a signature where
overloadedMethod = levelBarGetMinValue
#endif
foreign import ccall "gtk_level_bar_get_mode" gtk_level_bar_get_mode ::
Ptr LevelBar ->
IO CUInt
levelBarGetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> m Gtk.Enums.LevelBarMode
levelBarGetMode :: a -> m LevelBarMode
levelBarGetMode self :: a
self = IO LevelBarMode -> m LevelBarMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LevelBarMode -> m LevelBarMode)
-> IO LevelBarMode -> m LevelBarMode
forall a b. (a -> b) -> a -> b
$ do
Ptr LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr LevelBar -> IO CUInt
gtk_level_bar_get_mode Ptr LevelBar
self'
let result' :: LevelBarMode
result' = (Int -> LevelBarMode
forall a. Enum a => Int -> a
toEnum (Int -> LevelBarMode) -> (CUInt -> Int) -> CUInt -> LevelBarMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
LevelBarMode -> IO LevelBarMode
forall (m :: * -> *) a. Monad m => a -> m a
return LevelBarMode
result'
#if defined(ENABLE_OVERLOADING)
data LevelBarGetModeMethodInfo
instance (signature ~ (m Gtk.Enums.LevelBarMode), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarGetModeMethodInfo a signature where
overloadedMethod = levelBarGetMode
#endif
foreign import ccall "gtk_level_bar_get_offset_value" gtk_level_bar_get_offset_value ::
Ptr LevelBar ->
CString ->
Ptr CDouble ->
IO CInt
levelBarGetOffsetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Maybe (T.Text)
-> m ((Bool, Double))
levelBarGetOffsetValue :: a -> Maybe Text -> m (Bool, Double)
levelBarGetOffsetValue self :: a
self name :: Maybe Text
name = IO (Bool, Double) -> m (Bool, Double)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Double) -> m (Bool, Double))
-> IO (Bool, Double) -> m (Bool, Double)
forall a b. (a -> b) -> a -> b
$ do
Ptr LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeName <- case Maybe Text
name of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jName :: Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr CDouble
value <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr LevelBar -> CString -> Ptr CDouble -> IO CInt
gtk_level_bar_get_offset_value Ptr LevelBar
self' CString
maybeName Ptr CDouble
value
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
CDouble
value' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
value
let value'' :: Double
value'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
value
(Bool, Double) -> IO (Bool, Double)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
value'')
#if defined(ENABLE_OVERLOADING)
data LevelBarGetOffsetValueMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ((Bool, Double))), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarGetOffsetValueMethodInfo a signature where
overloadedMethod = levelBarGetOffsetValue
#endif
foreign import ccall "gtk_level_bar_get_value" gtk_level_bar_get_value ::
Ptr LevelBar ->
IO CDouble
levelBarGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> m Double
levelBarGetValue :: a -> m Double
levelBarGetValue self :: a
self = 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr LevelBar -> IO CDouble
gtk_level_bar_get_value Ptr LevelBar
self'
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
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data LevelBarGetValueMethodInfo
instance (signature ~ (m Double), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarGetValueMethodInfo a signature where
overloadedMethod = levelBarGetValue
#endif
foreign import ccall "gtk_level_bar_remove_offset_value" gtk_level_bar_remove_offset_value ::
Ptr LevelBar ->
CString ->
IO ()
levelBarRemoveOffsetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Maybe (T.Text)
-> m ()
levelBarRemoveOffsetValue :: a -> Maybe Text -> m ()
levelBarRemoveOffsetValue self :: a
self name :: Maybe Text
name = 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeName <- case Maybe Text
name of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jName :: Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr LevelBar -> CString -> IO ()
gtk_level_bar_remove_offset_value Ptr LevelBar
self' CString
maybeName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarRemoveOffsetValueMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarRemoveOffsetValueMethodInfo a signature where
overloadedMethod = levelBarRemoveOffsetValue
#endif
foreign import ccall "gtk_level_bar_set_inverted" gtk_level_bar_set_inverted ::
Ptr LevelBar ->
CInt ->
IO ()
levelBarSetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Bool
-> m ()
levelBarSetInverted :: a -> Bool -> m ()
levelBarSetInverted self :: a
self inverted :: Bool
inverted = 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let inverted' :: CInt
inverted' = (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
inverted
Ptr LevelBar -> CInt -> IO ()
gtk_level_bar_set_inverted Ptr LevelBar
self' CInt
inverted'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarSetInvertedMethodInfo a signature where
overloadedMethod = levelBarSetInverted
#endif
foreign import ccall "gtk_level_bar_set_max_value" gtk_level_bar_set_max_value ::
Ptr LevelBar ->
CDouble ->
IO ()
levelBarSetMaxValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Double
-> m ()
levelBarSetMaxValue :: a -> Double -> m ()
levelBarSetMaxValue self :: a
self value :: 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr LevelBar -> CDouble -> IO ()
gtk_level_bar_set_max_value Ptr LevelBar
self' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarSetMaxValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarSetMaxValueMethodInfo a signature where
overloadedMethod = levelBarSetMaxValue
#endif
foreign import ccall "gtk_level_bar_set_min_value" gtk_level_bar_set_min_value ::
Ptr LevelBar ->
CDouble ->
IO ()
levelBarSetMinValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Double
-> m ()
levelBarSetMinValue :: a -> Double -> m ()
levelBarSetMinValue self :: a
self value :: 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr LevelBar -> CDouble -> IO ()
gtk_level_bar_set_min_value Ptr LevelBar
self' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarSetMinValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarSetMinValueMethodInfo a signature where
overloadedMethod = levelBarSetMinValue
#endif
foreign import ccall "gtk_level_bar_set_mode" gtk_level_bar_set_mode ::
Ptr LevelBar ->
CUInt ->
IO ()
levelBarSetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Gtk.Enums.LevelBarMode
-> m ()
levelBarSetMode :: a -> LevelBarMode -> m ()
levelBarSetMode self :: a
self mode :: LevelBarMode
mode = 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (LevelBarMode -> Int) -> LevelBarMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LevelBarMode -> Int
forall a. Enum a => a -> Int
fromEnum) LevelBarMode
mode
Ptr LevelBar -> CUInt -> IO ()
gtk_level_bar_set_mode Ptr LevelBar
self' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarSetModeMethodInfo
instance (signature ~ (Gtk.Enums.LevelBarMode -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarSetModeMethodInfo a signature where
overloadedMethod = levelBarSetMode
#endif
foreign import ccall "gtk_level_bar_set_value" gtk_level_bar_set_value ::
Ptr LevelBar ->
CDouble ->
IO ()
levelBarSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsLevelBar a) =>
a
-> Double
-> m ()
levelBarSetValue :: a -> Double -> m ()
levelBarSetValue self :: a
self value :: 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 LevelBar
self' <- a -> IO (Ptr LevelBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr LevelBar -> CDouble -> IO ()
gtk_level_bar_set_value Ptr LevelBar
self' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LevelBarSetValueMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsLevelBar a) => O.MethodInfo LevelBarSetValueMethodInfo a signature where
overloadedMethod = levelBarSetValue
#endif