-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE TypeSynonymInstances #-} -- This source file is part of HGamer3D -- (A project to enable 3D game development in Haskell) -- For the latest info, see http://www.althainz.de/HGamer3D.html -- -- (c) 2011, 2012 Peter Althainz -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at -- -- http://www.apache.org/licenses/LICENSE-2.0 -- -- Unless required by applicable law or agreed to in writing, software -- distributed under the License is distributed on an "AS IS" BASIS, -- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -- See the License for the specific language governing permissions and -- limitations under the License. -- -- ClassMenuItem.chs -- module HGamer3D.Bindings.CEGUI.ClassMenuItem 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 {-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} import HGamer3D.Bindings.CEGUI.ClassPtr {-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | return true if user is hovering over this widget (or it's pushed and user is not over it for highlight) isHovering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Bool) -- ^ return value - true if the user is hovering or if the button is pushed and the mouse is not over the button. Otherwise return false. isHovering a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isHovering'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Return true if the button widget is in the pushed state. isPushed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Bool) -- ^ return value - true if the button-type widget is pushed, false if the widget is not pushed. isPushed a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isPushed'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Returns true if the popup menu attached to the menu item is open. isOpened :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Bool) -- ^ isOpened a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isOpened'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Returns true if the menu item popup is closing or not. isPopupClosing :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Bool) -- ^ isPopupClosing a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> isPopupClosing'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Returns true if the menu item popup is closed or opened automatically if hovering with the mouse. hasAutoPopup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Bool) -- ^ hasAutoPopup a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> hasAutoPopup'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Returns the time, which has to elapse before the popup window is opened/closed if the hovering state changes. getAutoPopupTimeout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Float) -- ^ getAutoPopupTimeout a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> getAutoPopupTimeout'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Sets the time, which has to elapse before the popup window is opened/closed if the hovering state changes. setAutoPopupTimeout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> Float -- ^ time -> IO () -- ^ setAutoPopupTimeout a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in setAutoPopupTimeout'_ a1' a2' >>= \res -> return () {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Opens the PopupMenu. openPopupMenu :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> Bool -- ^ notify - true if the parent menu bar or menu popup (if any) is to handle the open. -> IO () -- ^ openPopupMenu a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in openPopupMenu'_ a1' a2' >>= \res -> return () {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Closes the PopupMenu. closePopupMenu :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> Bool -- ^ notify - true if the parent menubar (if any) is to handle the close. -> IO () -- ^ return value - Nothing. closePopupMenu a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in closePopupMenu'_ a1' a2' >>= \res -> return () {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Toggles the PopupMenu. togglePopupMenu :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO (Bool) -- ^ return value - true if the popup was opened. false if it was closed. togglePopupMenu a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> togglePopupMenu'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | starts the closing timer for the popup, which will close it if the timer is enabled. startPopupClosing :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO () -- ^ startPopupClosing a1 = withHG3DClass a1 $ \a1' -> startPopupClosing'_ a1' >>= \res -> return () {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | starts the opening timer for the popup, which will open it if the timer is enabled. startPopupOpening :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. -> IO () -- ^ startPopupOpening a1 = withHG3DClass a1 $ \a1' -> startPopupOpening'_ a1' >>= \res -> return () {-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Constructor for MenuItem new :: String -- ^ type -> String -- ^ name -> IO (HG3DClass) -- ^ new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> alloca $ \a3' -> new'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') {-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} -- | Destructor for MenuItem delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. -> IO () -- ^ delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isHovering" isHovering'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isPushed" isPushed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isOpened" isOpened'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isPopupClosing" isPopupClosing'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_hasAutoPopup" hasAutoPopup'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_getAutoPopupTimeout" getAutoPopupTimeout'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_setAutoPopupTimeout" setAutoPopupTimeout'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_openPopupMenu" openPopupMenu'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_closePopupMenu" closePopupMenu'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_togglePopupMenu" togglePopupMenu'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_startPopupClosing" startPopupClosing'_ :: ((HG3DClassPtr) -> (IO ())) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_startPopupOpening" startPopupOpening'_ :: ((HG3DClassPtr) -> (IO ())) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_construct" new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_destruct" delete'_ :: ((HG3DClassPtr) -> (IO ()))