{-# 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.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.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
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.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.MediaStream as Gtk.MediaStream
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
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
#endif
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 :: DK.Type) :: DK.Type 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 "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
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 "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
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 "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
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 "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveMediaControlsMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveMediaControlsMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
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 "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
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 "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
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 "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
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 "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
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 "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
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.9/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, DK.Type)])
#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, DK.Type)])
#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.9/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.9/docs/GI-Gtk-Objects-MediaControls.html#v:mediaControlsSetMediaStream"
})
#endif