{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Core.TStyle.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.TStyle.RawType import HROOT.Core.TStyle.FFI import HROOT.Core.TStyle.Interface import HROOT.Core.TStyle.Cast import HROOT.Core.TStyle.RawType import HROOT.Core.TStyle.Cast import HROOT.Core.TStyle.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Core.TNamed.RawType import HROOT.Core.TNamed.Cast import HROOT.Core.TNamed.Interface import HROOT.Core.TAttLine.RawType import HROOT.Core.TAttLine.Cast import HROOT.Core.TAttLine.Interface import HROOT.Core.TAttFill.RawType import HROOT.Core.TAttFill.Cast import HROOT.Core.TAttFill.Interface import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface import HROOT.Core.TAttText.RawType import HROOT.Core.TAttText.Cast import HROOT.Core.TAttText.Interface import HROOT.Core.TObject.RawType import HROOT.Core.TObject.Cast import HROOT.Core.TObject.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface instance () => ITStyle (TStyle) where instance () => ITNamed (TStyle) where setName :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () setName = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_setname setNameTitle :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TStyle -> c0 -> c1 -> IO () setNameTitle = (Ptr RawTStyle -> CString -> CString -> IO ()) -> TStyle -> c0 -> c1 -> IO () forall a ca x1 cx1 x2 cx2 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable y cy) => (ca -> cx1 -> cx2 -> IO cy) -> a -> x1 -> x2 -> IO y xform2 Ptr RawTStyle -> CString -> CString -> IO () c_tstyle_setnametitle setTitle :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () setTitle = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_settitle instance () => ITAttLine (TStyle) where getLineColor :: TStyle -> IO CShort getLineColor = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_getlinecolor getLineStyle :: TStyle -> IO CShort getLineStyle = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_getlinestyle getLineWidth :: TStyle -> IO CShort getLineWidth = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_getlinewidth resetAttLine :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () resetAttLine = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_resetattline setLineAttributes :: TStyle -> IO () setLineAttributes = (Ptr RawTStyle -> IO ()) -> TStyle -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO () c_tstyle_setlineattributes setLineColor :: TStyle -> CShort -> IO () setLineColor = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_setlinecolor setLineStyle :: TStyle -> CShort -> IO () setLineStyle = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_setlinestyle setLineWidth :: TStyle -> CShort -> IO () setLineWidth = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_setlinewidth instance () => ITAttFill (TStyle) where setFillColor :: TStyle -> CInt -> IO () setFillColor = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_setfillcolor setFillStyle :: TStyle -> CInt -> IO () setFillStyle = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_setfillstyle instance () => ITAttMarker (TStyle) where getMarkerColor :: TStyle -> IO CShort getMarkerColor = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_getmarkercolor getMarkerStyle :: TStyle -> IO CShort getMarkerStyle = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_getmarkerstyle getMarkerSize :: TStyle -> IO CFloat getMarkerSize = (Ptr RawTStyle -> IO CFloat) -> TStyle -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CFloat c_tstyle_getmarkersize resetAttMarker :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () resetAttMarker = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_resetattmarker setMarkerAttributes :: TStyle -> IO () setMarkerAttributes = (Ptr RawTStyle -> IO ()) -> TStyle -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO () c_tstyle_setmarkerattributes setMarkerColor :: TStyle -> CShort -> IO () setMarkerColor = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_setmarkercolor setMarkerStyle :: TStyle -> CShort -> IO () setMarkerStyle = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_setmarkerstyle setMarkerSize :: TStyle -> CShort -> IO () setMarkerSize = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_setmarkersize instance () => ITAttText (TStyle) where getTextAlign :: TStyle -> IO CShort getTextAlign = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_gettextalign getTextAngle :: TStyle -> IO CFloat getTextAngle = (Ptr RawTStyle -> IO CFloat) -> TStyle -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CFloat c_tstyle_gettextangle getTextColor :: TStyle -> IO CShort getTextColor = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_gettextcolor getTextFont :: TStyle -> IO CShort getTextFont = (Ptr RawTStyle -> IO CShort) -> TStyle -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CShort c_tstyle_gettextfont getTextSize :: TStyle -> IO CFloat getTextSize = (Ptr RawTStyle -> IO CFloat) -> TStyle -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CFloat c_tstyle_gettextsize resetAttText :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () resetAttText = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_resetatttext setTextAttributes :: TStyle -> IO () setTextAttributes = (Ptr RawTStyle -> IO ()) -> TStyle -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO () c_tstyle_settextattributes setTextAlign :: TStyle -> CShort -> IO () setTextAlign = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_settextalign setTextAngle :: TStyle -> CFloat -> IO () setTextAngle = (Ptr RawTStyle -> CFloat -> IO ()) -> TStyle -> CFloat -> 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 RawTStyle -> CFloat -> IO () c_tstyle_settextangle setTextColor :: TStyle -> CInt -> IO () setTextColor = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_settextcolor setTextFont :: TStyle -> CShort -> IO () setTextFont = (Ptr RawTStyle -> CShort -> IO ()) -> TStyle -> CShort -> 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 RawTStyle -> CShort -> IO () c_tstyle_settextfont setTextSize :: TStyle -> CFloat -> IO () setTextSize = (Ptr RawTStyle -> CFloat -> IO ()) -> TStyle -> CFloat -> 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 RawTStyle -> CFloat -> IO () c_tstyle_settextsize setTextSizePixels :: TStyle -> CInt -> IO () setTextSizePixels = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_settextsizepixels instance () => ITObject (TStyle) where clear :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () clear = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_clear draw :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () draw = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_draw findObject :: forall c0. Castable c0 CString => TStyle -> c0 -> IO TObject findObject = (Ptr RawTStyle -> CString -> IO (Ptr RawTObject)) -> TStyle -> c0 -> IO TObject 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 RawTStyle -> CString -> IO (Ptr RawTObject) c_tstyle_findobject getName :: TStyle -> IO CString getName = (Ptr RawTStyle -> IO CString) -> TStyle -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CString c_tstyle_getname isA :: TStyle -> IO TClass isA = (Ptr RawTStyle -> IO (Ptr RawTClass)) -> TStyle -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO (Ptr RawTClass) c_tstyle_isa paint :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () paint = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_paint printObj :: forall c0. Castable c0 CString => TStyle -> c0 -> IO () printObj = (Ptr RawTStyle -> CString -> IO ()) -> TStyle -> c0 -> 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 RawTStyle -> CString -> IO () c_tstyle_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TStyle -> c0 -> c1 -> IO () saveAs = (Ptr RawTStyle -> CString -> CString -> IO ()) -> TStyle -> c0 -> c1 -> IO () forall a ca x1 cx1 x2 cx2 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable y cy) => (ca -> cx1 -> cx2 -> IO cy) -> a -> x1 -> x2 -> IO y xform2 Ptr RawTStyle -> CString -> CString -> IO () c_tstyle_saveas write :: forall c0. Castable c0 CString => TStyle -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTStyle -> CString -> CInt -> CInt -> IO CInt) -> TStyle -> c0 -> CInt -> CInt -> IO CInt forall a ca x1 cx1 x2 cx2 x3 cx3 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable x3 cx3, Castable y cy) => (ca -> cx1 -> cx2 -> cx3 -> IO cy) -> a -> x1 -> x2 -> x3 -> IO y xform3 Ptr RawTStyle -> CString -> CInt -> CInt -> IO CInt c_tstyle_write write_ :: TStyle -> IO CInt write_ = (Ptr RawTStyle -> IO CInt) -> TStyle -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO CInt c_tstyle_write_ instance () => IDeletable (TStyle) where delete :: TStyle -> IO () delete = (Ptr RawTStyle -> IO ()) -> TStyle -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTStyle -> IO () c_tstyle_delete tStyle_SetCanvasPreferGL :: () => TStyle -> CBool -> IO () tStyle_SetCanvasPreferGL :: TStyle -> CBool -> IO () tStyle_SetCanvasPreferGL = (Ptr RawTStyle -> CBool -> IO ()) -> TStyle -> CBool -> 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 RawTStyle -> CBool -> IO () c_tstyle_tstyle_setcanvasprefergl tStyle_SetOptDate :: () => TStyle -> CInt -> IO () tStyle_SetOptDate :: TStyle -> CInt -> IO () tStyle_SetOptDate = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptdate tStyle_SetOptFile :: () => TStyle -> CInt -> IO () tStyle_SetOptFile :: TStyle -> CInt -> IO () tStyle_SetOptFile = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptfile tStyle_SetOptFit :: () => TStyle -> CInt -> IO () tStyle_SetOptFit :: TStyle -> CInt -> IO () tStyle_SetOptFit = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptfit tStyle_SetOptLogx :: () => TStyle -> CInt -> IO () tStyle_SetOptLogx :: TStyle -> CInt -> IO () tStyle_SetOptLogx = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptlogx tStyle_SetOptLogy :: () => TStyle -> CInt -> IO () tStyle_SetOptLogy :: TStyle -> CInt -> IO () tStyle_SetOptLogy = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptlogy tStyle_SetOptLogz :: () => TStyle -> CInt -> IO () tStyle_SetOptLogz :: TStyle -> CInt -> IO () tStyle_SetOptLogz = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptlogz tStyle_SetOptStat :: () => TStyle -> CInt -> IO () tStyle_SetOptStat :: TStyle -> CInt -> IO () tStyle_SetOptStat = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setoptstat tStyle_SetOptTitle :: () => TStyle -> CInt -> IO () tStyle_SetOptTitle :: TStyle -> CInt -> IO () tStyle_SetOptTitle = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setopttitle tStyle_SetPalette :: () => TStyle -> CInt -> IO () tStyle_SetPalette :: TStyle -> CInt -> IO () tStyle_SetPalette = (Ptr RawTStyle -> CInt -> IO ()) -> TStyle -> 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 RawTStyle -> CInt -> IO () c_tstyle_tstyle_setpalette