{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.MediaControls
(
MediaControls(..) ,
IsMediaControls ,
toMediaControls ,
#if defined(ENABLE_OVERLOADING)
ResolveMediaControlsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MediaControlsGetMediaStreamMethodInfo ,
#endif
mediaControlsGetMediaStream ,
mediaControlsNew ,
#if defined(ENABLE_OVERLOADING)
MediaControlsSetMediaStreamMethodInfo ,
#endif
mediaControlsSetMediaStream ,
#if defined(ENABLE_OVERLOADING)
MediaControlsMediaStreamPropertyInfo ,
#endif
clearMediaControlsMediaStream ,
constructMediaControlsMediaStream ,
getMediaControlsMediaStream ,
#if defined(ENABLE_OVERLOADING)
mediaControlsMediaStream ,
#endif
setMediaControlsMediaStream ,
) 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.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
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.Objects.MediaStream as Gtk.MediaStream
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype MediaControls = MediaControls (SP.ManagedPtr MediaControls)
deriving (MediaControls -> MediaControls -> Bool
(MediaControls -> MediaControls -> Bool)
-> (MediaControls -> MediaControls -> Bool) -> Eq MediaControls
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MediaControls -> MediaControls -> Bool
== :: MediaControls -> MediaControls -> Bool
$c/= :: MediaControls -> MediaControls -> Bool
/= :: MediaControls -> MediaControls -> Bool
Eq)
instance SP.ManagedPtrNewtype MediaControls where
toManagedPtr :: MediaControls -> ManagedPtr MediaControls
toManagedPtr (MediaControls ManagedPtr MediaControls
p) = ManagedPtr MediaControls
p
foreign import ccall "gtk_media_controls_get_type"
c_gtk_media_controls_get_type :: IO B.Types.GType
instance B.Types.TypedObject MediaControls where
glibType :: IO GType
glibType = IO GType
c_gtk_media_controls_get_type
instance B.Types.GObject MediaControls
class (SP.GObject o, O.IsDescendantOf MediaControls o) => IsMediaControls o
instance (SP.GObject o, O.IsDescendantOf MediaControls o) => IsMediaControls o
instance O.HasParentTypes MediaControls
type instance O.ParentTypes MediaControls = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toMediaControls :: (MIO.MonadIO m, IsMediaControls o) => o -> m MediaControls
toMediaControls :: forall (m :: * -> *) o.
(MonadIO m, IsMediaControls o) =>
o -> m MediaControls
toMediaControls = IO MediaControls -> m MediaControls
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MediaControls -> m MediaControls)
-> (o -> IO MediaControls) -> o -> m MediaControls
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr MediaControls -> MediaControls)
-> o -> IO MediaControls
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr MediaControls -> MediaControls
MediaControls
instance B.GValue.IsGValue (Maybe MediaControls) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_media_controls_get_type
gvalueSet_ :: Ptr GValue -> Maybe MediaControls -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MediaControls
P.Nothing = Ptr GValue -> Ptr MediaControls -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr MediaControls
forall a. Ptr a
FP.nullPtr :: FP.Ptr MediaControls)
gvalueSet_ Ptr GValue
gv (P.Just MediaControls
obj) = MediaControls -> (Ptr MediaControls -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MediaControls
obj (Ptr GValue -> Ptr MediaControls -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MediaControls)
gvalueGet_ Ptr GValue
gv = do
Ptr MediaControls
ptr <- Ptr GValue -> IO (Ptr MediaControls)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr MediaControls)
if Ptr MediaControls
ptr Ptr MediaControls -> Ptr MediaControls -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr MediaControls
forall a. Ptr a
FP.nullPtr
then MediaControls -> Maybe MediaControls
forall a. a -> Maybe a
P.Just (MediaControls -> Maybe MediaControls)
-> IO MediaControls -> IO (Maybe MediaControls)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr MediaControls -> MediaControls)
-> Ptr MediaControls -> IO MediaControls
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr MediaControls -> MediaControls
MediaControls Ptr MediaControls
ptr
else Maybe MediaControls -> IO (Maybe MediaControls)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MediaControls
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMediaControlsMethod (t :: Symbol) (o :: *) :: * where
ResolveMediaControlsMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveMediaControlsMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveMediaControlsMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveMediaControlsMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveMediaControlsMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveMediaControlsMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveMediaControlsMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveMediaControlsMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveMediaControlsMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveMediaControlsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMediaControlsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMediaControlsMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveMediaControlsMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveMediaControlsMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveMediaControlsMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveMediaControlsMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveMediaControlsMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveMediaControlsMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveMediaControlsMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveMediaControlsMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveMediaControlsMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveMediaControlsMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveMediaControlsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMediaControlsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMediaControlsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMediaControlsMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveMediaControlsMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveMediaControlsMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveMediaControlsMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveMediaControlsMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveMediaControlsMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveMediaControlsMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveMediaControlsMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveMediaControlsMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveMediaControlsMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveMediaControlsMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveMediaControlsMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveMediaControlsMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveMediaControlsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMediaControlsMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveMediaControlsMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveMediaControlsMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveMediaControlsMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveMediaControlsMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveMediaControlsMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveMediaControlsMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveMediaControlsMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveMediaControlsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMediaControlsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMediaControlsMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveMediaControlsMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveMediaControlsMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveMediaControlsMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveMediaControlsMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveMediaControlsMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveMediaControlsMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveMediaControlsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMediaControlsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMediaControlsMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveMediaControlsMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveMediaControlsMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveMediaControlsMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveMediaControlsMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveMediaControlsMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveMediaControlsMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveMediaControlsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMediaControlsMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveMediaControlsMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveMediaControlsMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveMediaControlsMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveMediaControlsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMediaControlsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMediaControlsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMediaControlsMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveMediaControlsMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveMediaControlsMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveMediaControlsMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveMediaControlsMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveMediaControlsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMediaControlsMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveMediaControlsMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveMediaControlsMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveMediaControlsMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveMediaControlsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMediaControlsMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveMediaControlsMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveMediaControlsMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveMediaControlsMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveMediaControlsMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveMediaControlsMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveMediaControlsMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveMediaControlsMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveMediaControlsMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveMediaControlsMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveMediaControlsMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveMediaControlsMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveMediaControlsMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveMediaControlsMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveMediaControlsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMediaControlsMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveMediaControlsMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveMediaControlsMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveMediaControlsMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveMediaControlsMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveMediaControlsMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveMediaControlsMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveMediaControlsMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveMediaControlsMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveMediaControlsMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveMediaControlsMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveMediaControlsMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveMediaControlsMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveMediaControlsMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveMediaControlsMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveMediaControlsMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveMediaControlsMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveMediaControlsMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveMediaControlsMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveMediaControlsMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveMediaControlsMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveMediaControlsMethod "getMediaStream" o = MediaControlsGetMediaStreamMethodInfo
ResolveMediaControlsMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveMediaControlsMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveMediaControlsMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveMediaControlsMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveMediaControlsMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveMediaControlsMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveMediaControlsMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveMediaControlsMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveMediaControlsMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveMediaControlsMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveMediaControlsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMediaControlsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMediaControlsMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveMediaControlsMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveMediaControlsMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveMediaControlsMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveMediaControlsMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveMediaControlsMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveMediaControlsMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveMediaControlsMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveMediaControlsMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveMediaControlsMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveMediaControlsMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveMediaControlsMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveMediaControlsMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveMediaControlsMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveMediaControlsMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveMediaControlsMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveMediaControlsMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveMediaControlsMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveMediaControlsMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveMediaControlsMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveMediaControlsMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveMediaControlsMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveMediaControlsMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveMediaControlsMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveMediaControlsMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveMediaControlsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMediaControlsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMediaControlsMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveMediaControlsMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveMediaControlsMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveMediaControlsMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveMediaControlsMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveMediaControlsMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveMediaControlsMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveMediaControlsMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveMediaControlsMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveMediaControlsMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveMediaControlsMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveMediaControlsMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveMediaControlsMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveMediaControlsMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveMediaControlsMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveMediaControlsMethod "setMediaStream" o = MediaControlsSetMediaStreamMethodInfo
ResolveMediaControlsMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveMediaControlsMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveMediaControlsMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveMediaControlsMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveMediaControlsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMediaControlsMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveMediaControlsMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveMediaControlsMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveMediaControlsMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveMediaControlsMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveMediaControlsMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveMediaControlsMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveMediaControlsMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveMediaControlsMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveMediaControlsMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveMediaControlsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMediaControlsMethod t MediaControls, O.OverloadedMethod info MediaControls p) => OL.IsLabel t (MediaControls -> 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 ~ ResolveMediaControlsMethod t MediaControls, O.OverloadedMethod info MediaControls p, R.HasField t MediaControls p) => R.HasField t MediaControls p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMediaControlsMethod t MediaControls, O.OverloadedMethodInfo info MediaControls) => OL.IsLabel t (O.MethodProxy info MediaControls) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getMediaControlsMediaStream :: (MonadIO m, IsMediaControls o) => o -> m (Maybe Gtk.MediaStream.MediaStream)
getMediaControlsMediaStream :: forall (m :: * -> *) o.
(MonadIO m, IsMediaControls o) =>
o -> m (Maybe MediaStream)
getMediaControlsMediaStream o
obj = IO (Maybe MediaStream) -> m (Maybe MediaStream)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe MediaStream) -> m (Maybe MediaStream))
-> IO (Maybe MediaStream) -> m (Maybe MediaStream)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr MediaStream -> MediaStream)
-> IO (Maybe MediaStream)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"media-stream" ManagedPtr MediaStream -> MediaStream
Gtk.MediaStream.MediaStream
setMediaControlsMediaStream :: (MonadIO m, IsMediaControls o, Gtk.MediaStream.IsMediaStream a) => o -> a -> m ()
setMediaControlsMediaStream :: forall (m :: * -> *) o a.
(MonadIO m, IsMediaControls o, IsMediaStream a) =>
o -> a -> m ()
setMediaControlsMediaStream o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"media-stream" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructMediaControlsMediaStream :: (IsMediaControls o, MIO.MonadIO m, Gtk.MediaStream.IsMediaStream a) => a -> m (GValueConstruct o)
constructMediaControlsMediaStream :: forall o (m :: * -> *) a.
(IsMediaControls o, MonadIO m, IsMediaStream a) =>
a -> m (GValueConstruct o)
constructMediaControlsMediaStream a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"media-stream" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearMediaControlsMediaStream :: (MonadIO m, IsMediaControls o) => o -> m ()
clearMediaControlsMediaStream :: forall (m :: * -> *) o. (MonadIO m, IsMediaControls o) => o -> m ()
clearMediaControlsMediaStream o
obj = 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
$ o -> String -> Maybe MediaStream -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"media-stream" (Maybe MediaStream
forall a. Maybe a
Nothing :: Maybe Gtk.MediaStream.MediaStream)
#if defined(ENABLE_OVERLOADING)
data MediaControlsMediaStreamPropertyInfo
instance AttrInfo MediaControlsMediaStreamPropertyInfo where
type AttrAllowedOps MediaControlsMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MediaControlsMediaStreamPropertyInfo = IsMediaControls
type AttrSetTypeConstraint MediaControlsMediaStreamPropertyInfo = Gtk.MediaStream.IsMediaStream
type AttrTransferTypeConstraint MediaControlsMediaStreamPropertyInfo = Gtk.MediaStream.IsMediaStream
type AttrTransferType MediaControlsMediaStreamPropertyInfo = Gtk.MediaStream.MediaStream
type AttrGetType MediaControlsMediaStreamPropertyInfo = (Maybe Gtk.MediaStream.MediaStream)
type AttrLabel MediaControlsMediaStreamPropertyInfo = "media-stream"
type AttrOrigin MediaControlsMediaStreamPropertyInfo = MediaControls
attrGet = getMediaControlsMediaStream
attrSet = setMediaControlsMediaStream
attrTransfer _ v = do
unsafeCastTo Gtk.MediaStream.MediaStream v
attrConstruct = constructMediaControlsMediaStream
attrClear = clearMediaControlsMediaStream
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MediaControls.mediaStream"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-MediaControls.html#g:attr:mediaStream"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MediaControls
type instance O.AttributeList MediaControls = MediaControlsAttributeList
type MediaControlsAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mediaStream", MediaControlsMediaStreamPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("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)
mediaControlsMediaStream :: AttrLabelProxy "mediaStream"
mediaControlsMediaStream = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList MediaControls = MediaControlsSignalList
type MediaControlsSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("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_media_controls_new" gtk_media_controls_new ::
Ptr Gtk.MediaStream.MediaStream ->
IO (Ptr MediaControls)
mediaControlsNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.MediaStream.IsMediaStream a) =>
Maybe (a)
-> m MediaControls
mediaControlsNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMediaStream a) =>
Maybe a -> m MediaControls
mediaControlsNew Maybe a
stream = IO MediaControls -> m MediaControls
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MediaControls -> m MediaControls)
-> IO MediaControls -> m MediaControls
forall a b. (a -> b) -> a -> b
$ do
Ptr MediaStream
maybeStream <- case Maybe a
stream of
Maybe a
Nothing -> Ptr MediaStream -> IO (Ptr MediaStream)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MediaStream
forall a. Ptr a
nullPtr
Just a
jStream -> do
Ptr MediaStream
jStream' <- a -> IO (Ptr MediaStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jStream
Ptr MediaStream -> IO (Ptr MediaStream)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MediaStream
jStream'
Ptr MediaControls
result <- Ptr MediaStream -> IO (Ptr MediaControls)
gtk_media_controls_new Ptr MediaStream
maybeStream
Text -> Ptr MediaControls -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"mediaControlsNew" Ptr MediaControls
result
MediaControls
result' <- ((ManagedPtr MediaControls -> MediaControls)
-> Ptr MediaControls -> IO MediaControls
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MediaControls -> MediaControls
MediaControls) Ptr MediaControls
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
stream a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
MediaControls -> IO MediaControls
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MediaControls
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_media_controls_get_media_stream" gtk_media_controls_get_media_stream ::
Ptr MediaControls ->
IO (Ptr Gtk.MediaStream.MediaStream)
mediaControlsGetMediaStream ::
(B.CallStack.HasCallStack, MonadIO m, IsMediaControls a) =>
a
-> m (Maybe Gtk.MediaStream.MediaStream)
mediaControlsGetMediaStream :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMediaControls a) =>
a -> m (Maybe MediaStream)
mediaControlsGetMediaStream a
controls = IO (Maybe MediaStream) -> m (Maybe MediaStream)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MediaStream) -> m (Maybe MediaStream))
-> IO (Maybe MediaStream) -> m (Maybe MediaStream)
forall a b. (a -> b) -> a -> b
$ do
Ptr MediaControls
controls' <- a -> IO (Ptr MediaControls)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
controls
Ptr MediaStream
result <- Ptr MediaControls -> IO (Ptr MediaStream)
gtk_media_controls_get_media_stream Ptr MediaControls
controls'
Maybe MediaStream
maybeResult <- Ptr MediaStream
-> (Ptr MediaStream -> IO MediaStream) -> IO (Maybe MediaStream)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MediaStream
result ((Ptr MediaStream -> IO MediaStream) -> IO (Maybe MediaStream))
-> (Ptr MediaStream -> IO MediaStream) -> IO (Maybe MediaStream)
forall a b. (a -> b) -> a -> b
$ \Ptr MediaStream
result' -> do
MediaStream
result'' <- ((ManagedPtr MediaStream -> MediaStream)
-> Ptr MediaStream -> IO MediaStream
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MediaStream -> MediaStream
Gtk.MediaStream.MediaStream) Ptr MediaStream
result'
MediaStream -> IO MediaStream
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MediaStream
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
controls
Maybe MediaStream -> IO (Maybe MediaStream)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MediaStream
maybeResult
#if defined(ENABLE_OVERLOADING)
data MediaControlsGetMediaStreamMethodInfo
instance (signature ~ (m (Maybe Gtk.MediaStream.MediaStream)), MonadIO m, IsMediaControls a) => O.OverloadedMethod MediaControlsGetMediaStreamMethodInfo a signature where
overloadedMethod = mediaControlsGetMediaStream
instance O.OverloadedMethodInfo MediaControlsGetMediaStreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MediaControls.mediaControlsGetMediaStream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-MediaControls.html#v:mediaControlsGetMediaStream"
})
#endif
foreign import ccall "gtk_media_controls_set_media_stream" gtk_media_controls_set_media_stream ::
Ptr MediaControls ->
Ptr Gtk.MediaStream.MediaStream ->
IO ()
mediaControlsSetMediaStream ::
(B.CallStack.HasCallStack, MonadIO m, IsMediaControls a, Gtk.MediaStream.IsMediaStream b) =>
a
-> Maybe (b)
-> m ()
mediaControlsSetMediaStream :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsMediaControls a, IsMediaStream b) =>
a -> Maybe b -> m ()
mediaControlsSetMediaStream a
controls Maybe b
stream = 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 MediaControls
controls' <- a -> IO (Ptr MediaControls)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
controls
Ptr MediaStream
maybeStream <- case Maybe b
stream of
Maybe b
Nothing -> Ptr MediaStream -> IO (Ptr MediaStream)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MediaStream
forall a. Ptr a
nullPtr
Just b
jStream -> do
Ptr MediaStream
jStream' <- b -> IO (Ptr MediaStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jStream
Ptr MediaStream -> IO (Ptr MediaStream)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MediaStream
jStream'
Ptr MediaControls -> Ptr MediaStream -> IO ()
gtk_media_controls_set_media_stream Ptr MediaControls
controls' Ptr MediaStream
maybeStream
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
controls
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
stream b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MediaControlsSetMediaStreamMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMediaControls a, Gtk.MediaStream.IsMediaStream b) => O.OverloadedMethod MediaControlsSetMediaStreamMethodInfo a signature where
overloadedMethod = mediaControlsSetMediaStream
instance O.OverloadedMethodInfo MediaControlsSetMediaStreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MediaControls.mediaControlsSetMediaStream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-MediaControls.html#v:mediaControlsSetMediaStream"
})
#endif