module HGamer3D.Bindings.CEGUI.ClassTooltip where
import Foreign
import Foreign.Ptr
import Foreign.C
import HGamer3D.Data.HG3DClass
import HGamer3D.Data.Vector
import HGamer3D.Data.Colour
import HGamer3D.Data.Angle
import HGamer3D.Bindings.CEGUI.Utils
import HGamer3D.Bindings.CEGUI.ClassPtr
import HGamer3D.Bindings.CEGUI.StructHG3DClass
new :: String -> String -> IO (HG3DClass)
new a1 a2 =
withCString a1 $ \a1' ->
withCString a2 $ \a2' ->
alloca $ \a3' ->
new'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
delete :: HG3DClass -> IO ()
delete a1 =
withHG3DClass a1 $ \a1' ->
delete'_ a1' >>= \res ->
return ()
setTargetWindow :: HG3DClass -> HG3DClass -> IO ()
setTargetWindow a1 a2 =
withHG3DClass a1 $ \a1' ->
withHG3DClass a2 $ \a2' ->
setTargetWindow'_ a1' a2' >>= \res ->
return ()
getTargetWindow :: HG3DClass -> IO (HG3DClass)
getTargetWindow a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getTargetWindow'_ a1' a2' >>= \res ->
peek a2'>>= \a2'' ->
return (a2'')
resetTimer :: HG3DClass -> IO ()
resetTimer a1 =
withHG3DClass a1 $ \a1' ->
resetTimer'_ a1' >>= \res ->
return ()
getHoverTime :: HG3DClass -> IO (Float)
getHoverTime a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getHoverTime'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setDisplayTime :: HG3DClass -> Float -> IO ()
setDisplayTime a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setDisplayTime'_ a1' a2' >>= \res ->
return ()
getFadeTime :: HG3DClass -> IO (Float)
getFadeTime a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getFadeTime'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setHoverTime :: HG3DClass -> Float -> IO ()
setHoverTime a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setHoverTime'_ a1' a2' >>= \res ->
return ()
getDisplayTime :: HG3DClass -> IO (Float)
getDisplayTime a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getDisplayTime'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setFadeTime :: HG3DClass -> Float -> IO ()
setFadeTime a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setFadeTime'_ a1' a2' >>= \res ->
return ()
positionSelf :: HG3DClass -> IO ()
positionSelf a1 =
withHG3DClass a1 $ \a1' ->
positionSelf'_ a1' >>= \res ->
return ()
sizeSelf :: HG3DClass -> IO ()
sizeSelf a1 =
withHG3DClass a1 $ \a1' ->
sizeSelf'_ a1' >>= \res ->
return ()
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_construct"
new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setTargetWindow"
setTargetWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getTargetWindow"
getTargetWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_resetTimer"
resetTimer'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getHoverTime"
getHoverTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setDisplayTime"
setDisplayTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getFadeTime"
getFadeTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setHoverTime"
setHoverTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getDisplayTime"
getDisplayTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setFadeTime"
setFadeTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_positionSelf"
positionSelf'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_sizeSelf"
sizeSelf'_ :: ((HG3DClassPtr) -> (IO ()))