[Gtk2hs-commit] (main branch): Add new module Special.HRuler

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

diffing dir...
Mon Sep  6 20:04:17 EDT 2010  Andy Stewart <laz...@gm...>
  * Add new module Special.HRuler
  Ignore-this: 5fd40a008e1e2f81e8aced64d6768f2
    {
    addfile ./gtk/Graphics/UI/Gtk/Special/HRuler.chs
    hunk ./gtk/Graphics/UI/Gtk/Special/HRuler.chs 1
    +{-# LANGUAGE CPP #-}
    +-- -*-haskell-*-
    +--  GIMP Toolkit (GTK) Widget HRuler
    +--
    +--  Author : Andy Stewart
    +--
    +--  Created: 28 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)
    +--
    +-- A horizontal ruler
    +--
    +module Graphics.UI.Gtk.Special.HRuler (
    +
    +-- * Detail
    +--
    +-- | The 'HRuler' widget is a widget arranged horizontally creating a ruler that
    +-- is utilized around other widgets such as a text widget. The ruler is used to
    +-- show the location of the mouse on the window and to show the size of the
    +-- window in specified units. The available units of measurement are 'Pixels',
    +-- 'Inches' and 'Centimeters'. 'Pixels' is the default. rulers.
    +
    +-- * Class Hierarchy
    +--
    +-- |
    +-- @
    +-- |  'GObject'
    +-- |   +----'Object'
    +-- |         +----'Widget'
    +-- |               +----'Ruler'
    +-- |                     +----HRuler
    +-- @
    +
    +-- * Types
    +  HRuler,
    +  HRulerClass,
    +  castToHRuler,
    +  toHRuler,
    +
    +-- * Constructors
    +  hrulerNew,
    +  ) where
    +
    +import Control.Monad	(liftM)
    +
    +import System.Glib.FFI
    +{#import Graphics.UI.Gtk.Abstract.Object#}	(makeNewObject)
    +{#import Graphics.UI.Gtk.Types#}
    +
    +{# context lib="gtk" prefix="gtk" #}
    +
    +--------------------
    +-- Constructors
    +
    +-- | Creates a new horizontal ruler.
    +--
    +hrulerNew :: IO HRuler
    +hrulerNew =
    +  makeNewObject mkHRuler $
    +  liftM (castPtr :: Ptr Widget -> Ptr HRuler) $
    +  {# call gtk_hruler_new #}
    hunk ./gtk/gtk.cabal 293
    +          Graphics.UI.Gtk.Special.HRuler
    }