{-# 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 ,
#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.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.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 (SP.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)
instance SP.ManagedPtrNewtype LevelBar where
toManagedPtr :: LevelBar -> ManagedPtr LevelBar
toManagedPtr (LevelBar ManagedPtr LevelBar
p) = ManagedPtr LevelBar
p
foreign import ccall "gtk_level_bar_get_type"
c_gtk_level_bar_get_type :: IO B.Types.GType
instance B.Types.TypedObject LevelBar where
glibType :: IO GType
glibType = IO GType
c_gtk_level_bar_get_type
instance B.Types.GObject LevelBar
class (SP.GObject o, O.IsDescendantOf LevelBar o) => IsLevelBar o
instance (SP.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 :: (MIO.MonadIO m, IsLevelBar o) => o -> m LevelBar
toLevelBar :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> m LevelBar
toLevelBar = IO LevelBar -> m LevelBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr LevelBar -> LevelBar
LevelBar
instance B.GValue.IsGValue (Maybe LevelBar) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_level_bar_get_type
gvalueSet_ :: Ptr GValue -> Maybe LevelBar -> IO ()
gvalueSet_ Ptr GValue
gv Maybe LevelBar
P.Nothing = Ptr GValue -> Ptr LevelBar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr LevelBar
forall a. Ptr a
FP.nullPtr :: FP.Ptr LevelBar)
gvalueSet_ Ptr GValue
gv (P.Just LevelBar
obj) = LevelBar -> (Ptr LevelBar -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr LevelBar
obj (Ptr GValue -> Ptr LevelBar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe LevelBar)
gvalueGet_ Ptr GValue
gv = do
Ptr LevelBar
ptr <- Ptr GValue -> IO (Ptr LevelBar)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr LevelBar)
if Ptr LevelBar
ptr Ptr LevelBar -> Ptr LevelBar -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr LevelBar
forall a. Ptr a
FP.nullPtr
then LevelBar -> Maybe LevelBar
forall a. a -> Maybe a
P.Just (LevelBar -> Maybe LevelBar) -> IO LevelBar -> IO (Maybe LevelBar)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe LevelBar -> IO (Maybe LevelBar)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe LevelBar
forall a. Maybe a
P.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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveLevelBarMethod t LevelBar, O.OverloadedMethod info LevelBar p, R.HasField t LevelBar p) => R.HasField t LevelBar p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveLevelBarMethod t LevelBar, O.OverloadedMethodInfo info LevelBar) => OL.IsLabel t (O.MethodProxy info LevelBar) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#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 :: forall (m :: * -> *).
MonadIO m =>
LevelBarOffsetChangedCallback
-> m (GClosure C_LevelBarOffsetChangedCallback)
genClosure_LevelBarOffsetChanged 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 LevelBarOffsetChangedCallback
_cb Ptr ()
_ CString
name Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsLevelBar a, MonadIO m) =>
a
-> Maybe Text -> LevelBarOffsetChangedCallback -> m SignalHandlerId
onLevelBarOffsetChanged a
obj Maybe Text
detail 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 Text
"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 :: forall a (m :: * -> *).
(IsLevelBar a, MonadIO m) =>
a
-> Maybe Text -> LevelBarOffsetChangedCallback -> m SignalHandlerId
afterLevelBarOffsetChanged a
obj Maybe Text
detail 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 Text
"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 :: forall (m :: * -> *) o. (MonadIO m, IsLevelBar o) => o -> m Bool
getLevelBarInverted o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"inverted"
setLevelBarInverted :: (MonadIO m, IsLevelBar o) => o -> Bool -> m ()
setLevelBarInverted :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> Bool -> m ()
setLevelBarInverted 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
"inverted" Bool
val
constructLevelBarInverted :: (IsLevelBar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLevelBarInverted :: forall o (m :: * -> *).
(IsLevelBar o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLevelBarInverted 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
"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 :: forall (m :: * -> *) o. (MonadIO m, IsLevelBar o) => o -> m Double
getLevelBarMaxValue 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
"max-value"
setLevelBarMaxValue :: (MonadIO m, IsLevelBar o) => o -> Double -> m ()
setLevelBarMaxValue :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> Double -> m ()
setLevelBarMaxValue 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
"max-value" Double
val
constructLevelBarMaxValue :: (IsLevelBar o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructLevelBarMaxValue :: forall o (m :: * -> *).
(IsLevelBar o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructLevelBarMaxValue 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
"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 :: forall (m :: * -> *) o. (MonadIO m, IsLevelBar o) => o -> m Double
getLevelBarMinValue 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
"min-value"
setLevelBarMinValue :: (MonadIO m, IsLevelBar o) => o -> Double -> m ()
setLevelBarMinValue :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> Double -> m ()
setLevelBarMinValue 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
"min-value" Double
val
constructLevelBarMinValue :: (IsLevelBar o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructLevelBarMinValue :: forall o (m :: * -> *).
(IsLevelBar o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructLevelBarMinValue 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
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> m LevelBarMode
getLevelBarMode o
obj = IO LevelBarMode -> m LevelBarMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"mode"
setLevelBarMode :: (MonadIO m, IsLevelBar o) => o -> Gtk.Enums.LevelBarMode -> m ()
setLevelBarMode :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> LevelBarMode -> m ()
setLevelBarMode o
obj LevelBarMode
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 -> LevelBarMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"mode" LevelBarMode
val
constructLevelBarMode :: (IsLevelBar o, MIO.MonadIO m) => Gtk.Enums.LevelBarMode -> m (GValueConstruct o)
constructLevelBarMode :: forall o (m :: * -> *).
(IsLevelBar o, MonadIO m) =>
LevelBarMode -> m (GValueConstruct o)
constructLevelBarMode LevelBarMode
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 -> LevelBarMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsLevelBar o) => o -> m Double
getLevelBarValue 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"
setLevelBarValue :: (MonadIO m, IsLevelBar o) => o -> Double -> m ()
setLevelBarValue :: forall (m :: * -> *) o.
(MonadIO m, IsLevelBar o) =>
o -> Double -> m ()
setLevelBarValue 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
constructLevelBarValue :: (IsLevelBar o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructLevelBarValue :: forall o (m :: * -> *).
(IsLevelBar o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructLevelBarValue 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 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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => 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 Text
"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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Double -> Double -> m LevelBar
levelBarNewForInterval Double
minValue 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Text -> Double -> m ()
levelBarAddOffsetValue a
self Text
name 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.OverloadedMethod LevelBarAddOffsetValueMethodInfo a signature where
overloadedMethod = levelBarAddOffsetValue
instance O.OverloadedMethodInfo LevelBarAddOffsetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarAddOffsetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> m Bool
levelBarGetInverted 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
/= CInt
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.OverloadedMethod LevelBarGetInvertedMethodInfo a signature where
overloadedMethod = levelBarGetInverted
instance O.OverloadedMethodInfo LevelBarGetInvertedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarGetInverted",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> m Double
levelBarGetMaxValue 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.OverloadedMethod LevelBarGetMaxValueMethodInfo a signature where
overloadedMethod = levelBarGetMaxValue
instance O.OverloadedMethodInfo LevelBarGetMaxValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarGetMaxValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> m Double
levelBarGetMinValue 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.OverloadedMethod LevelBarGetMinValueMethodInfo a signature where
overloadedMethod = levelBarGetMinValue
instance O.OverloadedMethodInfo LevelBarGetMinValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarGetMinValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> m LevelBarMode
levelBarGetMode 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.OverloadedMethod LevelBarGetModeMethodInfo a signature where
overloadedMethod = levelBarGetMode
instance O.OverloadedMethodInfo LevelBarGetModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarGetMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Maybe Text -> m (Bool, Double)
levelBarGetOffsetValue a
self 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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
/= CInt
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.OverloadedMethod LevelBarGetOffsetValueMethodInfo a signature where
overloadedMethod = levelBarGetOffsetValue
instance O.OverloadedMethodInfo LevelBarGetOffsetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarGetOffsetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> m Double
levelBarGetValue 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.OverloadedMethod LevelBarGetValueMethodInfo a signature where
overloadedMethod = levelBarGetValue
instance O.OverloadedMethodInfo LevelBarGetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarGetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Maybe Text -> m ()
levelBarRemoveOffsetValue a
self 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod LevelBarRemoveOffsetValueMethodInfo a signature where
overloadedMethod = levelBarRemoveOffsetValue
instance O.OverloadedMethodInfo LevelBarRemoveOffsetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarRemoveOffsetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Bool -> m ()
levelBarSetInverted a
self 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.OverloadedMethod LevelBarSetInvertedMethodInfo a signature where
overloadedMethod = levelBarSetInverted
instance O.OverloadedMethodInfo LevelBarSetInvertedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarSetInverted",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Double -> m ()
levelBarSetMaxValue a
self 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.OverloadedMethod LevelBarSetMaxValueMethodInfo a signature where
overloadedMethod = levelBarSetMaxValue
instance O.OverloadedMethodInfo LevelBarSetMaxValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarSetMaxValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Double -> m ()
levelBarSetMinValue a
self 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.OverloadedMethod LevelBarSetMinValueMethodInfo a signature where
overloadedMethod = levelBarSetMinValue
instance O.OverloadedMethodInfo LevelBarSetMinValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarSetMinValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> LevelBarMode -> m ()
levelBarSetMode a
self 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.OverloadedMethod LevelBarSetModeMethodInfo a signature where
overloadedMethod = levelBarSetMode
instance O.OverloadedMethodInfo LevelBarSetModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarSetMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLevelBar a) =>
a -> Double -> m ()
levelBarSetValue a
self 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.OverloadedMethod LevelBarSetValueMethodInfo a signature where
overloadedMethod = levelBarSetValue
instance O.OverloadedMethodInfo LevelBarSetValueMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.LevelBar.levelBarSetValue",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-LevelBar.html#v:levelBarSetValue"
}
#endif