module Diagrams.Backend.HsQML.GradientObj where
import Data.Typeable
import Graphics.QML
import Graphics.QML.Objects.ParamNames
data AddColourStopSignal deriving Typeable
addColourStopSignal :: Proxy AddColourStopSignal
addColourStopSignal = Proxy
instance SignalKeyClass AddColourStopSignal where
type SignalParams AddColourStopSignal =
Double -> Double -> Double -> Double -> Double -> IO ()
data GradientObj = GradientObj deriving Typeable
instance DefaultClass GradientObj where
classMembers =
[ defSignalNamedParams "addStop" addColourStopSignal
$ fstName "r" `plusName` "g" `plusName` "b" `plusName` "a" `plusName` "offset"
]
addColourStop
:: ObjRef GradientObj
-> Double
-> Double
-> Double
-> Double
-> Double
-> IO ()
addColourStop this r g b a off = fireSignal addColourStopSignal this r g b a off
newGradient :: IO (ObjRef GradientObj)
newGradient = newObjectDC GradientObj