Update of /cvsroot/gtk2hs/gtk2hs/gtk/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv11764/gtk/misc
Added Files:
GArrow.chs
Removed Files:
Arrow.chs
Log Message:
Rename Arrow.chs to GArrow.chs. Remove HookGenerator.hs.in. Swap dependency between install-pkg and install.
--- NEW FILE: GArrow.chs ---
-- -*-haskell-*-
-- GIMP Toolkit (GTK) @entry Widget GArrow@
--
-- Author : Axel Simon
--
-- Created: 23 May 2001
--
-- Version $Revision: 1.1 $ from $Date: 2003/07/13 11:34:52 $
--
-- Copyright (c) 1999..2002 Axel Simon
--
-- This file is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This file 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 General Public License for more details.
--
-- @description@ --------------------------------------------------------------
--
-- * An Arrow pointing to one of the four cardinal direction.
--
-- @documentation@ ------------------------------------------------------------
--
--
-- @todo@ ---------------------------------------------------------------------
module GArrow(
Arrow,
ArrowClass,
castToArrow,
ArrowType(..),
ShadowType(..),
arrowNew,
arrowSet
) where
import Monad (liftM)
import FFI
import Object (makeNewObject)
{#import Hierarchy#}
{#import Signal#}
import Enums (ArrowType(..), ShadowType(..))
{# context lib="gtk" prefix="gtk" #}
-- methods
-- @constructor arrowNew@ Create a new arrow with display options.
--
arrowNew :: ArrowType -> ShadowType -> IO Arrow
arrowNew at st = makeNewObject mkArrow $ liftM castPtr $
{#call unsafe arrow_new#} ((fromIntegral.fromEnum) at)
((fromIntegral.fromEnum) st)
-- @method arrowSet@ Change the visual appearance of this widget.
--
arrowSet :: ArrowClass a => a -> ArrowType -> ShadowType -> IO ()
arrowSet a at st = {#call arrow_set#} (toArrow a) ((fromIntegral.fromEnum) at)
((fromIntegral.fromEnum) st)
--- Arrow.chs DELETED ---
|
