    {-# LANGUAGE TypeApplications #-}

    -- | Copyright  : Will Thompson and Iñaki García Etxebarria
    -- License    : LGPL-2.1
    -- Maintainer : Iñaki García Etxebarria
    --
    -- Activatable widgets can be connected to a t'GI.Gtk.Objects.Action.Action' and reflects
    -- the state of its action. A t'GI.Gtk.Interfaces.Activatable.Activatable' can also provide feedback
    -- through its action, as they are responsible for activating their
    -- related actions.
    --
    -- = Implementing GtkActivatable
    --
    -- When extending a class that is already t'GI.Gtk.Interfaces.Activatable.Activatable'; it is only
    -- necessary to implement the t'GI.Gtk.Interfaces.Activatable.Activatable'->@/sync_action_properties()/@
    -- and t'GI.Gtk.Interfaces.Activatable.Activatable'->@/update()/@ methods and chain up to the parent
    -- implementation, however when introducing
    -- a new t'GI.Gtk.Interfaces.Activatable.Activatable' class; the [Activatable:relatedAction]("GI.Gtk.Interfaces.Activatable#g:attr:relatedAction") and
    -- [Activatable:useActionAppearance]("GI.Gtk.Interfaces.Activatable#g:attr:useActionAppearance") properties need to be handled by
    -- the implementor. Handling these properties is mostly a matter of installing
    -- the action pointer and boolean flag on your instance, and calling
    -- 'GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction' and
    -- 'GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties' at the appropriate times.
    --
    -- ## A class fragment implementing t'GI.Gtk.Interfaces.Activatable.Activatable'
    --
    --
    -- === /C code/
    -- >
    -- >
    -- >enum {
    -- >...
    -- >
    -- >PROP_ACTIVATABLE_RELATED_ACTION,
    -- >PROP_ACTIVATABLE_USE_ACTION_APPEARANCE
    -- >}
    -- >
    -- >struct _FooBarPrivate
    -- >{
    -- >
    -- >  ...
    -- >
    -- >  GtkAction      *action;
    -- >  gboolean        use_action_appearance;
    -- >};
    -- >
    -- >...
    -- >
    -- >static void foo_bar_activatable_interface_init         (GtkActivatableIface  *iface);
    -- >static void foo_bar_activatable_update                 (GtkActivatable       *activatable,
    -- >						           GtkAction            *action,
    -- >						           const gchar          *property_name);
    -- >static void foo_bar_activatable_sync_action_properties (GtkActivatable       *activatable,
    -- >						           GtkAction            *action);
    -- >...
    -- >
    -- >
    -- >static void
    -- >foo_bar_class_init (FooBarClass *klass)
    -- >{
    -- >
    -- >  ...
    -- >
    -- >  g_object_class_override_property (gobject_class, PROP_ACTIVATABLE_RELATED_ACTION, "related-action");
    -- >  g_object_class_override_property (gobject_class, PROP_ACTIVATABLE_USE_ACTION_APPEARANCE, "use-action-appearance");
    -- >
    -- >  ...
    -- >}
    -- >
    -- >
    -- >static void
    -- >foo_bar_activatable_interface_init (GtkActivatableIface  *iface)
    -- >{
    -- >  iface->update = foo_bar_activatable_update;
    -- >  iface->sync_action_properties = foo_bar_activatable_sync_action_properties;
    -- >}
    -- >
    -- >... Break the reference using gtk_activatable_do_set_related_action()...
    -- >
    -- >static void
    -- >foo_bar_dispose (GObject *object)
    -- >{
    -- >  FooBar *bar = FOO_BAR (object);
    -- >  FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar);
    -- >
    -- >  ...
    -- >
    -- >  if (priv->action)
    -- >    {
    -- >      gtk_activatable_do_set_related_action (GTK_ACTIVATABLE (bar), NULL);
    -- >      priv->action = NULL;
    -- >    }
    -- >  G_OBJECT_CLASS (foo_bar_parent_class)->dispose (object);
    -- >}
    -- >
    -- >... Handle the “related-action” and “use-action-appearance” properties ...
    -- >
    -- >static void
    -- >foo_bar_set_property (GObject         *object,
    -- >                      guint            prop_id,
    -- >                      const GValue    *value,
    -- >                      GParamSpec      *pspec)
    -- >{
    -- >  FooBar *bar = FOO_BAR (object);
    -- >  FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar);
    -- >
    -- >  switch (prop_id)
    -- >    {
    -- >
    -- >      ...
    -- >
    -- >    case PROP_ACTIVATABLE_RELATED_ACTION:
    -- >      foo_bar_set_related_action (bar, g_value_get_object (value));
    -- >      break;
    -- >    case PROP_ACTIVATABLE_USE_ACTION_APPEARANCE:
    -- >      foo_bar_set_use_action_appearance (bar, g_value_get_boolean (value));
    -- >      break;
    -- >    default:
    -- >      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
    -- >      break;
    -- >    }
    -- >}
    -- >
    -- >static void
    -- >foo_bar_get_property (GObject         *object,
    -- >                         guint            prop_id,
    -- >                         GValue          *value,
    -- >                         GParamSpec      *pspec)
    -- >{
    -- >  FooBar *bar = FOO_BAR (object);
    -- >  FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar);
    -- >
    -- >  switch (prop_id)
    -- >    {
    -- >
    -- >      ...
    -- >
    -- >    case PROP_ACTIVATABLE_RELATED_ACTION:
    -- >      g_value_set_object (value, priv->action);
    -- >      break;
    -- >    case PROP_ACTIVATABLE_USE_ACTION_APPEARANCE:
    -- >      g_value_set_boolean (value, priv->use_action_appearance);
    -- >      break;
    -- >    default:
    -- >      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
    -- >      break;
    -- >    }
    -- >}
    -- >
    -- >
    -- >static void
    -- >foo_bar_set_use_action_appearance (FooBar   *bar,
    -- >				   gboolean  use_appearance)
    -- >{
    -- >  FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar);
    -- >
    -- >  if (priv->use_action_appearance != use_appearance)
    -- >    {
    -- >      priv->use_action_appearance = use_appearance;
    -- >
    -- >      gtk_activatable_sync_action_properties (GTK_ACTIVATABLE (bar), priv->action);
    -- >    }
    -- >}
    -- >
    -- >... call gtk_activatable_do_set_related_action() and then assign the action pointer,
    -- >no need to reference the action here since gtk_activatable_do_set_related_action() already
    -- >holds a reference here for you...
    -- >static void
    -- >foo_bar_set_related_action (FooBar    *bar,
    -- >			    GtkAction *action)
    -- >{
    -- >  FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (bar);
    -- >
    -- >  if (priv->action == action)
    -- >    return;
    -- >
    -- >  gtk_activatable_do_set_related_action (GTK_ACTIVATABLE (bar), action);
    -- >
    -- >  priv->action = action;
    -- >}
    -- >
    -- >... Selectively reset and update activatable depending on the use-action-appearance property ...
    -- >static void
    -- >gtk_button_activatable_sync_action_properties (GtkActivatable       *activatable,
    -- >		                                  GtkAction            *action)
    -- >{
    -- >  GtkButtonPrivate *priv = GTK_BUTTON_GET_PRIVATE (activatable);
    -- >
    -- >  if (!action)
    -- >    return;
    -- >
    -- >  if (gtk_action_is_visible (action))
    -- >    gtk_widget_show (GTK_WIDGET (activatable));
    -- >  else
    -- >    gtk_widget_hide (GTK_WIDGET (activatable));
    -- >
    -- >  gtk_widget_set_sensitive (GTK_WIDGET (activatable), gtk_action_is_sensitive (action));
    -- >
    -- >  ...
    -- >
    -- >  if (priv->use_action_appearance)
    -- >    {
    -- >      if (gtk_action_get_stock_id (action))
    -- >	foo_bar_set_stock (button, gtk_action_get_stock_id (action));
    -- >      else if (gtk_action_get_label (action))
    -- >	foo_bar_set_label (button, gtk_action_get_label (action));
    -- >
    -- >      ...
    -- >
    -- >    }
    -- >}
    -- >
    -- >static void
    -- >foo_bar_activatable_update (GtkActivatable       *activatable,
    -- >			       GtkAction            *action,
    -- >			       const gchar          *property_name)
    -- >{
    -- >  FooBarPrivate *priv = FOO_BAR_GET_PRIVATE (activatable);
    -- >
    -- >  if (strcmp (property_name, "visible") == 0)
    -- >    {
    -- >      if (gtk_action_is_visible (action))
    -- >	gtk_widget_show (GTK_WIDGET (activatable));
    -- >      else
    -- >	gtk_widget_hide (GTK_WIDGET (activatable));
    -- >    }
    -- >  else if (strcmp (property_name, "sensitive") == 0)
    -- >    gtk_widget_set_sensitive (GTK_WIDGET (activatable), gtk_action_is_sensitive (action));
    -- >
    -- >  ...
    -- >
    -- >  if (!priv->use_action_appearance)
    -- >    return;
    -- >
    -- >  if (strcmp (property_name, "stock-id") == 0)
    -- >    foo_bar_set_stock (button, gtk_action_get_stock_id (action));
    -- >  else if (strcmp (property_name, "label") == 0)
    -- >    foo_bar_set_label (button, gtk_action_get_label (action));
    -- >
    -- >  ...
    -- >}
    --

    #if !defined(__HADDOCK_VERSION__)
    #define ENABLE_OVERLOADING
    #endif

    module GI.Gtk.Interfaces.Activatable
        (

    -- * Exported types
        Activatable(..)                         ,
        IsActivatable                           ,
        toActivatable                           ,

     -- * Methods
    -- |
    --
    --  === __Click to display all available methods, including inherited ones__
    -- ==== Methods
    -- [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [doSetRelatedAction]("GI.Gtk.Interfaces.Activatable#g:method:doSetRelatedAction"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [syncActionProperties]("GI.Gtk.Interfaces.Activatable#g:method:syncActionProperties"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
    --
    -- ==== Getters
    -- [getData]("GI.GObject.Objects.Object#g:method:getData"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata"), [getRelatedAction]("GI.Gtk.Interfaces.Activatable#g:method:getRelatedAction"), [getUseActionAppearance]("GI.Gtk.Interfaces.Activatable#g:method:getUseActionAppearance").
    --
    -- ==== Setters
    -- [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty"), [setRelatedAction]("GI.Gtk.Interfaces.Activatable#g:method:setRelatedAction"), [setUseActionAppearance]("GI.Gtk.Interfaces.Activatable#g:method:setUseActionAppearance").

    #if defined(ENABLE_OVERLOADING)
        ResolveActivatableMethod                ,
    #endif

    -- ** doSetRelatedAction #method:doSetRelatedAction#

    #if defined(ENABLE_OVERLOADING)
        ActivatableDoSetRelatedActionMethodInfo ,
    #endif
        activatableDoSetRelatedAction           ,

    -- ** getRelatedAction #method:getRelatedAction#

    #if defined(ENABLE_OVERLOADING)
        ActivatableGetRelatedActionMethodInfo   ,
    #endif
        activatableGetRelatedAction             ,

    -- ** getUseActionAppearance #method:getUseActionAppearance#

    #if defined(ENABLE_OVERLOADING)
        ActivatableGetUseActionAppearanceMethodInfo,
    #endif
        activatableGetUseActionAppearance       ,

    -- ** setRelatedAction #method:setRelatedAction#

    #if defined(ENABLE_OVERLOADING)
        ActivatableSetRelatedActionMethodInfo   ,
    #endif
        activatableSetRelatedAction             ,

    -- ** setUseActionAppearance #method:setUseActionAppearance#

    #if defined(ENABLE_OVERLOADING)
        ActivatableSetUseActionAppearanceMethodInfo,
    #endif
        activatableSetUseActionAppearance       ,

    -- ** syncActionProperties #method:syncActionProperties#

    #if defined(ENABLE_OVERLOADING)
        ActivatableSyncActionPropertiesMethodInfo,
    #endif
        activatableSyncActionProperties         ,

     -- * Properties

    -- ** relatedAction #attr:relatedAction#
    -- | The action that this activatable will activate and receive
    -- updates from for various states and possibly appearance.
    --
    -- > t'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle the this property and
    -- > call 'GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction' when it changes.
    --
    -- /Since: 2.16/

    #if defined(ENABLE_OVERLOADING)
        ActivatableRelatedActionPropertyInfo    ,
    #endif
    #if defined(ENABLE_OVERLOADING)
        activatableRelatedAction                ,
    #endif
        constructActivatableRelatedAction       ,
        getActivatableRelatedAction             ,
        setActivatableRelatedAction             ,

    -- ** useActionAppearance #attr:useActionAppearance#
    -- | Whether this activatable should reset its layout
    -- and appearance when setting the related action or when
    -- the action changes appearance.
    --
    -- See the t'GI.Gtk.Objects.Action.Action' documentation directly to find which properties
    -- should be ignored by the t'GI.Gtk.Interfaces.Activatable.Activatable' when this property is 'P.False'.
    --
    -- > t'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle this property
    -- > and call 'GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties' on the activatable
    -- > widget when it changes.
    --
    -- /Since: 2.16/

    #if defined(ENABLE_OVERLOADING)
        ActivatableUseActionAppearancePropertyInfo,
    #endif
    #if defined(ENABLE_OVERLOADING)
        activatableUseActionAppearance          ,
    #endif
        constructActivatableUseActionAppearance ,
        getActivatableUseActionAppearance       ,
        setActivatableUseActionAppearance       ,

        ) 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

    -- Workaround for https://gitlab.haskell.org/ghc/ghc/-/issues/23392
    #if MIN_VERSION_base(4,18,0)
    import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
    import qualified GI.Atk.Objects.Object as Atk.Object
    import qualified GI.Cairo.Structs.Context as Cairo.Context
    import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
    import qualified GI.Cairo.Structs.Region as Cairo.Region
    import qualified GI.Cairo.Structs.Surface as Cairo.Surface
    import qualified GI.GLib.Callbacks as GLib.Callbacks
    import qualified GI.GLib.Structs.MarkupParser as GLib.MarkupParser
    import qualified GI.GObject.Callbacks as GObject.Callbacks
    import qualified GI.GObject.Objects.Object as GObject.Object
    import qualified GI.Gdk.Enums as Gdk.Enums
    import qualified GI.Gdk.Flags as Gdk.Flags
    import qualified GI.Gdk.Objects.Device as Gdk.Device
    import qualified GI.Gdk.Objects.Display as Gdk.Display
    import qualified GI.Gdk.Objects.DragContext as Gdk.DragContext
    import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
    import qualified GI.Gdk.Objects.Screen as Gdk.Screen
    import qualified GI.Gdk.Objects.Visual as Gdk.Visual
    import qualified GI.Gdk.Objects.Window as Gdk.Window
    import qualified GI.Gdk.Structs.Atom as Gdk.Atom
    import qualified GI.Gdk.Structs.Color as Gdk.Color
    import qualified GI.Gdk.Structs.EventAny as Gdk.EventAny
    import qualified GI.Gdk.Structs.EventButton as Gdk.EventButton
    import qualified GI.Gdk.Structs.EventConfigure as Gdk.EventConfigure
    import qualified GI.Gdk.Structs.EventCrossing as Gdk.EventCrossing
    import qualified GI.Gdk.Structs.EventExpose as Gdk.EventExpose
    import qualified GI.Gdk.Structs.EventFocus as Gdk.EventFocus
    import qualified GI.Gdk.Structs.EventGrabBroken as Gdk.EventGrabBroken
    import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
    import qualified GI.Gdk.Structs.EventMotion as Gdk.EventMotion
    import qualified GI.Gdk.Structs.EventOwnerChange as Gdk.EventOwnerChange
    import qualified GI.Gdk.Structs.EventProperty as Gdk.EventProperty
    import qualified GI.Gdk.Structs.EventProximity as Gdk.EventProximity
    import qualified GI.Gdk.Structs.EventScroll as Gdk.EventScroll
    import qualified GI.Gdk.Structs.EventSelection as Gdk.EventSelection
    import qualified GI.Gdk.Structs.EventVisibility as Gdk.EventVisibility
    import qualified GI.Gdk.Structs.EventWindowState as Gdk.EventWindowState
    import qualified GI.Gdk.Structs.Geometry as Gdk.Geometry
    import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
    import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
    import qualified GI.Gdk.Unions.Event as Gdk.Event
    import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
    import qualified GI.Gio.Flags as Gio.Flags
    import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
    import qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap
    import qualified GI.Gio.Interfaces.File as Gio.File
    import qualified GI.Gio.Interfaces.Icon as Gio.Icon
    import qualified GI.Gio.Objects.Application as Gio.Application
    import qualified GI.Gio.Objects.Menu as Gio.Menu
    import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
    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.Buildable as Gtk.Buildable
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
    import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Action as Gtk.Action
    import {-# SOURCE #-} qualified GI.Gtk.Objects.ActionGroup as Gtk.ActionGroup
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Application as Gtk.Application
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Builder as Gtk.Builder
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Clipboard as Gtk.Clipboard
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
    import {-# SOURCE #-} qualified GI.Gtk.Objects.IconFactory as Gtk.IconFactory
    import {-# SOURCE #-} qualified GI.Gtk.Objects.RcStyle as Gtk.RcStyle
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Style as Gtk.Style
    import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
    import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleProperties as Gtk.StyleProperties
    import {-# SOURCE #-} qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
    import {-# SOURCE #-} qualified GI.Gtk.Objects.TextChildAnchor as Gtk.TextChildAnchor
    import {-# SOURCE #-} qualified GI.Gtk.Objects.TextMark as Gtk.TextMark
    import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTag as Gtk.TextTag
    import {-# SOURCE #-} qualified GI.Gtk.Objects.TextTagTable as Gtk.TextTagTable
    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.Objects.Window as Gtk.Window
    import {-# SOURCE #-} qualified GI.Gtk.Objects.WindowGroup as Gtk.WindowGroup
    import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelGroupEntry as Gtk.AccelGroupEntry
    import {-# SOURCE #-} qualified GI.Gtk.Structs.AccelKey as Gtk.AccelKey
    import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
    import {-# SOURCE #-} qualified GI.Gtk.Structs.CssSection as Gtk.CssSection
    import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSet as Gtk.IconSet
    import {-# SOURCE #-} qualified GI.Gtk.Structs.IconSource as Gtk.IconSource
    import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
    import {-# SOURCE #-} qualified GI.Gtk.Structs.SelectionData as Gtk.SelectionData
    import {-# SOURCE #-} qualified GI.Gtk.Structs.SettingsValue as Gtk.SettingsValue
    import {-# SOURCE #-} qualified GI.Gtk.Structs.SymbolicColor as Gtk.SymbolicColor
    import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetEntry as Gtk.TargetEntry
    import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetList as Gtk.TargetList
    import {-# SOURCE #-} qualified GI.Gtk.Structs.TextAppearance as Gtk.TextAppearance
    import {-# SOURCE #-} qualified GI.Gtk.Structs.TextAttributes as Gtk.TextAttributes
    import {-# SOURCE #-} qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
    import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath
    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
    import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
    import qualified GI.Pango.Structs.Language as Pango.Language
    import qualified GI.Pango.Structs.TabArray as Pango.TabArray

    #else
    import qualified GI.GObject.Objects.Object as GObject.Object
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Action as Gtk.Action

    #endif

    -- interface Activatable
    -- | Memory-managed wrapper type.
    newtype Activatable = Activatable (SP.ManagedPtr Activatable)
        deriving (Activatable -> Activatable -> Bool
    (Activatable -> Activatable -> Bool)
    -> (Activatable -> Activatable -> Bool) -> Eq Activatable
    forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
    $c== :: Activatable -> Activatable -> Bool
    == :: Activatable -> Activatable -> Bool
    $c/= :: Activatable -> Activatable -> Bool
    /= :: Activatable -> Activatable -> Bool
    Eq)

    instance SP.ManagedPtrNewtype Activatable where
        toManagedPtr :: Activatable -> ManagedPtr Activatable
    toManagedPtr (Activatable ManagedPtr Activatable
    p) = ManagedPtr Activatable
    p

    foreign import ccall "gtk_activatable_get_type"
        c_gtk_activatable_get_type :: IO B.Types.GType

    instance B.Types.TypedObject Activatable where
        glibType :: IO GType
    glibType = IO GType
    c_gtk_activatable_get_type

    instance B.Types.GObject Activatable

    -- | Type class for types which can be safely cast to t'Activatable', for instance with `toActivatable`.
    class (SP.GObject o, O.IsDescendantOf Activatable o) => IsActivatable o
    instance (SP.GObject o, O.IsDescendantOf Activatable o) => IsActivatable o

    instance O.HasParentTypes Activatable
    type instance O.ParentTypes Activatable = '[GObject.Object.Object]

    -- | Cast to t'Activatable', for types for which this is known to be safe. For general casts, use 'Data.GI.Base.ManagedPtr.castTo'.
    toActivatable :: (MIO.MonadIO m, IsActivatable o) => o -> m Activatable
    toActivatable :: forall (m :: * -> *) o.
    (MonadIO m, IsActivatable o) =>
    o -> m Activatable
    toActivatable = IO Activatable -> m Activatable
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO Activatable -> m Activatable)
    -> (o -> IO Activatable) -> o -> m Activatable
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . (ManagedPtr Activatable -> Activatable) -> o -> IO Activatable
    forall o o'.
    (HasCallStack, ManagedPtrNewtype o, TypedObject o,
     ManagedPtrNewtype o', TypedObject o') =>
    (ManagedPtr o' -> o') -> o -> IO o'
    B.ManagedPtr.unsafeCastTo ManagedPtr Activatable -> Activatable
    Activatable

    -- | Convert t'Activatable' to and from t'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
    instance B.GValue.IsGValue (Maybe Activatable) where
        gvalueGType_ :: IO GType
    gvalueGType_ = IO GType
    c_gtk_activatable_get_type
        gvalueSet_ :: Ptr GValue -> Maybe Activatable -> IO ()
    gvalueSet_ Ptr GValue
    gv Maybe Activatable
    P.Nothing = Ptr GValue -> Ptr Activatable -> IO ()
    forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
    B.GValue.set_object Ptr GValue
    gv (Ptr Activatable
    forall a. Ptr a
    FP.nullPtr :: FP.Ptr Activatable)
        gvalueSet_ Ptr GValue
    gv (P.Just Activatable
    obj) = Activatable -> (Ptr Activatable -> IO ()) -> IO ()
    forall a c.
    (HasCallStack, ManagedPtrNewtype a) =>
    a -> (Ptr a -> IO c) -> IO c
    B.ManagedPtr.withManagedPtr Activatable
    obj (Ptr GValue -> Ptr Activatable -> IO ()
    forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
    B.GValue.set_object Ptr GValue
    gv)
        gvalueGet_ :: Ptr GValue -> IO (Maybe Activatable)
    gvalueGet_ Ptr GValue
    gv = do
            ptr <- Ptr GValue -> IO (Ptr Activatable)
    forall a. GObject a => Ptr GValue -> IO (Ptr a)
    B.GValue.get_object Ptr GValue
    gv :: IO (FP.Ptr Activatable)
            if ptr /= FP.nullPtr
            then P.Just <$> B.ManagedPtr.newObject Activatable ptr
            else return P.Nothing

    -- VVV Prop "related-action"
       -- Type: TInterface (Name {namespace = "Gtk", name = "Action"})
       -- Flags: [PropertyReadable,PropertyWritable]
       -- Nullable: (Just False,Just False)

    -- | Get the value of the “@related-action@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.get' activatable #relatedAction
    -- @
    getActivatableRelatedAction :: (MonadIO m, IsActivatable o) => o -> m Gtk.Action.Action
    getActivatableRelatedAction :: forall (m :: * -> *) o.
    (MonadIO m, IsActivatable o) =>
    o -> m Action
    getActivatableRelatedAction o
    obj = IO Action -> m Action
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO Action -> m Action) -> IO Action -> m Action
    forall a b. (a -> b) -> a -> b
    $ Text -> IO (Maybe Action) -> IO Action
    forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
    checkUnexpectedNothing Text
    "getActivatableRelatedAction" (IO (Maybe Action) -> IO Action) -> IO (Maybe Action) -> IO Action
    forall a b. (a -> b) -> a -> b
    $ o -> String -> (ManagedPtr Action -> Action) -> IO (Maybe Action)
    forall a b.
    (GObject a, GObject b) =>
    a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
    B.Properties.getObjectPropertyObject o
    obj String
    "related-action" ManagedPtr Action -> Action
    Gtk.Action.Action

    -- | Set the value of the “@related-action@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.set' activatable [ #relatedAction 'Data.GI.Base.Attributes.:=' value ]
    -- @
    setActivatableRelatedAction :: (MonadIO m, IsActivatable o, Gtk.Action.IsAction a) => o -> a -> m ()
    setActivatableRelatedAction :: forall (m :: * -> *) o a.
    (MonadIO m, IsActivatable o, IsAction a) =>
    o -> a -> m ()
    setActivatableRelatedAction 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
    "related-action" (a -> Maybe a
    forall a. a -> Maybe a
    Just a
    val)

    -- | Construct a t'GValueConstruct' with valid value for the “@related-action@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
    constructActivatableRelatedAction :: (IsActivatable o, MIO.MonadIO m, Gtk.Action.IsAction a) => a -> m (GValueConstruct o)
    constructActivatableRelatedAction :: forall o (m :: * -> *) a.
    (IsActivatable o, MonadIO m, IsAction a) =>
    a -> m (GValueConstruct o)
    constructActivatableRelatedAction 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
    "related-action" (a -> Maybe a
    forall a. a -> Maybe a
    P.Just a
    val)

    #if defined(ENABLE_OVERLOADING)
    data ActivatableRelatedActionPropertyInfo
    instance AttrInfo ActivatableRelatedActionPropertyInfo where
        type AttrAllowedOps ActivatableRelatedActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
        type AttrBaseTypeConstraint ActivatableRelatedActionPropertyInfo = IsActivatable
        type AttrSetTypeConstraint ActivatableRelatedActionPropertyInfo = Gtk.Action.IsAction
        type AttrTransferTypeConstraint ActivatableRelatedActionPropertyInfo = Gtk.Action.IsAction
        type AttrTransferType ActivatableRelatedActionPropertyInfo = Gtk.Action.Action
        type AttrGetType ActivatableRelatedActionPropertyInfo = Gtk.Action.Action
        type AttrLabel ActivatableRelatedActionPropertyInfo = "related-action"
        type AttrOrigin ActivatableRelatedActionPropertyInfo = Activatable
        attrGet = getActivatableRelatedAction
        attrSet = setActivatableRelatedAction
        attrPut = undefined
        attrTransfer _ v = do
            unsafeCastTo Gtk.Action.Action v
        attrConstruct = constructActivatableRelatedAction
        attrClear = undefined
        dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.relatedAction"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#g:attr:relatedAction"
            })
    #endif

    -- VVV Prop "use-action-appearance"
       -- Type: TBasicType TBoolean
       -- Flags: [PropertyReadable,PropertyWritable]
       -- Nullable: (Just False,Just False)

    -- | Get the value of the “@use-action-appearance@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.get' activatable #useActionAppearance
    -- @
    getActivatableUseActionAppearance :: (MonadIO m, IsActivatable o) => o -> m Bool
    getActivatableUseActionAppearance :: forall (m :: * -> *) o. (MonadIO m, IsActivatable o) => o -> m Bool
    getActivatableUseActionAppearance o
    obj = IO Bool -> m Bool
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
    forall a b. (a -> b) -> a -> b
    $ o -> String -> IO Bool
    forall a. GObject a => a -> String -> IO Bool
    B.Properties.getObjectPropertyBool o
    obj String
    "use-action-appearance"

    -- | Set the value of the “@use-action-appearance@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.set' activatable [ #useActionAppearance 'Data.GI.Base.Attributes.:=' value ]
    -- @
    setActivatableUseActionAppearance :: (MonadIO m, IsActivatable o) => o -> Bool -> m ()
    setActivatableUseActionAppearance :: forall (m :: * -> *) o.
    (MonadIO m, IsActivatable o) =>
    o -> Bool -> m ()
    setActivatableUseActionAppearance o
    obj Bool
    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 -> Bool -> IO ()
    forall a. GObject a => a -> String -> Bool -> IO ()
    B.Properties.setObjectPropertyBool o
    obj String
    "use-action-appearance" Bool
    val

    -- | Construct a t'GValueConstruct' with valid value for the “@use-action-appearance@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
    constructActivatableUseActionAppearance :: (IsActivatable o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
    constructActivatableUseActionAppearance :: forall o (m :: * -> *).
    (IsActivatable o, MonadIO m) =>
    Bool -> m (GValueConstruct o)
    constructActivatableUseActionAppearance Bool
    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 -> Bool -> IO (GValueConstruct o)
    forall o. String -> Bool -> IO (GValueConstruct o)
    B.Properties.constructObjectPropertyBool String
    "use-action-appearance" Bool
    val

    #if defined(ENABLE_OVERLOADING)
    data ActivatableUseActionAppearancePropertyInfo
    instance AttrInfo ActivatableUseActionAppearancePropertyInfo where
        type AttrAllowedOps ActivatableUseActionAppearancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
        type AttrBaseTypeConstraint ActivatableUseActionAppearancePropertyInfo = IsActivatable
        type AttrSetTypeConstraint ActivatableUseActionAppearancePropertyInfo = (~) Bool
        type AttrTransferTypeConstraint ActivatableUseActionAppearancePropertyInfo = (~) Bool
        type AttrTransferType ActivatableUseActionAppearancePropertyInfo = Bool
        type AttrGetType ActivatableUseActionAppearancePropertyInfo = Bool
        type AttrLabel ActivatableUseActionAppearancePropertyInfo = "use-action-appearance"
        type AttrOrigin ActivatableUseActionAppearancePropertyInfo = Activatable
        attrGet = getActivatableUseActionAppearance
        attrSet = setActivatableUseActionAppearance
        attrPut = setActivatableUseActionAppearance
        attrTransfer _ v = do
            return v
        attrConstruct = constructActivatableUseActionAppearance
        attrClear = undefined
        dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.useActionAppearance"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#g:attr:useActionAppearance"
            })
    #endif

    #if defined(ENABLE_OVERLOADING)
    instance O.HasAttributeList Activatable
    type instance O.AttributeList Activatable = ActivatableAttributeList
    type ActivatableAttributeList = ('[ '("relatedAction", ActivatableRelatedActionPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, DK.Type)])
    #endif

    #if defined(ENABLE_OVERLOADING)
    activatableRelatedAction :: AttrLabelProxy "relatedAction"
    activatableRelatedAction = AttrLabelProxy

    activatableUseActionAppearance :: AttrLabelProxy "useActionAppearance"
    activatableUseActionAppearance = AttrLabelProxy

    #endif

    #if defined(ENABLE_OVERLOADING)
    type family ResolveActivatableMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
        ResolveActivatableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
        ResolveActivatableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
        ResolveActivatableMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo
        ResolveActivatableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
        ResolveActivatableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
        ResolveActivatableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
        ResolveActivatableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
        ResolveActivatableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
        ResolveActivatableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
        ResolveActivatableMethod "ref" o = GObject.Object.ObjectRefMethodInfo
        ResolveActivatableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
        ResolveActivatableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
        ResolveActivatableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
        ResolveActivatableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
        ResolveActivatableMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo
        ResolveActivatableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
        ResolveActivatableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
        ResolveActivatableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
        ResolveActivatableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
        ResolveActivatableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
        ResolveActivatableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
        ResolveActivatableMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo
        ResolveActivatableMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo
        ResolveActivatableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
        ResolveActivatableMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
        ResolveActivatableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
        ResolveActivatableMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo
        ResolveActivatableMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo
        ResolveActivatableMethod l o = O.MethodResolutionFailed l o

    instance (info ~ ResolveActivatableMethod t Activatable, O.OverloadedMethod info Activatable p) => OL.IsLabel t (Activatable -> 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 ~ ResolveActivatableMethod t Activatable, O.OverloadedMethod info Activatable p, R.HasField t Activatable p) => R.HasField t Activatable p where
        getField = O.overloadedMethod @info

    #endif

    instance (info ~ ResolveActivatableMethod t Activatable, O.OverloadedMethodInfo info Activatable) => OL.IsLabel t (O.MethodProxy info Activatable) where
    #if MIN_VERSION_base(4,10,0)
        fromLabel = O.MethodProxy
    #else
        fromLabel _ = O.MethodProxy
    #endif

    #endif

    -- method Activatable::do_set_related_action
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "activatable"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "Activatable" }
    --           , argCType = Just "GtkActivatable*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GtkActivatable" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "action"
    --           , argType = TInterface Name { namespace = "Gtk" , name = "Action" }
    --           , argCType = Just "GtkAction*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "the #GtkAction to set"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Nothing
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_activatable_do_set_related_action" gtk_activatable_do_set_related_action ::
        Ptr Activatable ->                      -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"})
        Ptr Gtk.Action.Action ->                -- action : TInterface (Name {namespace = "Gtk", name = "Action"})
        IO ()

    {-# DEPRECATED activatableDoSetRelatedAction ["(Since version 3.10)"] #-}
    -- | This is a utility function for t'GI.Gtk.Interfaces.Activatable.Activatable' implementors.
    --
    -- When implementing t'GI.Gtk.Interfaces.Activatable.Activatable' you must call this when
    -- handling changes of the [Activatable:relatedAction]("GI.Gtk.Interfaces.Activatable#g:attr:relatedAction"), and
    -- you must also use this to break references in t'GI.GObject.Objects.Object.Object'->@/dispose()/@.
    --
    -- This function adds a reference to the currently set related
    -- action for you, it also makes sure the t'GI.Gtk.Interfaces.Activatable.Activatable'->@/update()/@
    -- method is called when the related t'GI.Gtk.Objects.Action.Action' properties change
    -- and registers to the action’s proxy list.
    --
    -- > Be careful to call this before setting the local
    -- > copy of the t'GI.Gtk.Objects.Action.Action' property, since this function uses
    -- > 'GI.Gtk.Interfaces.Activatable.activatableGetRelatedAction' to retrieve the
    -- > previous action.
    --
    -- /Since: 2.16/
    activatableDoSetRelatedAction ::
        (B.CallStack.HasCallStack, MonadIO m, IsActivatable a, Gtk.Action.IsAction b) =>
        a
        -- ^ /@activatable@/: a t'GI.Gtk.Interfaces.Activatable.Activatable'
        -> b
        -- ^ /@action@/: the t'GI.Gtk.Objects.Action.Action' to set
        -> m ()
    activatableDoSetRelatedAction :: forall (m :: * -> *) a b.
    (HasCallStack, MonadIO m, IsActivatable a, IsAction b) =>
    a -> b -> m ()
    activatableDoSetRelatedAction a
    activatable b
    action = 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
        activatable' <- a -> IO (Ptr Activatable)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    activatable
        action' <- unsafeManagedPtrCastPtr action
        gtk_activatable_do_set_related_action activatable' action'
        touchManagedPtr activatable
        touchManagedPtr action
        return ()

    #if defined(ENABLE_OVERLOADING)
    data ActivatableDoSetRelatedActionMethodInfo
    instance (signature ~ (b -> m ()), MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => O.OverloadedMethod ActivatableDoSetRelatedActionMethodInfo a signature where
        overloadedMethod = activatableDoSetRelatedAction

    instance O.OverloadedMethodInfo ActivatableDoSetRelatedActionMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#v:activatableDoSetRelatedAction"
            })

    #endif

    -- method Activatable::get_related_action
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "activatable"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "Activatable" }
    --           , argCType = Just "GtkActivatable*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GtkActivatable" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TInterface Name { namespace = "Gtk" , name = "Action" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_activatable_get_related_action" gtk_activatable_get_related_action ::
        Ptr Activatable ->                      -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"})
        IO (Ptr Gtk.Action.Action)

    {-# DEPRECATED activatableGetRelatedAction ["(Since version 3.10)"] #-}
    -- | Gets the related t'GI.Gtk.Objects.Action.Action' for /@activatable@/.
    --
    -- /Since: 2.16/
    activatableGetRelatedAction ::
        (B.CallStack.HasCallStack, MonadIO m, IsActivatable a) =>
        a
        -- ^ /@activatable@/: a t'GI.Gtk.Interfaces.Activatable.Activatable'
        -> m Gtk.Action.Action
        -- ^ __Returns:__ the related t'GI.Gtk.Objects.Action.Action' if one is set.
    activatableGetRelatedAction :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsActivatable a) =>
    a -> m Action
    activatableGetRelatedAction a
    activatable = IO Action -> m Action
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Action -> m Action) -> IO Action -> m Action
    forall a b. (a -> b) -> a -> b
    $ do
        activatable' <- a -> IO (Ptr Activatable)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    activatable
        result <- gtk_activatable_get_related_action activatable'
        checkUnexpectedReturnNULL "activatableGetRelatedAction" result
        result' <- (newObject Gtk.Action.Action) result
        touchManagedPtr activatable
        return result'

    #if defined(ENABLE_OVERLOADING)
    data ActivatableGetRelatedActionMethodInfo
    instance (signature ~ (m Gtk.Action.Action), MonadIO m, IsActivatable a) => O.OverloadedMethod ActivatableGetRelatedActionMethodInfo a signature where
        overloadedMethod = activatableGetRelatedAction

    instance O.OverloadedMethodInfo ActivatableGetRelatedActionMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.activatableGetRelatedAction",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#v:activatableGetRelatedAction"
            })

    #endif

    -- method Activatable::get_use_action_appearance
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "activatable"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "Activatable" }
    --           , argCType = Just "GtkActivatable*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GtkActivatable" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TBoolean)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_activatable_get_use_action_appearance" gtk_activatable_get_use_action_appearance ::
        Ptr Activatable ->                      -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"})
        IO CInt

    {-# DEPRECATED activatableGetUseActionAppearance ["(Since version 3.10)"] #-}
    -- | Gets whether this activatable should reset its layout
    -- and appearance when setting the related action or when
    -- the action changes appearance.
    --
    -- /Since: 2.16/
    activatableGetUseActionAppearance ::
        (B.CallStack.HasCallStack, MonadIO m, IsActivatable a) =>
        a
        -- ^ /@activatable@/: a t'GI.Gtk.Interfaces.Activatable.Activatable'
        -> m Bool
        -- ^ __Returns:__ whether /@activatable@/ uses its actions appearance.
    activatableGetUseActionAppearance :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsActivatable a) =>
    a -> m Bool
    activatableGetUseActionAppearance a
    activatable = IO Bool -> m Bool
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
    forall a b. (a -> b) -> a -> b
    $ do
        activatable' <- a -> IO (Ptr Activatable)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    activatable
        result <- gtk_activatable_get_use_action_appearance activatable'
        let result' = (CInt -> CInt -> Bool
    forall a. Eq a => a -> a -> Bool
    /= CInt
    0) CInt
    result
        touchManagedPtr activatable
        return result'

    #if defined(ENABLE_OVERLOADING)
    data ActivatableGetUseActionAppearanceMethodInfo
    instance (signature ~ (m Bool), MonadIO m, IsActivatable a) => O.OverloadedMethod ActivatableGetUseActionAppearanceMethodInfo a signature where
        overloadedMethod = activatableGetUseActionAppearance

    instance O.OverloadedMethodInfo ActivatableGetUseActionAppearanceMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.activatableGetUseActionAppearance",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#v:activatableGetUseActionAppearance"
            })

    #endif

    -- method Activatable::set_related_action
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "activatable"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "Activatable" }
    --           , argCType = Just "GtkActivatable*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GtkActivatable" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "action"
    --           , argType = TInterface Name { namespace = "Gtk" , name = "Action" }
    --           , argCType = Just "GtkAction*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "the #GtkAction to set"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Nothing
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_activatable_set_related_action" gtk_activatable_set_related_action ::
        Ptr Activatable ->                      -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"})
        Ptr Gtk.Action.Action ->                -- action : TInterface (Name {namespace = "Gtk", name = "Action"})
        IO ()

    {-# DEPRECATED activatableSetRelatedAction ["(Since version 3.10)"] #-}
    -- | Sets the related action on the /@activatable@/ object.
    --
    -- > t'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle the [Activatable:relatedAction]("GI.Gtk.Interfaces.Activatable#g:attr:relatedAction")
    -- > property and call 'GI.Gtk.Interfaces.Activatable.activatableDoSetRelatedAction' when it changes.
    --
    -- /Since: 2.16/
    activatableSetRelatedAction ::
        (B.CallStack.HasCallStack, MonadIO m, IsActivatable a, Gtk.Action.IsAction b) =>
        a
        -- ^ /@activatable@/: a t'GI.Gtk.Interfaces.Activatable.Activatable'
        -> b
        -- ^ /@action@/: the t'GI.Gtk.Objects.Action.Action' to set
        -> m ()
    activatableSetRelatedAction :: forall (m :: * -> *) a b.
    (HasCallStack, MonadIO m, IsActivatable a, IsAction b) =>
    a -> b -> m ()
    activatableSetRelatedAction a
    activatable b
    action = 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
        activatable' <- a -> IO (Ptr Activatable)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    activatable
        action' <- unsafeManagedPtrCastPtr action
        gtk_activatable_set_related_action activatable' action'
        touchManagedPtr activatable
        touchManagedPtr action
        return ()

    #if defined(ENABLE_OVERLOADING)
    data ActivatableSetRelatedActionMethodInfo
    instance (signature ~ (b -> m ()), MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => O.OverloadedMethod ActivatableSetRelatedActionMethodInfo a signature where
        overloadedMethod = activatableSetRelatedAction

    instance O.OverloadedMethodInfo ActivatableSetRelatedActionMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.activatableSetRelatedAction",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#v:activatableSetRelatedAction"
            })

    #endif

    -- method Activatable::set_use_action_appearance
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "activatable"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "Activatable" }
    --           , argCType = Just "GtkActivatable*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GtkActivatable" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "use_appearance"
    --           , argType = TBasicType TBoolean
    --           , argCType = Just "gboolean"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "whether to use the actions appearance"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Nothing
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_activatable_set_use_action_appearance" gtk_activatable_set_use_action_appearance ::
        Ptr Activatable ->                      -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"})
        CInt ->                                 -- use_appearance : TBasicType TBoolean
        IO ()

    {-# DEPRECATED activatableSetUseActionAppearance ["(Since version 3.10)"] #-}
    -- | Sets whether this activatable should reset its layout and appearance
    -- when setting the related action or when the action changes appearance
    --
    -- > t'GI.Gtk.Interfaces.Activatable.Activatable' implementors need to handle the
    -- > [Activatable:useActionAppearance]("GI.Gtk.Interfaces.Activatable#g:attr:useActionAppearance") property and call
    -- > 'GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties' to update /@activatable@/
    -- > if needed.
    --
    -- /Since: 2.16/
    activatableSetUseActionAppearance ::
        (B.CallStack.HasCallStack, MonadIO m, IsActivatable a) =>
        a
        -- ^ /@activatable@/: a t'GI.Gtk.Interfaces.Activatable.Activatable'
        -> Bool
        -- ^ /@useAppearance@/: whether to use the actions appearance
        -> m ()
    activatableSetUseActionAppearance :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsActivatable a) =>
    a -> Bool -> m ()
    activatableSetUseActionAppearance a
    activatable Bool
    useAppearance = 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
        activatable' <- a -> IO (Ptr Activatable)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    activatable
        let useAppearance' = (Int -> CInt
    forall a b. (Integral a, Num b) => a -> b
    P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . Bool -> Int
    forall a. Enum a => a -> Int
    P.fromEnum) Bool
    useAppearance
        gtk_activatable_set_use_action_appearance activatable' useAppearance'
        touchManagedPtr activatable
        return ()

    #if defined(ENABLE_OVERLOADING)
    data ActivatableSetUseActionAppearanceMethodInfo
    instance (signature ~ (Bool -> m ()), MonadIO m, IsActivatable a) => O.OverloadedMethod ActivatableSetUseActionAppearanceMethodInfo a signature where
        overloadedMethod = activatableSetUseActionAppearance

    instance O.OverloadedMethodInfo ActivatableSetUseActionAppearanceMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.activatableSetUseActionAppearance",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#v:activatableSetUseActionAppearance"
            })

    #endif

    -- method Activatable::sync_action_properties
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "activatable"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "Activatable" }
    --           , argCType = Just "GtkActivatable*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GtkActivatable" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "action"
    --           , argType = TInterface Name { namespace = "Gtk" , name = "Action" }
    --           , argCType = Just "GtkAction*"
    --           , direction = DirectionIn
    --           , mayBeNull = True
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "the related #GtkAction or %NULL"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Nothing
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_activatable_sync_action_properties" gtk_activatable_sync_action_properties ::
        Ptr Activatable ->                      -- activatable : TInterface (Name {namespace = "Gtk", name = "Activatable"})
        Ptr Gtk.Action.Action ->                -- action : TInterface (Name {namespace = "Gtk", name = "Action"})
        IO ()

    {-# DEPRECATED activatableSyncActionProperties ["(Since version 3.10)"] #-}
    -- | This is called to update the activatable completely, this is called
    -- internally when the [Activatable:relatedAction]("GI.Gtk.Interfaces.Activatable#g:attr:relatedAction") property is set
    -- or unset and by the implementing class when
    -- [Activatable:useActionAppearance]("GI.Gtk.Interfaces.Activatable#g:attr:useActionAppearance") changes.
    --
    -- /Since: 2.16/
    activatableSyncActionProperties ::
        (B.CallStack.HasCallStack, MonadIO m, IsActivatable a, Gtk.Action.IsAction b) =>
        a
        -- ^ /@activatable@/: a t'GI.Gtk.Interfaces.Activatable.Activatable'
        -> Maybe (b)
        -- ^ /@action@/: the related t'GI.Gtk.Objects.Action.Action' or 'P.Nothing'
        -> m ()
    activatableSyncActionProperties :: forall (m :: * -> *) a b.
    (HasCallStack, MonadIO m, IsActivatable a, IsAction b) =>
    a -> Maybe b -> m ()
    activatableSyncActionProperties a
    activatable Maybe b
    action = 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
        activatable' <- a -> IO (Ptr Activatable)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    activatable
        maybeAction <- case action of
            Maybe b
    Nothing -> Ptr Action -> IO (Ptr Action)
    forall a. a -> IO a
    forall (m :: * -> *) a. Monad m => a -> m a
    return Ptr Action
    forall a. Ptr a
    FP.nullPtr
            Just b
    jAction -> do
                jAction' <- b -> IO (Ptr Action)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr b
    jAction
                return jAction'
        gtk_activatable_sync_action_properties activatable' maybeAction
        touchManagedPtr activatable
        whenJust action touchManagedPtr
        return ()

    #if defined(ENABLE_OVERLOADING)
    data ActivatableSyncActionPropertiesMethodInfo
    instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsActivatable a, Gtk.Action.IsAction b) => O.OverloadedMethod ActivatableSyncActionPropertiesMethodInfo a signature where
        overloadedMethod = activatableSyncActionProperties

    instance O.OverloadedMethodInfo ActivatableSyncActionPropertiesMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Interfaces.Activatable.activatableSyncActionProperties",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk3-3.0.44/docs/GI-Gtk-Interfaces-Activatable.html#v:activatableSyncActionProperties"
            })

    #endif

    #if defined(ENABLE_OVERLOADING)
    type instance O.SignalList Activatable = ActivatableSignalList
    type ActivatableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])

    #endif