{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Core.TAttFill.Implementation where import Data.Monoid import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import Language.Haskell.TH import Language.Haskell.TH.Syntax import System.IO.Unsafe import FFICXX.Runtime.Cast import FFICXX.Runtime.CodeGen.Cxx import FFICXX.Runtime.TH import HROOT.Core.TAttFill.RawType import HROOT.Core.TAttFill.FFI import HROOT.Core.TAttFill.Interface import HROOT.Core.TAttFill.Cast import HROOT.Core.TAttFill.RawType import HROOT.Core.TAttFill.Cast import HROOT.Core.TAttFill.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface instance () => ITAttFill (TAttFill) where setFillColor :: TAttFill -> CInt -> IO () setFillColor = (Ptr RawTAttFill -> CInt -> IO ()) -> TAttFill -> CInt -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTAttFill -> CInt -> IO () c_tattfill_setfillcolor setFillStyle :: TAttFill -> CInt -> IO () setFillStyle = (Ptr RawTAttFill -> CInt -> IO ()) -> TAttFill -> CInt -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTAttFill -> CInt -> IO () c_tattfill_setfillstyle instance () => IDeletable (TAttFill) where delete :: TAttFill -> IO () delete = (Ptr RawTAttFill -> IO ()) -> TAttFill -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAttFill -> IO () c_tattfill_delete newTAttFill :: () => CShort -> CShort -> IO TAttFill newTAttFill :: CShort -> CShort -> IO TAttFill newTAttFill = (CShort -> CShort -> IO (Ptr RawTAttFill)) -> CShort -> CShort -> IO TAttFill forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 CShort -> CShort -> IO (Ptr RawTAttFill) c_tattfill_newtattfill