[Gtk2hs-commit] (main branch): Add new module ModelView.CellRendererAccel

[Andy S. <And...@co...>]

diffing dir...
Tue Sep  7 06:58:30 EDT 2010  Andy Stewart <laz...@gm...>
  * Add new module ModelView.CellRendererAccel
  Ignore-this: ce17e043407179936e4d279aa1101d0
    {
    hunk ./gtk/Graphics/UI/Gtk.chs 118
    +  module Graphics.UI.Gtk.ModelView.CellRendererAccel,
    hunk ./gtk/Graphics/UI/Gtk.chs 329
    +import Graphics.UI.Gtk.ModelView.CellRendererAccel
    addfile ./gtk/Graphics/UI/Gtk/ModelView/CellRendererAccel.chs
    hunk ./gtk/Graphics/UI/Gtk/ModelView/CellRendererAccel.chs 1
    +{-# LANGUAGE CPP #-}
    +-- -*-haskell-*-
    +--  GIMP Toolkit (GTK) Widget CellRendererAccel
    +--
    +--  Author : Andy Stewart
    +--
    +--  Created: 25 Mar 2010
    +--
    +--  Copyright (C) 2010 Andy Stewart
    +--
    +--  This library is free software; you can redistribute it and/or
    +--  modify it under the terms of the GNU Lesser General Public
    +--  License as published by the Free Software Foundation; either
    +--  version 2.1 of the License, or (at your option) any later version.
    +--
    +--  This library is distributed in the hope that it will be useful,
    +--  but WITHOUT ANY WARRANTY; without even the implied warranty of
    +--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    +--  Lesser General Public License for more details.
    +--
    +-- |
    +-- Maintainer  : gtk...@li...
    +-- Stability   : provisional
    +-- Portability : portable (depends on GHC)
    +--
    +-- Renders a keyboard accelerator in a cell
    +--
    +-- * Module available since Gtk+ version 2.10
    +--
    +module Graphics.UI.Gtk.ModelView.CellRendererAccel (
    +
    +-- * Detail
    +--
    +-- | '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 'CellRendererAccel' cell renderer was added in Gtk+ 2.10.
    +
    +-- * Class Hierarchy
    +--
    +-- |
    +-- @
    +-- |  'GObject'
    +-- |   +----'Object'
    +-- |         +----'CellRenderer'
    +-- |               +----'CellRendererText'
    +-- |                     +----CellRendererAccel
    +-- @
    +
    +#if GTK_CHECK_VERSION(2,10,0)
    +-- * Types
    +  CellRendererAccel,
    +  CellRendererAccelClass,
    +  castToCellRendererAccel,
    +  toCellRendererAccel,
    +
    +-- * Enums
    +  CellRendererAccelMode(..),
    +
    +-- * Constructors
    +  cellRendererAccelNew,
    +
    +-- * Attributes
    +  cellRendererAccelAccelKey,
    +  cellRendererAccelAccelMods,
    +  cellRendererAccelKeycode,
    +  cellRendererAccelAccelMode,
    +
    +-- * Signals
    +  accelEdited,
    +  accelCleared,
    +#endif
    +  ) where
    +
    +import Control.Monad	(liftM)
    +
    +import System.Glib.FFI
    +import System.Glib.Attributes
    +import System.Glib.Properties
    +import Graphics.UI.Gtk.Gdk.Enums (Modifier)
    +import Graphics.UI.Gtk.Abstract.Object   (makeNewObject)
    +{#import Graphics.UI.Gtk.Signals#}
    +{#import Graphics.UI.Gtk.Types#}
    +
    +{# context lib="gtk" prefix="gtk" #}
    +
    +#if GTK_CHECK_VERSION(2,10,0)
    +--------------------
    +-- Enums
    +{#enum CellRendererAccelMode {underscoreToCase} deriving (Bounded,Eq,Show)#}
    +
    +--------------------
    +-- Constructors
    +
    +-- | Creates a new 'CellRendererAccel'.
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +cellRendererAccelNew :: IO CellRendererAccel
    +cellRendererAccelNew =
    +  makeNewObject mkCellRendererAccel $ liftM castPtr $
    +  {# call gtk_cell_renderer_accel_new #}
    +
    +--------------------
    +-- Attributes
    +
    +-- | The keyval of the accelerator.
    +-- [_$_]
    +-- Allowed values: <= GMaxint
    +-- [_$_]
    +-- Default value: 0
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +cellRendererAccelAccelKey :: CellRendererAccelClass self => Attr self Int
    +cellRendererAccelAccelKey = newAttrFromUIntProperty "accel-key"
    +
    +-- | The modifier mask of the accelerator.
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +cellRendererAccelAccelMods :: CellRendererAccelClass self => Attr self [Modifier]
    +cellRendererAccelAccelMods = newAttrFromFlagsProperty "accel-mods"
    +                               {# call pure unsafe gdk_modifier_type_get_type #}
    +
    +-- | 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.
    +-- [_$_]
    +-- Allowed values: <= GMaxint
    +-- [_$_]
    +-- Default value: 0
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +cellRendererAccelKeycode :: CellRendererAccelClass self => Attr self Int
    +cellRendererAccelKeycode = newAttrFromUIntProperty "keycode"
    +
    +-- | 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.
    +-- [_$_]
    +-- Default value: 'CellRendererAccelModeGtk'
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +cellRendererAccelAccelMode :: CellRendererAccelClass self => Attr self CellRendererAccelMode
    +cellRendererAccelAccelMode = newAttrFromEnumProperty "accel-mode"
    +                               {# call pure unsafe gtk_cell_renderer_accel_mode_get_type #}
    +
    +--------------------
    +-- Signals
    +
    +-- | Gets emitted when the user has selected a new accelerator.
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +accelEdited :: CellRendererAccelClass self => Signal self (String -> Int -> Modifier -> Int -> IO ())
    +accelEdited = Signal (connect_STRING_INT_ENUM_INT__NONE "accel_edited")
    +
    +-- | Gets emitted when the user has removed the accelerator.
    +--
    +-- * Available since Gtk+ version 2.10
    +--
    +accelCleared :: CellRendererAccelClass self => Signal self (String -> IO ())
    +accelCleared = Signal (connect_STRING__NONE "accel_cleared")
    +#endif
    hunk ./gtk/gtk.cabal 260
    +          Graphics.UI.Gtk.ModelView.CellRendererAccel
    hunk ./gtk/hierarchy.list 189
    +		    GtkCellRendererAccel    if gtk-2.10
    hunk ./gtk/marshal.list 160
    +# For CellRendererAccel
    +NONE:STRING,INT,ENUM,INT
    +
    }