{- | 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.CellRendererAccel.CellRendererAccel' displays a keyboard accelerator (i.e. a key combination like @Control + a@). If the cell renderer is editable, the accelerator can be changed by simply typing the new combination. The 'GI.Gtk.Objects.CellRendererAccel.CellRendererAccel' cell renderer was added in GTK+ 2.10. -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.Gtk.Objects.CellRendererAccel ( -- * Exported types CellRendererAccel(..) , IsCellRendererAccel , toCellRendererAccel , noCellRendererAccel , -- * Methods -- ** new #method:new# cellRendererAccelNew , -- * Properties -- ** accelKey #attr:accelKey# {- | The keyval of the accelerator. /Since: 2.10/ -} #if ENABLE_OVERLOADING CellRendererAccelAccelKeyPropertyInfo , #endif #if ENABLE_OVERLOADING cellRendererAccelAccelKey , #endif constructCellRendererAccelAccelKey , getCellRendererAccelAccelKey , setCellRendererAccelAccelKey , -- ** accelMode #attr:accelMode# {- | Determines if the edited accelerators are GTK+ accelerators. If they are, consumed modifiers are suppressed, only accelerators accepted by GTK+ are allowed, and the accelerators are rendered in the same way as they are in menus. /Since: 2.10/ -} #if ENABLE_OVERLOADING CellRendererAccelAccelModePropertyInfo , #endif #if ENABLE_OVERLOADING cellRendererAccelAccelMode , #endif constructCellRendererAccelAccelMode , getCellRendererAccelAccelMode , setCellRendererAccelAccelMode , -- ** accelMods #attr:accelMods# {- | The modifier mask of the accelerator. /Since: 2.10/ -} #if ENABLE_OVERLOADING CellRendererAccelAccelModsPropertyInfo , #endif #if ENABLE_OVERLOADING cellRendererAccelAccelMods , #endif constructCellRendererAccelAccelMods , getCellRendererAccelAccelMods , setCellRendererAccelAccelMods , -- ** keycode #attr:keycode# {- | The hardware keycode of the accelerator. Note that the hardware keycode is only relevant if the key does not have a keyval. Normally, the keyboard configuration should assign keyvals to all keys. /Since: 2.10/ -} #if ENABLE_OVERLOADING CellRendererAccelKeycodePropertyInfo , #endif #if ENABLE_OVERLOADING cellRendererAccelKeycode , #endif constructCellRendererAccelKeycode , getCellRendererAccelKeycode , setCellRendererAccelKeycode , -- * Signals -- ** accelCleared #signal:accelCleared# C_CellRendererAccelAccelClearedCallback , CellRendererAccelAccelClearedCallback , #if ENABLE_OVERLOADING CellRendererAccelAccelClearedSignalInfo , #endif afterCellRendererAccelAccelCleared , genClosure_CellRendererAccelAccelCleared, mk_CellRendererAccelAccelClearedCallback, noCellRendererAccelAccelClearedCallback , onCellRendererAccelAccelCleared , wrap_CellRendererAccelAccelClearedCallback, -- ** accelEdited #signal:accelEdited# C_CellRendererAccelAccelEditedCallback , CellRendererAccelAccelEditedCallback , #if ENABLE_OVERLOADING CellRendererAccelAccelEditedSignalInfo , #endif afterCellRendererAccelAccelEdited , genClosure_CellRendererAccelAccelEdited , mk_CellRendererAccelAccelEditedCallback , noCellRendererAccelAccelEditedCallback , onCellRendererAccelAccelEdited , wrap_CellRendererAccelAccelEditedCallback, ) 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.Flags as Gdk.Flags import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRendererText as Gtk.CellRendererText -- | Memory-managed wrapper type. newtype CellRendererAccel = CellRendererAccel (ManagedPtr CellRendererAccel) foreign import ccall "gtk_cell_renderer_accel_get_type" c_gtk_cell_renderer_accel_get_type :: IO GType instance GObject CellRendererAccel where gobjectType = c_gtk_cell_renderer_accel_get_type -- | Type class for types which can be safely cast to `CellRendererAccel`, for instance with `toCellRendererAccel`. class (GObject o, O.IsDescendantOf CellRendererAccel o) => IsCellRendererAccel o instance (GObject o, O.IsDescendantOf CellRendererAccel o) => IsCellRendererAccel o instance O.HasParentTypes CellRendererAccel type instance O.ParentTypes CellRendererAccel = '[Gtk.CellRendererText.CellRendererText, Gtk.CellRenderer.CellRenderer, GObject.Object.Object] -- | Cast to `CellRendererAccel`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toCellRendererAccel :: (MonadIO m, IsCellRendererAccel o) => o -> m CellRendererAccel toCellRendererAccel = liftIO . unsafeCastTo CellRendererAccel -- | A convenience alias for `Nothing` :: `Maybe` `CellRendererAccel`. noCellRendererAccel :: Maybe CellRendererAccel noCellRendererAccel = Nothing #if ENABLE_OVERLOADING type family ResolveCellRendererAccelMethod (t :: Symbol) (o :: *) :: * where ResolveCellRendererAccelMethod "activate" o = Gtk.CellRenderer.CellRendererActivateMethodInfo ResolveCellRendererAccelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveCellRendererAccelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveCellRendererAccelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveCellRendererAccelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveCellRendererAccelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolveCellRendererAccelMethod "isActivatable" o = Gtk.CellRenderer.CellRendererIsActivatableMethodInfo ResolveCellRendererAccelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveCellRendererAccelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveCellRendererAccelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveCellRendererAccelMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveCellRendererAccelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveCellRendererAccelMethod "render" o = Gtk.CellRenderer.CellRendererRenderMethodInfo ResolveCellRendererAccelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveCellRendererAccelMethod "startEditing" o = Gtk.CellRenderer.CellRendererStartEditingMethodInfo ResolveCellRendererAccelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveCellRendererAccelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveCellRendererAccelMethod "stopEditing" o = Gtk.CellRenderer.CellRendererStopEditingMethodInfo ResolveCellRendererAccelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveCellRendererAccelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveCellRendererAccelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveCellRendererAccelMethod "getAlignedArea" o = Gtk.CellRenderer.CellRendererGetAlignedAreaMethodInfo ResolveCellRendererAccelMethod "getAlignment" o = Gtk.CellRenderer.CellRendererGetAlignmentMethodInfo ResolveCellRendererAccelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveCellRendererAccelMethod "getFixedSize" o = Gtk.CellRenderer.CellRendererGetFixedSizeMethodInfo ResolveCellRendererAccelMethod "getPadding" o = Gtk.CellRenderer.CellRendererGetPaddingMethodInfo ResolveCellRendererAccelMethod "getPreferredHeight" o = Gtk.CellRenderer.CellRendererGetPreferredHeightMethodInfo ResolveCellRendererAccelMethod "getPreferredHeightForWidth" o = Gtk.CellRenderer.CellRendererGetPreferredHeightForWidthMethodInfo ResolveCellRendererAccelMethod "getPreferredSize" o = Gtk.CellRenderer.CellRendererGetPreferredSizeMethodInfo ResolveCellRendererAccelMethod "getPreferredWidth" o = Gtk.CellRenderer.CellRendererGetPreferredWidthMethodInfo ResolveCellRendererAccelMethod "getPreferredWidthForHeight" o = Gtk.CellRenderer.CellRendererGetPreferredWidthForHeightMethodInfo ResolveCellRendererAccelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveCellRendererAccelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveCellRendererAccelMethod "getRequestMode" o = Gtk.CellRenderer.CellRendererGetRequestModeMethodInfo ResolveCellRendererAccelMethod "getSensitive" o = Gtk.CellRenderer.CellRendererGetSensitiveMethodInfo ResolveCellRendererAccelMethod "getSize" o = Gtk.CellRenderer.CellRendererGetSizeMethodInfo ResolveCellRendererAccelMethod "getState" o = Gtk.CellRenderer.CellRendererGetStateMethodInfo ResolveCellRendererAccelMethod "getVisible" o = Gtk.CellRenderer.CellRendererGetVisibleMethodInfo ResolveCellRendererAccelMethod "setAlignment" o = Gtk.CellRenderer.CellRendererSetAlignmentMethodInfo ResolveCellRendererAccelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveCellRendererAccelMethod "setFixedHeightFromFont" o = Gtk.CellRendererText.CellRendererTextSetFixedHeightFromFontMethodInfo ResolveCellRendererAccelMethod "setFixedSize" o = Gtk.CellRenderer.CellRendererSetFixedSizeMethodInfo ResolveCellRendererAccelMethod "setPadding" o = Gtk.CellRenderer.CellRendererSetPaddingMethodInfo ResolveCellRendererAccelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveCellRendererAccelMethod "setSensitive" o = Gtk.CellRenderer.CellRendererSetSensitiveMethodInfo ResolveCellRendererAccelMethod "setVisible" o = Gtk.CellRenderer.CellRendererSetVisibleMethodInfo ResolveCellRendererAccelMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveCellRendererAccelMethod t CellRendererAccel, O.MethodInfo info CellRendererAccel p) => OL.IsLabel t (CellRendererAccel -> 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 -- signal CellRendererAccel::accel-cleared {- | Gets emitted when the user has removed the accelerator. /Since: 2.10/ -} type CellRendererAccelAccelClearedCallback = T.Text {- ^ /@pathString@/: the path identifying the row of the edited cell -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `CellRendererAccelAccelClearedCallback`@. noCellRendererAccelAccelClearedCallback :: Maybe CellRendererAccelAccelClearedCallback noCellRendererAccelAccelClearedCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_CellRendererAccelAccelClearedCallback = Ptr () -> -- object CString -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_CellRendererAccelAccelClearedCallback`. foreign import ccall "wrapper" mk_CellRendererAccelAccelClearedCallback :: C_CellRendererAccelAccelClearedCallback -> IO (FunPtr C_CellRendererAccelAccelClearedCallback) -- | Wrap the callback into a `GClosure`. genClosure_CellRendererAccelAccelCleared :: MonadIO m => CellRendererAccelAccelClearedCallback -> m (GClosure C_CellRendererAccelAccelClearedCallback) genClosure_CellRendererAccelAccelCleared cb = liftIO $ do let cb' = wrap_CellRendererAccelAccelClearedCallback cb mk_CellRendererAccelAccelClearedCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `CellRendererAccelAccelClearedCallback` into a `C_CellRendererAccelAccelClearedCallback`. wrap_CellRendererAccelAccelClearedCallback :: CellRendererAccelAccelClearedCallback -> C_CellRendererAccelAccelClearedCallback wrap_CellRendererAccelAccelClearedCallback _cb _ pathString _ = do pathString' <- cstringToText pathString _cb pathString' {- | Connect a signal handler for the “@accel-cleared@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' cellRendererAccel #accelCleared callback @ -} onCellRendererAccelAccelCleared :: (IsCellRendererAccel a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId onCellRendererAccelAccelCleared obj cb = liftIO $ do let cb' = wrap_CellRendererAccelAccelClearedCallback cb cb'' <- mk_CellRendererAccelAccelClearedCallback cb' connectSignalFunPtr obj "accel-cleared" cb'' SignalConnectBefore {- | Connect a signal handler for the “@accel-cleared@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' cellRendererAccel #accelCleared callback @ -} afterCellRendererAccelAccelCleared :: (IsCellRendererAccel a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId afterCellRendererAccelAccelCleared obj cb = liftIO $ do let cb' = wrap_CellRendererAccelAccelClearedCallback cb cb'' <- mk_CellRendererAccelAccelClearedCallback cb' connectSignalFunPtr obj "accel-cleared" cb'' SignalConnectAfter -- signal CellRendererAccel::accel-edited {- | Gets emitted when the user has selected a new accelerator. /Since: 2.10/ -} type CellRendererAccelAccelEditedCallback = T.Text {- ^ /@pathString@/: the path identifying the row of the edited cell -} -> Word32 {- ^ /@accelKey@/: the new accelerator keyval -} -> [Gdk.Flags.ModifierType] {- ^ /@accelMods@/: the new acclerator modifier mask -} -> Word32 {- ^ /@hardwareKeycode@/: the keycode of the new accelerator -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `CellRendererAccelAccelEditedCallback`@. noCellRendererAccelAccelEditedCallback :: Maybe CellRendererAccelAccelEditedCallback noCellRendererAccelAccelEditedCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_CellRendererAccelAccelEditedCallback = Ptr () -> -- object CString -> Word32 -> CUInt -> Word32 -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_CellRendererAccelAccelEditedCallback`. foreign import ccall "wrapper" mk_CellRendererAccelAccelEditedCallback :: C_CellRendererAccelAccelEditedCallback -> IO (FunPtr C_CellRendererAccelAccelEditedCallback) -- | Wrap the callback into a `GClosure`. genClosure_CellRendererAccelAccelEdited :: MonadIO m => CellRendererAccelAccelEditedCallback -> m (GClosure C_CellRendererAccelAccelEditedCallback) genClosure_CellRendererAccelAccelEdited cb = liftIO $ do let cb' = wrap_CellRendererAccelAccelEditedCallback cb mk_CellRendererAccelAccelEditedCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `CellRendererAccelAccelEditedCallback` into a `C_CellRendererAccelAccelEditedCallback`. wrap_CellRendererAccelAccelEditedCallback :: CellRendererAccelAccelEditedCallback -> C_CellRendererAccelAccelEditedCallback wrap_CellRendererAccelAccelEditedCallback _cb _ pathString accelKey accelMods hardwareKeycode _ = do pathString' <- cstringToText pathString let accelMods' = wordToGFlags accelMods _cb pathString' accelKey accelMods' hardwareKeycode {- | Connect a signal handler for the “@accel-edited@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' cellRendererAccel #accelEdited callback @ -} onCellRendererAccelAccelEdited :: (IsCellRendererAccel a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId onCellRendererAccelAccelEdited obj cb = liftIO $ do let cb' = wrap_CellRendererAccelAccelEditedCallback cb cb'' <- mk_CellRendererAccelAccelEditedCallback cb' connectSignalFunPtr obj "accel-edited" cb'' SignalConnectBefore {- | Connect a signal handler for the “@accel-edited@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' cellRendererAccel #accelEdited callback @ -} afterCellRendererAccelAccelEdited :: (IsCellRendererAccel a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId afterCellRendererAccelAccelEdited obj cb = liftIO $ do let cb' = wrap_CellRendererAccelAccelEditedCallback cb cb'' <- mk_CellRendererAccelAccelEditedCallback cb' connectSignalFunPtr obj "accel-edited" cb'' SignalConnectAfter -- VVV Prop "accel-key" -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@accel-key@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' cellRendererAccel #accelKey @ -} getCellRendererAccelAccelKey :: (MonadIO m, IsCellRendererAccel o) => o -> m Word32 getCellRendererAccelAccelKey obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "accel-key" {- | Set the value of the “@accel-key@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' cellRendererAccel [ #accelKey 'Data.GI.Base.Attributes.:=' value ] @ -} setCellRendererAccelAccelKey :: (MonadIO m, IsCellRendererAccel o) => o -> Word32 -> m () setCellRendererAccelAccelKey obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "accel-key" val {- | Construct a `GValueConstruct` with valid value for the “@accel-key@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructCellRendererAccelAccelKey :: (IsCellRendererAccel o) => Word32 -> IO (GValueConstruct o) constructCellRendererAccelAccelKey val = B.Properties.constructObjectPropertyUInt32 "accel-key" val #if ENABLE_OVERLOADING data CellRendererAccelAccelKeyPropertyInfo instance AttrInfo CellRendererAccelAccelKeyPropertyInfo where type AttrAllowedOps CellRendererAccelAccelKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint CellRendererAccelAccelKeyPropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererAccelAccelKeyPropertyInfo = IsCellRendererAccel type AttrGetType CellRendererAccelAccelKeyPropertyInfo = Word32 type AttrLabel CellRendererAccelAccelKeyPropertyInfo = "accel-key" type AttrOrigin CellRendererAccelAccelKeyPropertyInfo = CellRendererAccel attrGet _ = getCellRendererAccelAccelKey attrSet _ = setCellRendererAccelAccelKey attrConstruct _ = constructCellRendererAccelAccelKey attrClear _ = undefined #endif -- VVV Prop "accel-mode" -- Type: TInterface (Name {namespace = "Gtk", name = "CellRendererAccelMode"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@accel-mode@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' cellRendererAccel #accelMode @ -} getCellRendererAccelAccelMode :: (MonadIO m, IsCellRendererAccel o) => o -> m Gtk.Enums.CellRendererAccelMode getCellRendererAccelAccelMode obj = liftIO $ B.Properties.getObjectPropertyEnum obj "accel-mode" {- | Set the value of the “@accel-mode@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' cellRendererAccel [ #accelMode 'Data.GI.Base.Attributes.:=' value ] @ -} setCellRendererAccelAccelMode :: (MonadIO m, IsCellRendererAccel o) => o -> Gtk.Enums.CellRendererAccelMode -> m () setCellRendererAccelAccelMode obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "accel-mode" val {- | Construct a `GValueConstruct` with valid value for the “@accel-mode@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructCellRendererAccelAccelMode :: (IsCellRendererAccel o) => Gtk.Enums.CellRendererAccelMode -> IO (GValueConstruct o) constructCellRendererAccelAccelMode val = B.Properties.constructObjectPropertyEnum "accel-mode" val #if ENABLE_OVERLOADING data CellRendererAccelAccelModePropertyInfo instance AttrInfo CellRendererAccelAccelModePropertyInfo where type AttrAllowedOps CellRendererAccelAccelModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint CellRendererAccelAccelModePropertyInfo = (~) Gtk.Enums.CellRendererAccelMode type AttrBaseTypeConstraint CellRendererAccelAccelModePropertyInfo = IsCellRendererAccel type AttrGetType CellRendererAccelAccelModePropertyInfo = Gtk.Enums.CellRendererAccelMode type AttrLabel CellRendererAccelAccelModePropertyInfo = "accel-mode" type AttrOrigin CellRendererAccelAccelModePropertyInfo = CellRendererAccel attrGet _ = getCellRendererAccelAccelMode attrSet _ = setCellRendererAccelAccelMode attrConstruct _ = constructCellRendererAccelAccelMode attrClear _ = undefined #endif -- VVV Prop "accel-mods" -- Type: TInterface (Name {namespace = "Gdk", name = "ModifierType"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@accel-mods@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' cellRendererAccel #accelMods @ -} getCellRendererAccelAccelMods :: (MonadIO m, IsCellRendererAccel o) => o -> m [Gdk.Flags.ModifierType] getCellRendererAccelAccelMods obj = liftIO $ B.Properties.getObjectPropertyFlags obj "accel-mods" {- | Set the value of the “@accel-mods@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' cellRendererAccel [ #accelMods 'Data.GI.Base.Attributes.:=' value ] @ -} setCellRendererAccelAccelMods :: (MonadIO m, IsCellRendererAccel o) => o -> [Gdk.Flags.ModifierType] -> m () setCellRendererAccelAccelMods obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "accel-mods" val {- | Construct a `GValueConstruct` with valid value for the “@accel-mods@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructCellRendererAccelAccelMods :: (IsCellRendererAccel o) => [Gdk.Flags.ModifierType] -> IO (GValueConstruct o) constructCellRendererAccelAccelMods val = B.Properties.constructObjectPropertyFlags "accel-mods" val #if ENABLE_OVERLOADING data CellRendererAccelAccelModsPropertyInfo instance AttrInfo CellRendererAccelAccelModsPropertyInfo where type AttrAllowedOps CellRendererAccelAccelModsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint CellRendererAccelAccelModsPropertyInfo = (~) [Gdk.Flags.ModifierType] type AttrBaseTypeConstraint CellRendererAccelAccelModsPropertyInfo = IsCellRendererAccel type AttrGetType CellRendererAccelAccelModsPropertyInfo = [Gdk.Flags.ModifierType] type AttrLabel CellRendererAccelAccelModsPropertyInfo = "accel-mods" type AttrOrigin CellRendererAccelAccelModsPropertyInfo = CellRendererAccel attrGet _ = getCellRendererAccelAccelMods attrSet _ = setCellRendererAccelAccelMods attrConstruct _ = constructCellRendererAccelAccelMods attrClear _ = undefined #endif -- VVV Prop "keycode" -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@keycode@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' cellRendererAccel #keycode @ -} getCellRendererAccelKeycode :: (MonadIO m, IsCellRendererAccel o) => o -> m Word32 getCellRendererAccelKeycode obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "keycode" {- | Set the value of the “@keycode@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' cellRendererAccel [ #keycode 'Data.GI.Base.Attributes.:=' value ] @ -} setCellRendererAccelKeycode :: (MonadIO m, IsCellRendererAccel o) => o -> Word32 -> m () setCellRendererAccelKeycode obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "keycode" val {- | Construct a `GValueConstruct` with valid value for the “@keycode@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructCellRendererAccelKeycode :: (IsCellRendererAccel o) => Word32 -> IO (GValueConstruct o) constructCellRendererAccelKeycode val = B.Properties.constructObjectPropertyUInt32 "keycode" val #if ENABLE_OVERLOADING data CellRendererAccelKeycodePropertyInfo instance AttrInfo CellRendererAccelKeycodePropertyInfo where type AttrAllowedOps CellRendererAccelKeycodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint CellRendererAccelKeycodePropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererAccelKeycodePropertyInfo = IsCellRendererAccel type AttrGetType CellRendererAccelKeycodePropertyInfo = Word32 type AttrLabel CellRendererAccelKeycodePropertyInfo = "keycode" type AttrOrigin CellRendererAccelKeycodePropertyInfo = CellRendererAccel attrGet _ = getCellRendererAccelKeycode attrSet _ = setCellRendererAccelKeycode attrConstruct _ = constructCellRendererAccelKeycode attrClear _ = undefined #endif #if ENABLE_OVERLOADING instance O.HasAttributeList CellRendererAccel type instance O.AttributeList CellRendererAccel = CellRendererAccelAttributeList type CellRendererAccelAttributeList = ('[ '("accelKey", CellRendererAccelAccelKeyPropertyInfo), '("accelMode", CellRendererAccelAccelModePropertyInfo), '("accelMods", CellRendererAccelAccelModsPropertyInfo), '("alignSet", Gtk.CellRendererText.CellRendererTextAlignSetPropertyInfo), '("alignment", Gtk.CellRendererText.CellRendererTextAlignmentPropertyInfo), '("attributes", Gtk.CellRendererText.CellRendererTextAttributesPropertyInfo), '("background", Gtk.CellRendererText.CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", Gtk.CellRendererText.CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", Gtk.CellRendererText.CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", Gtk.CellRendererText.CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", Gtk.CellRenderer.CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", Gtk.CellRenderer.CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", Gtk.CellRenderer.CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", Gtk.CellRenderer.CellRendererCellBackgroundSetPropertyInfo), '("editable", Gtk.CellRendererText.CellRendererTextEditablePropertyInfo), '("editableSet", Gtk.CellRendererText.CellRendererTextEditableSetPropertyInfo), '("editing", Gtk.CellRenderer.CellRendererEditingPropertyInfo), '("ellipsize", Gtk.CellRendererText.CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", Gtk.CellRendererText.CellRendererTextEllipsizeSetPropertyInfo), '("family", Gtk.CellRendererText.CellRendererTextFamilyPropertyInfo), '("familySet", Gtk.CellRendererText.CellRendererTextFamilySetPropertyInfo), '("font", Gtk.CellRendererText.CellRendererTextFontPropertyInfo), '("fontDesc", Gtk.CellRendererText.CellRendererTextFontDescPropertyInfo), '("foreground", Gtk.CellRendererText.CellRendererTextForegroundPropertyInfo), '("foregroundGdk", Gtk.CellRendererText.CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", Gtk.CellRendererText.CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", Gtk.CellRendererText.CellRendererTextForegroundSetPropertyInfo), '("height", Gtk.CellRenderer.CellRendererHeightPropertyInfo), '("isExpanded", Gtk.CellRenderer.CellRendererIsExpandedPropertyInfo), '("isExpander", Gtk.CellRenderer.CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", Gtk.CellRendererText.CellRendererTextLanguagePropertyInfo), '("languageSet", Gtk.CellRendererText.CellRendererTextLanguageSetPropertyInfo), '("markup", Gtk.CellRendererText.CellRendererTextMarkupPropertyInfo), '("maxWidthChars", Gtk.CellRendererText.CellRendererTextMaxWidthCharsPropertyInfo), '("mode", Gtk.CellRenderer.CellRendererModePropertyInfo), '("placeholderText", Gtk.CellRendererText.CellRendererTextPlaceholderTextPropertyInfo), '("rise", Gtk.CellRendererText.CellRendererTextRisePropertyInfo), '("riseSet", Gtk.CellRendererText.CellRendererTextRiseSetPropertyInfo), '("scale", Gtk.CellRendererText.CellRendererTextScalePropertyInfo), '("scaleSet", Gtk.CellRendererText.CellRendererTextScaleSetPropertyInfo), '("sensitive", Gtk.CellRenderer.CellRendererSensitivePropertyInfo), '("singleParagraphMode", Gtk.CellRendererText.CellRendererTextSingleParagraphModePropertyInfo), '("size", Gtk.CellRendererText.CellRendererTextSizePropertyInfo), '("sizePoints", Gtk.CellRendererText.CellRendererTextSizePointsPropertyInfo), '("sizeSet", Gtk.CellRendererText.CellRendererTextSizeSetPropertyInfo), '("stretch", Gtk.CellRendererText.CellRendererTextStretchPropertyInfo), '("stretchSet", Gtk.CellRendererText.CellRendererTextStretchSetPropertyInfo), '("strikethrough", Gtk.CellRendererText.CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", Gtk.CellRendererText.CellRendererTextStrikethroughSetPropertyInfo), '("style", Gtk.CellRendererText.CellRendererTextStylePropertyInfo), '("styleSet", Gtk.CellRendererText.CellRendererTextStyleSetPropertyInfo), '("text", Gtk.CellRendererText.CellRendererTextTextPropertyInfo), '("underline", Gtk.CellRendererText.CellRendererTextUnderlinePropertyInfo), '("underlineSet", Gtk.CellRendererText.CellRendererTextUnderlineSetPropertyInfo), '("variant", Gtk.CellRendererText.CellRendererTextVariantPropertyInfo), '("variantSet", Gtk.CellRendererText.CellRendererTextVariantSetPropertyInfo), '("visible", Gtk.CellRenderer.CellRendererVisiblePropertyInfo), '("weight", Gtk.CellRendererText.CellRendererTextWeightPropertyInfo), '("weightSet", Gtk.CellRendererText.CellRendererTextWeightSetPropertyInfo), '("width", Gtk.CellRenderer.CellRendererWidthPropertyInfo), '("widthChars", Gtk.CellRendererText.CellRendererTextWidthCharsPropertyInfo), '("wrapMode", Gtk.CellRendererText.CellRendererTextWrapModePropertyInfo), '("wrapWidth", Gtk.CellRendererText.CellRendererTextWrapWidthPropertyInfo), '("xalign", Gtk.CellRenderer.CellRendererXalignPropertyInfo), '("xpad", Gtk.CellRenderer.CellRendererXpadPropertyInfo), '("yalign", Gtk.CellRenderer.CellRendererYalignPropertyInfo), '("ypad", Gtk.CellRenderer.CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING cellRendererAccelAccelKey :: AttrLabelProxy "accelKey" cellRendererAccelAccelKey = AttrLabelProxy cellRendererAccelAccelMode :: AttrLabelProxy "accelMode" cellRendererAccelAccelMode = AttrLabelProxy cellRendererAccelAccelMods :: AttrLabelProxy "accelMods" cellRendererAccelAccelMods = AttrLabelProxy cellRendererAccelKeycode :: AttrLabelProxy "keycode" cellRendererAccelKeycode = AttrLabelProxy #endif #if ENABLE_OVERLOADING data CellRendererAccelAccelClearedSignalInfo instance SignalInfo CellRendererAccelAccelClearedSignalInfo where type HaskellCallbackType CellRendererAccelAccelClearedSignalInfo = CellRendererAccelAccelClearedCallback connectSignal _ obj cb connectMode = do let cb' = wrap_CellRendererAccelAccelClearedCallback cb cb'' <- mk_CellRendererAccelAccelClearedCallback cb' connectSignalFunPtr obj "accel-cleared" cb'' connectMode data CellRendererAccelAccelEditedSignalInfo instance SignalInfo CellRendererAccelAccelEditedSignalInfo where type HaskellCallbackType CellRendererAccelAccelEditedSignalInfo = CellRendererAccelAccelEditedCallback connectSignal _ obj cb connectMode = do let cb' = wrap_CellRendererAccelAccelEditedCallback cb cb'' <- mk_CellRendererAccelAccelEditedCallback cb' connectSignalFunPtr obj "accel-edited" cb'' connectMode type instance O.SignalList CellRendererAccel = CellRendererAccelSignalList type CellRendererAccelSignalList = ('[ '("accelCleared", CellRendererAccelAccelClearedSignalInfo), '("accelEdited", CellRendererAccelAccelEditedSignalInfo), '("edited", Gtk.CellRendererText.CellRendererTextEditedSignalInfo), '("editingCanceled", Gtk.CellRenderer.CellRendererEditingCanceledSignalInfo), '("editingStarted", Gtk.CellRenderer.CellRendererEditingStartedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) #endif -- method CellRendererAccel::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "CellRendererAccel"})) -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_accel_new" gtk_cell_renderer_accel_new :: IO (Ptr CellRendererAccel) {- | Creates a new 'GI.Gtk.Objects.CellRendererAccel.CellRendererAccel'. /Since: 2.10/ -} cellRendererAccelNew :: (B.CallStack.HasCallStack, MonadIO m) => m CellRendererAccel {- ^ __Returns:__ the new cell renderer -} cellRendererAccelNew = liftIO $ do result <- gtk_cell_renderer_accel_new checkUnexpectedReturnNULL "cellRendererAccelNew" result result' <- (newObject CellRendererAccel) result return result' #if ENABLE_OVERLOADING #endif