{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ScaleButtonAccessible
(
ScaleButtonAccessible(..) ,
IsScaleButtonAccessible ,
toScaleButtonAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveScaleButtonAccessibleMethod ,
#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.Interfaces.Image as Atk.Image
import qualified GI.Atk.Interfaces.Value as Atk.Value
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.ButtonAccessible as Gtk.ButtonAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.ContainerAccessible as Gtk.ContainerAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.WidgetAccessible as Gtk.WidgetAccessible
newtype ScaleButtonAccessible = ScaleButtonAccessible (SP.ManagedPtr ScaleButtonAccessible)
deriving (ScaleButtonAccessible -> ScaleButtonAccessible -> Bool
(ScaleButtonAccessible -> ScaleButtonAccessible -> Bool)
-> (ScaleButtonAccessible -> ScaleButtonAccessible -> Bool)
-> Eq ScaleButtonAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScaleButtonAccessible -> ScaleButtonAccessible -> Bool
== :: ScaleButtonAccessible -> ScaleButtonAccessible -> Bool
$c/= :: ScaleButtonAccessible -> ScaleButtonAccessible -> Bool
/= :: ScaleButtonAccessible -> ScaleButtonAccessible -> Bool
Eq)
instance SP.ManagedPtrNewtype ScaleButtonAccessible where
toManagedPtr :: ScaleButtonAccessible -> ManagedPtr ScaleButtonAccessible
toManagedPtr (ScaleButtonAccessible ManagedPtr ScaleButtonAccessible
p) = ManagedPtr ScaleButtonAccessible
p
foreign import ccall "gtk_scale_button_accessible_get_type"
c_gtk_scale_button_accessible_get_type :: IO B.Types.GType
instance B.Types.TypedObject ScaleButtonAccessible where
glibType :: IO GType
glibType = IO GType
c_gtk_scale_button_accessible_get_type
instance B.Types.GObject ScaleButtonAccessible
class (SP.GObject o, O.IsDescendantOf ScaleButtonAccessible o) => IsScaleButtonAccessible o
instance (SP.GObject o, O.IsDescendantOf ScaleButtonAccessible o) => IsScaleButtonAccessible o
instance O.HasParentTypes ScaleButtonAccessible
type instance O.ParentTypes ScaleButtonAccessible = '[Gtk.ButtonAccessible.ButtonAccessible, Gtk.ContainerAccessible.ContainerAccessible, Gtk.WidgetAccessible.WidgetAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Action.Action, Atk.Component.Component, Atk.Image.Image, Atk.Value.Value]
toScaleButtonAccessible :: (MIO.MonadIO m, IsScaleButtonAccessible o) => o -> m ScaleButtonAccessible
toScaleButtonAccessible :: forall (m :: * -> *) o.
(MonadIO m, IsScaleButtonAccessible o) =>
o -> m ScaleButtonAccessible
toScaleButtonAccessible = IO ScaleButtonAccessible -> m ScaleButtonAccessible
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ScaleButtonAccessible -> m ScaleButtonAccessible)
-> (o -> IO ScaleButtonAccessible) -> o -> m ScaleButtonAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ScaleButtonAccessible -> ScaleButtonAccessible)
-> o -> IO ScaleButtonAccessible
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ScaleButtonAccessible -> ScaleButtonAccessible
ScaleButtonAccessible
instance B.GValue.IsGValue (Maybe ScaleButtonAccessible) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_scale_button_accessible_get_type
gvalueSet_ :: Ptr GValue -> Maybe ScaleButtonAccessible -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ScaleButtonAccessible
P.Nothing = Ptr GValue -> Ptr ScaleButtonAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ScaleButtonAccessible
forall a. Ptr a
FP.nullPtr :: FP.Ptr ScaleButtonAccessible)
gvalueSet_ Ptr GValue
gv (P.Just ScaleButtonAccessible
obj) = ScaleButtonAccessible
-> (Ptr ScaleButtonAccessible -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScaleButtonAccessible
obj (Ptr GValue -> Ptr ScaleButtonAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ScaleButtonAccessible)
gvalueGet_ Ptr GValue
gv = do
Ptr ScaleButtonAccessible
ptr <- Ptr GValue -> IO (Ptr ScaleButtonAccessible)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ScaleButtonAccessible)
if Ptr ScaleButtonAccessible
ptr Ptr ScaleButtonAccessible -> Ptr ScaleButtonAccessible -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ScaleButtonAccessible
forall a. Ptr a
FP.nullPtr
then ScaleButtonAccessible -> Maybe ScaleButtonAccessible
forall a. a -> Maybe a
P.Just (ScaleButtonAccessible -> Maybe ScaleButtonAccessible)
-> IO ScaleButtonAccessible -> IO (Maybe ScaleButtonAccessible)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ScaleButtonAccessible -> ScaleButtonAccessible)
-> Ptr ScaleButtonAccessible -> IO ScaleButtonAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ScaleButtonAccessible -> ScaleButtonAccessible
ScaleButtonAccessible Ptr ScaleButtonAccessible
ptr
else Maybe ScaleButtonAccessible -> IO (Maybe ScaleButtonAccessible)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ScaleButtonAccessible
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveScaleButtonAccessibleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveScaleButtonAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveScaleButtonAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveScaleButtonAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveScaleButtonAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo
ResolveScaleButtonAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveScaleButtonAccessibleMethod "doAction" o = Atk.Action.ActionDoActionMethodInfo
ResolveScaleButtonAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveScaleButtonAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveScaleButtonAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveScaleButtonAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveScaleButtonAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveScaleButtonAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveScaleButtonAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveScaleButtonAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveScaleButtonAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveScaleButtonAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveScaleButtonAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveScaleButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveScaleButtonAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveScaleButtonAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveScaleButtonAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveScaleButtonAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveScaleButtonAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveScaleButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveScaleButtonAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveScaleButtonAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveScaleButtonAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveScaleButtonAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveScaleButtonAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveScaleButtonAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveScaleButtonAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveScaleButtonAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveScaleButtonAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveScaleButtonAccessibleMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveScaleButtonAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveScaleButtonAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveScaleButtonAccessibleMethod "getCurrentValue" o = Atk.Value.ValueGetCurrentValueMethodInfo
ResolveScaleButtonAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveScaleButtonAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveScaleButtonAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveScaleButtonAccessibleMethod "getImageDescription" o = Atk.Image.ImageGetImageDescriptionMethodInfo
ResolveScaleButtonAccessibleMethod "getImageLocale" o = Atk.Image.ImageGetImageLocaleMethodInfo
ResolveScaleButtonAccessibleMethod "getImagePosition" o = Atk.Image.ImageGetImagePositionMethodInfo
ResolveScaleButtonAccessibleMethod "getImageSize" o = Atk.Image.ImageGetImageSizeMethodInfo
ResolveScaleButtonAccessibleMethod "getIncrement" o = Atk.Value.ValueGetIncrementMethodInfo
ResolveScaleButtonAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveScaleButtonAccessibleMethod "getKeybinding" o = Atk.Action.ActionGetKeybindingMethodInfo
ResolveScaleButtonAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveScaleButtonAccessibleMethod "getLocalizedName" o = Atk.Action.ActionGetLocalizedNameMethodInfo
ResolveScaleButtonAccessibleMethod "getMaximumValue" o = Atk.Value.ValueGetMaximumValueMethodInfo
ResolveScaleButtonAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveScaleButtonAccessibleMethod "getMinimumIncrement" o = Atk.Value.ValueGetMinimumIncrementMethodInfo
ResolveScaleButtonAccessibleMethod "getMinimumValue" o = Atk.Value.ValueGetMinimumValueMethodInfo
ResolveScaleButtonAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveScaleButtonAccessibleMethod "getNActions" o = Atk.Action.ActionGetNActionsMethodInfo
ResolveScaleButtonAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveScaleButtonAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveScaleButtonAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveScaleButtonAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveScaleButtonAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveScaleButtonAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveScaleButtonAccessibleMethod "getRange" o = Atk.Value.ValueGetRangeMethodInfo
ResolveScaleButtonAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveScaleButtonAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveScaleButtonAccessibleMethod "getSubRanges" o = Atk.Value.ValueGetSubRangesMethodInfo
ResolveScaleButtonAccessibleMethod "getValueAndText" o = Atk.Value.ValueGetValueAndTextMethodInfo
ResolveScaleButtonAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo
ResolveScaleButtonAccessibleMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveScaleButtonAccessibleMethod "setCurrentValue" o = Atk.Value.ValueSetCurrentValueMethodInfo
ResolveScaleButtonAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveScaleButtonAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveScaleButtonAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveScaleButtonAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveScaleButtonAccessibleMethod "setImageDescription" o = Atk.Image.ImageSetImageDescriptionMethodInfo
ResolveScaleButtonAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveScaleButtonAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveScaleButtonAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveScaleButtonAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveScaleButtonAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveScaleButtonAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveScaleButtonAccessibleMethod "setValue" o = Atk.Value.ValueSetValueMethodInfo
ResolveScaleButtonAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo
ResolveScaleButtonAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, O.OverloadedMethod info ScaleButtonAccessible p) => OL.IsLabel t (ScaleButtonAccessible -> 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 ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, O.OverloadedMethod info ScaleButtonAccessible p, R.HasField t ScaleButtonAccessible p) => R.HasField t ScaleButtonAccessible p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, O.OverloadedMethodInfo info ScaleButtonAccessible) => OL.IsLabel t (O.MethodProxy info ScaleButtonAccessible) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScaleButtonAccessible
type instance O.AttributeList ScaleButtonAccessible = ScaleButtonAccessibleAttributeList
type ScaleButtonAccessibleAttributeList = ('[ '("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 ScaleButtonAccessible = ScaleButtonAccessibleSignalList
type ScaleButtonAccessibleSignalList = ('[ '("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), '("valueChanged", Atk.Value.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif