{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances,
  ForeignFunctionInterface, IncoherentInstances,
  MultiParamTypeClasses, OverlappingInstances, TypeFamilies,
  TypeSynonymInstances #-}
module HROOT.Core.TAttPad.Implementation where
import FFICXX.Runtime.Cast
import Data.Word
import Foreign.C
import Foreign.Ptr
import System.IO.Unsafe
import HROOT.Core.TAttPad.RawType
import HROOT.Core.TAttPad.FFI
import HROOT.Core.TAttPad.Interface
import HROOT.Core.TAttPad.Cast
import HROOT.Core.Deletable.RawType
import HROOT.Core.Deletable.Cast
import HROOT.Core.Deletable.Interface

instance ITAttPad TAttPad where
        resetAttPad = xform1 c_tattpad_resetattpad
        setBottomMargin = xform1 c_tattpad_setbottommargin
        setLeftMargin = xform1 c_tattpad_setleftmargin
        setRightMargin = xform1 c_tattpad_setrightmargin
        setTopMargin = xform1 c_tattpad_settopmargin
        setMargin = xform4 c_tattpad_setmargin
        setAfile = xform1 c_tattpad_setafile
        setXfile = xform1 c_tattpad_setxfile
        setYfile = xform1 c_tattpad_setyfile
        setAstat = xform1 c_tattpad_setastat
        setXstat = xform1 c_tattpad_setxstat
        setYstat = xform1 c_tattpad_setystat

instance IDeletable TAttPad where
        delete = xform0 c_tattpad_delete

newTAttPad :: IO TAttPad
newTAttPad = xformnull c_tattpad_newtattpad

tAttPadGetBottomMargin :: TAttPad -> IO CDouble
tAttPadGetBottomMargin = xform0 c_tattpad_tattpadgetbottommargin

tAttPadGetLeftMargin :: TAttPad -> IO CDouble
tAttPadGetLeftMargin = xform0 c_tattpad_tattpadgetleftmargin

tAttPadGetRightMargin :: TAttPad -> IO CDouble
tAttPadGetRightMargin = xform0 c_tattpad_tattpadgetrightmargin

tAttPadGetTopMargin :: TAttPad -> IO CDouble
tAttPadGetTopMargin = xform0 c_tattpad_tattpadgettopmargin

tAttPadGetAfile :: TAttPad -> IO CDouble
tAttPadGetAfile = xform0 c_tattpad_tattpadgetafile

tAttPadGetXfile :: TAttPad -> IO CDouble
tAttPadGetXfile = xform0 c_tattpad_tattpadgetxfile

tAttPadGetYfile :: TAttPad -> IO CDouble
tAttPadGetYfile = xform0 c_tattpad_tattpadgetyfile

tAttPadGetAstat :: TAttPad -> IO CDouble
tAttPadGetAstat = xform0 c_tattpad_tattpadgetastat

tAttPadGetXstat :: TAttPad -> IO CDouble
tAttPadGetXstat = xform0 c_tattpad_tattpadgetxstat

tAttPadGetYstat :: TAttPad -> IO CDouble
tAttPadGetYstat = xform0 c_tattpad_tattpadgetystat

tAttPadGetFrameFillColor :: TAttPad -> IO CInt
tAttPadGetFrameFillColor
  = xform0 c_tattpad_tattpadgetframefillcolor

tAttPadGetFrameLineColor :: TAttPad -> IO CInt
tAttPadGetFrameLineColor
  = xform0 c_tattpad_tattpadgetframelinecolor

tAttPadGetFrameFillStyle :: TAttPad -> IO CInt
tAttPadGetFrameFillStyle
  = xform0 c_tattpad_tattpadgetframefillstyle

tAttPadGetFrameLineStyle :: TAttPad -> IO CInt
tAttPadGetFrameLineStyle
  = xform0 c_tattpad_tattpadgetframelinestyle

tAttPadGetFrameLineWidth :: TAttPad -> IO CInt
tAttPadGetFrameLineWidth
  = xform0 c_tattpad_tattpadgetframelinewidth

tAttPadGetFrameBorderSize :: TAttPad -> IO CInt
tAttPadGetFrameBorderSize
  = xform0 c_tattpad_tattpadgetframebordersize

tAttPadGetFrameBorderMode :: TAttPad -> IO CInt
tAttPadGetFrameBorderMode
  = xform0 c_tattpad_tattpadgetframebordermode

tAttPadSetFrameFillColor :: TAttPad -> CInt -> IO ()
tAttPadSetFrameFillColor
  = xform1 c_tattpad_tattpadsetframefillcolor

tAttPadSetFrameLineColor :: TAttPad -> CInt -> IO ()
tAttPadSetFrameLineColor
  = xform1 c_tattpad_tattpadsetframelinecolor

tAttPadSetFrameFillStyle :: TAttPad -> CInt -> IO ()
tAttPadSetFrameFillStyle
  = xform1 c_tattpad_tattpadsetframefillstyle

tAttPadSetFrameLineStyle :: TAttPad -> CInt -> IO ()
tAttPadSetFrameLineStyle
  = xform1 c_tattpad_tattpadsetframelinestyle

tAttPadSetFrameLineWidth :: TAttPad -> CInt -> IO ()
tAttPadSetFrameLineWidth
  = xform1 c_tattpad_tattpadsetframelinewidth

tAttPadSetFrameBorderSize :: TAttPad -> CInt -> IO ()
tAttPadSetFrameBorderSize
  = xform1 c_tattpad_tattpadsetframebordersize

tAttPadSetFrameBorderMode :: TAttPad -> CInt -> IO ()
tAttPadSetFrameBorderMode
  = xform1 c_tattpad_tattpadsetframebordermode