{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) 'GI.Gtk.Objects.PadController.PadController' is an event controller for the pads found in drawing tablets (The collection of buttons and tactile sensors often found around the stylus-sensitive area). These buttons and sensors have no implicit meaning, and by default they perform no action, this event controller is provided to map those to 'GI.Gio.Interfaces.Action.Action' objects, thus letting the application give those a more semantic meaning. Buttons and sensors are not constrained to triggering a single action, some 'GI.Gdk.Enums.InputSourceTabletPad' devices feature multiple \"modes\", all these input elements have one current mode, which may determine the final action being triggered. Pad devices often divide buttons and sensors into groups, all elements in a group share the same current mode, but different groups may have different modes. See 'GI.Gdk.Interfaces.DevicePad.devicePadGetNGroups' and 'GI.Gdk.Interfaces.DevicePad.devicePadGetGroupNModes'. Each of the actions that a given button\/strip\/ring performs for a given mode is defined by 'GI.Gtk.Structs.PadActionEntry.PadActionEntry', it contains an action name that will be looked up in the given 'GI.Gio.Interfaces.ActionGroup.ActionGroup' and activated whenever the specified input element and mode are triggered. A simple example of 'GI.Gtk.Objects.PadController.PadController' usage, assigning button 1 in all modes and pad devices to an \"invert-selection\" action: > > GtkPadActionEntry *pad_actions[] = { > { GTK_PAD_ACTION_BUTTON, 1, -1, "Invert selection", "pad-actions.invert-selection" }, > … > }; > > … > action_group = g_simple_action_group_new (); > action = g_simple_action_new ("pad-actions.invert-selection", NULL); > g_signal_connect (action, "activate", on_invert_selection_activated, NULL); > g_action_map_add_action (G_ACTION_MAP (action_group), action); > … > pad_controller = gtk_pad_controller_new (window, action_group, NULL); The actions belonging to rings\/strips will be activated with a parameter of type @/G_VARIANT_TYPE_DOUBLE/@ bearing the value of the given axis, it is required that those are made stateful and accepting this 'GI.GLib.Structs.VariantType.VariantType'. -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.Gtk.Objects.PadController ( -- * Exported types PadController(..) , IsPadController , toPadController , noPadController , -- * Methods -- ** new #method:new# padControllerNew , -- ** setAction #method:setAction# #if ENABLE_OVERLOADING PadControllerSetActionMethodInfo , #endif padControllerSetAction , -- ** setActionEntries #method:setActionEntries# #if ENABLE_OVERLOADING PadControllerSetActionEntriesMethodInfo , #endif padControllerSetActionEntries , -- * Properties -- ** actionGroup #attr:actionGroup# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING PadControllerActionGroupPropertyInfo , #endif constructPadControllerActionGroup , getPadControllerActionGroup , #if ENABLE_OVERLOADING padControllerActionGroup , #endif -- ** pad #attr:pad# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING PadControllerPadPropertyInfo , #endif constructPadControllerPad , getPadControllerPad , #if ENABLE_OVERLOADING padControllerPad , #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.ManagedPtr as B.ManagedPtr import qualified Data.GI.Base.GClosure as B.GClosure import qualified Data.GI.Base.GError as B.GError 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.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import qualified Foreign.Ptr as FP import qualified GHC.OverloadedLabels as OL import qualified GI.GObject.Objects.Object as GObject.Object import qualified GI.Gdk.Objects.Device as Gdk.Device import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window import {-# SOURCE #-} qualified GI.Gtk.Structs.PadActionEntry as Gtk.PadActionEntry -- | Memory-managed wrapper type. newtype PadController = PadController (ManagedPtr PadController) foreign import ccall "gtk_pad_controller_get_type" c_gtk_pad_controller_get_type :: IO GType instance GObject PadController where gobjectType = c_gtk_pad_controller_get_type -- | Type class for types which can be safely cast to `PadController`, for instance with `toPadController`. class (GObject o, O.IsDescendantOf PadController o) => IsPadController o instance (GObject o, O.IsDescendantOf PadController o) => IsPadController o instance O.HasParentTypes PadController type instance O.ParentTypes PadController = '[Gtk.EventController.EventController, GObject.Object.Object] -- | Cast to `PadController`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toPadController :: (MonadIO m, IsPadController o) => o -> m PadController toPadController = liftIO . unsafeCastTo PadController -- | A convenience alias for `Nothing` :: `Maybe` `PadController`. noPadController :: Maybe PadController noPadController = Nothing #if ENABLE_OVERLOADING type family ResolvePadControllerMethod (t :: Symbol) (o :: *) :: * where ResolvePadControllerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolvePadControllerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolvePadControllerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolvePadControllerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolvePadControllerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolvePadControllerMethod "handleEvent" o = Gtk.EventController.EventControllerHandleEventMethodInfo ResolvePadControllerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolvePadControllerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolvePadControllerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolvePadControllerMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolvePadControllerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolvePadControllerMethod "reset" o = Gtk.EventController.EventControllerResetMethodInfo ResolvePadControllerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolvePadControllerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolvePadControllerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolvePadControllerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolvePadControllerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolvePadControllerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolvePadControllerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolvePadControllerMethod "getPropagationPhase" o = Gtk.EventController.EventControllerGetPropagationPhaseMethodInfo ResolvePadControllerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolvePadControllerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolvePadControllerMethod "getWidget" o = Gtk.EventController.EventControllerGetWidgetMethodInfo ResolvePadControllerMethod "setAction" o = PadControllerSetActionMethodInfo ResolvePadControllerMethod "setActionEntries" o = PadControllerSetActionEntriesMethodInfo ResolvePadControllerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolvePadControllerMethod "setPropagationPhase" o = Gtk.EventController.EventControllerSetPropagationPhaseMethodInfo ResolvePadControllerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolvePadControllerMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolvePadControllerMethod t PadController, O.MethodInfo info PadController p) => OL.IsLabel t (PadController -> p) where #if MIN_VERSION_base(4,10,0) fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #else fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif #endif -- VVV Prop "action-group" -- Type: TInterface (Name {namespace = "Gio", name = "ActionGroup"}) -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@action-group@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' padController #actionGroup @ -} getPadControllerActionGroup :: (MonadIO m, IsPadController o) => o -> m (Maybe Gio.ActionGroup.ActionGroup) getPadControllerActionGroup obj = liftIO $ B.Properties.getObjectPropertyObject obj "action-group" Gio.ActionGroup.ActionGroup {- | Construct a `GValueConstruct` with valid value for the “@action-group@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructPadControllerActionGroup :: (IsPadController o, Gio.ActionGroup.IsActionGroup a) => a -> IO (GValueConstruct o) constructPadControllerActionGroup val = B.Properties.constructObjectPropertyObject "action-group" (Just val) #if ENABLE_OVERLOADING data PadControllerActionGroupPropertyInfo instance AttrInfo PadControllerActionGroupPropertyInfo where type AttrAllowedOps PadControllerActionGroupPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PadControllerActionGroupPropertyInfo = Gio.ActionGroup.IsActionGroup type AttrBaseTypeConstraint PadControllerActionGroupPropertyInfo = IsPadController type AttrGetType PadControllerActionGroupPropertyInfo = (Maybe Gio.ActionGroup.ActionGroup) type AttrLabel PadControllerActionGroupPropertyInfo = "action-group" type AttrOrigin PadControllerActionGroupPropertyInfo = PadController attrGet _ = getPadControllerActionGroup attrSet _ = undefined attrConstruct _ = constructPadControllerActionGroup attrClear _ = undefined #endif -- VVV Prop "pad" -- Type: TInterface (Name {namespace = "Gdk", name = "Device"}) -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@pad@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' padController #pad @ -} getPadControllerPad :: (MonadIO m, IsPadController o) => o -> m (Maybe Gdk.Device.Device) getPadControllerPad obj = liftIO $ B.Properties.getObjectPropertyObject obj "pad" Gdk.Device.Device {- | Construct a `GValueConstruct` with valid value for the “@pad@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructPadControllerPad :: (IsPadController o, Gdk.Device.IsDevice a) => a -> IO (GValueConstruct o) constructPadControllerPad val = B.Properties.constructObjectPropertyObject "pad" (Just val) #if ENABLE_OVERLOADING data PadControllerPadPropertyInfo instance AttrInfo PadControllerPadPropertyInfo where type AttrAllowedOps PadControllerPadPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PadControllerPadPropertyInfo = Gdk.Device.IsDevice type AttrBaseTypeConstraint PadControllerPadPropertyInfo = IsPadController type AttrGetType PadControllerPadPropertyInfo = (Maybe Gdk.Device.Device) type AttrLabel PadControllerPadPropertyInfo = "pad" type AttrOrigin PadControllerPadPropertyInfo = PadController attrGet _ = getPadControllerPad attrSet _ = undefined attrConstruct _ = constructPadControllerPad attrClear _ = undefined #endif #if ENABLE_OVERLOADING instance O.HasAttributeList PadController type instance O.AttributeList PadController = PadControllerAttributeList type PadControllerAttributeList = ('[ '("actionGroup", PadControllerActionGroupPropertyInfo), '("pad", PadControllerPadPropertyInfo), '("propagationPhase", Gtk.EventController.EventControllerPropagationPhasePropertyInfo), '("widget", Gtk.EventController.EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING padControllerActionGroup :: AttrLabelProxy "actionGroup" padControllerActionGroup = AttrLabelProxy padControllerPad :: AttrLabelProxy "pad" padControllerPad = AttrLabelProxy #endif #if ENABLE_OVERLOADING type instance O.SignalList PadController = PadControllerSignalList type PadControllerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) #endif -- method PadController::new -- method type : Constructor -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gtk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GActionGroup to trigger actions from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pad", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A %GDK_SOURCE_TABLET_PAD device, or %NULL to handle all pads", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "PadController"})) -- throws : False -- Skip return : False foreign import ccall "gtk_pad_controller_new" gtk_pad_controller_new :: Ptr Gtk.Window.Window -> -- window : TInterface (Name {namespace = "Gtk", name = "Window"}) Ptr Gio.ActionGroup.ActionGroup -> -- group : TInterface (Name {namespace = "Gio", name = "ActionGroup"}) Ptr Gdk.Device.Device -> -- pad : TInterface (Name {namespace = "Gdk", name = "Device"}) IO (Ptr PadController) {- | Creates a new 'GI.Gtk.Objects.PadController.PadController' that will associate events from /@pad@/ to actions. A 'Nothing' pad may be provided so the controller manages all pad devices generically, it is discouraged to mix 'GI.Gtk.Objects.PadController.PadController' objects with 'Nothing' and non-'Nothing' /@pad@/ argument on the same /@window@/, as execution order is not guaranteed. The 'GI.Gtk.Objects.PadController.PadController' is created with no mapped actions. In order to map pad events to actions, use 'GI.Gtk.Objects.PadController.padControllerSetActionEntries' or 'GI.Gtk.Objects.PadController.padControllerSetAction'. /Since: 3.22/ -} padControllerNew :: (B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a, Gio.ActionGroup.IsActionGroup b, Gdk.Device.IsDevice c) => a {- ^ /@window@/: a 'GI.Gtk.Objects.Window.Window' -} -> b {- ^ /@group@/: 'GI.Gio.Interfaces.ActionGroup.ActionGroup' to trigger actions from -} -> Maybe (c) {- ^ /@pad@/: A 'GI.Gdk.Enums.InputSourceTabletPad' device, or 'Nothing' to handle all pads -} -> m PadController {- ^ __Returns:__ A newly created 'GI.Gtk.Objects.PadController.PadController' -} padControllerNew window group pad = liftIO $ do window' <- unsafeManagedPtrCastPtr window group' <- unsafeManagedPtrCastPtr group maybePad <- case pad of Nothing -> return nullPtr Just jPad -> do jPad' <- unsafeManagedPtrCastPtr jPad return jPad' result <- gtk_pad_controller_new window' group' maybePad checkUnexpectedReturnNULL "padControllerNew" result result' <- (wrapObject PadController) result touchManagedPtr window touchManagedPtr group whenJust pad touchManagedPtr return result' #if ENABLE_OVERLOADING #endif -- method PadController::set_action -- method type : OrdinaryMethod -- Args : [Arg {argCName = "controller", argType = TInterface (Name {namespace = "Gtk", name = "PadController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPadController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gtk", name = "PadActionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of pad feature that will trigger this action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the 0-indexed button/ring/strip number that will trigger this action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the mode that will trigger this action, or -1 for all modes.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Human readable description of this action, this string should\n be deemed user-visible.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "action name that will be activated in the #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_pad_controller_set_action" gtk_pad_controller_set_action :: Ptr PadController -> -- controller : TInterface (Name {namespace = "Gtk", name = "PadController"}) CUInt -> -- type : TInterface (Name {namespace = "Gtk", name = "PadActionType"}) Int32 -> -- index : TBasicType TInt Int32 -> -- mode : TBasicType TInt CString -> -- label : TBasicType TUTF8 CString -> -- action_name : TBasicType TUTF8 IO () {- | Adds an individual action to /@controller@/. This action will only be activated if the given button\/ring\/strip number in /@index@/ is interacted while the current mode is /@mode@/. -1 may be used for simple cases, so the action is triggered on all modes. The given /@label@/ should be considered user-visible, so internationalization rules apply. Some windowing systems may be able to use those for user feedback. /Since: 3.22/ -} padControllerSetAction :: (B.CallStack.HasCallStack, MonadIO m, IsPadController a) => a {- ^ /@controller@/: a 'GI.Gtk.Objects.PadController.PadController' -} -> Gtk.Enums.PadActionType {- ^ /@type@/: the type of pad feature that will trigger this action -} -> Int32 {- ^ /@index@/: the 0-indexed button\/ring\/strip number that will trigger this action -} -> Int32 {- ^ /@mode@/: the mode that will trigger this action, or -1 for all modes. -} -> T.Text {- ^ /@label@/: Human readable description of this action, this string should be deemed user-visible. -} -> T.Text {- ^ /@actionName@/: action name that will be activated in the 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -} -> m () padControllerSetAction controller type_ index mode label actionName = liftIO $ do controller' <- unsafeManagedPtrCastPtr controller let type_' = (fromIntegral . fromEnum) type_ label' <- textToCString label actionName' <- textToCString actionName gtk_pad_controller_set_action controller' type_' index mode label' actionName' touchManagedPtr controller freeMem label' freeMem actionName' return () #if ENABLE_OVERLOADING data PadControllerSetActionMethodInfo instance (signature ~ (Gtk.Enums.PadActionType -> Int32 -> Int32 -> T.Text -> T.Text -> m ()), MonadIO m, IsPadController a) => O.MethodInfo PadControllerSetActionMethodInfo a signature where overloadedMethod _ = padControllerSetAction #endif -- method PadController::set_action_entries -- method type : OrdinaryMethod -- Args : [Arg {argCName = "controller", argType = TInterface (Name {namespace = "Gtk", name = "PadController"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkPadController", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gtk", name = "PadActionEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action entries to set on @controller", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @entries", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @entries", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_pad_controller_set_action_entries" gtk_pad_controller_set_action_entries :: Ptr PadController -> -- controller : TInterface (Name {namespace = "Gtk", name = "PadController"}) Ptr Gtk.PadActionEntry.PadActionEntry -> -- entries : TCArray False (-1) 2 (TInterface (Name {namespace = "Gtk", name = "PadActionEntry"})) Int32 -> -- n_entries : TBasicType TInt IO () {- | This is a convenience function to add a group of action entries on /@controller@/. See 'GI.Gtk.Structs.PadActionEntry.PadActionEntry' and 'GI.Gtk.Objects.PadController.padControllerSetAction'. /Since: 3.22/ -} padControllerSetActionEntries :: (B.CallStack.HasCallStack, MonadIO m, IsPadController a) => a {- ^ /@controller@/: a 'GI.Gtk.Objects.PadController.PadController' -} -> [Gtk.PadActionEntry.PadActionEntry] {- ^ /@entries@/: the action entries to set on /@controller@/ -} -> m () padControllerSetActionEntries controller entries = liftIO $ do let nEntries = fromIntegral $ length entries controller' <- unsafeManagedPtrCastPtr controller entries' <- mapM unsafeManagedPtrGetPtr entries entries'' <- packBlockArray 32 entries' gtk_pad_controller_set_action_entries controller' entries'' nEntries touchManagedPtr controller mapM_ touchManagedPtr entries freeMem entries'' return () #if ENABLE_OVERLOADING data PadControllerSetActionEntriesMethodInfo instance (signature ~ ([Gtk.PadActionEntry.PadActionEntry] -> m ()), MonadIO m, IsPadController a) => O.MethodInfo PadControllerSetActionEntriesMethodInfo a signature where overloadedMethod _ = padControllerSetActionEntries #endif