module HGamer3D.Bindings.CEGUI.ClassDragContainer 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 ()
isDraggingEnabled :: HG3DClass
-> IO (Bool)
isDraggingEnabled a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isDraggingEnabled'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
setDraggingEnabled :: HG3DClass
-> Bool
-> IO ()
setDraggingEnabled a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
setDraggingEnabled'_ a1' a2' >>= \res ->
return ()
isBeingDragged :: HG3DClass
-> IO (Bool)
isBeingDragged a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isBeingDragged'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
--operation.
getPixelDragThreshold :: HG3DClass
-> IO (Float)
getPixelDragThreshold a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getPixelDragThreshold'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
--operation.
setPixelDragThreshold :: HG3DClass
-> Float
-> IO ()
setPixelDragThreshold a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setPixelDragThreshold'_ a1' a2' >>= \res ->
return ()
getDragAlpha :: HG3DClass
-> IO (Float)
getDragAlpha a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getDragAlpha'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setDragAlpha :: HG3DClass
-> Float
-> IO ()
setDragAlpha a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setDragAlpha'_ a1' a2' >>= \res ->
return ()
setDragCursorImage3 :: HG3DClass
-> String
-> String
-> IO ()
setDragCursorImage3 a1 a2 a3 =
withHG3DClass a1 $ \a1' ->
withCString a2 $ \a2' ->
withCString a3 $ \a3' ->
setDragCursorImage3'_ a1' a2' a3' >>= \res ->
return ()
getCurrentDropTarget :: HG3DClass
-> IO (HG3DClass)
getCurrentDropTarget a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getCurrentDropTarget'_ a1' a2' >>= \res ->
peek a2'>>= \a2'' ->
return (a2'')
isStickyModeEnabled :: HG3DClass
-> IO (Bool)
isStickyModeEnabled a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isStickyModeEnabled'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
setStickyModeEnabled :: HG3DClass
-> Bool
-> IO ()
setStickyModeEnabled a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
setStickyModeEnabled'_ a1' a2' >>= \res ->
return ()
pickUp :: HG3DClass
-> Bool
-> IO (Bool)
pickUp a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
alloca $ \a3' ->
pickUp'_ a1' a2' a3' >>= \res ->
peekBoolUtil a3'>>= \a3'' ->
return (a3'')
setUsingFixedDragOffset :: HG3DClass
-> Bool
-> IO ()
setUsingFixedDragOffset a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
setUsingFixedDragOffset'_ a1' a2' >>= \res ->
return ()
isUsingFixedDragOffset :: HG3DClass
-> IO (Bool)
isUsingFixedDragOffset a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isUsingFixedDragOffset'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_construct"
new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isDraggingEnabled"
isDraggingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setDraggingEnabled"
setDraggingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isBeingDragged"
isBeingDragged'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_getPixelDragThreshold"
getPixelDragThreshold'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setPixelDragThreshold"
setPixelDragThreshold'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_getDragAlpha"
getDragAlpha'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setDragAlpha"
setDragAlpha'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setDragCursorImage3"
setDragCursorImage3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_getCurrentDropTarget"
getCurrentDropTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isStickyModeEnabled"
isStickyModeEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setStickyModeEnabled"
setStickyModeEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_pickUp"
pickUp'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setUsingFixedDragOffset"
setUsingFixedDragOffset'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isUsingFixedDragOffset"
isUsingFixedDragOffset'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))