{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Dazzle.Objects.ProgressIcon
(
ProgressIcon(..) ,
IsProgressIcon ,
toProgressIcon ,
#if defined(ENABLE_OVERLOADING)
ResolveProgressIconMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ProgressIconGetProgressMethodInfo ,
#endif
progressIconGetProgress ,
progressIconNew ,
#if defined(ENABLE_OVERLOADING)
ProgressIconSetProgressMethodInfo ,
#endif
progressIconSetProgress ,
#if defined(ENABLE_OVERLOADING)
ProgressIconProgressPropertyInfo ,
#endif
constructProgressIconProgress ,
getProgressIconProgress ,
#if defined(ENABLE_OVERLOADING)
progressIconProgress ,
#endif
setProgressIconProgress ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.DrawingArea as Gtk.DrawingArea
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#else
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.DrawingArea as Gtk.DrawingArea
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype ProgressIcon = ProgressIcon (SP.ManagedPtr ProgressIcon)
deriving (ProgressIcon -> ProgressIcon -> Bool
(ProgressIcon -> ProgressIcon -> Bool)
-> (ProgressIcon -> ProgressIcon -> Bool) -> Eq ProgressIcon
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProgressIcon -> ProgressIcon -> Bool
== :: ProgressIcon -> ProgressIcon -> Bool
$c/= :: ProgressIcon -> ProgressIcon -> Bool
/= :: ProgressIcon -> ProgressIcon -> Bool
Eq)
instance SP.ManagedPtrNewtype ProgressIcon where
toManagedPtr :: ProgressIcon -> ManagedPtr ProgressIcon
toManagedPtr (ProgressIcon ManagedPtr ProgressIcon
p) = ManagedPtr ProgressIcon
p
foreign import ccall "dzl_progress_icon_get_type"
c_dzl_progress_icon_get_type :: IO B.Types.GType
instance B.Types.TypedObject ProgressIcon where
glibType :: IO GType
glibType = IO GType
c_dzl_progress_icon_get_type
instance B.Types.GObject ProgressIcon
class (SP.GObject o, O.IsDescendantOf ProgressIcon o) => IsProgressIcon o
instance (SP.GObject o, O.IsDescendantOf ProgressIcon o) => IsProgressIcon o
instance O.HasParentTypes ProgressIcon
type instance O.ParentTypes ProgressIcon = '[Gtk.DrawingArea.DrawingArea, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toProgressIcon :: (MIO.MonadIO m, IsProgressIcon o) => o -> m ProgressIcon
toProgressIcon :: forall (m :: * -> *) o.
(MonadIO m, IsProgressIcon o) =>
o -> m ProgressIcon
toProgressIcon = IO ProgressIcon -> m ProgressIcon
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ProgressIcon -> m ProgressIcon)
-> (o -> IO ProgressIcon) -> o -> m ProgressIcon
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ProgressIcon -> ProgressIcon) -> o -> IO ProgressIcon
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ProgressIcon -> ProgressIcon
ProgressIcon
instance B.GValue.IsGValue (Maybe ProgressIcon) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_dzl_progress_icon_get_type
gvalueSet_ :: Ptr GValue -> Maybe ProgressIcon -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ProgressIcon
P.Nothing = Ptr GValue -> Ptr ProgressIcon -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ProgressIcon
forall a. Ptr a
FP.nullPtr :: FP.Ptr ProgressIcon)
gvalueSet_ Ptr GValue
gv (P.Just ProgressIcon
obj) = ProgressIcon -> (Ptr ProgressIcon -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ProgressIcon
obj (Ptr GValue -> Ptr ProgressIcon -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ProgressIcon)
gvalueGet_ Ptr GValue
gv = do
Ptr ProgressIcon
ptr <- Ptr GValue -> IO (Ptr ProgressIcon)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ProgressIcon)
if Ptr ProgressIcon
ptr Ptr ProgressIcon -> Ptr ProgressIcon -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ProgressIcon
forall a. Ptr a
FP.nullPtr
then ProgressIcon -> Maybe ProgressIcon
forall a. a -> Maybe a
P.Just (ProgressIcon -> Maybe ProgressIcon)
-> IO ProgressIcon -> IO (Maybe ProgressIcon)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ProgressIcon -> ProgressIcon)
-> Ptr ProgressIcon -> IO ProgressIcon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ProgressIcon -> ProgressIcon
ProgressIcon Ptr ProgressIcon
ptr
else Maybe ProgressIcon -> IO (Maybe ProgressIcon)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ProgressIcon
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveProgressIconMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveProgressIconMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveProgressIconMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveProgressIconMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveProgressIconMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveProgressIconMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveProgressIconMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveProgressIconMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveProgressIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveProgressIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveProgressIconMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveProgressIconMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveProgressIconMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveProgressIconMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveProgressIconMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveProgressIconMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveProgressIconMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveProgressIconMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveProgressIconMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveProgressIconMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveProgressIconMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveProgressIconMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveProgressIconMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveProgressIconMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveProgressIconMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveProgressIconMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveProgressIconMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveProgressIconMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveProgressIconMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveProgressIconMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveProgressIconMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveProgressIconMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveProgressIconMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveProgressIconMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveProgressIconMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveProgressIconMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveProgressIconMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveProgressIconMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveProgressIconMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveProgressIconMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveProgressIconMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveProgressIconMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveProgressIconMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveProgressIconMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveProgressIconMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveProgressIconMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveProgressIconMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveProgressIconMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveProgressIconMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveProgressIconMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveProgressIconMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveProgressIconMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveProgressIconMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveProgressIconMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveProgressIconMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveProgressIconMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveProgressIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveProgressIconMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveProgressIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveProgressIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveProgressIconMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveProgressIconMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveProgressIconMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveProgressIconMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveProgressIconMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveProgressIconMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveProgressIconMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveProgressIconMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveProgressIconMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveProgressIconMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveProgressIconMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveProgressIconMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveProgressIconMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveProgressIconMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveProgressIconMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveProgressIconMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveProgressIconMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveProgressIconMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveProgressIconMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveProgressIconMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveProgressIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveProgressIconMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveProgressIconMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveProgressIconMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveProgressIconMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveProgressIconMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveProgressIconMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveProgressIconMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveProgressIconMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveProgressIconMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveProgressIconMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveProgressIconMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveProgressIconMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveProgressIconMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveProgressIconMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveProgressIconMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveProgressIconMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveProgressIconMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveProgressIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveProgressIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveProgressIconMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveProgressIconMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveProgressIconMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveProgressIconMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveProgressIconMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveProgressIconMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveProgressIconMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveProgressIconMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveProgressIconMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveProgressIconMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveProgressIconMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveProgressIconMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveProgressIconMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveProgressIconMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveProgressIconMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveProgressIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveProgressIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveProgressIconMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveProgressIconMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveProgressIconMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveProgressIconMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveProgressIconMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveProgressIconMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveProgressIconMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveProgressIconMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveProgressIconMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveProgressIconMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveProgressIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveProgressIconMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveProgressIconMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveProgressIconMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveProgressIconMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveProgressIconMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveProgressIconMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveProgressIconMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveProgressIconMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveProgressIconMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveProgressIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveProgressIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveProgressIconMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveProgressIconMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveProgressIconMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveProgressIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveProgressIconMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveProgressIconMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveProgressIconMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveProgressIconMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveProgressIconMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveProgressIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveProgressIconMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveProgressIconMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveProgressIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveProgressIconMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveProgressIconMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveProgressIconMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveProgressIconMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveProgressIconMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveProgressIconMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveProgressIconMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveProgressIconMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveProgressIconMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveProgressIconMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveProgressIconMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveProgressIconMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveProgressIconMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveProgressIconMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveProgressIconMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveProgressIconMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveProgressIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveProgressIconMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveProgressIconMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveProgressIconMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveProgressIconMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveProgressIconMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveProgressIconMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveProgressIconMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveProgressIconMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveProgressIconMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveProgressIconMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveProgressIconMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveProgressIconMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveProgressIconMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveProgressIconMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveProgressIconMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveProgressIconMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveProgressIconMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveProgressIconMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveProgressIconMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveProgressIconMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveProgressIconMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveProgressIconMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveProgressIconMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveProgressIconMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveProgressIconMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveProgressIconMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveProgressIconMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveProgressIconMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveProgressIconMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveProgressIconMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveProgressIconMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveProgressIconMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveProgressIconMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveProgressIconMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveProgressIconMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveProgressIconMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveProgressIconMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveProgressIconMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveProgressIconMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveProgressIconMethod "getProgress" o = ProgressIconGetProgressMethodInfo
ResolveProgressIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveProgressIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveProgressIconMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveProgressIconMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveProgressIconMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveProgressIconMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveProgressIconMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveProgressIconMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveProgressIconMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveProgressIconMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveProgressIconMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveProgressIconMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveProgressIconMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveProgressIconMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveProgressIconMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveProgressIconMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveProgressIconMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveProgressIconMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveProgressIconMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveProgressIconMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveProgressIconMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveProgressIconMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveProgressIconMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveProgressIconMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveProgressIconMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveProgressIconMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveProgressIconMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveProgressIconMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveProgressIconMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveProgressIconMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveProgressIconMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveProgressIconMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveProgressIconMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveProgressIconMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveProgressIconMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveProgressIconMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveProgressIconMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveProgressIconMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveProgressIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveProgressIconMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveProgressIconMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveProgressIconMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveProgressIconMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveProgressIconMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveProgressIconMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveProgressIconMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveProgressIconMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveProgressIconMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveProgressIconMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveProgressIconMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveProgressIconMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveProgressIconMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveProgressIconMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveProgressIconMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveProgressIconMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveProgressIconMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveProgressIconMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveProgressIconMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveProgressIconMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveProgressIconMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveProgressIconMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveProgressIconMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveProgressIconMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveProgressIconMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveProgressIconMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveProgressIconMethod "setProgress" o = ProgressIconSetProgressMethodInfo
ResolveProgressIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveProgressIconMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveProgressIconMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveProgressIconMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveProgressIconMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveProgressIconMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveProgressIconMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveProgressIconMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveProgressIconMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveProgressIconMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveProgressIconMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveProgressIconMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveProgressIconMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveProgressIconMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveProgressIconMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveProgressIconMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveProgressIconMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveProgressIconMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveProgressIconMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveProgressIconMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveProgressIconMethod t ProgressIcon, O.OverloadedMethod info ProgressIcon p) => OL.IsLabel t (ProgressIcon -> 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 ~ ResolveProgressIconMethod t ProgressIcon, O.OverloadedMethod info ProgressIcon p, R.HasField t ProgressIcon p) => R.HasField t ProgressIcon p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveProgressIconMethod t ProgressIcon, O.OverloadedMethodInfo info ProgressIcon) => OL.IsLabel t (O.MethodProxy info ProgressIcon) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getProgressIconProgress :: (MonadIO m, IsProgressIcon o) => o -> m Double
getProgressIconProgress :: forall (m :: * -> *) o.
(MonadIO m, IsProgressIcon o) =>
o -> m Double
getProgressIconProgress o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"progress"
setProgressIconProgress :: (MonadIO m, IsProgressIcon o) => o -> Double -> m ()
setProgressIconProgress :: forall (m :: * -> *) o.
(MonadIO m, IsProgressIcon o) =>
o -> Double -> m ()
setProgressIconProgress o
obj Double
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"progress" Double
val
constructProgressIconProgress :: (IsProgressIcon o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructProgressIconProgress :: forall o (m :: * -> *).
(IsProgressIcon o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructProgressIconProgress Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"progress" Double
val
#if defined(ENABLE_OVERLOADING)
data ProgressIconProgressPropertyInfo
instance AttrInfo ProgressIconProgressPropertyInfo where
type AttrAllowedOps ProgressIconProgressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ProgressIconProgressPropertyInfo = IsProgressIcon
type AttrSetTypeConstraint ProgressIconProgressPropertyInfo = (~) Double
type AttrTransferTypeConstraint ProgressIconProgressPropertyInfo = (~) Double
type AttrTransferType ProgressIconProgressPropertyInfo = Double
type AttrGetType ProgressIconProgressPropertyInfo = Double
type AttrLabel ProgressIconProgressPropertyInfo = "progress"
type AttrOrigin ProgressIconProgressPropertyInfo = ProgressIcon
attrGet = getProgressIconProgress
attrSet = setProgressIconProgress
attrTransfer _ v = do
return v
attrConstruct = constructProgressIconProgress
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.ProgressIcon.progress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-ProgressIcon.html#g:attr:progress"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ProgressIcon
type instance O.AttributeList ProgressIcon = ProgressIconAttributeList
type ProgressIconAttributeList = ('[ '("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), '("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), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("progress", ProgressIconProgressPropertyInfo), '("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), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
progressIconProgress :: AttrLabelProxy "progress"
progressIconProgress = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ProgressIcon = ProgressIconSignalList
type ProgressIconSignalList = ('[ '("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), '("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, DK.Type)])
#endif
foreign import ccall "dzl_progress_icon_new" dzl_progress_icon_new ::
IO (Ptr ProgressIcon)
progressIconNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ProgressIcon
progressIconNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ProgressIcon
progressIconNew = IO ProgressIcon -> m ProgressIcon
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ProgressIcon -> m ProgressIcon)
-> IO ProgressIcon -> m ProgressIcon
forall a b. (a -> b) -> a -> b
$ do
Ptr ProgressIcon
result <- IO (Ptr ProgressIcon)
dzl_progress_icon_new
Text -> Ptr ProgressIcon -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"progressIconNew" Ptr ProgressIcon
result
ProgressIcon
result' <- ((ManagedPtr ProgressIcon -> ProgressIcon)
-> Ptr ProgressIcon -> IO ProgressIcon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ProgressIcon -> ProgressIcon
ProgressIcon) Ptr ProgressIcon
result
ProgressIcon -> IO ProgressIcon
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ProgressIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "dzl_progress_icon_get_progress" dzl_progress_icon_get_progress ::
Ptr ProgressIcon ->
IO CDouble
progressIconGetProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressIcon a) =>
a
-> m Double
progressIconGetProgress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsProgressIcon a) =>
a -> m Double
progressIconGetProgress a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr ProgressIcon
self' <- a -> IO (Ptr ProgressIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr ProgressIcon -> IO CDouble
dzl_progress_icon_get_progress Ptr ProgressIcon
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data ProgressIconGetProgressMethodInfo
instance (signature ~ (m Double), MonadIO m, IsProgressIcon a) => O.OverloadedMethod ProgressIconGetProgressMethodInfo a signature where
overloadedMethod = progressIconGetProgress
instance O.OverloadedMethodInfo ProgressIconGetProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.ProgressIcon.progressIconGetProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-ProgressIcon.html#v:progressIconGetProgress"
})
#endif
foreign import ccall "dzl_progress_icon_set_progress" dzl_progress_icon_set_progress ::
Ptr ProgressIcon ->
CDouble ->
IO ()
progressIconSetProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsProgressIcon a) =>
a
-> Double
-> m ()
progressIconSetProgress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsProgressIcon a) =>
a -> Double -> m ()
progressIconSetProgress a
self Double
progress = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ProgressIcon
self' <- a -> IO (Ptr ProgressIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let progress' :: CDouble
progress' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
progress
Ptr ProgressIcon -> CDouble -> IO ()
dzl_progress_icon_set_progress Ptr ProgressIcon
self' CDouble
progress'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ProgressIconSetProgressMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsProgressIcon a) => O.OverloadedMethod ProgressIconSetProgressMethodInfo a signature where
overloadedMethod = progressIconSetProgress
instance O.OverloadedMethodInfo ProgressIconSetProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Dazzle.Objects.ProgressIcon.progressIconSetProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-dazzle-1.0.2/docs/GI-Dazzle-Objects-ProgressIcon.html#v:progressIconSetProgress"
})
#endif