{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.FileChooserWidgetAccessible
(
FileChooserWidgetAccessible(..) ,
IsFileChooserWidgetAccessible ,
toFileChooserWidgetAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveFileChooserWidgetAccessibleMethod,
#endif
) 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 GI.Atk.Interfaces.Action as Atk.Action
import qualified GI.Atk.Interfaces.Component as Atk.Component
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.ContainerAccessible as Gtk.ContainerAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.WidgetAccessible as Gtk.WidgetAccessible
newtype FileChooserWidgetAccessible = FileChooserWidgetAccessible (SP.ManagedPtr FileChooserWidgetAccessible)
deriving (FileChooserWidgetAccessible -> FileChooserWidgetAccessible -> Bool
(FileChooserWidgetAccessible
-> FileChooserWidgetAccessible -> Bool)
-> (FileChooserWidgetAccessible
-> FileChooserWidgetAccessible -> Bool)
-> Eq FileChooserWidgetAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileChooserWidgetAccessible -> FileChooserWidgetAccessible -> Bool
== :: FileChooserWidgetAccessible -> FileChooserWidgetAccessible -> Bool
$c/= :: FileChooserWidgetAccessible -> FileChooserWidgetAccessible -> Bool
/= :: FileChooserWidgetAccessible -> FileChooserWidgetAccessible -> Bool
Eq)
instance SP.ManagedPtrNewtype FileChooserWidgetAccessible where
toManagedPtr :: FileChooserWidgetAccessible
-> ManagedPtr FileChooserWidgetAccessible
toManagedPtr (FileChooserWidgetAccessible ManagedPtr FileChooserWidgetAccessible
p) = ManagedPtr FileChooserWidgetAccessible
p
foreign import ccall "gtk_file_chooser_widget_accessible_get_type"
c_gtk_file_chooser_widget_accessible_get_type :: IO B.Types.GType
instance B.Types.TypedObject FileChooserWidgetAccessible where
glibType :: IO GType
glibType = IO GType
c_gtk_file_chooser_widget_accessible_get_type
instance B.Types.GObject FileChooserWidgetAccessible
class (SP.GObject o, O.IsDescendantOf FileChooserWidgetAccessible o) => IsFileChooserWidgetAccessible o
instance (SP.GObject o, O.IsDescendantOf FileChooserWidgetAccessible o) => IsFileChooserWidgetAccessible o
instance O.HasParentTypes FileChooserWidgetAccessible
type instance O.ParentTypes FileChooserWidgetAccessible = '[Gtk.ContainerAccessible.ContainerAccessible, Gtk.WidgetAccessible.WidgetAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Action.Action, Atk.Component.Component]
toFileChooserWidgetAccessible :: (MIO.MonadIO m, IsFileChooserWidgetAccessible o) => o -> m FileChooserWidgetAccessible
toFileChooserWidgetAccessible :: forall (m :: * -> *) o.
(MonadIO m, IsFileChooserWidgetAccessible o) =>
o -> m FileChooserWidgetAccessible
toFileChooserWidgetAccessible = IO FileChooserWidgetAccessible -> m FileChooserWidgetAccessible
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FileChooserWidgetAccessible -> m FileChooserWidgetAccessible)
-> (o -> IO FileChooserWidgetAccessible)
-> o
-> m FileChooserWidgetAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FileChooserWidgetAccessible
-> FileChooserWidgetAccessible)
-> o -> IO FileChooserWidgetAccessible
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FileChooserWidgetAccessible
-> FileChooserWidgetAccessible
FileChooserWidgetAccessible
instance B.GValue.IsGValue (Maybe FileChooserWidgetAccessible) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_file_chooser_widget_accessible_get_type
gvalueSet_ :: Ptr GValue -> Maybe FileChooserWidgetAccessible -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FileChooserWidgetAccessible
P.Nothing = Ptr GValue -> Ptr FileChooserWidgetAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FileChooserWidgetAccessible
forall a. Ptr a
FP.nullPtr :: FP.Ptr FileChooserWidgetAccessible)
gvalueSet_ Ptr GValue
gv (P.Just FileChooserWidgetAccessible
obj) = FileChooserWidgetAccessible
-> (Ptr FileChooserWidgetAccessible -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FileChooserWidgetAccessible
obj (Ptr GValue -> Ptr FileChooserWidgetAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FileChooserWidgetAccessible)
gvalueGet_ Ptr GValue
gv = do
Ptr FileChooserWidgetAccessible
ptr <- Ptr GValue -> IO (Ptr FileChooserWidgetAccessible)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FileChooserWidgetAccessible)
if Ptr FileChooserWidgetAccessible
ptr Ptr FileChooserWidgetAccessible
-> Ptr FileChooserWidgetAccessible -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr FileChooserWidgetAccessible
forall a. Ptr a
FP.nullPtr
then FileChooserWidgetAccessible -> Maybe FileChooserWidgetAccessible
forall a. a -> Maybe a
P.Just (FileChooserWidgetAccessible -> Maybe FileChooserWidgetAccessible)
-> IO FileChooserWidgetAccessible
-> IO (Maybe FileChooserWidgetAccessible)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr FileChooserWidgetAccessible
-> FileChooserWidgetAccessible)
-> Ptr FileChooserWidgetAccessible
-> IO FileChooserWidgetAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FileChooserWidgetAccessible
-> FileChooserWidgetAccessible
FileChooserWidgetAccessible Ptr FileChooserWidgetAccessible
ptr
else Maybe FileChooserWidgetAccessible
-> IO (Maybe FileChooserWidgetAccessible)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FileChooserWidgetAccessible
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFileChooserWidgetAccessibleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveFileChooserWidgetAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveFileChooserWidgetAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileChooserWidgetAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileChooserWidgetAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo
ResolveFileChooserWidgetAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveFileChooserWidgetAccessibleMethod "doAction" o = Atk.Action.ActionDoActionMethodInfo
ResolveFileChooserWidgetAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileChooserWidgetAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFileChooserWidgetAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveFileChooserWidgetAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveFileChooserWidgetAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileChooserWidgetAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileChooserWidgetAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileChooserWidgetAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveFileChooserWidgetAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveFileChooserWidgetAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileChooserWidgetAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveFileChooserWidgetAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveFileChooserWidgetAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveFileChooserWidgetAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileChooserWidgetAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveFileChooserWidgetAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveFileChooserWidgetAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveFileChooserWidgetAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveFileChooserWidgetAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileChooserWidgetAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveFileChooserWidgetAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveFileChooserWidgetAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileChooserWidgetAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileChooserWidgetAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileChooserWidgetAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileChooserWidgetAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getKeybinding" o = Atk.Action.ActionGetKeybindingMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getLocalizedName" o = Atk.Action.ActionGetLocalizedNameMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getNActions" o = Atk.Action.ActionGetNActionsMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveFileChooserWidgetAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveFileChooserWidgetAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo
ResolveFileChooserWidgetAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileChooserWidgetAccessibleMethod t FileChooserWidgetAccessible, O.OverloadedMethod info FileChooserWidgetAccessible p) => OL.IsLabel t (FileChooserWidgetAccessible -> 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 ~ ResolveFileChooserWidgetAccessibleMethod t FileChooserWidgetAccessible, O.OverloadedMethod info FileChooserWidgetAccessible p, R.HasField t FileChooserWidgetAccessible p) => R.HasField t FileChooserWidgetAccessible p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFileChooserWidgetAccessibleMethod t FileChooserWidgetAccessible, O.OverloadedMethodInfo info FileChooserWidgetAccessible) => OL.IsLabel t (O.MethodProxy info FileChooserWidgetAccessible) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FileChooserWidgetAccessible
type instance O.AttributeList FileChooserWidgetAccessible = FileChooserWidgetAccessibleAttributeList
type FileChooserWidgetAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo), '("widget", Gtk.Accessible.AccessibleWidgetPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FileChooserWidgetAccessible = FileChooserWidgetAccessibleSignalList
type FileChooserWidgetAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("announcement", Atk.Object.ObjectAnnouncementSignalInfo), '("boundsChanged", Atk.Component.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif