{-# LINE 2 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}-- -*-haskell-*--- GIMP Toolkit (GTK) Widget Arrow---- Author : Axel Simon---- Created: 23 May 2001---- Copyright (C) 1999-2005 Axel Simon---- 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 : gtk2hs-users@lists.sourceforge.net-- Stability : provisional-- Portability : portable (depends on GHC)---- Displays an arrow--moduleGraphics.UI.Gtk.Misc.Arrow(-- * Detail---- | 'Arrow' should be used to draw simple arrows that need to point in one of-- the four cardinal directions (up, down, left, or right). The style of the-- arrow can be one of shadow in, shadow out, etched in, or etched out. Note-- that these directions and style types may be ammended in versions of Gtk to-- come.---- 'Arrow' will fill any space alloted to it, but since it is inherited from-- 'Misc', it can be padded and\/or aligned, to fill exactly the space the-- programmer desires.---- Arrows are created with a call to 'arrowNew'. The direction or style of-- an arrow can be changed after creation by using 'arrowSet'.-- * Class Hierarchy-- |-- @-- | 'GObject'-- | +----'Object'-- | +----'Widget'-- | +----'Misc'-- | +----Arrow-- @-- * TypesArrow,ArrowClass,castToArrow,gTypeArrow,toArrow,ArrowType(..),ShadowType(..),-- * ConstructorsarrowNew,-- * MethodsarrowSet,-- * AttributesarrowArrowType,arrowShadowType,)whereimportControl.Monad(liftM)importSystem.Glib.FFIimportSystem.Glib.AttributesimportSystem.Glib.PropertiesimportGraphics.UI.Gtk.Abstract.Object(makeNewObject)importGraphics.UI.Gtk.Types{-# LINE 80 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}importGraphics.UI.Gtk.General.Enums(ArrowType(..),ShadowType(..)){-# LINE 83 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}---------------------- Constructors-- | Creates a new arrow widget.--arrowNew::ArrowType->ShadowType->IOArrowarrowNewarrowTypeshadowType=makeNewObjectmkArrow$liftM(castPtr::PtrWidget->PtrArrow)$gtk_arrow_new{-# LINE 94 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}((fromIntegral.fromEnum)arrowType)((fromIntegral.fromEnum)shadowType)---------------------- Methods-- | Sets the direction and style of the 'Arrow'.--arrowSet::ArrowClassself=>self->ArrowType->ShadowType->IO()arrowSetselfarrowTypeshadowType=(\(Arrowarg1)arg2arg3->withForeignPtrarg1$\argPtr1->gtk_arrow_setargPtr1arg2arg3){-# LINE 105 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}(toArrowself)((fromIntegral.fromEnum)arrowType)((fromIntegral.fromEnum)shadowType)---------------------- Attributes-- | The direction the arrow should point.---- Default value: 'ArrowRight'--arrowArrowType::ArrowClassself=>AttrselfArrowTypearrowArrowType=newAttrFromEnumProperty"arrow-type"gtk_arrow_type_get_type{-# LINE 119 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}-- | Appearance of the shadow surrounding the arrow.---- Default value: 'ShadowOut'--arrowShadowType::ArrowClassself=>AttrselfShadowTypearrowShadowType=newAttrFromEnumProperty"shadow-type"gtk_shadow_type_get_type{-# LINE 127 "./Graphics/UI/Gtk/Misc/Arrow.chs" #-}foreignimportccallunsafe"gtk_arrow_new"gtk_arrow_new::(CInt->(CInt->(IO(PtrWidget))))foreignimportccallsafe"gtk_arrow_set"gtk_arrow_set::((PtrArrow)->(CInt->(CInt->(IO()))))foreignimportccallunsafe"gtk_arrow_type_get_type"gtk_arrow_type_get_type::CUIntforeignimportccallunsafe"gtk_shadow_type_get_type"gtk_shadow_type_get_type::CUInt