{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ProgressBar
(
ProgressBar(..) ,
IsProgressBar ,
toProgressBar ,
#if defined(ENABLE_OVERLOADING)
ResolveProgressBarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ProgressBarGetEllipsizeMethodInfo ,
#endif
progressBarGetEllipsize ,
#if defined(ENABLE_OVERLOADING)
ProgressBarGetFractionMethodInfo ,
#endif
progressBarGetFraction ,
#if defined(ENABLE_OVERLOADING)
ProgressBarGetInvertedMethodInfo ,
#endif
progressBarGetInverted ,
#if defined(ENABLE_OVERLOADING)
ProgressBarGetPulseStepMethodInfo ,
#endif
progressBarGetPulseStep ,
#if defined(ENABLE_OVERLOADING)
ProgressBarGetShowTextMethodInfo ,
#endif
progressBarGetShowText ,
#if defined(ENABLE_OVERLOADING)
ProgressBarGetTextMethodInfo ,
#endif
progressBarGetText ,
progressBarNew ,
#if defined(ENABLE_OVERLOADING)
ProgressBarPulseMethodInfo ,
#endif
progressBarPulse ,
#if defined(ENABLE_OVERLOADING)
ProgressBarSetEllipsizeMethodInfo ,
#endif
progressBarSetEllipsize ,
#if defined(ENABLE_OVERLOADING)
ProgressBarSetFractionMethodInfo ,
#endif
progressBarSetFraction ,
#if defined(ENABLE_OVERLOADING)
ProgressBarSetInvertedMethodInfo ,
#endif
progressBarSetInverted ,
#if defined(ENABLE_OVERLOADING)
ProgressBarSetPulseStepMethodInfo ,
#endif
progressBarSetPulseStep ,
#if defined(ENABLE_OVERLOADING)
ProgressBarSetShowTextMethodInfo ,
#endif
progressBarSetShowText ,
#if defined(ENABLE_OVERLOADING)
ProgressBarSetTextMethodInfo ,
#endif
progressBarSetText ,
#if defined(ENABLE_OVERLOADING)
ProgressBarEllipsizePropertyInfo ,
#endif
constructProgressBarEllipsize ,
getProgressBarEllipsize ,
#if defined(ENABLE_OVERLOADING)
progressBarEllipsize ,
#endif
setProgressBarEllipsize ,
#if defined(ENABLE_OVERLOADING)
ProgressBarFractionPropertyInfo ,
#endif
constructProgressBarFraction ,
getProgressBarFraction ,
#if defined(ENABLE_OVERLOADING)
progressBarFraction ,
#endif
setProgressBarFraction ,
#if defined(ENABLE_OVERLOADING)
ProgressBarInvertedPropertyInfo ,
#endif
constructProgressBarInverted ,
getProgressBarInverted ,
#if defined(ENABLE_OVERLOADING)
progressBarInverted ,
#endif
setProgressBarInverted ,
#if defined(ENABLE_OVERLOADING)
ProgressBarPulseStepPropertyInfo ,
#endif
constructProgressBarPulseStep ,
getProgressBarPulseStep ,
#if defined(ENABLE_OVERLOADING)
progressBarPulseStep ,
#endif
setProgressBarPulseStep ,
#if defined(ENABLE_OVERLOADING)
ProgressBarShowTextPropertyInfo ,
#endif
constructProgressBarShowText ,
getProgressBarShowText ,
#if defined(ENABLE_OVERLOADING)
progressBarShowText ,
#endif
setProgressBarShowText ,
#if defined(ENABLE_OVERLOADING)
ProgressBarTextPropertyInfo ,
#endif
clearProgressBarText ,
constructProgressBarText ,
getProgressBarText ,
#if defined(ENABLE_OVERLOADING)
progressBarText ,
#endif
setProgressBarText ,
) 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.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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Pango.Enums as Pango.Enums
newtype ProgressBar = ProgressBar (SP.ManagedPtr ProgressBar)
deriving (ProgressBar -> ProgressBar -> Bool
(ProgressBar -> ProgressBar -> Bool)
-> (ProgressBar -> ProgressBar -> Bool) -> Eq ProgressBar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ProgressBar -> ProgressBar -> Bool
$c/= :: ProgressBar -> ProgressBar -> Bool
== :: ProgressBar -> ProgressBar -> Bool
$c== :: ProgressBar -> ProgressBar -> Bool
Eq)
instance SP.ManagedPtrNewtype ProgressBar where
toManagedPtr :: ProgressBar -> ManagedPtr ProgressBar
toManagedPtr (ProgressBar ManagedPtr ProgressBar
p) = ManagedPtr ProgressBar
p
foreign import ccall "gtk_progress_bar_get_type"
c_gtk_progress_bar_get_type :: IO B.Types.GType
instance B.Types.TypedObject ProgressBar where
glibType :: IO GType
glibType = IO GType
c_gtk_progress_bar_get_type
instance B.Types.GObject ProgressBar
instance B.GValue.IsGValue ProgressBar where
toGValue :: ProgressBar -> IO GValue
toGValue ProgressBar
o = do
GType
gtype <- IO GType
c_gtk_progress_bar_get_type
ProgressBar -> (Ptr ProgressBar -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ProgressBar
o (GType
-> (GValue -> Ptr ProgressBar -> IO ())
-> Ptr ProgressBar
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ProgressBar -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ProgressBar
fromGValue GValue
gv = do
Ptr ProgressBar
ptr <- GValue -> IO (Ptr ProgressBar)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ProgressBar)
(ManagedPtr ProgressBar -> ProgressBar)
-> Ptr ProgressBar -> IO ProgressBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ProgressBar -> ProgressBar
ProgressBar Ptr ProgressBar
ptr
class (SP.GObject o, O.IsDescendantOf ProgressBar o) => IsProgressBar o
instance (SP.GObject o, O.IsDescendantOf ProgressBar o) => IsProgressBar o
instance O.HasParentTypes ProgressBar
type instance O.ParentTypes ProgressBar = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toProgressBar :: (MonadIO m, IsProgressBar o) => o -> m ProgressBar
toProgressBar :: o -> m ProgressBar
toProgressBar = IO ProgressBar -> m ProgressBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ProgressBar -> m ProgressBar)
-> (o -> IO ProgressBar) -> o -> m ProgressBar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ProgressBar -> ProgressBar) -> o -> IO ProgressBar
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ProgressBar -> ProgressBar
ProgressBar
#if defined(ENABLE_OVERLOADING)
type family ResolveProgressBarMethod (t :: Symbol) (o :: *) :: * where
ResolveProgressBarMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveProgressBarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveProgressBarMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveProgressBarMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveProgressBarMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveProgressBarMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveProgressBarMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveProgressBarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveProgressBarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveProgressBarMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveProgressBarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveProgressBarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveProgressBarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveProgressBarMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveProgressBarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveProgressBarMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveProgressBarMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveProgressBarMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveProgressBarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveProgressBarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveProgressBarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveProgressBarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveProgressBarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveProgressBarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveProgressBarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveProgressBarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveProgressBarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveProgressBarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveProgressBarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveProgressBarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveProgressBarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveProgressBarMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveProgressBarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveProgressBarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveProgressBarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveProgressBarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveProgressBarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveProgressBarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveProgressBarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveProgressBarMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveProgressBarMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveProgressBarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveProgressBarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveProgressBarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveProgressBarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveProgressBarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveProgressBarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveProgressBarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveProgressBarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveProgressBarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveProgressBarMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveProgressBarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveProgressBarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveProgressBarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveProgressBarMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveProgressBarMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveProgressBarMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveProgressBarMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveProgressBarMethod "pulse" o = ProgressBarPulseMethodInfo
ResolveProgressBarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveProgressBarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveProgressBarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveProgressBarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveProgressBarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveProgressBarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveProgressBarMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveProgressBarMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveProgressBarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveProgressBarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveProgressBarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveProgressBarMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveProgressBarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveProgressBarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveProgressBarMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveProgressBarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveProgressBarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveProgressBarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveProgressBarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveProgressBarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveProgressBarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveProgressBarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveProgressBarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveProgressBarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveProgressBarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveProgressBarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveProgressBarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveProgressBarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveProgressBarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveProgressBarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveProgressBarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveProgressBarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveProgressBarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveProgressBarMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveProgressBarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveProgressBarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveProgressBarMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveProgressBarMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveProgressBarMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveProgressBarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveProgressBarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveProgressBarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveProgressBarMethod "getEllipsize" o = ProgressBarGetEllipsizeMethodInfo
ResolveProgressBarMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveProgressBarMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveProgressBarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveProgressBarMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveProgressBarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveProgressBarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveProgressBarMethod "getFraction" o = ProgressBarGetFractionMethodInfo
ResolveProgressBarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveProgressBarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveProgressBarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveProgressBarMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveProgressBarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveProgressBarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveProgressBarMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveProgressBarMethod "getInverted" o = ProgressBarGetInvertedMethodInfo
ResolveProgressBarMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveProgressBarMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveProgressBarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveProgressBarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveProgressBarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveProgressBarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveProgressBarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveProgressBarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveProgressBarMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveProgressBarMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveProgressBarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveProgressBarMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveProgressBarMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveProgressBarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveProgressBarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveProgressBarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveProgressBarMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveProgressBarMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveProgressBarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveProgressBarMethod "getPulseStep" o = ProgressBarGetPulseStepMethodInfo
ResolveProgressBarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveProgressBarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveProgressBarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveProgressBarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveProgressBarMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveProgressBarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveProgressBarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveProgressBarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveProgressBarMethod "getShowText" o = ProgressBarGetShowTextMethodInfo
ResolveProgressBarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveProgressBarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveProgressBarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveProgressBarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveProgressBarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveProgressBarMethod "getText" o = ProgressBarGetTextMethodInfo
ResolveProgressBarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveProgressBarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveProgressBarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveProgressBarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveProgressBarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveProgressBarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveProgressBarMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveProgressBarMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveProgressBarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveProgressBarMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveProgressBarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveProgressBarMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveProgressBarMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveProgressBarMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveProgressBarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveProgressBarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveProgressBarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveProgressBarMethod "setEllipsize" o = ProgressBarSetEllipsizeMethodInfo
ResolveProgressBarMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveProgressBarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveProgressBarMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveProgressBarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveProgressBarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveProgressBarMethod "setFraction" o = ProgressBarSetFractionMethodInfo
ResolveProgressBarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveProgressBarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveProgressBarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveProgressBarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveProgressBarMethod "setInverted" o = ProgressBarSetInvertedMethodInfo
ResolveProgressBarMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveProgressBarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveProgressBarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveProgressBarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveProgressBarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveProgressBarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveProgressBarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveProgressBarMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveProgressBarMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveProgressBarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveProgressBarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveProgressBarMethod "setPulseStep" o = ProgressBarSetPulseStepMethodInfo
ResolveProgressBarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveProgressBarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveProgressBarMethod "setShowText" o = ProgressBarSetShowTextMethodInfo
ResolveProgressBarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveProgressBarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveProgressBarMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveProgressBarMethod "setText" o = ProgressBarSetTextMethodInfo
ResolveProgressBarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveProgressBarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveProgressBarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveProgressBarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveProgressBarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveProgressBarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveProgressBarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveProgressBarMethod t ProgressBar, O.MethodInfo info ProgressBar p) => OL.IsLabel t (ProgressBar -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getProgressBarEllipsize :: (MonadIO m, IsProgressBar o) => o -> m Pango.Enums.EllipsizeMode
getProgressBarEllipsize :: o -> m EllipsizeMode
getProgressBarEllipsize o
obj = IO EllipsizeMode -> m EllipsizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EllipsizeMode -> m EllipsizeMode)
-> IO EllipsizeMode -> m EllipsizeMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO EllipsizeMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"ellipsize"
setProgressBarEllipsize :: (MonadIO m, IsProgressBar o) => o -> Pango.Enums.EllipsizeMode -> m ()
setProgressBarEllipsize :: o -> EllipsizeMode -> m ()
setProgressBarEllipsize o
obj EllipsizeMode
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 -> EllipsizeMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"ellipsize" EllipsizeMode
val
constructProgressBarEllipsize :: (IsProgressBar o, MIO.MonadIO m) => Pango.Enums.EllipsizeMode -> m (GValueConstruct o)
constructProgressBarEllipsize :: EllipsizeMode -> m (GValueConstruct o)
constructProgressBarEllipsize EllipsizeMode
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
$ String -> EllipsizeMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"ellipsize" EllipsizeMode
val
#if defined(ENABLE_OVERLOADING)
data ProgressBarEllipsizePropertyInfo
instance AttrInfo ProgressBarEllipsizePropertyInfo where
type AttrAllowedOps ProgressBarEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ProgressBarEllipsizePropertyInfo = IsProgressBar
type AttrSetTypeConstraint ProgressBarEllipsizePropertyInfo = (~) Pango.Enums.EllipsizeMode
type AttrTransferTypeConstraint ProgressBarEllipsizePropertyInfo = (~) Pango.Enums.EllipsizeMode
type AttrTransferType ProgressBarEllipsizePropertyInfo = Pango.Enums.EllipsizeMode
type AttrGetType ProgressBarEllipsizePropertyInfo = Pango.Enums.EllipsizeMode
type AttrLabel ProgressBarEllipsizePropertyInfo = "ellipsize"
type AttrOrigin ProgressBarEllipsizePropertyInfo = ProgressBar
attrGet = getProgressBarEllipsize
attrSet = setProgressBarEllipsize
attrTransfer _ v = do
return v
attrConstruct = constructProgressBarEllipsize
attrClear = undefined
#endif
getProgressBarFraction :: (MonadIO m, IsProgressBar o) => o -> m Double
getProgressBarFraction :: o -> m Double
getProgressBarFraction 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 String
"fraction"
setProgressBarFraction :: (MonadIO m, IsProgressBar o) => o -> Double -> m ()
setProgressBarFraction :: o -> Double -> m ()
setProgressBarFraction o
obj 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 String
"fraction" Double
val
constructProgressBarFraction :: (IsProgressBar o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructProgressBarFraction :: Double -> m (GValueConstruct o)
constructProgressBarFraction 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
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"fraction" Double
val
#if defined(ENABLE_OVERLOADING)
data ProgressBarFractionPropertyInfo
instance AttrInfo ProgressBarFractionPropertyInfo where
type AttrAllowedOps ProgressBarFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ProgressBarFractionPropertyInfo = IsProgressBar
type AttrSetTypeConstraint ProgressBarFractionPropertyInfo = (~) Double
type AttrTransferTypeConstraint ProgressBarFractionPropertyInfo = (~) Double
type AttrTransferType ProgressBarFractionPropertyInfo = Double
type AttrGetType ProgressBarFractionPropertyInfo = Double
type AttrLabel ProgressBarFractionPropertyInfo = "fraction"
type AttrOrigin ProgressBarFractionPropertyInfo = ProgressBar
attrGet = getProgressBarFraction
attrSet = setProgressBarFraction
attrTransfer _ v = do
return v
attrConstruct = constructProgressBarFraction
attrClear = undefined
#endif
getProgressBarInverted :: (MonadIO m, IsProgressBar o) => o -> m Bool
getProgressBarInverted :: o -> m Bool
getProgressBarInverted 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 String
"inverted"
setProgressBarInverted :: (MonadIO m, IsProgressBar o) => o -> Bool -> m ()
setProgressBarInverted :: o -> Bool -> m ()
setProgressBarInverted o
obj 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 String
"inverted" Bool
val
constructProgressBarInverted :: (IsProgressBar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructProgressBarInverted :: Bool -> m (GValueConstruct o)
constructProgressBarInverted 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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"inverted" Bool
val
#if defined(ENABLE_OVERLOADING)
data ProgressBarInvertedPropertyInfo
instance AttrInfo ProgressBarInvertedPropertyInfo where
type AttrAllowedOps ProgressBarInvertedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ProgressBarInvertedPropertyInfo = IsProgressBar
type AttrSetTypeConstraint ProgressBarInvertedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ProgressBarInvertedPropertyInfo = (~) Bool
type AttrTransferType ProgressBarInvertedPropertyInfo = Bool
type AttrGetType ProgressBarInvertedPropertyInfo = Bool
type AttrLabel ProgressBarInvertedPropertyInfo = "inverted"
type AttrOrigin ProgressBarInvertedPropertyInfo = ProgressBar
attrGet = getProgressBarInverted
attrSet = setProgressBarInverted
attrTransfer _ v = do
return v
attrConstruct = constructProgressBarInverted
attrClear = undefined
#endif
getProgressBarPulseStep :: (MonadIO m, IsProgressBar o) => o -> m Double
getProgressBarPulseStep :: o -> m Double
getProgressBarPulseStep 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 String
"pulse-step"
setProgressBarPulseStep :: (MonadIO m, IsProgressBar o) => o -> Double -> m ()
setProgressBarPulseStep :: o -> Double -> m ()
setProgressBarPulseStep o
obj 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 String
"pulse-step" Double
val
constructProgressBarPulseStep :: (IsProgressBar o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructProgressBarPulseStep :: Double -> m (GValueConstruct o)
constructProgressBarPulseStep 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
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"pulse-step" Double
val
#if defined(ENABLE_OVERLOADING)
data ProgressBarPulseStepPropertyInfo
instance AttrInfo ProgressBarPulseStepPropertyInfo where
type AttrAllowedOps ProgressBarPulseStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ProgressBarPulseStepPropertyInfo = IsProgressBar
type AttrSetTypeConstraint ProgressBarPulseStepPropertyInfo = (~) Double
type AttrTransferTypeConstraint ProgressBarPulseStepPropertyInfo = (~) Double
type AttrTransferType ProgressBarPulseStepPropertyInfo = Double
type AttrGetType ProgressBarPulseStepPropertyInfo = Double
type AttrLabel ProgressBarPulseStepPropertyInfo = "pulse-step"
type AttrOrigin ProgressBarPulseStepPropertyInfo = ProgressBar
attrGet = getProgressBarPulseStep
attrSet = setProgressBarPulseStep
attrTransfer _ v = do
return v
attrConstruct = constructProgressBarPulseStep
attrClear = undefined
#endif
getProgressBarShowText :: (MonadIO m, IsProgressBar o) => o -> m Bool
getProgressBarShowText :: o -> m Bool
getProgressBarShowText 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 String
"show-text"
setProgressBarShowText :: (MonadIO m, IsProgressBar o) => o -> Bool -> m ()
setProgressBarShowText :: o -> Bool -> m ()
setProgressBarShowText o
obj 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 String
"show-text" Bool
val
constructProgressBarShowText :: (IsProgressBar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructProgressBarShowText :: Bool -> m (GValueConstruct o)
constructProgressBarShowText 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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-text" Bool
val
#if defined(ENABLE_OVERLOADING)
data ProgressBarShowTextPropertyInfo
instance AttrInfo ProgressBarShowTextPropertyInfo where
type AttrAllowedOps ProgressBarShowTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ProgressBarShowTextPropertyInfo = IsProgressBar
type AttrSetTypeConstraint ProgressBarShowTextPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ProgressBarShowTextPropertyInfo = (~) Bool
type AttrTransferType ProgressBarShowTextPropertyInfo = Bool
type AttrGetType ProgressBarShowTextPropertyInfo = Bool
type AttrLabel ProgressBarShowTextPropertyInfo = "show-text"
type AttrOrigin ProgressBarShowTextPropertyInfo = ProgressBar
attrGet = getProgressBarShowText
attrSet = setProgressBarShowText
attrTransfer _ v = do
return v
attrConstruct = constructProgressBarShowText
attrClear = undefined
#endif
getProgressBarText :: (MonadIO m, IsProgressBar o) => o -> m (Maybe T.Text)
getProgressBarText :: o -> m (Maybe Text)
getProgressBarText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"text"
setProgressBarText :: (MonadIO m, IsProgressBar o) => o -> T.Text -> m ()
setProgressBarText :: o -> Text -> m ()
setProgressBarText o
obj Text
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 -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructProgressBarText :: (IsProgressBar o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructProgressBarText :: Text -> m (GValueConstruct o)
constructProgressBarText Text
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
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearProgressBarText :: (MonadIO m, IsProgressBar o) => o -> m ()
clearProgressBarText :: o -> m ()
clearProgressBarText o
obj = 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 -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ProgressBarTextPropertyInfo
instance AttrInfo ProgressBarTextPropertyInfo where
type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = IsProgressBar
type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text
type AttrTransferType ProgressBarTextPropertyInfo = T.Text
type AttrGetType ProgressBarTextPropertyInfo = (Maybe T.Text)
type AttrLabel ProgressBarTextPropertyInfo = "text"
type AttrOrigin ProgressBarTextPropertyInfo = ProgressBar
attrGet = getProgressBarText
attrSet = setProgressBarText
attrTransfer _ v = do
return v
attrConstruct = constructProgressBarText
attrClear = clearProgressBarText
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ProgressBar
type instance O.AttributeList ProgressBar = ProgressBarAttributeList
type ProgressBarAttributeList = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("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", ProgressBarInvertedPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pulseStep", ProgressBarPulseStepPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showText", ProgressBarShowTextPropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
progressBarEllipsize :: AttrLabelProxy "ellipsize"
progressBarEllipsize = AttrLabelProxy
progressBarFraction :: AttrLabelProxy "fraction"
progressBarFraction = AttrLabelProxy
progressBarInverted :: AttrLabelProxy "inverted"
progressBarInverted = AttrLabelProxy
progressBarPulseStep :: AttrLabelProxy "pulseStep"
progressBarPulseStep = AttrLabelProxy
progressBarShowText :: AttrLabelProxy "showText"
progressBarShowText = AttrLabelProxy
progressBarText :: AttrLabelProxy "text"
progressBarText = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ProgressBar = ProgressBarSignalList
type ProgressBarSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_progress_bar_new" gtk_progress_bar_new ::
IO (Ptr ProgressBar)
progressBarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ProgressBar
progressBarNew :: m ProgressBar
progressBarNew = IO ProgressBar -> m ProgressBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ProgressBar -> m ProgressBar)
-> IO ProgressBar -> m ProgressBar
forall a b. (a -> b) -> a -> b
$ do
Ptr ProgressBar
result <- IO (Ptr ProgressBar)
gtk_progress_bar_new
Text -> Ptr ProgressBar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"progressBarNew" Ptr ProgressBar
result
ProgressBar
result' <- ((ManagedPtr ProgressBar -> ProgressBar)
-> Ptr ProgressBar -> IO ProgressBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ProgressBar -> ProgressBar
ProgressBar) Ptr ProgressBar
result
ProgressBar -> IO ProgressBar
forall (m :: * -> *) a. Monad m => a -> m a
return ProgressBar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_progress_bar_get_ellipsize" gtk_progress_bar_get_ellipsize ::
Ptr ProgressBar ->
IO CUInt
progressBarGetEllipsize ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m Pango.Enums.EllipsizeMode
progressBarGetEllipsize :: a -> m EllipsizeMode
progressBarGetEllipsize a
pbar = IO EllipsizeMode -> m EllipsizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EllipsizeMode -> m EllipsizeMode)
-> IO EllipsizeMode -> m EllipsizeMode
forall a b. (a -> b) -> a -> b
$ do
Ptr ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CUInt
result <- Ptr ProgressBar -> IO CUInt
gtk_progress_bar_get_ellipsize Ptr ProgressBar
pbar'
let result' :: EllipsizeMode
result' = (Int -> EllipsizeMode
forall a. Enum a => Int -> a
toEnum (Int -> EllipsizeMode) -> (CUInt -> Int) -> CUInt -> EllipsizeMode
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
pbar
EllipsizeMode -> IO EllipsizeMode
forall (m :: * -> *) a. Monad m => a -> m a
return EllipsizeMode
result'
#if defined(ENABLE_OVERLOADING)
data ProgressBarGetEllipsizeMethodInfo
instance (signature ~ (m Pango.Enums.EllipsizeMode), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarGetEllipsizeMethodInfo a signature where
overloadedMethod = progressBarGetEllipsize
#endif
foreign import ccall "gtk_progress_bar_get_fraction" gtk_progress_bar_get_fraction ::
Ptr ProgressBar ->
IO CDouble
progressBarGetFraction ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m Double
progressBarGetFraction :: a -> m Double
progressBarGetFraction a
pbar = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CDouble
result <- Ptr ProgressBar -> IO CDouble
gtk_progress_bar_get_fraction Ptr ProgressBar
pbar'
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
pbar
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data ProgressBarGetFractionMethodInfo
instance (signature ~ (m Double), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarGetFractionMethodInfo a signature where
overloadedMethod = progressBarGetFraction
#endif
foreign import ccall "gtk_progress_bar_get_inverted" gtk_progress_bar_get_inverted ::
Ptr ProgressBar ->
IO CInt
progressBarGetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m Bool
progressBarGetInverted :: a -> m Bool
progressBarGetInverted a
pbar = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CInt
result <- Ptr ProgressBar -> IO CInt
gtk_progress_bar_get_inverted Ptr ProgressBar
pbar'
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
pbar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ProgressBarGetInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarGetInvertedMethodInfo a signature where
overloadedMethod = progressBarGetInverted
#endif
foreign import ccall "gtk_progress_bar_get_pulse_step" gtk_progress_bar_get_pulse_step ::
Ptr ProgressBar ->
IO CDouble
progressBarGetPulseStep ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m Double
progressBarGetPulseStep :: a -> m Double
progressBarGetPulseStep a
pbar = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CDouble
result <- Ptr ProgressBar -> IO CDouble
gtk_progress_bar_get_pulse_step Ptr ProgressBar
pbar'
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
pbar
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data ProgressBarGetPulseStepMethodInfo
instance (signature ~ (m Double), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarGetPulseStepMethodInfo a signature where
overloadedMethod = progressBarGetPulseStep
#endif
foreign import ccall "gtk_progress_bar_get_show_text" gtk_progress_bar_get_show_text ::
Ptr ProgressBar ->
IO CInt
progressBarGetShowText ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m Bool
progressBarGetShowText :: a -> m Bool
progressBarGetShowText a
pbar = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CInt
result <- Ptr ProgressBar -> IO CInt
gtk_progress_bar_get_show_text Ptr ProgressBar
pbar'
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
pbar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ProgressBarGetShowTextMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarGetShowTextMethodInfo a signature where
overloadedMethod = progressBarGetShowText
#endif
foreign import ccall "gtk_progress_bar_get_text" gtk_progress_bar_get_text ::
Ptr ProgressBar ->
IO CString
progressBarGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m (Maybe T.Text)
progressBarGetText :: a -> m (Maybe Text)
progressBarGetText a
pbar = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CString
result <- Ptr ProgressBar -> IO CString
gtk_progress_bar_get_text Ptr ProgressBar
pbar'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ProgressBarGetTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarGetTextMethodInfo a signature where
overloadedMethod = progressBarGetText
#endif
foreign import ccall "gtk_progress_bar_pulse" gtk_progress_bar_pulse ::
Ptr ProgressBar ->
IO ()
progressBarPulse ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> m ()
progressBarPulse :: a -> m ()
progressBarPulse a
pbar = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
Ptr ProgressBar -> IO ()
gtk_progress_bar_pulse Ptr ProgressBar
pbar'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarPulseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarPulseMethodInfo a signature where
overloadedMethod = progressBarPulse
#endif
foreign import ccall "gtk_progress_bar_set_ellipsize" gtk_progress_bar_set_ellipsize ::
Ptr ProgressBar ->
CUInt ->
IO ()
progressBarSetEllipsize ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> Pango.Enums.EllipsizeMode
-> m ()
progressBarSetEllipsize :: a -> EllipsizeMode -> m ()
progressBarSetEllipsize a
pbar EllipsizeMode
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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (EllipsizeMode -> Int) -> EllipsizeMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EllipsizeMode -> Int
forall a. Enum a => a -> Int
fromEnum) EllipsizeMode
mode
Ptr ProgressBar -> CUInt -> IO ()
gtk_progress_bar_set_ellipsize Ptr ProgressBar
pbar' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarSetEllipsizeMethodInfo
instance (signature ~ (Pango.Enums.EllipsizeMode -> m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarSetEllipsizeMethodInfo a signature where
overloadedMethod = progressBarSetEllipsize
#endif
foreign import ccall "gtk_progress_bar_set_fraction" gtk_progress_bar_set_fraction ::
Ptr ProgressBar ->
CDouble ->
IO ()
progressBarSetFraction ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> Double
-> m ()
progressBarSetFraction :: a -> Double -> m ()
progressBarSetFraction a
pbar Double
fraction = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
let fraction' :: CDouble
fraction' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fraction
Ptr ProgressBar -> CDouble -> IO ()
gtk_progress_bar_set_fraction Ptr ProgressBar
pbar' CDouble
fraction'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarSetFractionMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarSetFractionMethodInfo a signature where
overloadedMethod = progressBarSetFraction
#endif
foreign import ccall "gtk_progress_bar_set_inverted" gtk_progress_bar_set_inverted ::
Ptr ProgressBar ->
CInt ->
IO ()
progressBarSetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> Bool
-> m ()
progressBarSetInverted :: a -> Bool -> m ()
progressBarSetInverted a
pbar 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
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 ProgressBar -> CInt -> IO ()
gtk_progress_bar_set_inverted Ptr ProgressBar
pbar' CInt
inverted'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarSetInvertedMethodInfo a signature where
overloadedMethod = progressBarSetInverted
#endif
foreign import ccall "gtk_progress_bar_set_pulse_step" gtk_progress_bar_set_pulse_step ::
Ptr ProgressBar ->
CDouble ->
IO ()
progressBarSetPulseStep ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> Double
-> m ()
progressBarSetPulseStep :: a -> Double -> m ()
progressBarSetPulseStep a
pbar Double
fraction = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
let fraction' :: CDouble
fraction' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fraction
Ptr ProgressBar -> CDouble -> IO ()
gtk_progress_bar_set_pulse_step Ptr ProgressBar
pbar' CDouble
fraction'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarSetPulseStepMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarSetPulseStepMethodInfo a signature where
overloadedMethod = progressBarSetPulseStep
#endif
foreign import ccall "gtk_progress_bar_set_show_text" gtk_progress_bar_set_show_text ::
Ptr ProgressBar ->
CInt ->
IO ()
progressBarSetShowText ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> Bool
-> m ()
progressBarSetShowText :: a -> Bool -> m ()
progressBarSetShowText a
pbar Bool
showText = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
let showText' :: CInt
showText' = (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
showText
Ptr ProgressBar -> CInt -> IO ()
gtk_progress_bar_set_show_text Ptr ProgressBar
pbar' CInt
showText'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarSetShowTextMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarSetShowTextMethodInfo a signature where
overloadedMethod = progressBarSetShowText
#endif
foreign import ccall "gtk_progress_bar_set_text" gtk_progress_bar_set_text ::
Ptr ProgressBar ->
CString ->
IO ()
progressBarSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressBar a) =>
a
-> Maybe (T.Text)
-> m ()
progressBarSetText :: a -> Maybe Text -> m ()
progressBarSetText a
pbar Maybe Text
text = 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 ProgressBar
pbar' <- a -> IO (Ptr ProgressBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pbar
CString
maybeText <- case Maybe Text
text of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jText -> do
CString
jText' <- Text -> IO CString
textToCString Text
jText
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr ProgressBar -> CString -> IO ()
gtk_progress_bar_set_text Ptr ProgressBar
pbar' CString
maybeText
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pbar
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeText
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressBarSetTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsProgressBar a) => O.MethodInfo ProgressBarSetTextMethodInfo a signature where
overloadedMethod = progressBarSetText
#endif