[Gtk2hs-commit] (main branch): New module in GTK+2.22 : GtkAccessible

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

diffing dir...
Fri Oct 22 16:46:15 EDT 2010  Andy Stewart <laz...@gm...>
  * New module in GTK+2.22 : GtkAccessible
  Ignore-this: d31c2b7c9e1fe0cb09c5c134fa8c88a8
    {
    hunk ./gtk/Graphics/UI/Gtk.chs 229
    +  module Graphics.UI.Gtk.Misc.Accessible,
    hunk ./gtk/Graphics/UI/Gtk.chs 464
    +import Graphics.UI.Gtk.Misc.Accessible
    addfile ./gtk/Graphics/UI/Gtk/Misc/Accessible.chs
    hunk ./gtk/Graphics/UI/Gtk/Misc/Accessible.chs 1
    +{-# LANGUAGE CPP #-}
    +-- -*-haskell-*-
    +--  GIMP Toolkit (GTK) Widget accessible
    +--
    +--  Author : Andy Stewart
    +--
    +--  Created: 23 Oct 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)
    +--
    +-- A 'Object' representing an adjustable bounded value
    +--
    +module Graphics.UI.Gtk.Misc.Accessible (
    +-- * Detail
    +--
    +-- | Accessible accessibility support for widgets.
    +--  [_$_]
    hunk ./gtk/Graphics/UI/Gtk/Misc/Accessible.chs 34
    +-- * Class Hierarchy
    +-- |
    +-- @
    +-- |  'GObject'
    +-- |   +----'AtkObject'
    +-- |         +----Accessible
    +-- @
    +
    +#if GTK_CHECK_VERSION(2,22,0)
    +-- * Types
    +  Accessible,
    +  AccessibleClass,
    +  castToAccessible, gTypeAccessible,
    +  toAccessible,
    +
    +-- * Methods
    +  accessibleGetWidget,
    +  accessibleSetWidget
    +#endif
    +) where
    +
    +import Control.Monad	(liftM)
    +
    +import System.Glib.FFI
    +import System.Glib.Attributes
    +import System.Glib.Properties
    +import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
    +{#import Graphics.UI.Gtk.Types#}
    +{#import Graphics.UI.Gtk.Signals#}
    +
    +{# context lib="gtk" prefix="gtk" #}
    +
    +#if GTK_CHECK_VERSION(2,22,0)
    +--------------------
    +-- Methods
    +
    +-- | Gets the 'Widget' corresponding to the 'Accessible'.
    +--
    +-- * Available since Gtk+ version 2.22
    +--
    +accessibleGetWidget :: AccessibleClass self => self
    +                    -> IO (Maybe Widget) -- ^ returns the 'Widget' corresponding to the 'Accessible', or 'Nothing'.
    +accessibleGetWidget self =
    +  maybeNull (makeNewObject mkWidget) $
    +  {# call accessible_get_widget #}
    +    (toAccessible self)
    +
    +-- | Sets the 'Widget' corresponding to the 'Accessible'.
    +--
    +-- * Available since Gtk+ version 2.22
    +--
    +accessibleSetWidget :: (AccessibleClass self, WidgetClass widget) [_$_]
    +                      => self -- ^ @accessible@ a 'Accessible' [_$_]
    +                      -> widget -- ^ @widget@     a 'Widget'     [_$_]
    +                      -> IO ()
    +accessibleSetWidget self widget =                       [_$_]
    +  {#call accessible_set_widget #}
    +     (toAccessible self)
    +     (toWidget widget)
    +#endif
    hunk ./gtk/gtk.cabal 249
    +          Graphics.UI.Gtk.Misc.Accessible
    hunk ./gtk/hierarchy.list 25
    +	    AtkObject
    +		    GtkAccessible		if gtk-2.22
    }