module HGamer3D.Bindings.CEGUI.ClassScrollablePane 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 ()
getContentPane :: HG3DClass -> IO (HG3DClass)
getContentPane a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getContentPane'_ a1' a2' >>= \res ->
peek a2'>>= \a2'' ->
return (a2'')
isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
isVertScrollbarAlwaysShown a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
setShowVertScrollbar a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
setShowVertScrollbar'_ a1' a2' >>= \res ->
return ()
isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
isHorzScrollbarAlwaysShown a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
setShowHorzScrollbar a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
setShowHorzScrollbar'_ a1' a2' >>= \res ->
return ()
isContentPaneAutoSized :: HG3DClass -> IO (Bool)
isContentPaneAutoSized a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isContentPaneAutoSized'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
setContentPaneAutoSized :: HG3DClass -> Bool -> IO ()
setContentPaneAutoSized a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
setContentPaneAutoSized'_ a1' a2' >>= \res ->
return ()
getHorizontalStepSize :: HG3DClass -> IO (Float)
getHorizontalStepSize a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getHorizontalStepSize'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setHorizontalStepSize :: HG3DClass -> Float -> IO ()
setHorizontalStepSize a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setHorizontalStepSize'_ a1' a2' >>= \res ->
return ()
getHorizontalOverlapSize :: HG3DClass -> IO (Float)
getHorizontalOverlapSize a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getHorizontalOverlapSize'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setHorizontalOverlapSize :: HG3DClass -> Float -> IO ()
setHorizontalOverlapSize a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setHorizontalOverlapSize'_ a1' a2' >>= \res ->
return ()
getHorizontalScrollPosition :: HG3DClass -> IO (Float)
getHorizontalScrollPosition a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getHorizontalScrollPosition'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setHorizontalScrollPosition :: HG3DClass -> Float -> IO ()
setHorizontalScrollPosition a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setHorizontalScrollPosition'_ a1' a2' >>= \res ->
return ()
getVerticalStepSize :: HG3DClass -> IO (Float)
getVerticalStepSize a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getVerticalStepSize'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setVerticalStepSize :: HG3DClass -> Float -> IO ()
setVerticalStepSize a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setVerticalStepSize'_ a1' a2' >>= \res ->
return ()
getVerticalOverlapSize :: HG3DClass -> IO (Float)
getVerticalOverlapSize a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getVerticalOverlapSize'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setVerticalOverlapSize :: HG3DClass -> Float -> IO ()
setVerticalOverlapSize a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setVerticalOverlapSize'_ a1' a2' >>= \res ->
return ()
getVerticalScrollPosition :: HG3DClass -> IO (Float)
getVerticalScrollPosition a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getVerticalScrollPosition'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setVerticalScrollPosition :: HG3DClass -> Float -> IO ()
setVerticalScrollPosition a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setVerticalScrollPosition'_ a1' a2' >>= \res ->
return ()
getVertScrollbar :: HG3DClass -> IO (HG3DClass)
getVertScrollbar a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getVertScrollbar'_ a1' a2' >>= \res ->
peek a2'>>= \a2'' ->
return (a2'')
getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
getHorzScrollbar a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getHorzScrollbar'_ a1' a2' >>= \res ->
peek a2'>>= \a2'' ->
return (a2'')
initialiseComponents :: HG3DClass -> IO ()
initialiseComponents a1 =
withHG3DClass a1 $ \a1' ->
initialiseComponents'_ a1' >>= \res ->
return ()
destroy :: HG3DClass -> IO ()
destroy a1 =
withHG3DClass a1 $ \a1' ->
destroy'_ a1' >>= \res ->
return ()
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_construct"
new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getContentPane"
getContentPane'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_isVertScrollbarAlwaysShown"
isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setShowVertScrollbar"
setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_isHorzScrollbarAlwaysShown"
isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setShowHorzScrollbar"
setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_isContentPaneAutoSized"
isContentPaneAutoSized'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setContentPaneAutoSized"
setContentPaneAutoSized'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorizontalStepSize"
getHorizontalStepSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setHorizontalStepSize"
setHorizontalStepSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorizontalOverlapSize"
getHorizontalOverlapSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setHorizontalOverlapSize"
setHorizontalOverlapSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorizontalScrollPosition"
getHorizontalScrollPosition'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setHorizontalScrollPosition"
setHorizontalScrollPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVerticalStepSize"
getVerticalStepSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setVerticalStepSize"
setVerticalStepSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVerticalOverlapSize"
getVerticalOverlapSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setVerticalOverlapSize"
setVerticalOverlapSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVerticalScrollPosition"
getVerticalScrollPosition'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setVerticalScrollPosition"
setVerticalScrollPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVertScrollbar"
getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorzScrollbar"
getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_initialiseComponents"
initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_destroy"
destroy'_ :: ((HG3DClassPtr) -> (IO ()))