diff --git a/HGamer3D-CEGUI-Binding.cabal b/HGamer3D-CEGUI-Binding.cabal --- a/HGamer3D-CEGUI-Binding.cabal +++ b/HGamer3D-CEGUI-Binding.cabal @@ -1,5 +1,5 @@ Name: HGamer3D-CEGUI-Binding -Version: 0.1.9 +Version: 0.2.0 Synopsis: Windows Game Engine for the Haskell Programmer - CEGUI Bindings Description: HGamer3D is a game engine for developing 3D games in the programming @@ -15,13 +15,13 @@ Author: Peter Althainz Maintainer: althainz@gmail.com Build-Type: Simple -Cabal-Version: >=1.2 +Cabal-Version: >=1.4 Homepage: http://www.hgamer3d.org -Category: Game +Category: Game Engine, GUI Extra-source-files: Setup.hs, include/CEGUIDllDefines.h, include/ClassCheckbox.h, include/ClassCombobox.h, include/ClassComboDropList.h, include/ClassDefaultLogger.h, include/ClassDefaultResourceProvider.h, include/ClassDragContainer.h, include/ClassEditbox.h, include/ClassEventArgs.h, include/ClassEventSet.h, include/ClassFont.h, include/ClassFontManager.h, include/ClassFrameWindow.h, include/ClassHG3DEventController.h, include/ClassHG3DEventStaticFunctions.h, include/ClassHG3DListboxStaticFunctions.h, include/ClassHG3DWindowStaticFunctions.h, include/ClassImageCodec.h, include/ClassImageset.h, include/ClassItemEntry.h, include/ClassItemListbox.h, include/ClassListbox.h, include/ClassListboxItem.h, include/ClassListboxTextItem.h, include/ClassListHeader.h, include/ClassListHeaderSegment.h, include/ClassLogger.h, include/ClassMenuBase.h, include/ClassMenuItem.h, include/ClassMultiColumnList.h, include/ClassMultiLineEditbox.h, include/ClassOgreRenderer.h, include/ClassOgreResourceProvider.h, include/ClassProgressBar.h, include/ClassPropertySet.h, include/ClassPtr.h, include/ClassPushButton.h, include/ClassRadioButton.h, include/ClassRenderer.h, include/ClassResourceProvider.h, include/ClassScheme.h, include/ClassSchemeManager.h, include/ClassScriptFunctor.h, include/ClassScriptModule.h, include/ClassScrollablePane.h, include/ClassScrollbar.h, include/ClassScrolledContainer.h, include/ClassScrolledItemListBase.h, include/ClassSlider.h, include/ClassSpinner.h, include/ClassSystem.h, include/ClassSystemHG3D.h, include/ClassTabButton.h, include/ClassThumb.h, include/ClassTooltip.h, include/ClassTree.h, include/ClassWidgetLookManager.h, include/ClassWindow.h, include/ClassWindowManager.h, include/ClassWindowManagerHG3D.h, include/ClassXMLParser.h, include/EnumBlendMode.h, include/EnumFWSizingLocation.h, include/EnumHorizontalAlignment.h, include/EnumKeyScan.h, include/EnumLoggingLevel.h, include/EnumMouseButton.h, include/EnumQuadSplitMode.h, include/EnumSelectionMode.h, include/EnumSortDirection.h, include/EnumSystemKey.h, include/EnumTabPanePosition.h, include/EnumTextInputMode.h, include/EnumTipState.h, include/EnumVerticalAlignment.h, include/EnumWindowUpdateMode.h, include/StructHG3DClass.h Library - Build-Depends: base >= 3 && < 5, HGamer3D-Data >= 0.1.9 + Build-Depends: base >= 3 && < 5, HGamer3D-Data >= 0.2.0 Exposed-modules: HGamer3D.Bindings.CEGUI.Utils, HGamer3D.Bindings.CEGUI.ClassPtr, HGamer3D.Bindings.CEGUI.StructHG3DClass, HGamer3D.Bindings.CEGUI.EnumBlendMode, HGamer3D.Bindings.CEGUI.EnumFWSizingLocation, HGamer3D.Bindings.CEGUI.EnumHorizontalAlignment, HGamer3D.Bindings.CEGUI.EnumKeyScan, HGamer3D.Bindings.CEGUI.EnumLoggingLevel, HGamer3D.Bindings.CEGUI.EnumMouseButton, HGamer3D.Bindings.CEGUI.EnumQuadSplitMode, HGamer3D.Bindings.CEGUI.EnumSelectionMode, HGamer3D.Bindings.CEGUI.EnumSortDirection, HGamer3D.Bindings.CEGUI.EnumSystemKey, HGamer3D.Bindings.CEGUI.EnumTabPanePosition, HGamer3D.Bindings.CEGUI.EnumTextInputMode, HGamer3D.Bindings.CEGUI.EnumTipState, HGamer3D.Bindings.CEGUI.EnumVerticalAlignment, HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode, HGamer3D.Bindings.CEGUI.ClassCheckbox, HGamer3D.Bindings.CEGUI.ClassCombobox, HGamer3D.Bindings.CEGUI.ClassComboDropList, HGamer3D.Bindings.CEGUI.ClassDefaultLogger, HGamer3D.Bindings.CEGUI.ClassDefaultResourceProvider, HGamer3D.Bindings.CEGUI.ClassDragContainer, HGamer3D.Bindings.CEGUI.ClassEditbox, HGamer3D.Bindings.CEGUI.ClassEventArgs, HGamer3D.Bindings.CEGUI.ClassEventSet, HGamer3D.Bindings.CEGUI.ClassFont, HGamer3D.Bindings.CEGUI.ClassFontManager, HGamer3D.Bindings.CEGUI.ClassFrameWindow, HGamer3D.Bindings.CEGUI.ClassHG3DEventController, HGamer3D.Bindings.CEGUI.ClassHG3DEventStaticFunctions, HGamer3D.Bindings.CEGUI.ClassHG3DListboxStaticFunctions, HGamer3D.Bindings.CEGUI.ClassHG3DWindowStaticFunctions, HGamer3D.Bindings.CEGUI.ClassImageCodec, HGamer3D.Bindings.CEGUI.ClassImageset, HGamer3D.Bindings.CEGUI.ClassItemEntry, HGamer3D.Bindings.CEGUI.ClassItemListbox, HGamer3D.Bindings.CEGUI.ClassListbox, HGamer3D.Bindings.CEGUI.ClassListboxItem, HGamer3D.Bindings.CEGUI.ClassListboxTextItem, HGamer3D.Bindings.CEGUI.ClassListHeader, HGamer3D.Bindings.CEGUI.ClassListHeaderSegment, HGamer3D.Bindings.CEGUI.ClassLogger, HGamer3D.Bindings.CEGUI.ClassMenuBase, HGamer3D.Bindings.CEGUI.ClassMenuItem, HGamer3D.Bindings.CEGUI.ClassMultiColumnList, HGamer3D.Bindings.CEGUI.ClassMultiLineEditbox, HGamer3D.Bindings.CEGUI.ClassOgreRenderer, HGamer3D.Bindings.CEGUI.ClassOgreResourceProvider, HGamer3D.Bindings.CEGUI.ClassProgressBar, HGamer3D.Bindings.CEGUI.ClassPropertySet, HGamer3D.Bindings.CEGUI.ClassPushButton, HGamer3D.Bindings.CEGUI.ClassRadioButton, HGamer3D.Bindings.CEGUI.ClassRenderer, HGamer3D.Bindings.CEGUI.ClassResourceProvider, HGamer3D.Bindings.CEGUI.ClassScheme, HGamer3D.Bindings.CEGUI.ClassSchemeManager, HGamer3D.Bindings.CEGUI.ClassScriptFunctor, HGamer3D.Bindings.CEGUI.ClassScriptModule, HGamer3D.Bindings.CEGUI.ClassScrollablePane, HGamer3D.Bindings.CEGUI.ClassScrollbar, HGamer3D.Bindings.CEGUI.ClassScrolledContainer, HGamer3D.Bindings.CEGUI.ClassScrolledItemListBase, HGamer3D.Bindings.CEGUI.ClassSlider, HGamer3D.Bindings.CEGUI.ClassSpinner, HGamer3D.Bindings.CEGUI.ClassSystem, HGamer3D.Bindings.CEGUI.ClassSystemHG3D, HGamer3D.Bindings.CEGUI.ClassTabButton, HGamer3D.Bindings.CEGUI.ClassThumb, HGamer3D.Bindings.CEGUI.ClassTooltip, HGamer3D.Bindings.CEGUI.ClassTree, HGamer3D.Bindings.CEGUI.ClassWidgetLookManager, HGamer3D.Bindings.CEGUI.ClassWindow, HGamer3D.Bindings.CEGUI.ClassWindowManager, HGamer3D.Bindings.CEGUI.ClassWindowManagerHG3D, HGamer3D.Bindings.CEGUI.ClassXMLParser Other-modules: diff --git a/HGamer3D/Bindings/CEGUI/ClassCheckbox.hs b/HGamer3D/Bindings/CEGUI/ClassCheckbox.hs --- a/HGamer3D/Bindings/CEGUI/ClassCheckbox.hs +++ b/HGamer3D/Bindings/CEGUI/ClassCheckbox.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-} --- | return true if the check-box is selected (has the checkmark) -isSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the widget is selected and has the check-mark, false if the widget is not selected and does not have the check-mark. +{- function isSelected -} +isSelected :: HG3DClass -> IO (Bool) isSelected a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,11 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-} --- | set whether the check-box is selected or not -setSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ select - true to select the widget and give it the check-mark. false to de-select the widget and remove the check-mark. - -> IO () - -- ^ return value - Nothing. +{- function setSelected -} +setSelected :: HG3DClass -> Bool -> IO () setSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -72,11 +67,8 @@ return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-} --- | Constructor for Checkbox -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Checkbox -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -86,10 +78,8 @@ return (a3'') {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-} --- | Destructor for Checkbox -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Checkbox -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassComboDropList.hs b/HGamer3D/Bindings/CEGUI/ClassComboDropList.hs --- a/HGamer3D/Bindings/CEGUI/ClassComboDropList.hs +++ b/HGamer3D/Bindings/CEGUI/ClassComboDropList.hs @@ -48,24 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | Initialise the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | Set whether the drop-list is 'armed' for selection. - Details: This setting is not exclusively under client control; the ComboDropListComboDropList --- -setArmed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ +{- function setArmed -} +setArmed :: HG3DClass -> Bool -> IO () setArmed a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -73,11 +65,8 @@ return () {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | Return the 'armed' state of the ComboDropList - Details: --- -isArmed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isArmed -} +isArmed :: HG3DClass -> IO (Bool) isArmed a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -86,13 +75,8 @@ return (a2'') {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | Set the mode of operation for the ComboDropList -setAutoArmEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setAutoArmEnabled -} +setAutoArmEnabled :: HG3DClass -> Bool -> IO () setAutoArmEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -100,10 +84,8 @@ return () {-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | returns the mode of operation for the drop-list -isAutoArmEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isAutoArmEnabled -} +isAutoArmEnabled :: HG3DClass -> IO (Bool) isAutoArmEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -112,11 +94,8 @@ return (a2'') {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | Constructor for ComboDropList -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ComboDropList -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -126,10 +105,8 @@ return (a3'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-} --- | Destructor for ComboDropList -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ComboDropList -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassCombobox.hs b/HGamer3D/Bindings/CEGUI/ClassCombobox.hs --- a/HGamer3D/Bindings/CEGUI/ClassCombobox.hs +++ b/HGamer3D/Bindings/CEGUI/ClassCombobox.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | returns the mode of operation for the combo box. -getSingleClickEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function getSingleClickEnabled -} +getSingleClickEnabled :: HG3DClass -> IO (Bool) getSingleClickEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | returns true if the drop down list is visible. -isDropDownListVisible :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the drop down list is visible, false otherwise. +{- function isDropDownListVisible -} +isDropDownListVisible :: HG3DClass -> IO (Bool) isDropDownListVisible a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return a pointer to the EditboxCombobox -getEditbox :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to an +{- function getEditbox -} +getEditbox :: HG3DClass -> IO (HG3DClass) getEditbox a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,10 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return a pointer to the PushButtonCombobox -getPushButton :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getPushButton -} +getPushButton :: HG3DClass -> IO (HG3DClass) getPushButton a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,10 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return a pointer to the ComboDropListCombobox -getDropList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to an +{- function getDropList -} +getDropList :: HG3DClass -> IO (HG3DClass) getDropList a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -108,10 +98,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return true if the Editbox -hasInputFocus :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the +{- function hasInputFocus -} +hasInputFocus :: HG3DClass -> IO (Bool) hasInputFocus a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -120,10 +108,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return true if the Editbox -isReadOnly :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the +{- function isReadOnly -} +isReadOnly :: HG3DClass -> IO (Bool) isReadOnly a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -132,11 +118,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return true if the Editbox - Details: It is possible to programmatically set 'invalid' text for the Editbox ---Validation is performed by means of a regular expression. If the text matches the regex, the text is said to have passed validation. If the text does not match with the regex then the text fails validation. -isTextValid :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the current +{- function isTextValid -} +isTextValid :: HG3DClass -> IO (Bool) isTextValid a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -145,10 +128,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return the currently set validation string - Details: Validation is performed by means of a regular expression. If the text matches the regex, the text is said to have passed validation. If the text does not match with the regex then the text fails validation. -getValidationString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object containing the current validation regex data +{- function getValidationString -} +getValidationString :: HG3DClass -> IO (String) getValidationString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -157,10 +138,8 @@ return (a2'') {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return the current position of the carat. -getCaratIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the insert carat relative to the start of the text. +{- function getCaratIndex -} +getCaratIndex :: HG3DClass -> IO (Int) getCaratIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -169,10 +148,8 @@ return (a2'') {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return the current selection start point. -getSelectionStartIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the selection start point relative to the start of the text. If no selection is defined this function returns the position of the carat. +{- function getSelectionStartIndex -} +getSelectionStartIndex :: HG3DClass -> IO (Int) getSelectionStartIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -181,10 +158,8 @@ return (a2'') {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return the current selection end point. -getSelectionEndIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the selection end point relative to the start of the text. If no selection is defined this function returns the position of the carat. +{- function getSelectionEndIndex -} +getSelectionEndIndex :: HG3DClass -> IO (Int) getSelectionEndIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -193,10 +168,8 @@ return (a2'') {-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return the length of the current selection (in code points / characters). -getSelectionLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Number of code points (or characters) contained within the currently defined selection. +{- function getSelectionLength -} +getSelectionLength :: HG3DClass -> IO (Int) getSelectionLength a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -205,10 +178,8 @@ return (a2'') {-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return the maximum text length set for this Editbox - Details: Depending on the validation string set, the actual length of text that can be entered may be less than the value returned here (it will never be more). -getMaxTextLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - The maximum number of code points (characters) that can be entered into this +{- function getMaxTextLength -} +getMaxTextLength :: HG3DClass -> IO (Int) getMaxTextLength a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -217,10 +188,8 @@ return (a2'') {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return number of items attached to the list box. -getItemCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - the number of items currently attached to this list box. +{- function getItemCount -} +getItemCount :: HG3DClass -> IO (Int) getItemCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -229,10 +198,8 @@ return (a2'') {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return a pointer to the currently selected item. -getSelectedItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getSelectedItem -} +getSelectedItem :: HG3DClass -> IO (HG3DClass) getSelectedItem a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -241,11 +208,8 @@ return (a2'') {-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return the item at index position index -getListboxItemFromIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ index - Zero based index of the item to be returned. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getListboxItemFromIndex -} +getListboxItemFromIndex :: HG3DClass -> Int -> IO (HG3DClass) getListboxItemFromIndex a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -255,11 +219,8 @@ return (a3'') {-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return the index of ListboxItemitem -getItemIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to a ListboxItem whos zero based index is to be returned. - -> IO (Int) - -- ^ return value - Zero based index indicating the position of +{- function getItemIndex -} +getItemIndex :: HG3DClass -> HG3DClass -> IO (Int) getItemIndex a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -269,10 +230,8 @@ return (a3'') {-# LINE 135 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return whether list sorting is enabled -isSortEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the list is sorted, false if the list is not sorted +{- function isSortEnabled -} +isSortEnabled :: HG3DClass -> IO (Bool) isSortEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -281,11 +240,8 @@ return (a2'') {-# LINE 140 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | return whether the string at index position index -isItemSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ index - Zero based index of the item to be examined. - -> IO (Bool) - -- ^ return value - true if the item at +{- function isItemSelected -} +isItemSelected :: HG3DClass -> Int -> IO (Bool) isItemSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -295,12 +251,8 @@ return (a3'') {-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Search the list for an item with the specified text. -findItemWithText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> HG3DClass -- ^ start_item - ListboxItem where the search is to begin, the search will not include item. If item is NULL, the search will begin from the first item in the list. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first +{- function findItemWithText -} +findItemWithText :: HG3DClass -> String -> HG3DClass -> IO (HG3DClass) findItemWithText a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -311,11 +263,8 @@ return (a4'') {-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return whether the specified ListboxItem -isListboxItemInList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> IO (Bool) - -- ^ return value - true if +{- function isListboxItemInList -} +isListboxItemInList :: HG3DClass -> HG3DClass -> IO (Bool) isListboxItemInList a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -325,10 +274,8 @@ return (a3'') {-# LINE 159 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return whether the vertical scroll bar is always shown. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -337,10 +284,8 @@ return (a2'') {-# LINE 164 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Return whether the horizontal scroll bar is always shown. -isHorzScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isHorzScrollbarAlwaysShown -} +isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isHorzScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -349,43 +294,32 @@ return (a2'') {-# LINE 169 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Initialise the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 173 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Show the drop-down list. -showDropList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function showDropList -} +showDropList :: HG3DClass -> IO () showDropList a1 = withHG3DClass a1 $ \a1' -> showDropList'_ a1' >>= \res -> return () {-# LINE 177 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Hide the drop-down list. -hideDropList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function hideDropList -} +hideDropList :: HG3DClass -> IO () hideDropList a1 = withHG3DClass a1 $ \a1' -> hideDropList'_ a1' >>= \res -> return () {-# LINE 181 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set the mode of operation for the combo box. -setSingleClickEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setSingleClickEnabled -} +setSingleClickEnabled :: HG3DClass -> Bool -> IO () setSingleClickEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -393,11 +327,8 @@ return () {-# LINE 186 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Specify whether the Editbox -setReadOnly :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the Editbox is read only and can't be edited by the user, false if the Editbox is not read only and may be edited by the user. - -> IO () - -- ^ return value - Nothing. +{- function setReadOnly -} +setReadOnly :: HG3DClass -> Bool -> IO () setReadOnly a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -405,11 +336,8 @@ return () {-# LINE 191 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set the text validation string. - Details: Validation is performed by means of a regular expression. If the text matches the regex, the text is said to have passed validation. If the text does not match with the regex then the text fails validation. -setValidationString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ validation_string - String object containing the validation regex data to be used. - -> IO () - -- ^ return value - Nothing. +{- function setValidationString -} +setValidationString :: HG3DClass -> String -> IO () setValidationString a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -417,11 +345,8 @@ return () {-# LINE 196 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set the current position of the carat. -setCaratIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ carat_pos - New index for the insert carat relative to the start of the text. If the value specified is greater than the number of characters in the Editbox, the carat is positioned at the end of the text. - -> IO () - -- ^ return value - Nothing. +{- function setCaratIndex -} +setCaratIndex :: HG3DClass -> Int -> IO () setCaratIndex a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -429,12 +354,8 @@ return () {-# LINE 201 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Define the current selection for the Editbox -setSelection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ start_pos - Index of the starting point for the selection. If this value is greater than the number of characters in the Editbox, the selection start will be set to the end of the text. - -> Int -- ^ end_pos - Index of the ending point for the selection. If this value is greater than the number of characters in the Editbox, the selection start will be set to the end of the text. - -> IO () - -- ^ return value - Nothing. +{- function setSelection -} +setSelection :: HG3DClass -> Int -> Int -> IO () setSelection a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -443,11 +364,8 @@ return () {-# LINE 207 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | set the maximum text length for this Editbox - Details: Depending on the validation string set, the actual length of text that can be entered may be less than the value set here (it will never be more). -setMaxTextLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ max_len - The maximum number of code points (characters) that can be entered into this Editbox. - -> IO () - -- ^ return value - Nothing. +{- function setMaxTextLength -} +setMaxTextLength :: HG3DClass -> Int -> IO () setMaxTextLength a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -455,31 +373,24 @@ return () {-# LINE 212 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Activate the edit box component of the Combobox -activateEditbox :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function activateEditbox -} +activateEditbox :: HG3DClass -> IO () activateEditbox a1 = withHG3DClass a1 $ \a1' -> activateEditbox'_ a1' >>= \res -> return () {-# LINE 216 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Remove all items from the list. - Details: Note that this will cause 'AutoDelete' items to be deleted. -resetList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function resetList -} +resetList :: HG3DClass -> IO () resetList a1 = withHG3DClass a1 $ \a1' -> resetList'_ a1' >>= \res -> return () {-# LINE 220 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Add the given ListboxItem -addItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to be added to the list. Note that it is the passed object that is added to the list, a copy is not made. If this parameter is NULL, nothing happens. - -> IO () - -- ^ return value - Nothing. +{- function addItem -} +addItem :: HG3DClass -> HG3DClass -> IO () addItem a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -487,13 +398,8 @@ return () {-# LINE 225 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Insert an item into the list box after a specified item already in the list. - Details: Note that if the list is sorted, the item may not end up in the requested position. --- -insertItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> HG3DClass -- ^ position - -> IO () - -- ^ +{- function insertItem -} +insertItem :: HG3DClass -> HG3DClass -> HG3DClass -> IO () insertItem a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -502,11 +408,8 @@ return () {-# LINE 231 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Removes the given item from the list box. -removeItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem that is to be removed. If item is not attached to this list box then nothing will happen. - -> IO () - -- ^ return value - Nothing. +{- function removeItem -} +removeItem :: HG3DClass -> HG3DClass -> IO () removeItem a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -514,21 +417,16 @@ return () {-# LINE 236 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Clear the selected state for all items. -clearAllSelections :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function clearAllSelections -} +clearAllSelections :: HG3DClass -> IO () clearAllSelections a1 = withHG3DClass a1 $ \a1' -> clearAllSelections'_ a1' >>= \res -> return () {-# LINE 240 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set whether the list should be sorted. -setSortingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the list should be sorted, false if the list should not be sorted. - -> IO () - -- ^ return value - Nothing. +{- function setSortingEnabled -} +setSortingEnabled :: HG3DClass -> Bool -> IO () setSortingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -536,11 +434,8 @@ return () {-# LINE 245 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set whether the vertical scroll bar should always be shown. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the vertical scroll bar should be shown even when it is not required. false if the vertical scroll bar should only be shown when it is required. - -> IO () - -- ^ return value - Nothing. +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -548,11 +443,8 @@ return () {-# LINE 250 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set whether the horizontal scroll bar should always be shown. -setShowHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the horizontal scroll bar should be shown even when it is not required. false if the horizontal scroll bar should only be shown when it is required. - -> IO () - -- ^ return value - Nothing. +{- function setShowHorzScrollbar -} +setShowHorzScrollbar :: HG3DClass -> Bool -> IO () setShowHorzScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -560,15 +452,8 @@ return () {-# LINE 255 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set the select state of an attached ListboxItem - Details: This is the recommended way of selecting and deselecting items attached to a list box as it respects the ---multi-select mode setting. It is possible to modify the setting on ListboxItems directly, but that approach ---does not respect the settings of the list box. --- -setItemSelectState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> Bool -- ^ state - -> IO () - -- ^ +{- function setItemSelectState -} +setItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO () setItemSelectState a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -577,15 +462,8 @@ return () {-# LINE 261 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Set the select state of an attached ListboxItem - Details: This is the recommended way of selecting and deselecting items attached to a list box as it respects the ---multi-select mode setting. It is possible to modify the setting on ListboxItems directly, but that approach ---does not respect the settings of the list box. --- -setItemSelectState2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ item_index - -> Bool -- ^ state - -> IO () - -- ^ +{- function setItemSelectState2 -} +setItemSelectState2 :: HG3DClass -> Int -> Bool -> IO () setItemSelectState2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -594,24 +472,16 @@ return () {-# LINE 267 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Causes the list box to update it's internal state after changes have been made to one or more attached ListboxItem - Details: Client code must call this whenever it has made any changes to ListboxItem objects already attached to the ---list box. If you are just adding items, or removed items to update them prior to re-adding them, there is ---no need to call this method. --- -handleUpdatedListItemData :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function handleUpdatedListItemData -} +handleUpdatedListItemData :: HG3DClass -> IO () handleUpdatedListItemData a1 = withHG3DClass a1 $ \a1' -> handleUpdatedListItemData'_ a1' >>= \res -> return () {-# LINE 271 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Constructor for Combobox -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Combobox -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -621,10 +491,8 @@ return (a3'') {-# LINE 277 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-} --- | Destructor for Combobox -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Combobox -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassDefaultLogger.hs b/HGamer3D/Bindings/CEGUI/ClassDefaultLogger.hs --- a/HGamer3D/Bindings/CEGUI/ClassDefaultLogger.hs +++ b/HGamer3D/Bindings/CEGUI/ClassDefaultLogger.hs @@ -50,9 +50,8 @@ import HGamer3D.Bindings.CEGUI.EnumLoggingLevel {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-} --- | Constructor for DefaultLogger +{- function DefaultLogger -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -60,22 +59,16 @@ return (a1'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-} --- | Destructor for DefaultLogger -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~DefaultLogger -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-} --- | Add an event to the log. -logEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ message - String object containing the message to be added to the event log. - -> EnumLoggingLevel -- ^ level - LoggingLevel for this message. If level is greater than the current set logging level, the message is not logged. - -> IO () - -- ^ return value - Nothing +{- function logEvent -} +logEvent :: HG3DClass -> String -> EnumLoggingLevel -> IO () logEvent a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -84,14 +77,8 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-} --- | Set the name of the log file where all subsequent log entries should be written. - Details: When this is called, and the log file is created, any cached log entries are flushed to the log file. -setLogFilename :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ filename - Name of the file to put log messages. - -> Bool -- ^ append - --- --- - -> IO () - -- ^ +{- function setLogFilename -} +setLogFilename :: HG3DClass -> String -> Bool -> IO () setLogFilename a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassDefaultResourceProvider.hs b/HGamer3D/Bindings/CEGUI/ClassDefaultResourceProvider.hs --- a/HGamer3D/Bindings/CEGUI/ClassDefaultResourceProvider.hs +++ b/HGamer3D/Bindings/CEGUI/ClassDefaultResourceProvider.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-} --- | +{- function DefaultResourceProvider -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,22 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-} --- | -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~DefaultResourceProvider -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-} --- | Set the directory associated with a given resource group identifier. -setResourceGroupDirectory :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ resourceGroup - The resource group identifier whose directory is to be set. - -> String -- ^ directory - The directory to be associated with resource group identifier resourceGroup - -> IO () - -- ^ return value - Nothing. +{- function setResourceGroupDirectory -} +setResourceGroupDirectory :: HG3DClass -> String -> String -> IO () setResourceGroupDirectory a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -82,11 +75,8 @@ return () {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-} --- | Return the directory associated with the specified resource group identifier. - Details: This member is not defined as being const because it may cause creation of an 'empty' directory specification for the resourceGroup if the resourceGroup has not previously been accessed. -getResourceGroupDirectory :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ resourceGroup - The resource group identifier for which the associated directory is to be returned. - -> IO (String) - -- ^ return value - String object describing the directory currently associated with resource group identifier +{- function getResourceGroupDirectory -} +getResourceGroupDirectory :: HG3DClass -> String -> IO (String) getResourceGroupDirectory a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -96,11 +86,8 @@ return (a3'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-} --- | clears any currently set directory for the specified resource group identifier. -clearResourceGroupDirectory :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ resourceGroup - The resource group identifier for which the associated directory is to be cleared. - -> IO () - -- ^ +{- function clearResourceGroupDirectory -} +clearResourceGroupDirectory :: HG3DClass -> String -> IO () clearResourceGroupDirectory a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassDragContainer.hs b/HGamer3D/Bindings/CEGUI/ClassDragContainer.hs --- a/HGamer3D/Bindings/CEGUI/ClassDragContainer.hs +++ b/HGamer3D/Bindings/CEGUI/ClassDragContainer.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Constructor for DragContainer -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function DragContainer -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -62,20 +59,16 @@ return (a3'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Destructor for DragContainer -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~DragContainer -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return whether dragging is currently enabled for this DragContainer -isDraggingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isDraggingEnabled -} +isDraggingEnabled :: HG3DClass -> IO (Bool) isDraggingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,13 +77,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Set whether dragging is currently enabled for this DragContainer -setDraggingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setDraggingEnabled -} +setDraggingEnabled :: HG3DClass -> Bool -> IO () setDraggingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -98,10 +86,8 @@ return () {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return whether the DragContainer -isBeingDragged :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isBeingDragged -} +isBeingDragged :: HG3DClass -> IO (Bool) isBeingDragged a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -110,13 +96,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return the current drag threshold in pixels. - Details: The drag threshold is the number of pixels that the mouse must be ---moved with the left button held down in order to commence a drag ---operation. --- -getPixelDragThreshold :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getPixelDragThreshold -} +getPixelDragThreshold :: HG3DClass -> IO (Float) getPixelDragThreshold a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -125,14 +106,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Set the current drag threshold in pixels. - Details: The drag threshold is the number of pixels that the mouse must be ---moved with the left button held down in order to commence a drag ---operation. --- -setPixelDragThreshold :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ pixels - -> IO () - -- ^ +{- function setPixelDragThreshold -} +setPixelDragThreshold :: HG3DClass -> Float -> IO () setPixelDragThreshold a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -140,10 +115,8 @@ return () {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return the alpha value that will be set on the DragContainer -getDragAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - Current alpha value to use whilst dragging. +{- function getDragAlpha -} +getDragAlpha :: HG3DClass -> IO (Float) getDragAlpha a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -152,14 +125,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Set the alpha value to be set on the DragContainer - Details: This method can be used while a drag is in progress to update the alpha. Note that ---the normal setAlpha method does not affect alpha while a drag is in progress, but ---once the drag operation has ended, any value set via setAlpha will be restored. --- -setDragAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ alpha - -> IO () - -- ^ +{- function setDragAlpha -} +setDragAlpha :: HG3DClass -> Float -> IO () setDragAlpha a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -167,14 +134,8 @@ return () {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Set the Image to be used for the mouse cursor when a drag operation is in progress. - Details: This method may be used during a drag operation to update the current mouse ---cursor image. --- -setDragCursorImage3 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - -> String -- ^ image - -> IO () - -- ^ +{- function setDragCursorImage3 -} +setDragCursorImage3 :: HG3DClass -> String -> String -> IO () setDragCursorImage3 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -183,12 +144,8 @@ return () {-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return the WindowDragContainer - Details: The drop target for a DragContainer is basically the Window that the DragContainer ---is within while being dragged. The drop target may be 0 to indicate no target. --- -getCurrentDropTarget :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getCurrentDropTarget -} +getCurrentDropTarget :: HG3DClass -> IO (HG3DClass) getCurrentDropTarget a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -197,10 +154,8 @@ return (a2'') {-# LINE 99 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return whether sticky mode is enable or disabled. -isStickyModeEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isStickyModeEnabled -} +isStickyModeEnabled :: HG3DClass -> IO (Bool) isStickyModeEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -209,13 +164,8 @@ return (a2'') {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Enable or disable sticky mode. -setStickyModeEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ +{- function setStickyModeEnabled -} +setStickyModeEnabled :: HG3DClass -> Bool -> IO () setStickyModeEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -223,13 +173,8 @@ return () {-# LINE 109 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Immediately pick up the DragContainer -pickUp :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ force_sticky - --- --- - -> IO (Bool) - -- ^ +{- function pickUp -} +pickUp :: HG3DClass -> Bool -> IO (Bool) pickUp a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -239,13 +184,8 @@ return (a3'') {-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Set whether the fixed dragging offset - as set with the setFixedDragOffset - function will be used, or whether the built-in positioning will be used. -setUsingFixedDragOffset :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enable - --- --- - -> IO () - -- ^ +{- function setUsingFixedDragOffset -} +setUsingFixedDragOffset :: HG3DClass -> Bool -> IO () setUsingFixedDragOffset a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -253,10 +193,8 @@ return () {-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-} --- | Return whether the fixed dragging offset - as set with the setFixedDragOffset function - will be used, or whether the built-in positioning will be used. -isUsingFixedDragOffset :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isUsingFixedDragOffset -} +isUsingFixedDragOffset :: HG3DClass -> IO (Bool) isUsingFixedDragOffset a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassEditbox.hs b/HGamer3D/Bindings/CEGUI/ClassEditbox.hs --- a/HGamer3D/Bindings/CEGUI/ClassEditbox.hs +++ b/HGamer3D/Bindings/CEGUI/ClassEditbox.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return true if the Editbox -hasInputFocus :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function hasInputFocus -} +hasInputFocus :: HG3DClass -> IO (Bool) hasInputFocus a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return true if the Editbox -isReadOnly :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the +{- function isReadOnly -} +isReadOnly :: HG3DClass -> IO (Bool) isReadOnly a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return true if the text for the Editbox -isTextMasked :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the +{- function isTextMasked -} +isTextMasked :: HG3DClass -> IO (Bool) isTextMasked a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,11 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return true if the Editbox - Details: It is possible to programmatically set 'invalid' text for the Editbox ---Validation is performed by means of a regular expression. If the text matches the regex, the text is said to have passed validation. If the text does not match with the regex then the text fails validation. -isTextValid :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isTextValid -} +isTextValid :: HG3DClass -> IO (Bool) isTextValid a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -97,10 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the currently set validation string - Details: Validation is performed by means of a regular expression. If the text matches the regex, the text is said to have passed validation. If the text does not match with the regex then the text fails validation. -getValidationString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object containing the current validation regex data +{- function getValidationString -} +getValidationString :: HG3DClass -> IO (String) getValidationString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -109,10 +98,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the current position of the carat. -getCaratIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the insert carat relative to the start of the text. +{- function getCaratIndex -} +getCaratIndex :: HG3DClass -> IO (Int) getCaratIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -121,10 +108,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the current selection start point. -getSelectionStartIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the selection start point relative to the start of the text. If no selection is defined this function returns the position of the carat. +{- function getSelectionStartIndex -} +getSelectionStartIndex :: HG3DClass -> IO (Int) getSelectionStartIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -133,10 +118,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the current selection end point. -getSelectionEndIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the selection end point relative to the start of the text. If no selection is defined this function returns the position of the carat. +{- function getSelectionEndIndex -} +getSelectionEndIndex :: HG3DClass -> IO (Int) getSelectionEndIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -145,10 +128,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the length of the current selection (in code points / characters). -getSelectionLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Number of code points (or characters) contained within the currently defined selection. +{- function getSelectionLength -} +getSelectionLength :: HG3DClass -> IO (Int) getSelectionLength a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -157,10 +138,8 @@ return (a2'') {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the utf32 code point used when rendering masked text. -getMaskCodePoint :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - utf32 code point value representing the Unicode code point that will be rendered instead of the +{- function getMaskCodePoint -} +getMaskCodePoint :: HG3DClass -> IO (Int) getMaskCodePoint a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -169,10 +148,8 @@ return (a2'') {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | return the maximum text length set for this Editbox - Details: Depending on the validation string set, the actual length of text that can be entered may be less than the value returned here (it will never be more). -getMaxTextLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - The maximum number of code points (characters) that can be entered into this +{- function getMaxTextLength -} +getMaxTextLength :: HG3DClass -> IO (Int) getMaxTextLength a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -181,11 +158,8 @@ return (a2'') {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Specify whether the Editbox -setReadOnly :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the Editbox is read only and can't be edited by the user, false if the Editbox is not read only and may be edited by the user. - -> IO () - -- ^ return value - Nothing. +{- function setReadOnly -} +setReadOnly :: HG3DClass -> Bool -> IO () setReadOnly a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -193,13 +167,8 @@ return () {-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Specify whether the text for the Editbox -setTextMasked :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setTextMasked -} +setTextMasked :: HG3DClass -> Bool -> IO () setTextMasked a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -207,11 +176,8 @@ return () {-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Set the text validation string. - Details: Validation is performed by means of a regular expression. If the text matches the regex, the text is said to have passed validation. If the text does not match with the regex then the text fails validation. -setValidationString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ validation_string - String object containing the validation regex data to be used. - -> IO () - -- ^ return value - Nothing. +{- function setValidationString -} +setValidationString :: HG3DClass -> String -> IO () setValidationString a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -219,11 +185,8 @@ return () {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Set the current position of the carat. -setCaratIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ carat_pos - New index for the insert carat relative to the start of the text. If the value specified is greater than the number of characters in the Editbox, the carat is positioned at the end of the text. - -> IO () - -- ^ return value - Nothing. +{- function setCaratIndex -} +setCaratIndex :: HG3DClass -> Int -> IO () setCaratIndex a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -231,12 +194,8 @@ return () {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Define the current selection for the Editbox -setSelection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ start_pos - Index of the starting point for the selection. If this value is greater than the number of characters in the Editbox, the selection start will be set to the end of the text. - -> Int -- ^ end_pos - Index of the ending point for the selection. If this value is greater than the number of characters in the Editbox, the selection end will be set to the end of the text. - -> IO () - -- ^ return value - Nothing. +{- function setSelection -} +setSelection :: HG3DClass -> Int -> Int -> IO () setSelection a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -245,11 +204,8 @@ return () {-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | set the utf32 code point used when rendering masked text. -setMaskCodePoint :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ code_point - utf32 code point value representing the Unicode code point that should be rendered instead of the Editbox text when rendering in masked mode. - -> IO () - -- ^ return value - Nothing. +{- function setMaskCodePoint -} +setMaskCodePoint :: HG3DClass -> Int -> IO () setMaskCodePoint a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -257,11 +213,8 @@ return () {-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | set the maximum text length for this Editbox - Details: Depending on the validation string set, the actual length of text that can be entered may be less than the value set here (it will never be more). -setMaxTextLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ max_len - The maximum number of code points (characters) that can be entered into this Editbox. - -> IO () - -- ^ return value - Nothing. +{- function setMaxTextLength -} +setMaxTextLength :: HG3DClass -> Int -> IO () setMaxTextLength a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -269,11 +222,8 @@ return () {-# LINE 134 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Constructor for Editbox -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Editbox -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -283,10 +233,8 @@ return (a3'') {-# LINE 140 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-} --- | Destructor for Editbox -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Editbox -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassEventArgs.hs b/HGamer3D/Bindings/CEGUI/ClassEventArgs.hs --- a/HGamer3D/Bindings/CEGUI/ClassEventArgs.hs +++ b/HGamer3D/Bindings/CEGUI/ClassEventArgs.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-} --- | +{- function EventArgs -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,10 +57,8 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-} --- | -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~EventArgs -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassEventSet.hs b/HGamer3D/Bindings/CEGUI/ClassEventSet.hs --- a/HGamer3D/Bindings/CEGUI/ClassEventSet.hs +++ b/HGamer3D/Bindings/CEGUI/ClassEventSet.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Constructor for EventSet +{- function EventSet -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,21 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Destructor for EventSet -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~EventSet -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Add a new EventEventSet -addEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object containing the name to give the new Event. The name must be unique for the EventSet. - -> IO () - -- ^ return value - Nothing +{- function addEvent -} +addEvent :: HG3DClass -> String -> IO () addEvent a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -80,11 +74,8 @@ return () {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Removes the Event -removeEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object containing the name of the Event to remove. If no such Event exists, nothing happens. - -> IO () - -- ^ return value - Nothing. +{- function removeEvent -} +removeEvent :: HG3DClass -> String -> IO () removeEvent a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -92,21 +83,16 @@ return () {-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Remove all EventEventSet -removeAllEvents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function removeAllEvents -} +removeAllEvents :: HG3DClass -> IO () removeAllEvents a1 = withHG3DClass a1 $ \a1' -> removeAllEvents'_ a1' >>= \res -> return () {-# LINE 65 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Checks to see if an EventEventSet -isEventPresent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - -> IO (Bool) - -- ^ return value - true if an +{- function isEventPresent -} +isEventPresent :: HG3DClass -> String -> IO (Bool) isEventPresent a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -116,13 +102,8 @@ return (a3'') {-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Fires the named event passing the given EventArgs -fireEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Event that is to be fired (triggered) - -> HG3DClass -- ^ args - The EventArgs (or derived) object that is to be bassed to each subscriber of the Event. Once all subscribers have been called the 'handled' field of the event is updated appropriately. - -> String -- ^ eventNamespace - String object describing the global event namespace prefix for this event. - -> IO () - -- ^ return value - Nothing. +{- function fireEvent -} +fireEvent :: HG3DClass -> String -> HG3DClass -> String -> IO () fireEvent a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -132,10 +113,8 @@ return () {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Return whether the EventSet -isMuted :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isMuted -} +isMuted :: HG3DClass -> IO (Bool) isMuted a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -144,13 +123,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-} --- | Set the mute state for this EventSet -setMutedState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setMutedState -} +setMutedState :: HG3DClass -> Bool -> IO () setMutedState a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in diff --git a/HGamer3D/Bindings/CEGUI/ClassFont.hs b/HGamer3D/Bindings/CEGUI/ClassFont.hs --- a/HGamer3D/Bindings/CEGUI/ClassFont.hs +++ b/HGamer3D/Bindings/CEGUI/ClassFont.hs @@ -48,20 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Destructor. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Font -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the string holding the font name. -getName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getName -} +getName :: HG3DClass -> IO (String) getName a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -70,10 +66,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the type of the font. -getTypeName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getTypeName -} +getTypeName :: HG3DClass -> IO (String) getTypeName a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -82,11 +76,8 @@ return (a2'') {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return whether this Font -isCodepointAvailable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ cp - utf32 code point that is the subject of the query. - -> IO (Bool) - -- ^ return value - true if the font contains a mapping for code point +{- function isCodepointAvailable -} +isCodepointAvailable :: HG3DClass -> Int -> IO (Bool) isCodepointAvailable a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -96,13 +87,8 @@ return (a3'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Enable or disable auto-scaling for this Font -setAutoScaled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ auto_scaled - --- --- - -> IO () - -- ^ +{- function setAutoScaled -} +setAutoScaled :: HG3DClass -> Bool -> IO () setAutoScaled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -110,10 +96,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return whether this Font -isAutoScaled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isAutoScaled -} +isAutoScaled :: HG3DClass -> IO (Bool) isAutoScaled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -122,11 +106,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the pixel line spacing value for. -getLineSpacing :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ y_scale - Scaling factor to be applied to the line spacing, where 1.0f is considered to be 'normal'. - -> IO (Float) - -- ^ return value - Number of pixels between vertical base lines, i.e. The minimum pixel space between two lines of text. +{- function getLineSpacing -} +getLineSpacing :: HG3DClass -> Float -> IO (Float) getLineSpacing a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -136,11 +117,8 @@ return (a3'') {-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | return the exact pixel height of the font. -getFontHeight :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ y_scale - Scaling factor to be applied to the height, where 1.0f is considered to be 'normal'. - -> IO (Float) - -- ^ return value - float value describing the pixel height of the font without any additional padding. +{- function getFontHeight -} +getFontHeight :: HG3DClass -> Float -> IO (Float) getFontHeight a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -150,11 +128,8 @@ return (a3'') {-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the number of pixels from the top of the highest glyph to the baseline. -getBaseline :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ y_scale - Scaling factor to be applied to the baseline distance, where 1.0f is considered to be 'normal'. - -> IO (Float) - -- ^ return value - pixel spacing from top of front glyphs to baseline +{- function getBaseline -} +getBaseline :: HG3DClass -> Float -> IO (Float) getBaseline a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -164,12 +139,8 @@ return (a3'') {-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the pixel width of the specified text if rendered with this Font -getTextExtent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to return the rendered pixel width for. - -> Float -- ^ x_scale - Scaling factor to be applied to each glyph's x axis when measuring the extent, where 1.0f is considered to be 'normal'. - -> IO (Float) - -- ^ return value - Number of pixels that +{- function getTextExtent -} +getTextExtent :: HG3DClass -> String -> Float -> IO (Float) getTextExtent a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -180,13 +151,8 @@ return (a4'') {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the index of the closest text character in String textpixel -getCharAtPixel :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text. - -> Float -- ^ pixel - Specifies the (horizontal) pixel offset to return the character index for. - -> Float -- ^ x_scale - Scaling factor to be applied to each glyph's x axis when measuring the text extent, where 1.0f is considered to be 'normal'. - -> IO (Int) - -- ^ return value - Returns a character index into String +{- function getCharAtPixel -} +getCharAtPixel :: HG3DClass -> String -> Float -> Float -> IO (Int) getCharAtPixel a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -198,14 +164,8 @@ return (a5'') {-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Return the index of the closest text character in String textstart_charpixel -getCharAtPixel2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text. - -> Int -- ^ start_char - index of the first character to consider. This is the lowest value that will be returned from the call. - -> Float -- ^ pixel - Specifies the (horizontal) pixel offset to return the character index for. - -> Float -- ^ x_scale - Scaling factor to be applied to each glyph's x axis when measuring the text extent, where 1.0f is considered to be 'normal'. - -> IO (Int) - -- ^ return value - Returns a character index into String +{- function getCharAtPixel2 -} +getCharAtPixel2 :: HG3DClass -> String -> Int -> Float -> Float -> IO (Int) getCharAtPixel2 a1 a2 a3 a4 a5 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -218,19 +178,16 @@ return (a6'') {-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Sets the default resource group to be used when loading font data. -setDefaultResourceGroup :: String -- ^ resourceGroup - String describing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: String -> IO () setDefaultResourceGroup a1 = withCString a1 $ \a1' -> setDefaultResourceGroup'_ a1' >>= \res -> return () {-# LINE 119 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-} --- | Returns the default resource group currently set for Fonts. +{- function getDefaultResourceGroup -} getDefaultResourceGroup :: IO (String) - -- ^ return value - String describing the default resource group identifier that will be used when loading font data. getDefaultResourceGroup = alloc64k $ \a1' -> getDefaultResourceGroup'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassFontManager.hs b/HGamer3D/Bindings/CEGUI/ClassFontManager.hs --- a/HGamer3D/Bindings/CEGUI/ClassFontManager.hs +++ b/HGamer3D/Bindings/CEGUI/ClassFontManager.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-} --- | Constructor. +{- function FontManager -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,10 +57,8 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-} --- | Destructor. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~FontManager -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassFrameWindow.hs b/HGamer3D/Bindings/CEGUI/ClassFrameWindow.hs --- a/HGamer3D/Bindings/CEGUI/ClassFrameWindow.hs +++ b/HGamer3D/Bindings/CEGUI/ClassFrameWindow.hs @@ -48,20 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Initialises the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether this window is sizable. Note that this requires that the window have an enabled frame and that sizing itself is enabled. -isSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the window can be sized, false if the window can not be sized +{- function isSizingEnabled -} +isSizingEnabled :: HG3DClass -> IO (Bool) isSizingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -70,10 +66,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether the frame for this window is enabled. -isFrameEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the frame for this window is enabled, false if the frame for this window is disabled. +{- function isFrameEnabled -} +isFrameEnabled :: HG3DClass -> IO (Bool) isFrameEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -82,10 +76,8 @@ return (a2'') {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether the title bar for this window is enabled. -isTitleBarEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the window has a title bar and it is enabled, false if the window has no title bar or if the title bar is disabled. +{- function isTitleBarEnabled -} +isTitleBarEnabled :: HG3DClass -> IO (Bool) isTitleBarEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -94,10 +86,8 @@ return (a2'') {-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether this close button for this window is enabled. -isCloseButtonEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the window has a close button and it is enabled, false if the window either has no close button or if the close button is disabled. +{- function isCloseButtonEnabled -} +isCloseButtonEnabled :: HG3DClass -> IO (Bool) isCloseButtonEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -106,10 +96,8 @@ return (a2'') {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether roll up (a.k.a shading) is enabled for this window. -isRollupEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if roll up is enabled, false if roll up is disabled. +{- function isRollupEnabled -} +isRollupEnabled :: HG3DClass -> IO (Bool) isRollupEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -118,10 +106,8 @@ return (a2'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether the window is currently rolled up (a.k.a shaded). -isRolledup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the window is rolled up, false if the window is not rolled up. +{- function isRolledup -} +isRolledup :: HG3DClass -> IO (Bool) isRolledup a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -130,10 +116,8 @@ return (a2'') {-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return the thickness of the sizing border. -getSizingBorderThickness :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value describing the thickness of the sizing border in screen pixels. +{- function getSizingBorderThickness -} +getSizingBorderThickness :: HG3DClass -> IO (Float) getSizingBorderThickness a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -142,11 +126,8 @@ return (a2'') {-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Enables or disables sizing for this window. -setSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - set to true to enable sizing (also requires frame to be enabled), or false to disable sizing. - -> IO () - -- ^ return value - nothing +{- function setSizingEnabled -} +setSizingEnabled :: HG3DClass -> Bool -> IO () setSizingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -154,11 +135,8 @@ return () {-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Enables or disables the frame for this window. -setFrameEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - set to true to enable the frame for this window, or false to disable the frame for this window. - -> IO () - -- ^ return value - Nothing. +{- function setFrameEnabled -} +setFrameEnabled :: HG3DClass -> Bool -> IO () setFrameEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -166,11 +144,8 @@ return () {-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Enables or disables the title bar for the frame window. -setTitleBarEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - set to true to enable the title bar (if one is attached), or false to disable the title bar. - -> IO () - -- ^ return value - Nothing. +{- function setTitleBarEnabled -} +setTitleBarEnabled :: HG3DClass -> Bool -> IO () setTitleBarEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -178,11 +153,8 @@ return () {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Enables or disables the close button for the frame window. -setCloseButtonEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - Set to true to enable the close button (if one is attached), or false to disable the close button. - -> IO () - -- ^ return value - Nothing. +{- function setCloseButtonEnabled -} +setCloseButtonEnabled :: HG3DClass -> Bool -> IO () setCloseButtonEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -190,11 +162,8 @@ return () {-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Enables or disables roll-up (shading) for this window. -setRollupEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - Set to true to enable roll-up for the frame window, or false to disable roll-up. - -> IO () - -- ^ return value - Nothing. +{- function setRollupEnabled -} +setRollupEnabled :: HG3DClass -> Bool -> IO () setRollupEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -202,21 +171,16 @@ return () {-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Toggles the state of the window between rolled-up (shaded) and normal sizes. This requires roll-up to be enabled. -toggleRollup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function toggleRollup -} +toggleRollup :: HG3DClass -> IO () toggleRollup a1 = withHG3DClass a1 $ \a1' -> toggleRollup'_ a1' >>= \res -> return () {-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Set the size of the sizing border for this window. -setSizingBorderThickness :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ pixels - float value specifying the thickness for the sizing border in screen pixels. - -> IO () - -- ^ return value - Nothing. +{- function setSizingBorderThickness -} +setSizingBorderThickness :: HG3DClass -> Float -> IO () setSizingBorderThickness a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -224,10 +188,8 @@ return () {-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return whether this FrameWindow -isDragMovingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the +{- function isDragMovingEnabled -} +isDragMovingEnabled :: HG3DClass -> IO (Bool) isDragMovingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -236,11 +198,8 @@ return (a2'') {-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Set whether this FrameWindow -setDragMovingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the Window should move when the user drags the title bar, false if the window should not move. - -> IO () - -- ^ return value - Nothing. +{- function setDragMovingEnabled -} +setDragMovingEnabled :: HG3DClass -> Bool -> IO () setDragMovingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -248,12 +207,8 @@ return () {-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Set the image to be used for the north-south sizing mouse cursor. -setNSSizingCursorImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - String holding the name of the Imageset containing the Image to be used. - -> String -- ^ image - String holding the name of the Image to be used. - -> IO () - -- ^ return value - Nothing. +{- function setNSSizingCursorImage2 -} +setNSSizingCursorImage2 :: HG3DClass -> String -> String -> IO () setNSSizingCursorImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -262,12 +217,8 @@ return () {-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Set the image to be used for the east-west sizing mouse cursor. -setEWSizingCursorImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - String holding the name of the Imageset containing the Image to be used. - -> String -- ^ image - String holding the name of the Image to be used. - -> IO () - -- ^ return value - Nothing. +{- function setEWSizingCursorImage2 -} +setEWSizingCursorImage2 :: HG3DClass -> String -> String -> IO () setEWSizingCursorImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -276,12 +227,8 @@ return () {-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Set the image to be used for the northwest-southeast sizing mouse cursor. -setNWSESizingCursorImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - String holding the name of the Imageset containing the Image to be used. - -> String -- ^ image - String holding the name of the Image to be used. - -> IO () - -- ^ return value - Nothing. +{- function setNWSESizingCursorImage2 -} +setNWSESizingCursorImage2 :: HG3DClass -> String -> String -> IO () setNWSESizingCursorImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -290,12 +237,8 @@ return () {-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Set the image to be used for the northeast-southwest sizing mouse cursor. -setNESWSizingCursorImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - String holding the name of the Imageset containing the Image to be used. - -> String -- ^ image - String holding the name of the Image to be used. - -> IO () - -- ^ return value - Nothing. +{- function setNESWSizingCursorImage2 -} +setNESWSizingCursorImage2 :: HG3DClass -> String -> String -> IO () setNESWSizingCursorImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -304,10 +247,8 @@ return () {-# LINE 150 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Return a pointer to the close button component widget for this FrameWindow -getCloseButton :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getCloseButton -} +getCloseButton :: HG3DClass -> IO (HG3DClass) getCloseButton a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -316,11 +257,8 @@ return (a2'') {-# LINE 155 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Constructor for FrameWindow -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function FrameWindow -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -330,10 +268,8 @@ return (a3'') {-# LINE 161 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-} --- | Destructor for FramwWindow objects. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~FrameWindow -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassHG3DEventController.hs b/HGamer3D/Bindings/CEGUI/ClassHG3DEventController.hs --- a/HGamer3D/Bindings/CEGUI/ClassHG3DEventController.hs +++ b/HGamer3D/Bindings/CEGUI/ClassHG3DEventController.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-} --- | +{- function HG3DEventController -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,23 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-} --- | -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~HG3DEventController -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-} --- | -pushEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - -> String -- ^ sender - -> HG3DClass -- ^ window - -> IO () - -- ^ +{- function pushEvent -} +pushEvent :: HG3DClass -> String -> String -> HG3DClass -> IO () pushEvent a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -84,10 +76,8 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-} --- | -eventsAvailable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function eventsAvailable -} +eventsAvailable :: HG3DClass -> IO (Bool) eventsAvailable a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,10 +86,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-} --- | -popEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String, String, HG3DClass) - -- ^ name +{- function popEvent -} +popEvent :: HG3DClass -> IO (String, String, HG3DClass) popEvent a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassHG3DEventStaticFunctions.hs b/HGamer3D/Bindings/CEGUI/ClassHG3DEventStaticFunctions.hs --- a/HGamer3D/Bindings/CEGUI/ClassHG3DEventStaticFunctions.hs +++ b/HGamer3D/Bindings/CEGUI/ClassHG3DEventStaticFunctions.hs @@ -48,12 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs" #-} --- | -subscribeScriptedEvent :: HG3DClass -- ^ window - -> String -- ^ name - -> String -- ^ subscriber_name - -> IO () - -- ^ +{- function subscribeScriptedEvent -} +subscribeScriptedEvent :: HG3DClass -> String -> String -> IO () subscribeScriptedEvent a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassHG3DListboxStaticFunctions.hs b/HGamer3D/Bindings/CEGUI/ClassHG3DListboxStaticFunctions.hs --- a/HGamer3D/Bindings/CEGUI/ClassHG3DListboxStaticFunctions.hs +++ b/HGamer3D/Bindings/CEGUI/ClassHG3DListboxStaticFunctions.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-} --- | -listboxAddItem :: HG3DClass -- ^ listbox - -> String -- ^ itemString - -> IO () - -- ^ +{- function listboxAddItem -} +listboxAddItem :: HG3DClass -> String -> IO () listboxAddItem a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -60,11 +57,8 @@ return () {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-} --- | -comboboxAddItem :: HG3DClass -- ^ combobox - -> String -- ^ itemString - -> IO () - -- ^ +{- function comboboxAddItem -} +comboboxAddItem :: HG3DClass -> String -> IO () comboboxAddItem a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassHG3DWindowStaticFunctions.hs b/HGamer3D/Bindings/CEGUI/ClassHG3DWindowStaticFunctions.hs --- a/HGamer3D/Bindings/CEGUI/ClassHG3DWindowStaticFunctions.hs +++ b/HGamer3D/Bindings/CEGUI/ClassHG3DWindowStaticFunctions.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToPushButton :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToPushButton -} +castWindowToPushButton :: HG3DClass -> IO (HG3DClass) castWindowToPushButton a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToListbox :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToListbox -} +castWindowToListbox :: HG3DClass -> IO (HG3DClass) castWindowToListbox a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToCombobox :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToCombobox -} +castWindowToCombobox :: HG3DClass -> IO (HG3DClass) castWindowToCombobox a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,10 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToCheckbox :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToCheckbox -} +castWindowToCheckbox :: HG3DClass -> IO (HG3DClass) castWindowToCheckbox a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,10 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToRadioButton :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToRadioButton -} +castWindowToRadioButton :: HG3DClass -> IO (HG3DClass) castWindowToRadioButton a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -108,10 +98,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToEditbox :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToEditbox -} +castWindowToEditbox :: HG3DClass -> IO (HG3DClass) castWindowToEditbox a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -120,10 +108,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToMultiLineEditbox :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToMultiLineEditbox -} +castWindowToMultiLineEditbox :: HG3DClass -> IO (HG3DClass) castWindowToMultiLineEditbox a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -132,10 +118,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToFrameWindow :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToFrameWindow -} +castWindowToFrameWindow :: HG3DClass -> IO (HG3DClass) castWindowToFrameWindow a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -144,10 +128,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToProgressBar :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToProgressBar -} +castWindowToProgressBar :: HG3DClass -> IO (HG3DClass) castWindowToProgressBar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -156,10 +138,8 @@ return (a2'') {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToSlider :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToSlider -} +castWindowToSlider :: HG3DClass -> IO (HG3DClass) castWindowToSlider a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -168,10 +148,8 @@ return (a2'') {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToSpinner :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToSpinner -} +castWindowToSpinner :: HG3DClass -> IO (HG3DClass) castWindowToSpinner a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -180,10 +158,8 @@ return (a2'') {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-} --- | -castWindowToMultiColumnList :: HG3DClass -- ^ window - -> IO (HG3DClass) - -- ^ +{- function castWindowToMultiColumnList -} +castWindowToMultiColumnList :: HG3DClass -> IO (HG3DClass) castWindowToMultiColumnList a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassImageCodec.hs b/HGamer3D/Bindings/CEGUI/ClassImageCodec.hs --- a/HGamer3D/Bindings/CEGUI/ClassImageCodec.hs +++ b/HGamer3D/Bindings/CEGUI/ClassImageCodec.hs @@ -48,20 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-} --- | Destructor. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ImageCodec -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-} --- | Return the name of the image codec object. - Details: Return the name of the image codec -getIdentifierString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getIdentifierString -} +getIdentifierString :: HG3DClass -> IO (String) getIdentifierString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -70,10 +66,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-} --- | Return the list of image file format supported. - Details: Return a list of space separated image format supported by this codec -getSupportedFormat :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getSupportedFormat -} +getSupportedFormat :: HG3DClass -> IO (String) getSupportedFormat a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassImageset.hs b/HGamer3D/Bindings/CEGUI/ClassImageset.hs --- a/HGamer3D/Bindings/CEGUI/ClassImageset.hs +++ b/HGamer3D/Bindings/CEGUI/ClassImageset.hs @@ -48,12 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Construct a new Imageset - Details: Under certain renderers it may be required that the source image dimensions be some power of 2, if this condition is not met then stretching and other undesired side-effects may be experienced. To be safe from such effects it is generally recommended that all images that you load have dimensions that are some power of 2. -new :: String -- ^ name - String object holding the name to be assigned to the created imageset. - -> String -- ^ filename - String object holding the filename of the image that is to be loaded. The image should be of some format that is supported by the Renderer that is in use. - -> String -- ^ resourceGroup - Resource group identifier to be passed to the resource manager, which may specify a group from which the image file is to be loaded. - -> IO (HG3DClass) - -- ^ +{- function Imageset2 -} +new :: String -> String -> String -> IO (HG3DClass) new a1 a2 a3 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -64,20 +60,16 @@ return (a4'') {-# LINE 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Destroys Imageset -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Imageset -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return String object holding the name of the Imageset -getName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object that holds the name of the +{- function getName -} +getName :: HG3DClass -> IO (String) getName a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -86,10 +78,8 @@ return (a2'') {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return number of images defined for this Imageset -getImageCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - uint value equal to the number of Image objects defined for the +{- function getImageCount -} +getImageCount :: HG3DClass -> IO (Int) getImageCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -98,11 +88,8 @@ return (a2'') {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return true if an Image with the specified name exists. -isImageDefined :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Image to look for. - -> IO (Bool) - -- ^ return value - true if an Image object named +{- function isImageDefined -} +isImageDefined :: HG3DClass -> String -> IO (Bool) isImageDefined a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -112,11 +99,8 @@ return (a3'') {-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | remove the definition for the Image with the specified name. If no such Image exists, nothing happens. -undefineImage :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Image object to be removed from the Imageset, - -> IO () - -- ^ return value - Nothing. +{- function undefineImage -} +undefineImage :: HG3DClass -> String -> IO () undefineImage a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -124,21 +108,16 @@ return () {-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Removes the definitions for all Image objects currently defined in the Imageset -undefineAllImages :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function undefineAllImages -} +undefineAllImages :: HG3DClass -> IO () undefineAllImages a1 = withHG3DClass a1 $ \a1' -> undefineAllImages'_ a1' >>= \res -> return () {-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return the width of the named image. -getImageWidth :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Image. - -> IO (Float) - -- ^ return value - float value equalling the width of the requested Image. +{- function getImageWidth -} +getImageWidth :: HG3DClass -> String -> IO (Float) getImageWidth a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -148,11 +127,8 @@ return (a3'') {-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return the height of the named image. -getImageHeight :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Image. - -> IO (Float) - -- ^ return value - float value equalling the height of the requested Image. +{- function getImageHeight -} +getImageHeight :: HG3DClass -> String -> IO (Float) getImageHeight a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -162,11 +138,8 @@ return (a3'') {-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return the x rendering offset for the named image. -getImageOffsetX :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Image. - -> IO (Float) - -- ^ return value - float value equal to the x rendering offset applied when drawing the requested Image. +{- function getImageOffsetX -} +getImageOffsetX :: HG3DClass -> String -> IO (Float) getImageOffsetX a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -176,11 +149,8 @@ return (a3'') {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | return the y rendering offset for the named image. -getImageOffsetY :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Image. - -> IO (Float) - -- ^ return value - float value equal to the y rendering offset applied when drawing the requested Image. +{- function getImageOffsetY -} +getImageOffsetY :: HG3DClass -> String -> IO (Float) getImageOffsetY a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -190,10 +160,8 @@ return (a3'') {-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Return whether this Imageset -isAutoScaled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if +{- function isAutoScaled -} +isAutoScaled :: HG3DClass -> IO (Bool) isAutoScaled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -202,11 +170,8 @@ return (a2'') {-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Enable or disable auto-scaling for this Imageset -setAutoScalingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true to enable auto-scaling, false to disable auto-scaling. - -> IO () - -- ^ return value - Nothing. +{- function setAutoScalingEnabled -} +setAutoScalingEnabled :: HG3DClass -> Bool -> IO () setAutoScalingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -214,19 +179,16 @@ return () {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Sets the default resource group to be used when loading imageset data. -setDefaultResourceGroup :: String -- ^ resourceGroup - String describing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: String -> IO () setDefaultResourceGroup a1 = withCString a1 $ \a1' -> setDefaultResourceGroup'_ a1' >>= \res -> return () {-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-} --- | Returns the default resource group currently set for Imagesets. +{- function getDefaultResourceGroup -} getDefaultResourceGroup :: IO (String) - -- ^ return value - String describing the default resource group identifier that will be used when loading getDefaultResourceGroup = alloc64k $ \a1' -> getDefaultResourceGroup'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassItemEntry.hs b/HGamer3D/Bindings/CEGUI/ClassItemEntry.hs --- a/HGamer3D/Bindings/CEGUI/ClassItemEntry.hs +++ b/HGamer3D/Bindings/CEGUI/ClassItemEntry.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Returns whether this item is selected or not. -isSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSelected -} +isSelected :: HG3DClass -> IO (Bool) isSelected a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Returns whether this item is selectable or not. -isSelectable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSelectable -} +isSelectable :: HG3DClass -> IO (Bool) isSelectable a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,11 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Sets the selection state of this item (on/off). If this item is not selectable this function does nothing. -setSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - 'true' to select the item. 'false' to deselect the item. - -> IO () - -- ^ +{- function setSelected -} +setSelected :: HG3DClass -> Bool -> IO () setSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -84,32 +77,24 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Selects the item. -select :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function select -} +select :: HG3DClass -> IO () select a1 = withHG3DClass a1 $ \a1' -> select'_ a1' >>= \res -> return () {-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Deselects the item. -deselect :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function deselect -} +deselect :: HG3DClass -> IO () deselect a1 = withHG3DClass a1 $ \a1' -> deselect'_ a1' >>= \res -> return () {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Set the selection state for this ListItem. Internal version. Should NOT be used by client code. -setSelectedImpl :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ state - -> Bool -- ^ notify - -> IO () - -- ^ +{- function setSelected_impl -} +setSelectedImpl :: HG3DClass -> Bool -> Bool -> IO () setSelectedImpl a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -118,11 +103,8 @@ return () {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Sets whether this item will be selectable. - Details: If the item is currently selectable and selected, calling this function with setting -setSelectable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - 'true' to allow this item to be selected. 'false' to disallow this item from ever being selected. - -> IO () - -- ^ +{- function setSelectable -} +setSelectable :: HG3DClass -> Bool -> IO () setSelectable a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -130,11 +112,8 @@ return () {-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Constructor for ItemEntry -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ItemEntry -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -144,10 +123,8 @@ return (a3'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-} --- | Destructor for ItemEntry -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ItemEntry -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassItemListbox.hs b/HGamer3D/Bindings/CEGUI/ClassItemListbox.hs --- a/HGamer3D/Bindings/CEGUI/ClassItemListbox.hs +++ b/HGamer3D/Bindings/CEGUI/ClassItemListbox.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns the number of selected items in this ItemListbox -getSelectedCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ +{- function getSelectedCount -} +getSelectedCount :: HG3DClass -> IO (Int) getSelectedCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns a pointer to the last selected item. -getLastSelectedItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - A pointer to the last selected item, 0 is none. +{- function getLastSelectedItem -} +getLastSelectedItem :: HG3DClass -> IO (HG3DClass) getLastSelectedItem a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,11 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns a pointer to the first selected item. - Details: If multiselect is disabled then this does the equivalent of calling getLastSelectedItem. If multiselect is enabled it will search the array starting at start_index -getFirstSelectedItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ start_index - The index where the search should begin. If omitted the search will begin with the first item. - -> IO (HG3DClass) - -- ^ return value - A pointer to the first selected item in the listbox. If no item is selected the return value is 0. If +{- function getFirstSelectedItem -} +getFirstSelectedItem :: HG3DClass -> Int -> IO (HG3DClass) getFirstSelectedItem a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -86,10 +79,8 @@ return (a3'') {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns a pointer to the next seleced item relative to a previous call to getFirstSelectedItem or getNextSelectedItem. - Details: This member function will take on from where the last call to getFirstSelectedItem or getNextSelectedItem returned. So be sure to start with a call to getFirstSelectedItem. -getNextSelectedItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - A pointer to the next seleced item. If there are no further selected items the return value is 0. If multiselect is disabled the return value is 0. +{- function getNextSelectedItem -} +getNextSelectedItem :: HG3DClass -> IO (HG3DClass) getNextSelectedItem a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -98,11 +89,8 @@ return (a2'') {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns a pointer to the next selected item after the item 'start_item' given. - Details: This member function will search the array from the beginning and will be slow for large lists, it will not advance the internal counter used by getFirstSelectedItem and getNextSelectedItem either. -getNextSelectedItemAfter :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ start_item - -> IO (HG3DClass) - -- ^ +{- function getNextSelectedItemAfter -} +getNextSelectedItemAfter :: HG3DClass -> HG3DClass -> IO (HG3DClass) getNextSelectedItemAfter a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -112,10 +100,8 @@ return (a3'') {-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns 'true' if multiple selections are allowed. 'false' if not. -isMultiSelectEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isMultiSelectEnabled -} +isMultiSelectEnabled :: HG3DClass -> IO (Bool) isMultiSelectEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -124,11 +110,8 @@ return (a2'') {-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Returns 'true' if the item at the given index is selectable and currently selected. -isItemSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ index - -> IO (Bool) - -- ^ +{- function isItemSelected -} +isItemSelected :: HG3DClass -> Int -> IO (Bool) isItemSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -138,21 +121,16 @@ return (a3'') {-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Set whether or not multiple selections should be allowed. -setMultiSelectEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ state - -> IO () - -- ^ +{- function setMultiSelectEnabled -} +setMultiSelectEnabled :: HG3DClass -> Bool -> IO () setMultiSelectEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -160,22 +138,16 @@ return () {-# LINE 90 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Clears all selections. -clearAllSelections :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function clearAllSelections -} +clearAllSelections :: HG3DClass -> IO () clearAllSelections a1 = withHG3DClass a1 $ \a1' -> clearAllSelections'_ a1' >>= \res -> return () {-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Select a range of items. -selectRange :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ a - Start item. (inclusive) - -> Int -- ^ z - End item. (inclusive) - -> IO () - -- ^ +{- function selectRange -} +selectRange :: HG3DClass -> Int -> Int -> IO () selectRange a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -184,21 +156,16 @@ return () {-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Select all items. Does nothing if multiselect is disabled. -selectAllItems :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function selectAllItems -} +selectAllItems :: HG3DClass -> IO () selectAllItems a1 = withHG3DClass a1 $ \a1' -> selectAllItems'_ a1' >>= \res -> return () {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Constructor for the ItemListbox -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ItemListbox -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -208,31 +175,24 @@ return (a3'') {-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Destructor for the ItemListbox -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ItemListbox -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Setup size and position for the item widgets attached to this ItemListbox -layoutItemWidgets :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function layoutItemWidgets -} +layoutItemWidgets :: HG3DClass -> IO () layoutItemWidgets a1 = withHG3DClass a1 $ \a1' -> layoutItemWidgets'_ a1' >>= \res -> return () {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Return whether this window was inherited from the given class name at some point in the inheritance hierarchy. -testClassNameImpl :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ class_name - The class name that is to be checked. - -> IO (Bool) - -- ^ return value - true if this window was inherited from +{- function testClassName_impl -} +testClassNameImpl :: HG3DClass -> String -> IO (Bool) testClassNameImpl a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -242,11 +202,8 @@ return (a3'') {-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Notify this ItemListbox -notifyItemClicked :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ li - -> IO () - -- ^ +{- function notifyItemClicked -} +notifyItemClicked :: HG3DClass -> HG3DClass -> IO () notifyItemClicked a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -254,12 +211,8 @@ return () {-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-} --- | Notify this ItemListbox -notifyItemSelectState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ li - -> Bool -- ^ state - -> IO () - -- ^ +{- function notifyItemSelectState -} +notifyItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO () notifyItemSelectState a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassListHeader.hs b/HGamer3D/Bindings/CEGUI/ClassListHeader.hs --- a/HGamer3D/Bindings/CEGUI/ClassListHeader.hs +++ b/HGamer3D/Bindings/CEGUI/ClassListHeader.hs @@ -50,10 +50,8 @@ import HGamer3D.Bindings.CEGUI.EnumSortDirection {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the number of columns or segments attached to the header. -getColumnCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - uint value equal to the number of columns / segments currently in the header. +{- function getColumnCount -} +getColumnCount :: HG3DClass -> IO (Int) getColumnCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -62,11 +60,8 @@ return (a2'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the ListHeaderSegment -getSegmentFromColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ column - zero based column index of the ListHeaderSegment to be returned. - -> IO (HG3DClass) - -- ^ +{- function getSegmentFromColumn -} +getSegmentFromColumn :: HG3DClass -> Int -> IO (HG3DClass) getSegmentFromColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -76,11 +71,8 @@ return (a3'') {-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the ListHeaderSegment -getSegmentFromID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ id - id code of the ListHeaderSegment to be returned. - -> IO (HG3DClass) - -- ^ +{- function getSegmentFromID -} +getSegmentFromID :: HG3DClass -> Int -> IO (HG3DClass) getSegmentFromID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -90,10 +82,8 @@ return (a3'') {-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the ListHeaderSegment -getSortSegment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getSortSegment -} +getSortSegment :: HG3DClass -> IO (HG3DClass) getSortSegment a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -102,11 +92,8 @@ return (a2'') {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the zero based column index of the specified segment. -getColumnFromSegment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ segment - ListHeaderSegment whos zero based index is to be returned. - -> IO (Int) - -- ^ return value - Zero based column index of the +{- function getColumnFromSegment -} +getColumnFromSegment :: HG3DClass -> HG3DClass -> IO (Int) getColumnFromSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -116,11 +103,8 @@ return (a3'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the zero based column index of the segment with the specified ID. -getColumnFromID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ id - ID code of the segment whos column index is to be returned. - -> IO (Int) - -- ^ return value - Zero based column index of the first +{- function getColumnFromID -} +getColumnFromID :: HG3DClass -> Int -> IO (Int) getColumnFromID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -130,10 +114,8 @@ return (a3'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the zero based index of the current sort column. There must be at least one segment/column to successfully call this method. -getSortColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Zero based column index that is the current sort column. +{- function getSortColumn -} +getSortColumn :: HG3DClass -> IO (Int) getSortColumn a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -142,11 +124,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the zero based column index of the segment with the specified text. -getColumnWithText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> IO (Int) - -- ^ return value - Zero based column index of the segment with the specified text. +{- function getColumnWithText -} +getColumnWithText :: HG3DClass -> String -> IO (Int) getColumnWithText a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -156,11 +135,8 @@ return (a3'') {-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the pixel offset to the given ListHeaderSegment -getPixelOffsetToSegment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ segment - ListHeaderSegment object that the offset to is to be returned. - -> IO (Float) - -- ^ return value - The number of pixels up-to the begining of the +{- function getPixelOffsetToSegment -} +getPixelOffsetToSegment :: HG3DClass -> HG3DClass -> IO (Float) getPixelOffsetToSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -170,11 +146,8 @@ return (a3'') {-# LINE 95 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the pixel offset to the ListHeaderSegment -getPixelOffsetToColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ column - Zero based column index of the ListHeaderSegment whos pixel offset it to be returned. - -> IO (Float) - -- ^ return value - The number of pixels up-to the begining of the +{- function getPixelOffsetToColumn -} +getPixelOffsetToColumn :: HG3DClass -> Int -> IO (Float) getPixelOffsetToColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -184,10 +157,8 @@ return (a3'') {-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the total pixel width of all attached segments. -getTotalSegmentsPixelExtent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - Sum of the pixel widths of all attached +{- function getTotalSegmentsPixelExtent -} +getTotalSegmentsPixelExtent :: HG3DClass -> IO (Float) getTotalSegmentsPixelExtent a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -196,10 +167,8 @@ return (a2'') {-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the currently set sort direction. -getSortDirection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumSortDirection) - -- ^ return value - One of the +{- function getSortDirection -} +getSortDirection :: HG3DClass -> IO (EnumSortDirection) getSortDirection a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -208,10 +177,8 @@ return (a2'') {-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return whether user manipulation of the sort column & direction are enabled. -isSortingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the user may interactively modify the sort column and direction. false if the user may not modify the sort column and direction (these can still be set programmatically). +{- function isSortingEnabled -} +isSortingEnabled :: HG3DClass -> IO (Bool) isSortingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -220,10 +187,8 @@ return (a2'') {-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return whether the user may size column segments. -isColumnSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the user may interactively modify the width of column segments, false if they may not. +{- function isColumnSizingEnabled -} +isColumnSizingEnabled :: HG3DClass -> IO (Bool) isColumnSizingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -232,10 +197,8 @@ return (a2'') {-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return whether the user may modify the order of the segments. -isColumnDraggingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the user may interactively modify the order of the column segments, false if they may not. +{- function isColumnDraggingEnabled -} +isColumnDraggingEnabled :: HG3DClass -> IO (Bool) isColumnDraggingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -244,10 +207,8 @@ return (a2'') {-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Return the current segment offset value. This value is used to implement scrolling of the header segments within the ListHeader -getSegmentOffset :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the current segment offset value in whatever metrics system is active for the +{- function getSegmentOffset -} +getSegmentOffset :: HG3DClass -> IO (Float) getSegmentOffset a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -256,13 +217,8 @@ return (a2'') {-# LINE 131 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set whether user manipulation of the sort column and direction is enabled. -setSortingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setSortingEnabled -} +setSortingEnabled :: HG3DClass -> Bool -> IO () setSortingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -270,11 +226,8 @@ return () {-# LINE 136 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set the current sort direction. -setSortDirection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumSortDirection -- ^ direction - One of the ListHeaderSegment::SortDirection enumerated values indicating the sort direction to be used. - -> IO () - -- ^ return value - Nothing. +{- function setSortDirection -} +setSortDirection :: HG3DClass -> EnumSortDirection -> IO () setSortDirection a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -282,11 +235,8 @@ return () {-# LINE 141 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set the column segment to be used as the sort column. -setSortSegment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ segment - ListHeaderSegment object indicating the column to be sorted. - -> IO () - -- ^ return value - Nothing. +{- function setSortSegment -} +setSortSegment :: HG3DClass -> HG3DClass -> IO () setSortSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -294,11 +244,8 @@ return () {-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set the column to be used as the sort column. -setSortColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ column - Zero based column index indicating the column to be sorted. - -> IO () - -- ^ return value - Nothing. +{- function setSortColumn -} +setSortColumn :: HG3DClass -> Int -> IO () setSortColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -306,11 +253,8 @@ return () {-# LINE 151 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set the column to to be used for sorting via its ID code. -setSortColumnFromID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ id - ID code of the column segment that is to be used as the sort column. - -> IO () - -- ^ return value - Nothing. +{- function setSortColumnFromID -} +setSortColumnFromID :: HG3DClass -> Int -> IO () setSortColumnFromID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -318,13 +262,8 @@ return () {-# LINE 156 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set whether columns may be sized by the user. -setColumnSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setColumnSizingEnabled -} +setColumnSizingEnabled :: HG3DClass -> Bool -> IO () setColumnSizingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -332,13 +271,8 @@ return () {-# LINE 161 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set whether columns may be reordered by the user via drag and drop. -setColumnDraggingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setColumnDraggingEnabled -} +setColumnDraggingEnabled :: HG3DClass -> Bool -> IO () setColumnDraggingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -346,11 +280,8 @@ return () {-# LINE 166 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Removes a column segment from the ListHeader -removeColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ column - Zero based column index indicating the segment to be removed. - -> IO () - -- ^ return value - Nothing. +{- function removeColumn -} +removeColumn :: HG3DClass -> Int -> IO () removeColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -358,11 +289,8 @@ return () {-# LINE 171 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Remove the specified segment from the ListHeader -removeSegment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ segment - ListHeaderSegment object that is to be removed from the ListHeader. - -> IO () - -- ^ return value - Nothing. +{- function removeSegment -} +removeSegment :: HG3DClass -> HG3DClass -> IO () removeSegment a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -370,12 +298,8 @@ return () {-# LINE 176 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Moves a column segment into a new position. -moveColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ column - Zero based column index indicating the column segment to be moved. - -> Int -- ^ position - Zero based column index indicating the new position for the segment. If this is greater than the current number of segments, the segment is moved to the end of the header. - -> IO () - -- ^ return value - Nothing. +{- function moveColumn -} +moveColumn :: HG3DClass -> Int -> Int -> IO () moveColumn a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -384,12 +308,8 @@ return () {-# LINE 182 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Move a column segment to a new position. -moveColumn2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ column - Zero based column index indicating the column segment to be moved. - -> HG3DClass -- ^ position - ListHeaderSegment object indicating the new position for the segment. The segment at column will be moved behind segment position (that is, segment column will appear to the right of segment position). - -> IO () - -- ^ return value - Nothing. +{- function moveColumn2 -} +moveColumn2 :: HG3DClass -> Int -> HG3DClass -> IO () moveColumn2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -398,12 +318,8 @@ return () {-# LINE 188 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Moves a segment into a new position. -moveSegment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ segment - ListHeaderSegment object that is to be moved. - -> Int -- ^ position - Zero based column index indicating the new position for the segment. If this is greater than the current number of segments, the segment is moved to the end of the header. - -> IO () - -- ^ return value - Nothing. +{- function moveSegment -} +moveSegment :: HG3DClass -> HG3DClass -> Int -> IO () moveSegment a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -412,12 +328,8 @@ return () {-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Move a segment to a new position. -moveSegment2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ segment - ListHeaderSegment object that is to be moved. - -> HG3DClass -- ^ position - ListHeaderSegment object indicating the new position for the segment. The segment segment will be moved behind segment position (that is, segment segment will appear to the right of segment position). - -> IO () - -- ^ return value - Nothing. +{- function moveSegment2 -} +moveSegment2 :: HG3DClass -> HG3DClass -> HG3DClass -> IO () moveSegment2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -426,11 +338,8 @@ return () {-# LINE 200 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Set the current base segment offset. (This implements scrolling of the header segments within the header area). -setSegmentOffset :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ offset - New base offset for the first segment. The segments will of offset to the left by the amount specified. offset should be specified using the active metrics system for the ListHeader. - -> IO () - -- ^ return value - Nothing. +{- function setSegmentOffset -} +setSegmentOffset :: HG3DClass -> Float -> IO () setSegmentOffset a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -438,11 +347,8 @@ return () {-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Constructor for the list header base class. -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ListHeader -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -452,10 +358,8 @@ return (a3'') {-# LINE 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-} --- | Destructor for the list header base class. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ListHeader -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassListHeaderSegment.hs b/HGamer3D/Bindings/CEGUI/ClassListHeaderSegment.hs --- a/HGamer3D/Bindings/CEGUI/ClassListHeaderSegment.hs +++ b/HGamer3D/Bindings/CEGUI/ClassListHeaderSegment.hs @@ -50,10 +50,8 @@ import HGamer3D.Bindings.CEGUI.EnumSortDirection {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether this segment can be sized. -isSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the segment can be horizontally sized, false if the segment can not be horizontally sized. +{- function isSizingEnabled -} +isSizingEnabled :: HG3DClass -> IO (Bool) isSizingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -62,13 +60,8 @@ return (a2'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return the current sort direction set for this segment. - Details: Note that this has no impact on the way the segment functions (aside from the possibility ---of varied rendering). This is intended as a 'helper setting' to classes that make use of ---the ListHeaderSegment objects. --- -getSortDirection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumSortDirection) - -- ^ +{- function getSortDirection -} +getSortDirection :: HG3DClass -> IO (EnumSortDirection) getSortDirection a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -77,10 +70,8 @@ return (a2'') {-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether drag moving is enabled for this segment. -isDragMovingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the segment can be drag moved, false if the segment can not be drag moved. +{- function isDragMovingEnabled -} +isDragMovingEnabled :: HG3DClass -> IO (Bool) isDragMovingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -89,10 +80,8 @@ return (a2'') {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether the segment is clickable. -isClickable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the segment can be clicked, false of the segment can not be clicked (so no highlighting or events will happen). +{- function isClickable -} +isClickable :: HG3DClass -> IO (Bool) isClickable a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -101,10 +90,8 @@ return (a2'') {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether the segment is currently in its hovering state. -isSegmentHovering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSegmentHovering -} +isSegmentHovering :: HG3DClass -> IO (Bool) isSegmentHovering a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -113,10 +100,8 @@ return (a2'') {-# LINE 69 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether the segment is currently in its pushed state. -isSegmentPushed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSegmentPushed -} +isSegmentPushed :: HG3DClass -> IO (Bool) isSegmentPushed a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -125,10 +110,8 @@ return (a2'') {-# LINE 74 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether the splitter is currently in its hovering state. -isSplitterHovering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSplitterHovering -} +isSplitterHovering :: HG3DClass -> IO (Bool) isSplitterHovering a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -137,10 +120,8 @@ return (a2'') {-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether the segment is currently being drag-moved. -isBeingDragMoved :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isBeingDragMoved -} +isBeingDragMoved :: HG3DClass -> IO (Bool) isBeingDragMoved a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -149,10 +130,8 @@ return (a2'') {-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Return whether the segment is currently being drag-moved. -isBeingDragSized :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isBeingDragSized -} +isBeingDragSized :: HG3DClass -> IO (Bool) isBeingDragSized a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -161,11 +140,8 @@ return (a2'') {-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Set whether this segment can be sized. -setSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the segment may be horizontally sized, false if the segment may not be horizontally sized. - -> IO () - -- ^ return value - Nothing. +{- function setSizingEnabled -} +setSizingEnabled :: HG3DClass -> Bool -> IO () setSizingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -173,14 +149,8 @@ return () {-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Set the current sort direction set for this segment. - Details: Note that this has no impact on the way the segment functions (aside from the possibility ---of varied rendering). This is intended as a 'helper setting' to classes that make use of ---the ListHeaderSegment objects. --- -setSortDirection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumSortDirection -- ^ sort_dir - -> IO () - -- ^ +{- function setSortDirection -} +setSortDirection :: HG3DClass -> EnumSortDirection -> IO () setSortDirection a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -188,11 +158,8 @@ return () {-# LINE 99 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Set whether drag moving is allowed for this segment. -setDragMovingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the segment may be drag moved, false if the segment may not be drag moved. - -> IO () - -- ^ return value - Nothing. +{- function setDragMovingEnabled -} +setDragMovingEnabled :: HG3DClass -> Bool -> IO () setDragMovingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -200,11 +167,8 @@ return () {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Set whether the segment is clickable. -setClickable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the segment may be clicked, false of the segment may not be clicked (so no highlighting or events will happen). - -> IO () - -- ^ return value - Nothing. +{- function setClickable -} +setClickable :: HG3DClass -> Bool -> IO () setClickable a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -212,12 +176,8 @@ return () {-# LINE 109 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | -setSizingCursorImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - -> String -- ^ image - -> IO () - -- ^ +{- function setSizingCursorImage2 -} +setSizingCursorImage2 :: HG3DClass -> String -> String -> IO () setSizingCursorImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -226,12 +186,8 @@ return () {-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | -setMovingCursorImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - -> String -- ^ image - -> IO () - -- ^ +{- function setMovingCursorImage2 -} +setMovingCursorImage2 :: HG3DClass -> String -> String -> IO () setMovingCursorImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -240,11 +196,8 @@ return () {-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Constructor for list header segment base class. -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ListHeaderSegment -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -254,10 +207,8 @@ return (a3'') {-# LINE 127 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-} --- | Destructor for list header segment base class. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ListHeaderSegment -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassListbox.hs b/HGamer3D/Bindings/CEGUI/ClassListbox.hs --- a/HGamer3D/Bindings/CEGUI/ClassListbox.hs +++ b/HGamer3D/Bindings/CEGUI/ClassListbox.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return number of items attached to the list box. -getItemCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - the number of items currently attached to this list box. +{- function getItemCount -} +getItemCount :: HG3DClass -> IO (Int) getItemCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return the number of selected items in the list box. -getSelectedCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Total number of attached items that are in the selected state. +{- function getSelectedCount -} +getSelectedCount :: HG3DClass -> IO (Int) getSelectedCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return a pointer to the first selected item. -getFirstSelectedItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getFirstSelectedItem -} +getFirstSelectedItem :: HG3DClass -> IO (HG3DClass) getFirstSelectedItem a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,11 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return a pointer to the next selected item after item start_item -getNextSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ start_item - Pointer to the ListboxItem where the search for the next selected item is to begin. If this parameter is NULL, the search will begin with the first item in the list box. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getNextSelected -} +getNextSelected :: HG3DClass -> HG3DClass -> IO (HG3DClass) getNextSelected a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -98,11 +89,8 @@ return (a3'') {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return the item at index position index -getListboxItemFromIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ index - Zero based index of the item to be returned. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getListboxItemFromIndex -} +getListboxItemFromIndex :: HG3DClass -> Int -> IO (HG3DClass) getListboxItemFromIndex a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -112,11 +100,8 @@ return (a3'') {-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return the index of ListboxItemitem -getItemIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to a ListboxItem whos zero based index is to be returned. - -> IO (Int) - -- ^ return value - Zero based index indicating the position of +{- function getItemIndex -} +getItemIndex :: HG3DClass -> HG3DClass -> IO (Int) getItemIndex a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -126,10 +111,8 @@ return (a3'') {-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | return whether list sorting is enabled -isSortEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the list is sorted, false if the list is not sorted +{- function isSortEnabled -} +isSortEnabled :: HG3DClass -> IO (Bool) isSortEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -138,10 +121,8 @@ return (a2'') {-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | return whether multi-select is enabled -isMultiselectEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if multi-select is enabled, false if multi-select is not enabled. +{- function isMultiselectEnabled -} +isMultiselectEnabled :: HG3DClass -> IO (Bool) isMultiselectEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -150,10 +131,8 @@ return (a2'') {-# LINE 86 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | -isItemTooltipsEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isItemTooltipsEnabled -} +isItemTooltipsEnabled :: HG3DClass -> IO (Bool) isItemTooltipsEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -162,11 +141,8 @@ return (a2'') {-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | return whether the string at index position index -isItemSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ index - Zero based index of the item to be examined. - -> IO (Bool) - -- ^ return value - true if the item at +{- function isItemSelected -} +isItemSelected :: HG3DClass -> Int -> IO (Bool) isItemSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -176,12 +152,8 @@ return (a3'') {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Search the list for an item with the specified text. -findItemWithText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> HG3DClass -- ^ start_item - ListboxItem where the search is to begin, the search will not include item. If item is NULL, the search will begin from the first item in the list. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first +{- function findItemWithText -} +findItemWithText :: HG3DClass -> String -> HG3DClass -> IO (HG3DClass) findItemWithText a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -192,11 +164,8 @@ return (a4'') {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return whether the specified ListboxItem -isListboxItemInList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> IO (Bool) - -- ^ return value - true if +{- function isListboxItemInList -} +isListboxItemInList :: HG3DClass -> HG3DClass -> IO (Bool) isListboxItemInList a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -206,10 +175,8 @@ return (a3'') {-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return whether the vertical scroll bar is always shown. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -218,10 +185,8 @@ return (a2'') {-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return whether the horizontal scroll bar is always shown. -isHorzScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isHorzScrollbarAlwaysShown -} +isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isHorzScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -230,31 +195,24 @@ return (a2'') {-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Initialise the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Remove all items from the list. - Details: Note that this will cause 'AutoDelete' items to be deleted. -resetList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function resetList -} +resetList :: HG3DClass -> IO () resetList a1 = withHG3DClass a1 $ \a1' -> resetList'_ a1' >>= \res -> return () {-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Add the given ListboxItem -addItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to be added to the list. Note that it is the passed object that is added to the list, a copy is not made. If this parameter is NULL, nothing happens. - -> IO () - -- ^ return value - Nothing. +{- function addItem -} +addItem :: HG3DClass -> HG3DClass -> IO () addItem a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -262,14 +220,8 @@ return () {-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Insert an item into the list box before a specified item already in the list. - Details: Note that if the list is sorted, the item may not end up in the ---requested position. --- -insertItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> HG3DClass -- ^ position - -> IO () - -- ^ +{- function insertItem -} +insertItem :: HG3DClass -> HG3DClass -> HG3DClass -> IO () insertItem a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -278,11 +230,8 @@ return () {-# LINE 139 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Removes the given item from the list box. If the item is has the auto delete state set, the item will be deleted. -removeItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem that is to be removed. If item is not attached to this list box then nothing will happen. - -> IO () - -- ^ return value - Nothing. +{- function removeItem -} +removeItem :: HG3DClass -> HG3DClass -> IO () removeItem a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -290,21 +239,16 @@ return () {-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Clear the selected state for all items. -clearAllSelections :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function clearAllSelections -} +clearAllSelections :: HG3DClass -> IO () clearAllSelections a1 = withHG3DClass a1 $ \a1' -> clearAllSelections'_ a1' >>= \res -> return () {-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Set whether the list should be sorted. -setSortingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the list should be sorted, false if the list should not be sorted. - -> IO () - -- ^ return value - Nothing. +{- function setSortingEnabled -} +setSortingEnabled :: HG3DClass -> Bool -> IO () setSortingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -312,11 +256,8 @@ return () {-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Set whether the list should allow multiple selections or just a single selection. -setMultiselectEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the widget should allow multiple items to be selected, false if the widget should only allow a single selection. - -> IO () - -- ^ return value - Nothing. +{- function setMultiselectEnabled -} +setMultiselectEnabled :: HG3DClass -> Bool -> IO () setMultiselectEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -324,11 +265,8 @@ return () {-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Set whether the vertical scroll bar should always be shown. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the vertical scroll bar should be shown even when it is not required. false if the vertical scroll bar should only be shown when it is required. - -> IO () - -- ^ return value - Nothing. +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -336,11 +274,8 @@ return () {-# LINE 163 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Set whether the horizontal scroll bar should always be shown. -setShowHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the horizontal scroll bar should be shown even when it is not required. false if the horizontal scroll bar should only be shown when it is required. - -> IO () - -- ^ return value - Nothing. +{- function setShowHorzScrollbar -} +setShowHorzScrollbar :: HG3DClass -> Bool -> IO () setShowHorzScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -348,11 +283,8 @@ return () {-# LINE 168 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | -setItemTooltipsEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - -> IO () - -- ^ +{- function setItemTooltipsEnabled -} +setItemTooltipsEnabled :: HG3DClass -> Bool -> IO () setItemTooltipsEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -360,15 +292,8 @@ return () {-# LINE 173 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Set the select state of an attached ListboxItem - Details: This is the recommended way of selecting and deselecting items attached to a list box as it respects the ---multi-select mode setting. It is possible to modify the setting on ListboxItems directly, but that approach ---does not respect the settings of the list box. --- -setItemSelectState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> Bool -- ^ state - -> IO () - -- ^ +{- function setItemSelectState -} +setItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO () setItemSelectState a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -377,15 +302,8 @@ return () {-# LINE 179 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Set the select state of an attached ListboxItem - Details: This is the recommended way of selecting and deselecting items attached to a list box as it respects the ---multi-select mode setting. It is possible to modify the setting on ListboxItems directly, but that approach ---does not respect the settings of the list box. --- -setItemSelectState2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ item_index - -> Bool -- ^ state - -> IO () - -- ^ +{- function setItemSelectState2 -} +setItemSelectState2 :: HG3DClass -> Int -> Bool -> IO () setItemSelectState2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -394,24 +312,16 @@ return () {-# LINE 185 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Causes the list box to update it's internal state after changes have been made to one or more attached ListboxItem - Details: Client code must call this whenever it has made any changes to ListboxItem objects already attached to the ---list box. If you are just adding items, or removed items to update them prior to re-adding them, there is ---no need to call this method. --- -handleUpdatedItemData :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function handleUpdatedItemData -} +handleUpdatedItemData :: HG3DClass -> IO () handleUpdatedItemData a1 = withHG3DClass a1 $ \a1' -> handleUpdatedItemData'_ a1' >>= \res -> return () {-# LINE 189 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Ensure the item at the specified index is visible within the list box. -ensureItemIsVisible :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ item_index - Zero based index of the item to be made visible in the list box. If this value is out of range, the list is always scrolled to the bottom. - -> IO () - -- ^ return value - Nothing. +{- function ensureItemIsVisible -} +ensureItemIsVisible :: HG3DClass -> Int -> IO () ensureItemIsVisible a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -419,11 +329,8 @@ return () {-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Ensure the item at the specified index is visible within the list box. -ensureItemIsVisible2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to be made visible in the list box. - -> IO () - -- ^ return value - Nothing. +{- function ensureItemIsVisible2 -} +ensureItemIsVisible2 :: HG3DClass -> HG3DClass -> IO () ensureItemIsVisible2 a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -431,10 +338,8 @@ return () {-# LINE 199 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return a pointer to the vertical scrollbar component widget for this Listbox -getVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getVertScrollbar -} +getVertScrollbar :: HG3DClass -> IO (HG3DClass) getVertScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -443,10 +348,8 @@ return (a2'') {-# LINE 204 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return a pointer to the horizontal scrollbar component widget for this Listbox -getHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getHorzScrollbar -} +getHorzScrollbar :: HG3DClass -> IO (HG3DClass) getHorzScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -455,10 +358,8 @@ return (a2'') {-# LINE 209 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return the sum of all item heights. -getTotalItemsHeight :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getTotalItemsHeight -} +getTotalItemsHeight :: HG3DClass -> IO (Float) getTotalItemsHeight a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -467,10 +368,8 @@ return (a2'') {-# LINE 214 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Return the width of the widest item. -getWidestItemWidth :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getWidestItemWidth -} +getWidestItemWidth :: HG3DClass -> IO (Float) getWidestItemWidth a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -479,11 +378,8 @@ return (a2'') {-# LINE 219 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Constructor for Listbox -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Listbox -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -493,10 +389,8 @@ return (a3'') {-# LINE 225 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-} --- | Destructor for Listbox -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Listbox -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassListboxItem.hs b/HGamer3D/Bindings/CEGUI/ClassListboxItem.hs --- a/HGamer3D/Bindings/CEGUI/ClassListboxItem.hs +++ b/HGamer3D/Bindings/CEGUI/ClassListboxItem.hs @@ -48,22 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | base class destructor -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ListboxItem -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | return the text string set for this list box item. - Details: Note that even if the item does not render text, the text string can still be useful, since it ---is used for sorting list box items. --- -getTooltipText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getTooltipText -} +getTooltipText :: HG3DClass -> IO (String) getTooltipText a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -72,10 +66,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | -getText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getText -} +getText :: HG3DClass -> IO (String) getText a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -84,10 +76,8 @@ return (a2'') {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | return text string with visual -getTextVisual :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ +{- function getTextVisual -} +getTextVisual :: HG3DClass -> IO (String) getTextVisual a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -96,12 +86,8 @@ return (a2'') {-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | Return the current ID assigned to this list box item. - Details: Note that the system does not make use of this value, client code can assign any meaning it ---wishes to the ID. --- -getID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ +{- function getID -} +getID :: HG3DClass -> IO (Int) getID a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -110,10 +96,8 @@ return (a2'') {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | return whether this item is selected. -isSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the item is selected, false if the item is not selected. +{- function isSelected -} +isSelected :: HG3DClass -> IO (Bool) isSelected a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -122,10 +106,8 @@ return (a2'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | return whether this item is disabled. -isDisabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the item is disabled, false if the item is enabled. +{- function isDisabled -} +isDisabled :: HG3DClass -> IO (Bool) isDisabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -134,10 +116,8 @@ return (a2'') {-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | return whether this item will be automatically deleted when the list box it is attached to is destroyed, or when the item is removed from the list box. -isAutoDeleted :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the item object will be deleted by the system when the list box it is attached to is destroyed, or when the item is removed from the list. false if client code must destroy the item after it is removed from the list. +{- function isAutoDeleted -} +isAutoDeleted :: HG3DClass -> IO (Bool) isAutoDeleted a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -146,11 +126,8 @@ return (a2'') {-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | Get the owner window for this ListboxItem - Details: The owner of a ListboxItem is typically set by the list box widgets when an item is added or inserted. --- -getOwnerWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getOwnerWindow -} +getOwnerWindow :: HG3DClass -> IO (HG3DClass) getOwnerWindow a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -159,13 +136,8 @@ return (a2'') {-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | set the text string for this list box item. - Details: Note that even if the item does not render text, the text string can still be useful, since it ---is used for sorting list box items. --- -setText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - -> IO () - -- ^ +{- function setText -} +setText :: HG3DClass -> String -> IO () setText a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -173,11 +145,8 @@ return () {-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | -setTooltipText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - -> IO () - -- ^ +{- function setTooltipText -} +setTooltipText :: HG3DClass -> String -> IO () setTooltipText a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -185,13 +154,8 @@ return () {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | Set the ID assigned to this list box item. - Details: Note that the system does not make use of this value, client code can assign any meaning it ---wishes to the ID. --- -setID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ item_id - -> IO () - -- ^ +{- function setID -} +setID :: HG3DClass -> Int -> IO () setID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -199,11 +163,8 @@ return () {-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | set whether this item is selected. -setSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the item is selected, false if the item is not selected. - -> IO () - -- ^ return value - Nothing. +{- function setSelected -} +setSelected :: HG3DClass -> Bool -> IO () setSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -211,11 +172,8 @@ return () {-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | set whether this item is disabled. -setDisabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the item is disabled, false if the item is enabled. - -> IO () - -- ^ return value - Nothing. +{- function setDisabled -} +setDisabled :: HG3DClass -> Bool -> IO () setDisabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -223,11 +181,8 @@ return () {-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | Set whether this item will be automatically deleted when the list box it is attached to is destroyed, or when the item is removed from the list box. -setAutoDeleted :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the item object should be deleted by the system when the list box it is attached to is destroyed, or when the item is removed from the list. false if client code will destroy the item after it is removed from the list. - -> IO () - -- ^ return value - Nothing. +{- function setAutoDeleted -} +setAutoDeleted :: HG3DClass -> Bool -> IO () setAutoDeleted a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -235,11 +190,8 @@ return () {-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | Set the owner window for this ListboxItem -setOwnerWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ owner - Ponter to the window that should be considered the owner of this ListboxItem. - -> IO () - -- ^ return value - Nothing +{- function setOwnerWindow -} +setOwnerWindow :: HG3DClass -> HG3DClass -> IO () setOwnerWindow a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -247,12 +199,8 @@ return () {-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-} --- | Set the selection highlighting brush image. -setSelectionBrushImage2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - Name of the imagest containing the image to be used. - -> String -- ^ image - Name of the image to be used - -> IO () - -- ^ return value - Nothing. +{- function setSelectionBrushImage2 -} +setSelectionBrushImage2 :: HG3DClass -> String -> String -> IO () setSelectionBrushImage2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassListboxTextItem.hs b/HGamer3D/Bindings/CEGUI/ClassListboxTextItem.hs --- a/HGamer3D/Bindings/CEGUI/ClassListboxTextItem.hs +++ b/HGamer3D/Bindings/CEGUI/ClassListboxTextItem.hs @@ -48,22 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | base class destructor -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ListboxTextItem -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | Return a pointer to the font being used by this ListboxTextItem - Details: This method will try a number of places to find a font to be used. If no font can be ---found, NULL is returned. --- -getFont :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getFont -} +getFont :: HG3DClass -> IO (HG3DClass) getFont a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,11 +66,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | Set the font to be used by this ListboxTextItem -setFont :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ font - Font to be used for rendering this item - -> IO () - -- ^ return value - Nothing +{- function setFont -} +setFont :: HG3DClass -> HG3DClass -> IO () setFont a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -84,11 +75,8 @@ return () {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | Set the font to be used by this ListboxTextItem -setFont2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ font_name - String object containing the name of the Font to be used for rendering this item - -> IO () - -- ^ return value - Nothing +{- function setFont2 -} +setFont2 :: HG3DClass -> String -> IO () setFont2 a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -96,13 +84,8 @@ return () {-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | Set whether the the ListboxTextItem -setTextParsingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enable - --- --- - -> IO () - -- ^ +{- function setTextParsingEnabled -} +setTextParsingEnabled :: HG3DClass -> Bool -> IO () setTextParsingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -110,10 +93,8 @@ return () {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | return whether text parsing is enabled for this ListboxTextItem -isTextParsingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isTextParsingEnabled -} +isTextParsingEnabled :: HG3DClass -> IO (Bool) isTextParsingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -122,13 +103,8 @@ return (a2'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-} --- | set the text string for this list box item. - Details: Note that even if the item does not render text, the text string can still be useful, since it ---is used for sorting list box items. --- -setText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - -> IO () - -- ^ +{- function setText -} +setText :: HG3DClass -> String -> IO () setText a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassLogger.hs b/HGamer3D/Bindings/CEGUI/ClassLogger.hs --- a/HGamer3D/Bindings/CEGUI/ClassLogger.hs +++ b/HGamer3D/Bindings/CEGUI/ClassLogger.hs @@ -50,21 +50,16 @@ import HGamer3D.Bindings.CEGUI.EnumLoggingLevel {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-} --- | Destructor for Logger -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Logger -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-} --- | Set the level of logging information that will get out to the log file. -setLoggingLevel :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumLoggingLevel -- ^ level - One of the LoggingLevel enumerated values that specified the level of logging information required. - -> IO () - -- ^ return value - Nothing +{- function setLoggingLevel -} +setLoggingLevel :: HG3DClass -> EnumLoggingLevel -> IO () setLoggingLevel a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -72,10 +67,8 @@ return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-} --- | return the current logging level setting -getLoggingLevel :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumLoggingLevel) - -- ^ return value - One of the LoggingLevel enumerated values specifying the current level of logging +{- function getLoggingLevel -} +getLoggingLevel :: HG3DClass -> IO (EnumLoggingLevel) getLoggingLevel a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,12 +77,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-} --- | Add an event to the log. -logEvent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ message - String object containing the message to be added to the event log. - -> EnumLoggingLevel -- ^ level - LoggingLevel for this message. If level is greater than the current set logging level, the message is not logged. - -> IO () - -- ^ return value - Nothing +{- function logEvent -} +logEvent :: HG3DClass -> String -> EnumLoggingLevel -> IO () logEvent a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -98,14 +87,8 @@ return () {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-} --- | Set the name of the log file where all subsequent log entries should be written. The interpretation of file name may differ depending on the concrete logger implementation. - Details: When this is called, and the log file is created, any cached log entries are flushed to the log file. -setLogFilename :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ filename - Name of the file to put log messages. - -> Bool -- ^ append - --- --- - -> IO () - -- ^ +{- function setLogFilename -} +setLogFilename :: HG3DClass -> String -> Bool -> IO () setLogFilename a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassMenuBase.hs b/HGamer3D/Bindings/CEGUI/ClassMenuBase.hs --- a/HGamer3D/Bindings/CEGUI/ClassMenuBase.hs +++ b/HGamer3D/Bindings/CEGUI/ClassMenuBase.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Get the item spacing for this menu. -getItemSpacing :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - A float value with the current item spacing for this menu +{- function getItemSpacing -} +getItemSpacing :: HG3DClass -> IO (Float) getItemSpacing a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Return whether this menu allows multiple popup menus to open at the same time. -isMultiplePopupsAllowed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if this menu allows multiple popup menus to be opened simultaneously. false if not +{- function isMultiplePopupsAllowed -} +isMultiplePopupsAllowed :: HG3DClass -> IO (Bool) isMultiplePopupsAllowed a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Return whether this menu should close all its open child popups, when it gets hidden. -getAutoCloseNestedPopups :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the menu should close all its open child popups, when it gets hidden +{- function getAutoCloseNestedPopups -} +getAutoCloseNestedPopups :: HG3DClass -> IO (Bool) getAutoCloseNestedPopups a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,10 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Get currently opened MenuItem -getPopupMenuItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getPopupMenuItem -} +getPopupMenuItem :: HG3DClass -> IO (HG3DClass) getPopupMenuItem a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,11 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Set the item spacing for this menu. -setItemSpacing :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ spacing - -> IO () - -- ^ +{- function setItemSpacing -} +setItemSpacing :: HG3DClass -> Float -> IO () setItemSpacing a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -108,11 +97,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Change the currently open MenuItem -changePopupMenuItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to a MenuItem to open or NULL to close any opened. - -> IO () - -- ^ +{- function changePopupMenuItem -} +changePopupMenuItem :: HG3DClass -> HG3DClass -> IO () changePopupMenuItem a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -120,11 +106,8 @@ return () {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Set whether this menu allows multiple popup menus to be opened simultaneously. -setAllowMultiplePopups :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - -> IO () - -- ^ +{- function setAllowMultiplePopups -} +setAllowMultiplePopups :: HG3DClass -> Bool -> IO () setAllowMultiplePopups a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -132,11 +115,8 @@ return () {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | Set whether the menu should close all its open child popups, when it gets hidden. -setAutoCloseNestedPopups :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - -> IO () - -- ^ +{- function setAutoCloseNestedPopups -} +setAutoCloseNestedPopups :: HG3DClass -> Bool -> IO () setAutoCloseNestedPopups a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -144,10 +124,8 @@ return () {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-} --- | tells the current popup that it should start its closing timer. -setPopupMenuItemClosing :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function setPopupMenuItemClosing -} +setPopupMenuItemClosing :: HG3DClass -> IO () setPopupMenuItemClosing a1 = withHG3DClass a1 $ \a1' -> setPopupMenuItemClosing'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassMenuItem.hs b/HGamer3D/Bindings/CEGUI/ClassMenuItem.hs --- a/HGamer3D/Bindings/CEGUI/ClassMenuItem.hs +++ b/HGamer3D/Bindings/CEGUI/ClassMenuItem.hs @@ -48,10 +48,8 @@ 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. +{- function isHovering -} +isHovering :: HG3DClass -> IO (Bool) isHovering a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ 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. +{- function isPushed -} +isPushed :: HG3DClass -> IO (Bool) isPushed a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ 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) - -- ^ +{- function isOpened -} +isOpened :: HG3DClass -> IO (Bool) isOpened a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,10 +78,8 @@ 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) - -- ^ +{- function isPopupClosing -} +isPopupClosing :: HG3DClass -> IO (Bool) isPopupClosing a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,10 +88,8 @@ 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) - -- ^ +{- function hasAutoPopup -} +hasAutoPopup :: HG3DClass -> IO (Bool) hasAutoPopup a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -108,10 +98,8 @@ 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) - -- ^ +{- function getAutoPopupTimeout -} +getAutoPopupTimeout :: HG3DClass -> IO (Float) getAutoPopupTimeout a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -120,11 +108,8 @@ 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 () - -- ^ +{- function setAutoPopupTimeout -} +setAutoPopupTimeout :: HG3DClass -> Float -> IO () setAutoPopupTimeout a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -132,11 +117,8 @@ 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 () - -- ^ +{- function openPopupMenu -} +openPopupMenu :: HG3DClass -> Bool -> IO () openPopupMenu a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -144,11 +126,8 @@ 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. +{- function closePopupMenu -} +closePopupMenu :: HG3DClass -> Bool -> IO () closePopupMenu a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -156,10 +135,8 @@ 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. +{- function togglePopupMenu -} +togglePopupMenu :: HG3DClass -> IO (Bool) togglePopupMenu a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -168,31 +145,24 @@ 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 () - -- ^ +{- function startPopupClosing -} +startPopupClosing :: HG3DClass -> 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 () - -- ^ +{- function startPopupOpening -} +startPopupOpening :: HG3DClass -> 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) - -- ^ +{- function MenuItem -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -202,10 +172,8 @@ 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 () - -- ^ +{- function ~MenuItem -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassMultiColumnList.hs b/HGamer3D/Bindings/CEGUI/ClassMultiColumnList.hs --- a/HGamer3D/Bindings/CEGUI/ClassMultiColumnList.hs +++ b/HGamer3D/Bindings/CEGUI/ClassMultiColumnList.hs @@ -52,10 +52,8 @@ import HGamer3D.Bindings.CEGUI.EnumSelectionMode {-# LINE 44 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return whether user manipulation of the sort column and direction are enabled. -isUserSortControlEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the user may interactively modify the sort column and direction. false if the user may not modify the sort column and direction (these can still be set programmatically). +{- function isUserSortControlEnabled -} +isUserSortControlEnabled :: HG3DClass -> IO (Bool) isUserSortControlEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -64,10 +62,8 @@ return (a2'') {-# LINE 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return whether the user may size column segments. -isUserColumnSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the user may interactively modify the width of columns, false if they may not. +{- function isUserColumnSizingEnabled -} +isUserColumnSizingEnabled :: HG3DClass -> IO (Bool) isUserColumnSizingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -76,10 +72,8 @@ return (a2'') {-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return whether the user may modify the order of the columns. -isUserColumnDraggingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the user may interactively modify the order of the columns, false if they may not. +{- function isUserColumnDraggingEnabled -} +isUserColumnDraggingEnabled :: HG3DClass -> IO (Bool) isUserColumnDraggingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -88,10 +82,8 @@ return (a2'') {-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the number of columns in the multi-column list. -getColumnCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - uint value equal to the number of columns in the list. +{- function getColumnCount -} +getColumnCount :: HG3DClass -> IO (Int) getColumnCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -100,10 +92,8 @@ return (a2'') {-# LINE 65 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the number of rows in the multi-column list. -getRowCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - uint value equal to the number of rows currently in the list. +{- function getRowCount -} +getRowCount :: HG3DClass -> IO (Int) getRowCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -112,10 +102,8 @@ return (a2'') {-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the zero based index of the current sort column. There must be at least one column to successfully call this method. -getSortColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Zero based column index that is the current sort column. +{- function getSortColumn -} +getSortColumn :: HG3DClass -> IO (Int) getSortColumn a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -124,11 +112,8 @@ return (a2'') {-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the zero based column index of the column with the specified ID. -getColumnWithID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_id - ID code of the column whos index is to be returned. - -> IO (Int) - -- ^ return value - Zero based column index of the first column whos ID matches +{- function getColumnWithID -} +getColumnWithID :: HG3DClass -> Int -> IO (Int) getColumnWithID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -138,11 +123,8 @@ return (a3'') {-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the zero based index of the column whos header text matches the specified text. -getColumnWithHeaderText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> IO (Int) - -- ^ return value - Zero based column index of the column whos header has the specified text. +{- function getColumnWithHeaderText -} +getColumnWithHeaderText :: HG3DClass -> String -> IO (Int) getColumnWithHeaderText a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -152,10 +134,8 @@ return (a3'') {-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the currently set sort direction. -getSortDirection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumSortDirection) - -- ^ return value - One of the +{- function getSortDirection -} +getSortDirection :: HG3DClass -> IO (EnumSortDirection) getSortDirection a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -164,11 +144,8 @@ return (a2'') {-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ListHeaderSegment -getHeaderSegmentForColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - zero based index of the column whos ListHeaderSegment is to be returned. - -> IO (HG3DClass) - -- ^ +{- function getHeaderSegmentForColumn -} +getHeaderSegmentForColumn :: HG3DClass -> Int -> IO (HG3DClass) getHeaderSegmentForColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -178,11 +155,8 @@ return (a3'') {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the zero based index of the Row that contains item -getItemRowIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem that the row index is to returned for. - -> IO (Int) - -- ^ return value - Zero based index of the row that contains +{- function getItemRowIndex -} +getItemRowIndex :: HG3DClass -> HG3DClass -> IO (Int) getItemRowIndex a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -192,11 +166,8 @@ return (a3'') {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the current zero based index of the column that contains item -getItemColumnIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem that the column index is to returned for. - -> IO (Int) - -- ^ return value - Zero based index of the column that contains +{- function getItemColumnIndex -} +getItemColumnIndex :: HG3DClass -> HG3DClass -> IO (Int) getItemColumnIndex a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -206,12 +177,8 @@ return (a3'') {-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | return whether ListboxItemitemcol_idx -isListboxItemInColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to look for. - -> Int -- ^ col_idx - Zero based index of the column that is to be searched. - -> IO (Bool) - -- ^ +{- function isListboxItemInColumn -} +isListboxItemInColumn :: HG3DClass -> HG3DClass -> Int -> IO (Bool) isListboxItemInColumn a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -222,12 +189,8 @@ return (a4'') {-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | return whether ListboxItemitemrow_idx -isListboxItemInRow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to look for. - -> Int -- ^ row_idx - Zero based index of the row that is to be searched. - -> IO (Bool) - -- ^ +{- function isListboxItemInRow -} +isListboxItemInRow :: HG3DClass -> HG3DClass -> Int -> IO (Bool) isListboxItemInRow a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -238,11 +201,8 @@ return (a4'') {-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | return whether ListboxItemitem -isListboxItemInList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to look for. - -> IO (Bool) - -- ^ +{- function isListboxItemInList -} +isListboxItemInList :: HG3DClass -> HG3DClass -> IO (Bool) isListboxItemInList a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -252,13 +212,8 @@ return (a3'') {-# LINE 130 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ListboxItemcol_idxtext -findColumnItemWithText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> Int -- ^ col_idx - Zero based index of the column to be searched. - -> HG3DClass -- ^ start_item - Pointer to the ListboxItem where the exclusive search is to start, or NULL to search from the top of the column. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first +{- function findColumnItemWithText -} +findColumnItemWithText :: HG3DClass -> String -> Int -> HG3DClass -> IO (HG3DClass) findColumnItemWithText a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -270,13 +225,8 @@ return (a5'') {-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ListboxItemrow_idxtext -findRowItemWithText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> Int -- ^ row_idx - Zero based index of the row to be searched. - -> HG3DClass -- ^ start_item - Pointer to the ListboxItem where the exclusive search is to start, or NULL to search from the start of the row. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first +{- function findRowItemWithText -} +findRowItemWithText :: HG3DClass -> String -> Int -> HG3DClass -> IO (HG3DClass) findRowItemWithText a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -288,12 +238,8 @@ return (a5'') {-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ListboxItemtext - Details: List box searching progresses across the columns in each row. -findListItemWithText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text to be searched for. - -> HG3DClass -- ^ start_item - Pointer to the ListboxItem where the exclusive search is to start, or NULL to search the whole list box. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first +{- function findListItemWithText -} +findListItemWithText :: HG3DClass -> String -> HG3DClass -> IO (HG3DClass) findListItemWithText a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -304,10 +250,8 @@ return (a4'') {-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return a pointer to the first selected ListboxItem - Details: List box searching progresses across the columns in each row. -getFirstSelectedItem :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first +{- function getFirstSelectedItem -} +getFirstSelectedItem :: HG3DClass -> IO (HG3DClass) getFirstSelectedItem a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -316,11 +260,8 @@ return (a2'') {-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return a pointer to the next selected ListboxItemstart_item - Details: List box searching progresses across the columns in each row. -getNextSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ start_item - Pointer to the ListboxItem where the exclusive search is to start, or NULL to search the whole list box. - -> IO (HG3DClass) - -- ^ return value - Pointer to the first selected +{- function getNextSelected -} +getNextSelected :: HG3DClass -> HG3DClass -> IO (HG3DClass) getNextSelected a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -330,10 +271,8 @@ return (a3'') {-# LINE 164 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the number of selected ListboxItems attached to this list box. - Details: return uint value equal to the number of ListboxItems attached to this list box that are currently selected. -getSelectedCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ +{- function getSelectedCount -} +getSelectedCount :: HG3DClass -> IO (Int) getSelectedCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -342,10 +281,8 @@ return (a2'') {-# LINE 169 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ID of the currently set nominated selection column to be used when in one of the NominatedColumn* selection modes. There must be at least one column to successfully call this method. - Details: You should only ever call this when getColumnCount() -getNominatedSelectionColumnID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - ID code of the nominated selection column. +{- function getNominatedSelectionColumnID -} +getNominatedSelectionColumnID :: HG3DClass -> IO (Int) getNominatedSelectionColumnID a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -354,10 +291,8 @@ return (a2'') {-# LINE 174 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the index of the currently set nominated selection column to be used when in one of the NominatedColumn* selection modes. -getNominatedSelectionColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Zero based index of the nominated selection column. +{- function getNominatedSelectionColumn -} +getNominatedSelectionColumn :: HG3DClass -> IO (Int) getNominatedSelectionColumn a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -366,10 +301,8 @@ return (a2'') {-# LINE 179 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the index of the currently set nominated selection row to be used when in one of the NominatedRow* selection modes. -getNominatedSelectionRow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Zero based index of the nominated selection column. +{- function getNominatedSelectionRow -} +getNominatedSelectionRow :: HG3DClass -> IO (Int) getNominatedSelectionRow a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -378,10 +311,8 @@ return (a2'') {-# LINE 184 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the currently set selection mode. -getSelectionMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumSelectionMode) - -- ^ return value - One of the +{- function getSelectionMode -} +getSelectionMode :: HG3DClass -> IO (EnumSelectionMode) getSelectionMode a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -390,10 +321,8 @@ return (a2'') {-# LINE 189 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return whether the vertical scroll bar is always shown. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -402,10 +331,8 @@ return (a2'') {-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return whether the horizontal scroll bar is always shown. -isHorzScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isHorzScrollbarAlwaysShown -} +isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isHorzScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -414,11 +341,8 @@ return (a2'') {-# LINE 199 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ID code assigned to the requested column. -getColumnID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - Zero based index of the column whos ID code is to be returned. - -> IO (Int) - -- ^ return value - Current ID code assigned to the column at the requested index. +{- function getColumnID -} +getColumnID :: HG3DClass -> Int -> IO (Int) getColumnID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -428,11 +352,8 @@ return (a3'') {-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the ID code assigned to the requested row. -getRowID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_idx - Zero based index of the row who's ID code is to be returned. - -> IO (Int) - -- ^ return value - Current ID code assigned to the row at the requested index. +{- function getRowID -} +getRowID :: HG3DClass -> Int -> IO (Int) getRowID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -442,11 +363,8 @@ return (a3'') {-# LINE 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the zero based row index of the row with the specified ID. -getRowWithID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_id - ID code of the row who's index is to be returned. - -> IO (Int) - -- ^ return value - Zero based row index of the first row who's ID matches +{- function getRowWithID -} +getRowWithID :: HG3DClass -> Int -> IO (Int) getRowWithID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -456,10 +374,8 @@ return (a3'') {-# LINE 217 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return a pointer to the vertical scrollbar component widget for this MultiColumnList -getVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getVertScrollbar -} +getVertScrollbar :: HG3DClass -> IO (HG3DClass) getVertScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -468,10 +384,8 @@ return (a2'') {-# LINE 222 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return a pointer to the horizontal scrollbar component widget for this MultiColumnList -getHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getHorzScrollbar -} +getHorzScrollbar :: HG3DClass -> IO (HG3DClass) getHorzScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -480,10 +394,8 @@ return (a2'') {-# LINE 227 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return a pointer to the list header component widget for this MultiColumnList -getListHeader :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getListHeader -} +getListHeader :: HG3DClass -> IO (HG3DClass) getListHeader a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -492,10 +404,8 @@ return (a2'') {-# LINE 232 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the sum of all row heights in pixels. -getTotalRowsHeight :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getTotalRowsHeight -} +getTotalRowsHeight :: HG3DClass -> IO (Float) getTotalRowsHeight a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -504,11 +414,8 @@ return (a2'') {-# LINE 237 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return the pixel width of the widest item in the given column. -getWidestColumnItemWidth :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - -> IO (Float) - -- ^ +{- function getWidestColumnItemWidth -} +getWidestColumnItemWidth :: HG3DClass -> Int -> IO (Float) getWidestColumnItemWidth a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -518,11 +425,8 @@ return (a3'') {-# LINE 243 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Return, in pixels, the height of the highest item in the given row. -getHighestRowItemHeight :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_idx - -> IO (Float) - -- ^ +{- function getHighestRowItemHeight -} +getHighestRowItemHeight :: HG3DClass -> Int -> IO (Float) getHighestRowItemHeight a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -532,31 +436,24 @@ return (a3'') {-# LINE 249 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Initialise the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 253 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Remove all items from the list. - Details: Note that this will cause 'AutoDelete' items to be deleted. -resetList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function resetList -} +resetList :: HG3DClass -> IO () resetList a1 = withHG3DClass a1 $ \a1' -> resetList'_ a1' >>= \res -> return () {-# LINE 257 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Removes a column from the list box. This will cause any ListboxItem -removeColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - Zero based index of the column to be removed. - -> IO () - -- ^ return value - Nothing. +{- function removeColumn -} +removeColumn :: HG3DClass -> Int -> IO () removeColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -564,11 +461,8 @@ return () {-# LINE 262 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Removes a column from the list box. This will cause any ListboxItem -removeColumnWithID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_id - ID code of the column to be deleted. - -> IO () - -- ^ return value - Nothing. +{- function removeColumnWithID -} +removeColumnWithID :: HG3DClass -> Int -> IO () removeColumnWithID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -576,12 +470,8 @@ return () {-# LINE 267 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Move the column at index col_idxposition -moveColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - Zero based index of the column to be moved. - -> Int -- ^ position - Zero based index of the new position for the column. - -> IO () - -- ^ return value - Nothing. +{- function moveColumn -} +moveColumn :: HG3DClass -> Int -> Int -> IO () moveColumn a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -590,12 +480,8 @@ return () {-# LINE 273 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Move the column with ID col_idposition -moveColumnWithID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_id - ID code of the column to be moved. - -> Int -- ^ position - Zero based index of the new position for the column. - -> IO () - -- ^ return value - Nothing. +{- function moveColumnWithID -} +moveColumnWithID :: HG3DClass -> Int -> Int -> IO () moveColumnWithID a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -604,11 +490,8 @@ return () {-# LINE 279 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Add an empty row to the list box. - Details: If the list is being sorted, the new row will appear at an appropriate position according to the sorting being applied. If no sorting is being done, the new row will appear at the bottom of the list. -addRow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_id - ID code to be assigned to the new row. - -> IO (Int) - -- ^ return value - Initial zero based index of the new row. +{- function addRow -} +addRow :: HG3DClass -> Int -> IO (Int) addRow a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -618,13 +501,8 @@ return (a3'') {-# LINE 285 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Add a row to the list box, and set the item in the column with ID col_iditem - Details: If the list is being sorted, the new row will appear at an appropriate position according to the sorting being applied. If no sorting is being done, the new row will appear at the bottom of the list. -addRow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to a ListboxItem to be used as the initial contents for the column with ID col_id. - -> Int -- ^ col_id - ID code of the column whos initial item is to be set to item. - -> Int -- ^ row_id - ID code to be assigned to the new row. - -> IO (Int) - -- ^ return value - Initial zero based index of the new row. +{- function addRow2 -} +addRow2 :: HG3DClass -> HG3DClass -> Int -> Int -> IO (Int) addRow2 a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -636,12 +514,8 @@ return (a5'') {-# LINE 293 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Insert an empty row into the list box. - Details: If the list is being sorted, the new row will appear at an appropriate position according to the sorting being applied. If no sorting is being done, the new row will appear at the specified index. -insertRow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_idx - Zero based index where the row should be inserted. If this is greater than the current number of rows, the row is appended to the list. - -> Int -- ^ row_id - ID code to be assigned to the new row. - -> IO (Int) - -- ^ return value - Zero based index where the row was actually inserted. +{- function insertRow -} +insertRow :: HG3DClass -> Int -> Int -> IO (Int) insertRow a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -652,14 +526,8 @@ return (a4'') {-# LINE 300 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Insert a row into the list box, and set the item in the column with ID col_iditem - Details: If the list is being sorted, the new row will appear at an appropriate position according to the sorting being applied. If no sorting is being done, the new row will appear at the specified index. -insertRow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to a ListboxItem to be used as the initial contents for the column with ID col_id. - -> Int -- ^ col_id - ID code of the column whos initial item is to be set to item. - -> Int -- ^ row_idx - Zero based index where the row should be inserted. If this is greater than the current number of rows, the row is appended to the list. - -> Int -- ^ row_id - ID code to be assigned to the new row. - -> IO (Int) - -- ^ return value - Zero based index where the row was actually inserted. +{- function insertRow2 -} +insertRow2 :: HG3DClass -> HG3DClass -> Int -> Int -> Int -> IO (Int) insertRow2 a1 a2 a3 a4 a5 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -672,11 +540,8 @@ return (a6'') {-# LINE 309 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Remove the list box row with index row_idxListboxItemrow_idx -removeRow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_idx - Zero based index of the row to be removed. - -> IO () - -- ^ return value - Nothing. +{- function removeRow -} +removeRow :: HG3DClass -> Int -> IO () removeRow a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -684,13 +549,8 @@ return () {-# LINE 314 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the ListboxItemcol_idrow_idx -setItem2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the ListboxItem to be set into the list. - -> Int -- ^ col_id - ID code of the column to receive item. - -> Int -- ^ row_idx - Zero based index of the row to receive item. - -> IO () - -- ^ return value - Nothing. +{- function setItem2 -} +setItem2 :: HG3DClass -> HG3DClass -> Int -> Int -> IO () setItem2 a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -700,11 +560,8 @@ return () {-# LINE 321 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the selection mode for the list box. -setSelectionMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumSelectionMode -- ^ sel_mode - One of the MultiColumnList::SelectionMode enumerated values specifying the selection mode to be used. - -> IO () - -- ^ return value - Nothing. +{- function setSelectionMode -} +setSelectionMode :: HG3DClass -> EnumSelectionMode -> IO () setSelectionMode a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -712,11 +569,8 @@ return () {-# LINE 326 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the column to be used for the NominatedColumn* selection modes. -setNominatedSelectionColumnID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_id - ID code of the column to be used in NominatedColumn* selection modes. - -> IO () - -- ^ return value - Nothing. +{- function setNominatedSelectionColumnID -} +setNominatedSelectionColumnID :: HG3DClass -> Int -> IO () setNominatedSelectionColumnID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -724,11 +578,8 @@ return () {-# LINE 331 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the column to be used for the NominatedColumn* selection modes. -setNominatedSelectionColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - zero based index of the column to be used in NominatedColumn* selection modes. - -> IO () - -- ^ return value - Nothing. +{- function setNominatedSelectionColumn -} +setNominatedSelectionColumn :: HG3DClass -> Int -> IO () setNominatedSelectionColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -736,11 +587,8 @@ return () {-# LINE 336 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the row to be used for the NominatedRow* selection modes. -setNominatedSelectionRow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_idx - zero based index of the row to be used in NominatedRow* selection modes. - -> IO () - -- ^ return value - Nothing. +{- function setNominatedSelectionRow -} +setNominatedSelectionRow :: HG3DClass -> Int -> IO () setNominatedSelectionRow a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -748,11 +596,8 @@ return () {-# LINE 341 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the sort direction to be used. -setSortDirection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumSortDirection -- ^ direction - One of the ListHeaderSegment::SortDirection enumerated values specifying the sort direction to be used. - -> IO () - -- ^ return value - Nothing. +{- function setSortDirection -} +setSortDirection :: HG3DClass -> EnumSortDirection -> IO () setSortDirection a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -760,11 +605,8 @@ return () {-# LINE 346 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the column to be used as the sort key. -setSortColumn :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - Zero based index of the column to use as the key when sorting the list items. - -> IO () - -- ^ return value - Nothing. +{- function setSortColumn -} +setSortColumn :: HG3DClass -> Int -> IO () setSortColumn a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -772,11 +614,8 @@ return () {-# LINE 351 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the column to be used as the sort key. -setSortColumnByID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_id - ID code of the column to use as the key when sorting the list items. - -> IO () - -- ^ return value - Nothing. +{- function setSortColumnByID -} +setSortColumnByID :: HG3DClass -> Int -> IO () setSortColumnByID a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -784,13 +623,8 @@ return () {-# LINE 356 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set whether the vertical scroll bar should always be shown, or just when needed. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -798,13 +632,8 @@ return () {-# LINE 361 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set whether the horizontal scroll bar should always be shown, or just when needed. -setShowHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setShowHorzScrollbar -} +setShowHorzScrollbar :: HG3DClass -> Bool -> IO () setShowHorzScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -812,24 +641,16 @@ return () {-# LINE 366 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Removed the selected state from any currently selected ListboxItem -clearAllSelections :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function clearAllSelections -} +clearAllSelections :: HG3DClass -> IO () clearAllSelections a1 = withHG3DClass a1 $ \a1' -> clearAllSelections'_ a1' >>= \res -> return () {-# LINE 370 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Sets or clears the selected state of the given ListboxItem - Details: Depending upon the current selection mode, this may cause other items to be selected, other items to be deselected, or for nothing to actually happen at all. -setItemSelectState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - Pointer to the attached ListboxItem to be affected. - -> Bool -- ^ state - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setItemSelectState -} +setItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO () setItemSelectState a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -838,23 +659,16 @@ return () {-# LINE 376 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Inform the list box that one or more attached ListboxItems have been externally modified, and the list should re-sync its internal state and refresh the display as needed. -handleUpdatedItemData :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function handleUpdatedItemData -} +handleUpdatedItemData :: HG3DClass -> IO () handleUpdatedItemData a1 = withHG3DClass a1 $ \a1' -> handleUpdatedItemData'_ a1' >>= \res -> return () {-# LINE 380 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set whether user manipulation of the sort column and direction are enabled. -setUserSortControlEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setUserSortControlEnabled -} +setUserSortControlEnabled :: HG3DClass -> Bool -> IO () setUserSortControlEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -862,13 +676,8 @@ return () {-# LINE 385 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set whether the user may size column segments. -setUserColumnSizingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setUserColumnSizingEnabled -} +setUserColumnSizingEnabled :: HG3DClass -> Bool -> IO () setUserColumnSizingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -876,13 +685,8 @@ return () {-# LINE 390 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set whether the user may modify the order of the columns. -setUserColumnDraggingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ +{- function setUserColumnDraggingEnabled -} +setUserColumnDraggingEnabled :: HG3DClass -> Bool -> IO () setUserColumnDraggingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -890,11 +694,8 @@ return () {-# LINE 395 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Automatically determines the "best fit" size for the specified column and sets the column width to the same. -autoSizeColumnHeader :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ col_idx - Zero based index of the column to be sized. - -> IO () - -- ^ return value - Nothing. +{- function autoSizeColumnHeader -} +autoSizeColumnHeader :: HG3DClass -> Int -> IO () autoSizeColumnHeader a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -902,12 +703,8 @@ return () {-# LINE 400 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Set the ID code assigned to a given row. -setRowID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ row_idx - Zero based index of the row who's ID code is to be set. - -> Int -- ^ row_id - ID code to be assigned to the row at the requested index. - -> IO () - -- ^ return value - Nothing. +{- function setRowID -} +setRowID :: HG3DClass -> Int -> Int -> IO () setRowID a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -916,11 +713,8 @@ return () {-# LINE 406 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Constructor for the Multi-column list base class. -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function MultiColumnList -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -930,10 +724,8 @@ return (a3'') {-# LINE 412 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-} --- | Destructor for the multi-column list base class. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~MultiColumnList -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassMultiLineEditbox.hs b/HGamer3D/Bindings/CEGUI/ClassMultiLineEditbox.hs --- a/HGamer3D/Bindings/CEGUI/ClassMultiLineEditbox.hs +++ b/HGamer3D/Bindings/CEGUI/ClassMultiLineEditbox.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return true if the edit box has input focus. -hasInputFocus :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function hasInputFocus -} +hasInputFocus :: HG3DClass -> IO (Bool) hasInputFocus a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return true if the edit box is read-only. -isReadOnly :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isReadOnly -} +isReadOnly :: HG3DClass -> IO (Bool) isReadOnly a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return the current position of the carat. -getCaratIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the insert carat relative to the start of the text. +{- function getCaratIndex -} +getCaratIndex :: HG3DClass -> IO (Int) getCaratIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,10 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return the current selection start point. -getSelectionStartIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the selection start point relative to the start of the text. If no selection is defined this function returns the position of the carat. +{- function getSelectionStartIndex -} +getSelectionStartIndex :: HG3DClass -> IO (Int) getSelectionStartIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,10 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return the current selection end point. -getSelectionEndIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Index of the selection end point relative to the start of the text. If no selection is defined this function returns the position of the carat. +{- function getSelectionEndIndex -} +getSelectionEndIndex :: HG3DClass -> IO (Int) getSelectionEndIndex a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -108,10 +98,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return the length of the current selection (in code points / characters). -getSelectionLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Number of code points (or characters) contained within the currently defined selection. +{- function getSelectionLength -} +getSelectionLength :: HG3DClass -> IO (Int) getSelectionLength a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -120,10 +108,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | return the maximum text length set for this edit box. -getMaxTextLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - The maximum number of code points (characters) that can be entered into this edit box. +{- function getMaxTextLength -} +getMaxTextLength :: HG3DClass -> IO (Int) getMaxTextLength a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -132,10 +118,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Return whether the text in the edit box will be word-wrapped. -isWordWrapped :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isWordWrapped -} +isWordWrapped :: HG3DClass -> IO (Bool) isWordWrapped a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -144,10 +128,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Return a pointer to the vertical scrollbar component widget for this MultiLineEditbox -getVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getVertScrollbar -} +getVertScrollbar :: HG3DClass -> IO (HG3DClass) getVertScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -156,10 +138,8 @@ return (a2'') {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Return whether the vertical scroll bar is always shown. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -168,10 +148,8 @@ return (a2'') {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Return a pointer to the horizontal scrollbar component widget for this MultiLineEditbox -getHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getHorzScrollbar -} +getHorzScrollbar :: HG3DClass -> IO (HG3DClass) getHorzScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -180,11 +158,8 @@ return (a2'') {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Return the line number a given index falls on with the current formatting. Will return last line if index is out of range. -getLineNumberFromIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ index - -> IO (Int) - -- ^ +{- function getLineNumberFromIndex -} +getLineNumberFromIndex :: HG3DClass -> Int -> IO (Int) getLineNumberFromIndex a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -194,23 +169,16 @@ return (a3'') {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Initialise the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Specify whether the edit box is read-only. -setReadOnly :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setReadOnly -} +setReadOnly :: HG3DClass -> Bool -> IO () setReadOnly a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -218,11 +186,8 @@ return () {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Set the current position of the carat. -setCaratIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ carat_pos - New index for the insert carat relative to the start of the text. If the value specified is greater than the number of characters in the edit box, the carat is positioned at the end of the text. - -> IO () - -- ^ return value - Nothing. +{- function setCaratIndex -} +setCaratIndex :: HG3DClass -> Int -> IO () setCaratIndex a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -230,12 +195,8 @@ return () {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Define the current selection for the edit box. -setSelection :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ start_pos - Index of the starting point for the selection. If this value is greater than the number of characters in the edit box, the selection start will be set to the end of the text. - -> Int -- ^ end_pos - Index of the ending point for the selection. If this value is greater than the number of characters in the edit box, the selection start will be set to the end of the text. - -> IO () - -- ^ return value - Nothing. +{- function setSelection -} +setSelection :: HG3DClass -> Int -> Int -> IO () setSelection a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -244,11 +205,8 @@ return () {-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | set the maximum text length for this edit box. -setMaxTextLength :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ max_len - The maximum number of code points (characters) that can be entered into this Editbox. - -> IO () - -- ^ return value - Nothing. +{- function setMaxTextLength -} +setMaxTextLength :: HG3DClass -> Int -> IO () setMaxTextLength a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -256,23 +214,16 @@ return () {-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Scroll the view so that the current carat position is visible. -ensureCaratIsVisible :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function ensureCaratIsVisible -} +ensureCaratIsVisible :: HG3DClass -> IO () ensureCaratIsVisible a1 = withHG3DClass a1 $ \a1' -> ensureCaratIsVisible'_ a1' >>= \res -> return () {-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Set whether the text will be word wrapped or not. -setWordWrapping :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setWordWrapping -} +setWordWrapping :: HG3DClass -> Bool -> IO () setWordWrapping a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -280,11 +231,8 @@ return () {-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Set whether the vertical scroll bar should always be shown. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if the vertical scroll bar should be shown even when it is not required. false if the vertical scroll bar should only be shown when it is required. - -> IO () - -- ^ return value - Nothing. +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -292,11 +240,8 @@ return () {-# LINE 143 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Constructor for the MultiLineEditbox -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function MultiLineEditbox -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -306,10 +251,8 @@ return (a3'') {-# LINE 149 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-} --- | Destructor for the MultiLineEditbox -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~MultiLineEditbox -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassOgreRenderer.hs b/HGamer3D/Bindings/CEGUI/ClassOgreRenderer.hs --- a/HGamer3D/Bindings/CEGUI/ClassOgreRenderer.hs +++ b/HGamer3D/Bindings/CEGUI/ClassOgreRenderer.hs @@ -50,17 +50,8 @@ import HGamer3D.Bindings.CEGUI.EnumBlendMode {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Convenience function that creates all the OgreCEGUI - Details: The created Renderer will use the default Ogre rendering window as the ---default output surface. --- ---This will create and initialise the following objects for you: ---- CEGUI::OgreRenderer ---- CEGUI::OgreResourceProvider ---- CEGUI::OgreImageCodec ---- CEGUI::System --- +{- function bootstrapSystem -} bootstrapSystem :: IO (HG3DClass) - -- ^ bootstrapSystem = alloca $ \a1' -> bootstrapSystem'_ a1' >>= \res -> @@ -68,22 +59,15 @@ return (a1'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Convenience function to cleanup the CEGUI - Details: This function will destroy the following objects for you: ---- CEGUI::System ---- CEGUI::OgreImageCodec ---- CEGUI::OgreResourceProvider ---- CEGUI::OgreRenderer --- +{- function destroySystem -} destroySystem :: IO () - -- ^ destroySystem = destroySystem'_ >>= \res -> return () {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Create an OgreRendererOgre - Details: For this to succeed you must have initialised Ogre +{- function create -} create :: IO (HG3DClass) - -- ^ create = alloca $ \a1' -> create'_ a1' >>= \res -> @@ -91,19 +75,16 @@ return (a1'') {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | destory an OgreRenderer -destroy :: HG3DClass -- ^ renderer - -> IO () - -- ^ +{- function destroy -} +destroy :: HG3DClass -> IO () destroy a1 = withHG3DClass a1 $ \a1' -> destroy'_ a1' >>= \res -> return () {-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | function to create a CEGUI::OgreResourceProvider +{- function createOgreResourceProvider -} createOgreResourceProvider :: IO (HG3DClass) - -- ^ createOgreResourceProvider = alloca $ \a1' -> createOgreResourceProvider'_ a1' >>= \res -> @@ -111,21 +92,16 @@ return (a1'') {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | function to destroy a CEGUI::OgreResourceProvider -destroyOgreResourceProvider :: HG3DClass -- ^ rp - -> IO () - -- ^ +{- function destroyOgreResourceProvider -} +destroyOgreResourceProvider :: HG3DClass -> IO () destroyOgreResourceProvider a1 = withHG3DClass a1 $ \a1' -> destroyOgreResourceProvider'_ a1' >>= \res -> return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | set whether CEGUI -setRenderingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enabled - -> IO () - -- ^ +{- function setRenderingEnabled -} +setRenderingEnabled :: HG3DClass -> Bool -> IO () setRenderingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -133,10 +109,8 @@ return () {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | return whether CEGUI -isRenderingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isRenderingEnabled -} +isRenderingEnabled :: HG3DClass -> IO (Bool) isRenderingEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -145,12 +119,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | set the render states for the specified BlendMode. -setupRenderingBlendMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumBlendMode -- ^ mode - -> Bool -- ^ force - -> IO () - -- ^ +{- function setupRenderingBlendMode -} +setupRenderingBlendMode :: HG3DClass -> EnumBlendMode -> Bool -> IO () setupRenderingBlendMode a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -159,17 +129,8 @@ return () {-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Controls whether rendering done by CEGUI - Details: This defaults to enabled and is required when using the default hook ---that automatically calls CEGUI::System::renderGUI via a frame listener. ---If you disable this setting, the automated rendering will also be ---disabled, which is useful when you wish to perform your own calls to the ---CEGUI::System::renderGUI function (and is the sole purpose for this ---setting). --- -setFrameControlExecutionEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enabled - -> IO () - -- ^ +{- function setFrameControlExecutionEnabled -} +setFrameControlExecutionEnabled :: HG3DClass -> Bool -> IO () setFrameControlExecutionEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -177,16 +138,8 @@ return () {-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Returns whether rendering done by CEGUI - Details: This defaults to enabled and is required when using the default hook ---that automatically calls CEGUI::System::renderGUI via a frame listener. ---If you disable this setting, the automated rendering will also be ---disabled, which is useful when you wish to perform your own calls to the ---CEGUI::System::renderGUI function (and is the sole purpose for this ---setting). --- -isFrameControlExecutionEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isFrameControlExecutionEnabled -} +isFrameControlExecutionEnabled :: HG3DClass -> IO (Bool) isFrameControlExecutionEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -195,70 +148,56 @@ return (a2'') {-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Sets all the required render states needed for CEGUI - Details: This is a low-level function intended for certain advanced concepts; in general it will not be required to call this function directly, since it is called automatically by the system when rendering is done. -initialiseRenderStateSettings :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function initialiseRenderStateSettings -} +initialiseRenderStateSettings :: HG3DClass -> IO () initialiseRenderStateSettings a1 = withHG3DClass a1 $ \a1' -> initialiseRenderStateSettings'_ a1' >>= \res -> return () {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Destroy all GeometryBuffer objects created by this Renderer -destroyAllGeometryBuffers :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroyAllGeometryBuffers -} +destroyAllGeometryBuffers :: HG3DClass -> IO () destroyAllGeometryBuffers a1 = withHG3DClass a1 $ \a1' -> destroyAllGeometryBuffers'_ a1' >>= \res -> return () {-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Destory all TextureTarget objects created by this Renderer -destroyAllTextureTargets :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroyAllTextureTargets -} +destroyAllTextureTargets :: HG3DClass -> IO () destroyAllTextureTargets a1 = withHG3DClass a1 $ \a1' -> destroyAllTextureTargets'_ a1' >>= \res -> return () {-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Destroy all Texture objects created by this Renderer -destroyAllTextures :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroyAllTextures -} +destroyAllTextures :: HG3DClass -> IO () destroyAllTextures a1 = withHG3DClass a1 $ \a1' -> destroyAllTextures'_ a1' >>= \res -> return () {-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Perform any operations required to put the system into a state ready for rendering operations to begin. -beginRendering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function beginRendering -} +beginRendering :: HG3DClass -> IO () beginRendering a1 = withHG3DClass a1 $ \a1' -> beginRendering'_ a1' >>= \res -> return () {-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Perform any operations required to finalise rendering. -endRendering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function endRendering -} +endRendering :: HG3DClass -> IO () endRendering a1 = withHG3DClass a1 $ \a1' -> endRendering'_ a1' >>= \res -> return () {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Return the pixel size of the maximum supported texture. -getMaxTextureSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Size of the maximum supported texture in pixels. +{- function getMaxTextureSize -} +getMaxTextureSize :: HG3DClass -> IO (Int) getMaxTextureSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -267,10 +206,8 @@ return (a2'') {-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-} --- | Return identification string for the renderer module. -getIdentifierString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding text that identifies the +{- function getIdentifierString -} +getIdentifierString :: HG3DClass -> IO (String) getIdentifierString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassProgressBar.hs b/HGamer3D/Bindings/CEGUI/ClassProgressBar.hs --- a/HGamer3D/Bindings/CEGUI/ClassProgressBar.hs +++ b/HGamer3D/Bindings/CEGUI/ClassProgressBar.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | return the current progress value -getProgress :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getProgress -} +getProgress :: HG3DClass -> IO (Float) getProgress a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | return the current step size -getStep :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getStep -} +getStep :: HG3DClass -> IO (Float) getStep a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,11 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | set the current progress. -setProgress :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ progress - The level of progress to set. If this value is >1.0f (100%) progress will be limited to 1.0f. - -> IO () - -- ^ return value - Nothing. +{- function setProgress -} +setProgress :: HG3DClass -> Float -> IO () setProgress a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -84,11 +77,8 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | set the size of the 'step' in percentage points (default is 0.01f or 1%). -setStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ step_val - -> IO () - -- ^ return value - Nothing. +{- function setStepSize -} +setStepSize :: HG3DClass -> Float -> IO () setStepSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -96,23 +86,16 @@ return () {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | cause the progress to step - Details: The amount the progress bar will step can be changed by calling the setStepSize method. The ---default step size is 0.01f which is equal to 1%. --- -step :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function step -} +step :: HG3DClass -> IO () step a1 = withHG3DClass a1 $ \a1' -> step'_ a1' >>= \res -> return () {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | Modify the progress level by a specified delta. -adjustProgress :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ delta - amount to adjust the progress by. Whatever this value is, the progress of the bar will be kept within the range: 0.0f <= progress <= 1.0f. - -> IO () - -- ^ return value - Nothing. +{- function adjustProgress -} +adjustProgress :: HG3DClass -> Float -> IO () adjustProgress a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -120,11 +103,8 @@ return () {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | Constructor for ProgressBar -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ProgressBar -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -134,10 +114,8 @@ return (a3'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-} --- | Destructor for ProgressBar -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ProgressBar -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassPropertySet.hs b/HGamer3D/Bindings/CEGUI/ClassPropertySet.hs --- a/HGamer3D/Bindings/CEGUI/ClassPropertySet.hs +++ b/HGamer3D/Bindings/CEGUI/ClassPropertySet.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Constructs a new PropertySet +{- function PropertySet -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,21 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Destructor for PropertySet -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~PropertySet -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Removes a Property from the PropertySet -removeProperty :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String containing the name of the Property to be removed. If Property name is not in the set, nothing happens. - -> IO () - -- ^ return value - Nothing. +{- function removeProperty -} +removeProperty :: HG3DClass -> String -> IO () removeProperty a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -80,21 +74,16 @@ return () {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Removes all Property objects from the PropertySet -clearProperties :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function clearProperties -} +clearProperties :: HG3DClass -> IO () clearProperties a1 = withHG3DClass a1 $ \a1' -> clearProperties'_ a1' >>= \res -> return () {-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Checks to see if a Property with the given name is in the PropertySet -isPropertyPresent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String containing the name of the Property to check for. - -> IO (Bool) - -- ^ return value - true if a Property named +{- function isPropertyPresent -} +isPropertyPresent :: HG3DClass -> String -> IO (Bool) isPropertyPresent a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -104,11 +93,8 @@ return (a3'') {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Return the help text for the specified Property. -getPropertyHelp :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String holding the name of the Property who's help text is to be returned. - -> IO (String) - -- ^ return value - String object containing the help text for the Property +{- function getPropertyHelp -} +getPropertyHelp :: HG3DClass -> String -> IO (String) getPropertyHelp a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -118,11 +104,8 @@ return (a3'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Gets the current value of the specified Property. -getProperty :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String containing the name of the Property who's value is to be returned. - -> IO (String) - -- ^ return value - String object containing a textual representation of the requested Property. +{- function getProperty -} +getProperty :: HG3DClass -> String -> IO (String) getProperty a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -132,12 +115,8 @@ return (a3'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Sets the current value of a Property. -setProperty :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String containing the name of the Property who's value is to be set. - -> String -- ^ value - String containing a textual representation of the new value for the Property - -> IO () - -- ^ return value - Nothing +{- function setProperty -} +setProperty :: HG3DClass -> String -> String -> IO () setProperty a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -146,11 +125,8 @@ return () {-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Returns whether a Property is at it's default value. -isPropertyDefault :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String containing the name of the Property who's default state is to be tested. - -> IO (Bool) - -- ^ +{- function isPropertyDefault -} +isPropertyDefault :: HG3DClass -> String -> IO (Bool) isPropertyDefault a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -160,11 +136,8 @@ return (a3'') {-# LINE 90 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-} --- | Returns the default value of a Property as a String. -getPropertyDefault :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String containing the name of the Property who's default string is to be returned. - -> IO (String) - -- ^ return value - String object containing a textual representation of the default value for this property. +{- function getPropertyDefault -} +getPropertyDefault :: HG3DClass -> String -> IO (String) getPropertyDefault a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassPushButton.hs b/HGamer3D/Bindings/CEGUI/ClassPushButton.hs --- a/HGamer3D/Bindings/CEGUI/ClassPushButton.hs +++ b/HGamer3D/Bindings/CEGUI/ClassPushButton.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-} --- | Constructor for base PushButton -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function PushButton -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -62,10 +59,8 @@ return (a3'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-} --- | Destructor for PushButton -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~PushButton -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassRadioButton.hs b/HGamer3D/Bindings/CEGUI/ClassRadioButton.hs --- a/HGamer3D/Bindings/CEGUI/ClassRadioButton.hs +++ b/HGamer3D/Bindings/CEGUI/ClassRadioButton.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-} --- | return true if the radio button is selected (has the checkmark) -isSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if this widget is selected, false if the widget is not selected. +{- function isSelected -} +isSelected :: HG3DClass -> IO (Bool) isSelected a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-} --- | Return a pointer to the RadioButtonRadioButton -getSelectedButtonInGroup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getSelectedButtonInGroup -} +getSelectedButtonInGroup :: HG3DClass -> IO (HG3DClass) getSelectedButtonInGroup a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,11 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-} --- | set whether the radio button is selected or not -setSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ select - true to put the radio button in the selected state, false to put the radio button in the deselected state. If changing to the selected state, any previously selected radio button within the same group is automatically deselected. - -> IO () - -- ^ return value - Nothing. +{- function setSelected -} +setSelected :: HG3DClass -> Bool -> IO () setSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -84,11 +77,8 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-} --- | -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function RadioButton -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -98,10 +88,8 @@ return (a3'') {-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-} --- | -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~RadioButton -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassRenderer.hs b/HGamer3D/Bindings/CEGUI/ClassRenderer.hs --- a/HGamer3D/Bindings/CEGUI/ClassRenderer.hs +++ b/HGamer3D/Bindings/CEGUI/ClassRenderer.hs @@ -48,60 +48,48 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Destroy all GeometryBuffer objects created by this Renderer -destroyAllGeometryBuffers :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroyAllGeometryBuffers -} +destroyAllGeometryBuffers :: HG3DClass -> IO () destroyAllGeometryBuffers a1 = withHG3DClass a1 $ \a1' -> destroyAllGeometryBuffers'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Destory all TextureTarget objects created by this Renderer -destroyAllTextureTargets :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroyAllTextureTargets -} +destroyAllTextureTargets :: HG3DClass -> IO () destroyAllTextureTargets a1 = withHG3DClass a1 $ \a1' -> destroyAllTextureTargets'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Destroy all Texture objects created by this Renderer -destroyAllTextures :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroyAllTextures -} +destroyAllTextures :: HG3DClass -> IO () destroyAllTextures a1 = withHG3DClass a1 $ \a1' -> destroyAllTextures'_ a1' >>= \res -> return () {-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Perform any operations required to put the system into a state ready for rendering operations to begin. -beginRendering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function beginRendering -} +beginRendering :: HG3DClass -> IO () beginRendering a1 = withHG3DClass a1 $ \a1' -> beginRendering'_ a1' >>= \res -> return () {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Perform any operations required to finalise rendering. -endRendering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function endRendering -} +endRendering :: HG3DClass -> IO () endRendering a1 = withHG3DClass a1 $ \a1' -> endRendering'_ a1' >>= \res -> return () {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Return the pixel size of the maximum supported texture. -getMaxTextureSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Size of the maximum supported texture in pixels. +{- function getMaxTextureSize -} +getMaxTextureSize :: HG3DClass -> IO (Int) getMaxTextureSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -110,10 +98,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Return identification string for the renderer module. -getIdentifierString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding text that identifies the +{- function getIdentifierString -} +getIdentifierString :: HG3DClass -> IO (String) getIdentifierString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -122,10 +108,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-} --- | Destructor. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Renderer -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassResourceProvider.hs b/HGamer3D/Bindings/CEGUI/ClassResourceProvider.hs --- a/HGamer3D/Bindings/CEGUI/ClassResourceProvider.hs +++ b/HGamer3D/Bindings/CEGUI/ClassResourceProvider.hs @@ -48,20 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-} --- | Destructor for the ResourceProvider -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ResourceProvider -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-} --- | Return the current default resource group identifier. -getDefaultResourceGroup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object containing the currently set default resource group identifier. +{- function getDefaultResourceGroup -} +getDefaultResourceGroup :: HG3DClass -> IO (String) getDefaultResourceGroup a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -70,11 +66,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-} --- | Set the default resource group identifier. -setDefaultResourceGroup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ resourceGroup - String object containing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: HG3DClass -> String -> IO () setDefaultResourceGroup a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassScheme.hs b/HGamer3D/Bindings/CEGUI/ClassScheme.hs --- a/HGamer3D/Bindings/CEGUI/ClassScheme.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScheme.hs @@ -48,30 +48,24 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Loads all resources for this scheme. -loadResources :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function loadResources -} +loadResources :: HG3DClass -> IO () loadResources a1 = withHG3DClass a1 $ \a1' -> loadResources'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Unloads all resources for this scheme. This should be used very carefully. -unloadResources :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function unloadResources -} +unloadResources :: HG3DClass -> IO () unloadResources a1 = withHG3DClass a1 $ \a1' -> unloadResources'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Return whether the resources for this Scheme -resourcesLoaded :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if all resources for the +{- function resourcesLoaded -} +resourcesLoaded :: HG3DClass -> IO (Bool) resourcesLoaded a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -80,10 +74,8 @@ return (a2'') {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Return the name of this Scheme -getName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object containing the name of this +{- function getName -} +getName :: HG3DClass -> IO (String) getName a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -92,19 +84,16 @@ return (a2'') {-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Destroys a Scheme -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ return value - Nothing +{- function ~Scheme -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 65 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Returns the default resource group currently set for Schemes. +{- function getDefaultResourceGroup -} getDefaultResourceGroup :: IO (String) - -- ^ return value - String describing the default resource group identifier that will be used when loading getDefaultResourceGroup = alloc64k $ \a1' -> getDefaultResourceGroup'_ a1' >>= \res -> @@ -112,10 +101,8 @@ return (a1'') {-# LINE 69 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-} --- | Sets the default resource group to be used when loading scheme xml data. -setDefaultResourceGroup :: String -- ^ resourceGroup - String describing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: String -> IO () setDefaultResourceGroup a1 = withCString a1 $ \a1' -> setDefaultResourceGroup'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassSchemeManager.hs b/HGamer3D/Bindings/CEGUI/ClassSchemeManager.hs --- a/HGamer3D/Bindings/CEGUI/ClassSchemeManager.hs +++ b/HGamer3D/Bindings/CEGUI/ClassSchemeManager.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-} --- | Constructor. +{- function SchemeManager -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,10 +57,8 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-} --- | Destructor. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~SchemeManager -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassScriptFunctor.hs b/HGamer3D/Bindings/CEGUI/ClassScriptFunctor.hs --- a/HGamer3D/Bindings/CEGUI/ClassScriptFunctor.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScriptFunctor.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs" #-} --- | -new :: String -- ^ functionName - -> IO (HG3DClass) - -- ^ +{- function ScriptFunctor -} +new :: String -> IO (HG3DClass) new a1 = withCString a1 $ \a1' -> alloca $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassScriptModule.hs b/HGamer3D/Bindings/CEGUI/ClassScriptModule.hs --- a/HGamer3D/Bindings/CEGUI/ClassScriptModule.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScriptModule.hs @@ -48,22 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Destructor for ScriptModule -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ScriptModule -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Execute a script file. -executeScriptFile :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ filename - String object holding the filename of the script file that is to be executed - -> String -- ^ resourceGroup - Resource group idendifier to be passed to the ResourceProvider when loading the script file. - -> IO () - -- ^ +{- function executeScriptFile -} +executeScriptFile :: HG3DClass -> String -> String -> IO () executeScriptFile a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -72,11 +66,8 @@ return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Execute a scripted global function. The function should not take any parameters and should return an integer. -executeScriptGlobal :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ function_name - String object holding the name of the function, in the global script environment, that is to be executed. - -> IO (Int) - -- ^ return value - The integer value returned from the script function. +{- function executeScriptGlobal -} +executeScriptGlobal :: HG3DClass -> String -> IO (Int) executeScriptGlobal a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -86,12 +77,8 @@ return (a3'') {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Execute a scripted global 'event handler' function. The function should take some kind of EventArgsEventArgs -executeScriptedEventHandler :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ handler_name - String object holding the name of the scripted handler function. - -> HG3DClass -- ^ e - EventArgs based object that should be passed, by any appropriate means, to the scripted function. - -> IO (Bool) - -- ^ +{- function executeScriptedEventHandler -} +executeScriptedEventHandler :: HG3DClass -> String -> HG3DClass -> IO (Bool) executeScriptedEventHandler a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -102,11 +89,8 @@ return (a4'') {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Execute script code contained in the given CEGUI::String object. -executeString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ str - String object holding the valid script code that should be executed. - -> IO () - -- ^ return value - Nothing. +{- function executeString -} +executeString :: HG3DClass -> String -> IO () executeString a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -114,30 +98,24 @@ return () {-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Method called during system initialisation, prior to running any scripts via the ScriptModuleScriptModule -createBindings :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function createBindings -} +createBindings :: HG3DClass -> IO () createBindings a1 = withHG3DClass a1 $ \a1' -> createBindings'_ a1' >>= \res -> return () {-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Method called during system destruction, after all scripts have been run via the ScriptModuleScriptModule -destroyBindings :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function destroyBindings -} +destroyBindings :: HG3DClass -> IO () destroyBindings a1 = withHG3DClass a1 $ \a1' -> destroyBindings'_ a1' >>= \res -> return () {-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Return identification string for the ScriptModuleScriptModule -getIdentifierString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding a string that identifies the +{- function getIdentifierString -} +getIdentifierString :: HG3DClass -> IO (String) getIdentifierString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> @@ -146,19 +124,16 @@ return (a2'') {-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Sets the default resource group to be used when loading script files. -setDefaultResourceGroup :: String -- ^ resourceGroup - String describing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: String -> IO () setDefaultResourceGroup a1 = withCString a1 $ \a1' -> setDefaultResourceGroup'_ a1' >>= \res -> return () {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-} --- | Returns the default resource group used when loading script files. +{- function getDefaultResourceGroup -} getDefaultResourceGroup :: IO (String) - -- ^ return value - String describing the default resource group identifier.. getDefaultResourceGroup = alloc64k $ \a1' -> getDefaultResourceGroup'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassScrollablePane.hs b/HGamer3D/Bindings/CEGUI/ClassScrollablePane.hs --- a/HGamer3D/Bindings/CEGUI/ClassScrollablePane.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScrollablePane.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Constructor for the ScrollablePane -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ScrollablePane -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -62,22 +59,16 @@ return (a3'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Destructor for the ScrollablePane -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ScrollablePane -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns a pointer to the window holding the pane contents. - Details: The purpose of this is so that attached windows may be inspected, ---client code may not modify the returned window in any way. --- -getContentPane :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getContentPane -} +getContentPane :: HG3DClass -> IO (HG3DClass) getContentPane a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -86,10 +77,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Return whether the vertical scroll bar is always shown. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -98,13 +87,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Set whether the vertical scroll bar should always be shown. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -112,10 +96,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Return whether the horizontal scroll bar is always shown. -isHorzScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isHorzScrollbarAlwaysShown -} +isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isHorzScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -124,13 +106,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Set whether the horizontal scroll bar should always be shown. -setShowHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setShowHorzScrollbar -} +setShowHorzScrollbar :: HG3DClass -> Bool -> IO () setShowHorzScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -138,10 +115,8 @@ return () {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Return whether the content pane is auto sized. -isContentPaneAutoSized :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isContentPaneAutoSized -} +isContentPaneAutoSized :: HG3DClass -> IO (Bool) isContentPaneAutoSized a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -150,13 +125,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Set whether the content pane should be auto-sized. -setContentPaneAutoSized :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setContentPaneAutoSized -} +setContentPaneAutoSized :: HG3DClass -> Bool -> IO () setContentPaneAutoSized a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -164,10 +134,8 @@ return () {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns the horizontal scrollbar step size as a fraction of one complete view page. -getHorizontalStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the step size where 1.0f would be the width of the viewing area. +{- function getHorizontalStepSize -} +getHorizontalStepSize :: HG3DClass -> IO (Float) getHorizontalStepSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -176,11 +144,8 @@ return (a2'') {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Sets the horizontal scrollbar step size as a fraction of one complete view page. -setHorizontalStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ step - float value specifying the step size, where 1.0f would be the width of the viewing area. - -> IO () - -- ^ return value - Nothing. +{- function setHorizontalStepSize -} +setHorizontalStepSize :: HG3DClass -> Float -> IO () setHorizontalStepSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -188,10 +153,8 @@ return () {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns the horizontal scrollbar overlap size as a fraction of one complete view page. -getHorizontalOverlapSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the overlap size where 1.0f would be the width of the viewing area. +{- function getHorizontalOverlapSize -} +getHorizontalOverlapSize :: HG3DClass -> IO (Float) getHorizontalOverlapSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -200,11 +163,8 @@ return (a2'') {-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Sets the horizontal scrollbar overlap size as a fraction of one complete view page. -setHorizontalOverlapSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ overlap - float value specifying the overlap size, where 1.0f would be the width of the viewing area. - -> IO () - -- ^ return value - Nothing. +{- function setHorizontalOverlapSize -} +setHorizontalOverlapSize :: HG3DClass -> Float -> IO () setHorizontalOverlapSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -212,10 +172,8 @@ return () {-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns the horizontal scroll position as a fraction of the complete scrollable width. -getHorizontalScrollPosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the scroll position. +{- function getHorizontalScrollPosition -} +getHorizontalScrollPosition :: HG3DClass -> IO (Float) getHorizontalScrollPosition a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -224,11 +182,8 @@ return (a2'') {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Sets the horizontal scroll position as a fraction of the complete scrollable width. -setHorizontalScrollPosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ position - float value specifying the new scroll position. - -> IO () - -- ^ return value - Nothing. +{- function setHorizontalScrollPosition -} +setHorizontalScrollPosition :: HG3DClass -> Float -> IO () setHorizontalScrollPosition a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -236,10 +191,8 @@ return () {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns the vertical scrollbar step size as a fraction of one complete view page. -getVerticalStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the step size where 1.0f would be the height of the viewing area. +{- function getVerticalStepSize -} +getVerticalStepSize :: HG3DClass -> IO (Float) getVerticalStepSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -248,11 +201,8 @@ return (a2'') {-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Sets the vertical scrollbar step size as a fraction of one complete view page. -setVerticalStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ step - float value specifying the step size, where 1.0f would be the height of the viewing area. - -> IO () - -- ^ return value - Nothing. +{- function setVerticalStepSize -} +setVerticalStepSize :: HG3DClass -> Float -> IO () setVerticalStepSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -260,10 +210,8 @@ return () {-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns the vertical scrollbar overlap size as a fraction of one complete view page. -getVerticalOverlapSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the overlap size where 1.0f would be the height of the viewing area. +{- function getVerticalOverlapSize -} +getVerticalOverlapSize :: HG3DClass -> IO (Float) getVerticalOverlapSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -272,11 +220,8 @@ return (a2'') {-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Sets the vertical scrollbar overlap size as a fraction of one complete view page. -setVerticalOverlapSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ overlap - float value specifying the overlap size, where 1.0f would be the height of the viewing area. - -> IO () - -- ^ return value - Nothing. +{- function setVerticalOverlapSize -} +setVerticalOverlapSize :: HG3DClass -> Float -> IO () setVerticalOverlapSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -284,10 +229,8 @@ return () {-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Returns the vertical scroll position as a fraction of the complete scrollable height. -getVerticalScrollPosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value specifying the scroll position. +{- function getVerticalScrollPosition -} +getVerticalScrollPosition :: HG3DClass -> IO (Float) getVerticalScrollPosition a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -296,11 +239,8 @@ return (a2'') {-# LINE 143 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Sets the vertical scroll position as a fraction of the complete scrollable height. -setVerticalScrollPosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ position - float value specifying the new scroll position. - -> IO () - -- ^ return value - Nothing. +{- function setVerticalScrollPosition -} +setVerticalScrollPosition :: HG3DClass -> Float -> IO () setVerticalScrollPosition a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -308,10 +248,8 @@ return () {-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Return a pointer to the vertical scrollbar component widget for this ScrollablePane -getVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getVertScrollbar -} +getVertScrollbar :: HG3DClass -> IO (HG3DClass) getVertScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -320,10 +258,8 @@ return (a2'') {-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Return a pointer to the horizontal scrollbar component widget for this ScrollablePane -getHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getHorzScrollbar -} +getHorzScrollbar :: HG3DClass -> IO (HG3DClass) getHorzScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -332,23 +268,16 @@ return (a2'') {-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Initialises the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowManager -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 162 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-} --- | Internal destroy method which actually just adds the window and any parent destructed child windows to the dead pool. - Details: This is virtual to allow for specialised cleanup which may be required ---in some advanced cases. If you override this for the above reason, you ---MUST call this base class version. --- -destroy :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function destroy -} +destroy :: HG3DClass -> IO () destroy a1 = withHG3DClass a1 $ \a1' -> destroy'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassScrollbar.hs b/HGamer3D/Bindings/CEGUI/ClassScrollbar.hs --- a/HGamer3D/Bindings/CEGUI/ClassScrollbar.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScrollbar.hs @@ -48,13 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return the size of the document or data. - Details: The document size should be thought of as the total size of the data ---that is being scrolled through (the number of lines in a text file for ---example). --- -getDocumentSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getDocumentSize -} +getDocumentSize :: HG3DClass -> IO (Float) getDocumentSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -63,14 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return the page size for this scroll bar. - Details: The page size is typically the amount of data that can be displayed at ---one time. This value is also used when calculating the amount the ---position will change when you click either side of the scroll bar ---thumb, the amount the position changes will is (pageSize - overlapSize). --- -getPageSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getPageSize -} +getPageSize :: HG3DClass -> IO (Float) getPageSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -79,14 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return the step size for this scroll bar. - Details: The step size is typically a single unit of data that can be displayed, ---this is the amount the position will change when you click either of ---the arrow buttons on the scroll bar. (this could be 1 for a single ---line of text, for example). --- -getStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getStepSize -} +getStepSize :: HG3DClass -> IO (Float) getStepSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -95,14 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return the overlap size for this scroll bar. - Details: The overlap size is the amount of data from the end of a 'page' that ---will remain visible when the position is moved by a page. This is ---usually used so that the user keeps some context of where they were ---within the document's data when jumping a page at a time. --- -getOverlapSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getOverlapSize -} +getOverlapSize :: HG3DClass -> IO (Float) getOverlapSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -111,12 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return the current position of scroll bar within the document. - Details: The range of the scroll bar is from 0 to the size of the document minus ---the size of a page (0 <= position <= (documentSize - pageSize)). --- -getScrollPosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getScrollPosition -} +getScrollPosition :: HG3DClass -> IO (Float) getScrollPosition a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -125,10 +98,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return a pointer to the 'increase' PushButtoncomponent widget for this Scrollbar -getIncreaseButton :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getIncreaseButton -} +getIncreaseButton :: HG3DClass -> IO (HG3DClass) getIncreaseButton a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -137,10 +108,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return a pointer to the 'decrease' PushButtonScrollbar -getDecreaseButton :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getDecreaseButton -} +getDecreaseButton :: HG3DClass -> IO (HG3DClass) getDecreaseButton a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -149,10 +118,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Return a pointer to the ThumbScrollbar -getThumb :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getThumb -} +getThumb :: HG3DClass -> IO (HG3DClass) getThumb a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -161,24 +128,16 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Initialises the Scrollbar - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Set the size of the document or data. - Details: The document size should be thought of as the total size of the data ---that is being scrolled through (the number of lines in a text file for ---example). --- -setDocumentSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ document_size - -> IO () - -- ^ +{- function setDocumentSize -} +setDocumentSize :: HG3DClass -> Float -> IO () setDocumentSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -186,15 +145,8 @@ return () {-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Set the page size for this scroll bar. - Details: The page size is typically the amount of data that can be displayed at ---one time. This value is also used when calculating the amount the ---position will change when you click either side of the scroll bar ---thumb, the amount the position changes will is (pageSize - overlapSize). --- -setPageSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ page_size - -> IO () - -- ^ +{- function setPageSize -} +setPageSize :: HG3DClass -> Float -> IO () setPageSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -202,15 +154,8 @@ return () {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Set the step size for this scroll bar. - Details: The step size is typically a single unit of data that can be displayed, ---this is the amount the position will change when you click either of the ---arrow buttons on the scroll bar. (this could be 1 for a single line of ---text, for example). --- -setStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ step_size - -> IO () - -- ^ +{- function setStepSize -} +setStepSize :: HG3DClass -> Float -> IO () setStepSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -218,15 +163,8 @@ return () {-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Set the overlap size for this scroll bar. - Details: The overlap size is the amount of data from the end of a 'page' that ---will remain visible when the position is moved by a page. This is ---usually used so that the user keeps some context of where they were ---within the document's data when jumping a page at a time. --- -setOverlapSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ overlap_size - -> IO () - -- ^ +{- function setOverlapSize -} +setOverlapSize :: HG3DClass -> Float -> IO () setOverlapSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -234,15 +172,8 @@ return () {-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Set the current position of scroll bar within the document. - Details: The range of the scroll bar is from 0 to the size of the document minus ---the size of a page (0 <= position <= (documentSize - pageSize)), any ---attempt to set the position outside this range will be adjusted so that ---it falls within the legal range. --- -setScrollPosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ position - -> IO () - -- ^ +{- function setScrollPosition -} +setScrollPosition :: HG3DClass -> Float -> IO () setScrollPosition a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -250,16 +181,8 @@ return () {-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Enable or disable the 'end lock' mode for the scrollbar. - Details: When enabled and the current position of the scrollbar is at the end of ---it's travel, the end lock mode of the scrollbar will automatically ---update the position when the document and/or page size change in order ---that the scroll position will remain at the end of it's travel. This ---can be used to implement auto-scrolling in certain other widget types. --- -setEndLockEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enabled - -> IO () - -- ^ +{- function setEndLockEnabled -} +setEndLockEnabled :: HG3DClass -> Bool -> IO () setEndLockEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -267,16 +190,8 @@ return () {-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Returns whether the 'end lock'mode for the scrollbar is enabled. - Details: When enabled, and the current position of the scrollbar is at the end of ---it's travel, the end lock mode of the scrollbar will automatically ---update the scrollbar position when the document and/or page size change ---in order that the scroll position will remain at the end of it's travel. ---This can be used to implement auto-scrolling in certain other widget ---types. --- -isEndLockEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isEndLockEnabled -} +isEndLockEnabled :: HG3DClass -> IO (Bool) isEndLockEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -285,11 +200,8 @@ return (a2'') {-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Constructor for Scrollbar -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Scrollbar -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -299,10 +211,8 @@ return (a3'') {-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-} --- | Destructor for Scrollbar -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Scrollbar -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassScrolledContainer.hs b/HGamer3D/Bindings/CEGUI/ClassScrolledContainer.hs --- a/HGamer3D/Bindings/CEGUI/ClassScrolledContainer.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScrolledContainer.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-} --- | Constructor for ScrolledContainer -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function ScrolledContainer -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -62,20 +59,16 @@ return (a3'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-} --- | Destructor for ScrolledContainer -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~ScrolledContainer -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-} --- | Return whether the content pane is auto sized. -isContentPaneAutoSized :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isContentPaneAutoSized -} +isContentPaneAutoSized :: HG3DClass -> IO (Bool) isContentPaneAutoSized a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,13 +77,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-} --- | Set whether the content pane should be auto-sized. -setContentPaneAutoSized :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setContentPaneAutoSized -} +setContentPaneAutoSized :: HG3DClass -> Bool -> IO () setContentPaneAutoSized a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in diff --git a/HGamer3D/Bindings/CEGUI/ClassScrolledItemListBase.hs b/HGamer3D/Bindings/CEGUI/ClassScrolledItemListBase.hs --- a/HGamer3D/Bindings/CEGUI/ClassScrolledItemListBase.hs +++ b/HGamer3D/Bindings/CEGUI/ClassScrolledItemListBase.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Returns whether the vertical scrollbar is being forced visible. Despite content size. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Returns whether the horizontal scrollbar is being forced visible. Despite content size. -isHorzScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isHorzScrollbarAlwaysShown -} +isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isHorzScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Get the vertical scrollbar component attached to this window. -getVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getVertScrollbar -} +getVertScrollbar :: HG3DClass -> IO (HG3DClass) getVertScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,10 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Get the horizontal scrollbar component attached to this window. -getHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getHorzScrollbar -} +getHorzScrollbar :: HG3DClass -> IO (HG3DClass) getHorzScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,11 +88,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Sets whether the vertical scrollbar should be forced visible. Despite content size. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ mode - -> IO () - -- ^ +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -108,11 +97,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Sets whether the horizontal scrollbar should be forced visible. Despite content size. -setShowHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ mode - -> IO () - -- ^ +{- function setShowHorzScrollbar -} +setShowHorzScrollbar :: HG3DClass -> Bool -> IO () setShowHorzScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -120,11 +106,8 @@ return () {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Scroll the vertical list position if needed to ensure that the ItemEntryitemScrolledItemListBase -ensureItemIsVisibleVert :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - const reference to an ItemEntry attached to this ScrolledItemListBase that should be made visible in the view area. - -> IO () - -- ^ return value - Nothing. +{- function ensureItemIsVisibleVert -} +ensureItemIsVisibleVert :: HG3DClass -> HG3DClass -> IO () ensureItemIsVisibleVert a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -132,11 +115,8 @@ return () {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | Scroll the horizontal list position if needed to ensure that the ItemEntryitemScrolledItemListBase -ensureItemIsVisibleHorz :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - const reference to an ItemEntry attached to this ScrolledItemListBase that should be made visible in the view area. - -> IO () - -- ^ return value - Nothing. +{- function ensureItemIsVisibleHorz -} +ensureItemIsVisibleHorz :: HG3DClass -> HG3DClass -> IO () ensureItemIsVisibleHorz a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -144,10 +124,8 @@ return () {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-} --- | -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassSlider.hs b/HGamer3D/Bindings/CEGUI/ClassSlider.hs --- a/HGamer3D/Bindings/CEGUI/ClassSlider.hs +++ b/HGamer3D/Bindings/CEGUI/ClassSlider.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | return the current slider value. -getCurrentValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value equal to the sliders current value. +{- function getCurrentValue -} +getCurrentValue :: HG3DClass -> IO (Float) getCurrentValue a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | return the maximum value set for this widget -getMaxValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value equal to the currently set maximum value for this slider. +{- function getMaxValue -} +getMaxValue :: HG3DClass -> IO (Float) getMaxValue a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,12 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | return the current click step setting for the slider. - Details: The click step size is the amount the slider value will be adjusted when the widget ---is clicked wither side of the slider thumb. --- -getClickStep :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ +{- function getClickStep -} +getClickStep :: HG3DClass -> IO (Float) getClickStep a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -86,10 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | Return a pointer to the ThumbSlider -getThumb :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getThumb -} +getThumb :: HG3DClass -> IO (HG3DClass) getThumb a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -98,21 +88,16 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | Initialises the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | set the maximum value for the slider. Note that the minimum value is fixed at 0. -setMaxValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ maxVal - float value specifying the maximum value for this slider widget. - -> IO () - -- ^ return value - Nothing. +{- function setMaxValue -} +setMaxValue :: HG3DClass -> Float -> IO () setMaxValue a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -120,11 +105,8 @@ return () {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | set the current slider value. -setCurrentValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ value - float value specifying the new value for this slider widget. - -> IO () - -- ^ return value - Nothing. +{- function setCurrentValue -} +setCurrentValue :: HG3DClass -> Float -> IO () setCurrentValue a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -132,13 +114,8 @@ return () {-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | set the current click step setting for the slider. - Details: The click step size is the amount the slider value will be adjusted when the widget ---is clicked wither side of the slider thumb. --- -setClickStep :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ step - -> IO () - -- ^ +{- function setClickStep -} +setClickStep :: HG3DClass -> Float -> IO () setClickStep a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -146,11 +123,8 @@ return () {-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | Slider -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Slider -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -160,10 +134,8 @@ return (a3'') {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-} --- | Slider -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Slider -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassSpinner.hs b/HGamer3D/Bindings/CEGUI/ClassSpinner.hs --- a/HGamer3D/Bindings/CEGUI/ClassSpinner.hs +++ b/HGamer3D/Bindings/CEGUI/ClassSpinner.hs @@ -50,11 +50,8 @@ import HGamer3D.Bindings.CEGUI.EnumTextInputMode {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Constructor for Spinner -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Spinner -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -64,30 +61,24 @@ return (a3'') {-# LINE 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Destructor for Spinner -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Spinner -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Initialises the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () initialiseComponents a1 = withHG3DClass a1 $ \a1' -> initialiseComponents'_ a1' >>= \res -> return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Return the current spinner value. -getCurrentValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Double) - -- ^ return value - current value of the +{- function getCurrentValue -} +getCurrentValue :: HG3DClass -> IO (Double) getCurrentValue a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,10 +87,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Return the current step value. -getStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Double) - -- ^ return value - Step value. This is the value added to the spinner vaue when the up / down buttons are clicked. +{- function getStepSize -} +getStepSize :: HG3DClass -> IO (Double) getStepSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -108,10 +97,8 @@ return (a2'') {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Return the current maximum limit value for the Spinner -getMaximumValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Double) - -- ^ return value - Maximum value that is allowed for the spinner. +{- function getMaximumValue -} +getMaximumValue :: HG3DClass -> IO (Double) getMaximumValue a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -120,10 +107,8 @@ return (a2'') {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Return the current minimum limit value for the Spinner -getMinimumValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Double) - -- ^ return value - Minimum value that is allowed for the spinner. +{- function getMinimumValue -} +getMinimumValue :: HG3DClass -> IO (Double) getMinimumValue a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -132,10 +117,8 @@ return (a2'') {-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Return the current text input / display mode setting. -getTextInputMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumTextInputMode) - -- ^ return value - One of the TextInputMode enumerated values indicating the current text input and display mode. +{- function getTextInputMode -} +getTextInputMode :: HG3DClass -> IO (EnumTextInputMode) getTextInputMode a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -144,11 +127,8 @@ return (a2'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Set the current spinner value. -setCurrentValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Double -- ^ value - value to be assigned to the Spinner. - -> IO () - -- ^ return value - Nothing. +{- function setCurrentValue -} +setCurrentValue :: HG3DClass -> Double -> IO () setCurrentValue a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -156,11 +136,8 @@ return () {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Set the current step value. -setStepSize :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Double -- ^ step - The value added to be the spinner value when the up / down buttons are clicked. - -> IO () - -- ^ return value - Nothing. +{- function setStepSize -} +setStepSize :: HG3DClass -> Double -> IO () setStepSize a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -168,11 +145,8 @@ return () {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Set the spinner maximum value. -setMaximumValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Double -- ^ maxValue - The maximum value to be allowed by the spinner. - -> IO () - -- ^ return value - Nothing. +{- function setMaximumValue -} +setMaximumValue :: HG3DClass -> Double -> IO () setMaximumValue a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -180,11 +154,8 @@ return () {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Set the spinner minimum value. -setMinimumValue :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Double -- ^ minVaue - The minimum value to be allowed by the spinner. - -> IO () - -- ^ return value - Nothing. +{- function setMinimumValue -} +setMinimumValue :: HG3DClass -> Double -> IO () setMinimumValue a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -192,11 +163,8 @@ return () {-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-} --- | Set the spinner input / display mode. -setTextInputMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumTextInputMode -- ^ mode - One of the TextInputMode enumerated values indicating the text input / display mode to be used by the spinner. - -> IO () - -- ^ return value - Nothing. +{- function setTextInputMode -} +setTextInputMode :: HG3DClass -> EnumTextInputMode -> IO () setTextInputMode a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in diff --git a/HGamer3D/Bindings/CEGUI/ClassSystem.hs b/HGamer3D/Bindings/CEGUI/ClassSystem.hs --- a/HGamer3D/Bindings/CEGUI/ClassSystem.hs +++ b/HGamer3D/Bindings/CEGUI/ClassSystem.hs @@ -50,16 +50,8 @@ import HGamer3D.Bindings.CEGUI.EnumMouseButton {-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Create the System -create :: HG3DClass -- ^ renderer - Reference to a valid Renderer object that will be used to render GUI imagery. - -> HG3DClass -- ^ resourceProvider - Pointer to a ResourceProvider object, or NULL to use whichever default the Renderer provides. - -> HG3DClass -- ^ xmlParser - Pointer to a valid XMLParser object to be used when parsing XML files, or NULL to use a default parser. - -> HG3DClass -- ^ imageCodec - Pointer to a valid ImageCodec object to be used when loading image files, or NULL to use a default image codec. - -> HG3DClass -- ^ scriptModule - Pointer to a ScriptModule object. may be NULL for none. - -> String -- ^ configFile - String object containing the name of a configuration file to use. - -> String -- ^ logFile - String object containing the name to use for the log file. - -> IO (HG3DClass) - -- ^ +{- function create -} +create :: HG3DClass -> HG3DClass -> HG3DClass -> HG3DClass -> HG3DClass -> String -> String -> IO (HG3DClass) create a1 a2 a3 a4 a5 a6 a7 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -74,17 +66,15 @@ return (a8'') {-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Destroy the System +{- function destroy -} destroy :: IO () - -- ^ destroy = destroy'_ >>= \res -> return () {-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return singleton System +{- function getSingleton -} getSingleton :: IO (HG3DClass) - -- ^ return value - Singleton getSingleton = alloca $ \a1' -> getSingleton'_ a1' >>= \res -> @@ -92,9 +82,8 @@ return (a1'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return pointer to singleton System +{- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) - -- ^ return value - Pointer to singleton getSingletonPtr = alloca $ \a1' -> getSingletonPtr'_ a1' >>= \res -> @@ -102,50 +91,16 @@ return (a1'') {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Static member to set the name of the default XML parser module that should be used. - Details: If you want to modify the default parser from the one compiled in, you ---need to call this static member prior to instantiating the main ---CEGUI::System object. --- ---Note that calling this member to change the name of the default module ---after CEGUI::System, and therefore the default xml parser, has been ---created will have no real effect - the default parser name will be ---updated, though no actual changes to the xml parser module will occur. --- ---The built-in options for this are: --- - XercesParser --- - ExpatParser --- - LibxmlParser --- - TinyXMLParser --- ---Whether these are actually available, depends upon how you built the ---system. If you have some custom parser, you can provide the name of ---that here to have it used as the default, though note that the ---final filename of the parser module should be of the form: --- ---[prefix]CEGUI[parserName][suffix] --- ---where: ---- [prefix] is some optional prefix; like 'lib' on linux. ---- CEGUI is a required prefix. ---- [parserName] is the name of the parser, as supplied to this function. ---- [suffix] is the filename suffix, like .dll or .so --- ---Final module filenames are, thus, of the form: ---- CEGUIXercesParser.dll ---- libCEGUIXercesParser.so --- -setDefaultXMLParserName :: String -- ^ parserName - -> IO () - -- ^ +{- function setDefaultXMLParserName -} +setDefaultXMLParserName :: String -> IO () setDefaultXMLParserName a1 = withCString a1 $ \a1' -> setDefaultXMLParserName'_ a1' >>= \res -> return () {-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return the name of the currently set default xml parser module. +{- function getDefaultXMLParserName -} getDefaultXMLParserName :: IO (String) - -- ^ return value - String holding the currently set default xml parser name. Note that if this name has been changed after instantiating the system, the name returned may not actually correspond to the module in use. getDefaultXMLParserName = alloc64k $ \a1' -> getDefaultXMLParserName'_ a1' >>= \res -> @@ -153,19 +108,16 @@ return (a1'') {-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the name of the default image codec to be used. -setDefaultImageCodecName :: String -- ^ codecName - -> IO () - -- ^ +{- function setDefaultImageCodecName -} +setDefaultImageCodecName :: String -> IO () setDefaultImageCodecName a1 = withCString a1 $ \a1' -> setDefaultImageCodecName'_ a1' >>= \res -> return () {-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Get the name of the default image codec. +{- function getDefaultImageCodecName -} getDefaultImageCodecName :: IO (String) - -- ^ getDefaultImageCodecName = alloc64k $ \a1' -> getDefaultImageCodecName'_ a1' >>= \res -> @@ -173,10 +125,8 @@ return (a1'') {-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a pointer to the Renderer -getRenderer :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getRenderer -} +getRenderer :: HG3DClass -> IO (HG3DClass) getRenderer a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -185,11 +135,8 @@ return (a2'') {-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the default font to be used by the system. -setDefaultFont :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object containing the name of the font to be used as the system default. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultFont -} +setDefaultFont :: HG3DClass -> String -> IO () setDefaultFont a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -197,11 +144,8 @@ return () {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the default font to be used by the system. -setDefaultFont2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ font - Pointer to the font to be used as the system default. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultFont2 -} +setDefaultFont2 :: HG3DClass -> HG3DClass -> IO () setDefaultFont2 a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -209,10 +153,8 @@ return () {-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a pointer to the default Font -getDefaultFont :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getDefaultFont -} +getDefaultFont :: HG3DClass -> IO (HG3DClass) getDefaultFont a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -221,20 +163,16 @@ return (a2'') {-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Causes a full re-draw next time renderGUI() -signalRedraw :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function signalRedraw -} +signalRedraw :: HG3DClass -> IO () signalRedraw a1 = withHG3DClass a1 $ \a1' -> signalRedraw'_ a1' >>= \res -> return () {-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a boolean value to indicate whether a full re-draw is requested next time renderGUI() -isRedrawRequested :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if a re-draw has been requested +{- function isRedrawRequested -} +isRedrawRequested :: HG3DClass -> IO (Bool) isRedrawRequested a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -243,22 +181,16 @@ return (a2'') {-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Render the GUI. - Details: Depending upon the internal state, this may either re-use rendering from last time, or trigger a full re-draw from all elements. --- -renderGUI :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function renderGUI -} +renderGUI :: HG3DClass -> IO () renderGUI a1 = withHG3DClass a1 $ \a1' -> renderGUI'_ a1' >>= \res -> return () {-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the active GUI sheet (root) window. -setGUISheet :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ sheet - Pointer to a Window object that will become the new GUI 'root' - -> IO (HG3DClass) - -- ^ return value - Pointer to the window that was previously set as the GUI root. +{- function setGUISheet -} +setGUISheet :: HG3DClass -> HG3DClass -> IO (HG3DClass) setGUISheet a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -268,10 +200,8 @@ return (a3'') {-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a pointer to the active GUI sheet (root) window. -getGUISheet :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the window object that has been set as the GUI root element. +{- function getGUISheet -} +getGUISheet :: HG3DClass -> IO (HG3DClass) getGUISheet a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -280,11 +210,8 @@ return (a2'') {-# LINE 127 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return the current timeout for generation of single-click events. - Details: A single-click is defined here as a button being pressed and then released. --- -getSingleClickTimeout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Double) - -- ^ +{- function getSingleClickTimeout -} +getSingleClickTimeout :: HG3DClass -> IO (Double) getSingleClickTimeout a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -293,13 +220,8 @@ return (a2'') {-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return the current timeout for generation of multi-click events. - Details: A multi-click event is a double-click, or a triple-click. The value returned ---here is the maximum allowable time between mouse button down events for which ---a multi-click event will be generated. --- -getMultiClickTimeout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Double) - -- ^ +{- function getMultiClickTimeout -} +getMultiClickTimeout :: HG3DClass -> IO (Double) getMultiClickTimeout a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -308,13 +230,8 @@ return (a2'') {-# LINE 137 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the timeout used for generation of single-click events. - Details: A single-click is defined here as a button being pressed and then ---released. --- -setSingleClickTimeout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Double -- ^ timeout - -> IO () - -- ^ +{- function setSingleClickTimeout -} +setSingleClickTimeout :: HG3DClass -> Double -> IO () setSingleClickTimeout a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -322,14 +239,8 @@ return () {-# LINE 142 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the timeout to be used for the generation of multi-click events. - Details: A multi-click event is a double-click, or a triple-click. The value ---returned here is the maximum allowable time between mouse button down ---events for which a multi-click event will be generated. --- -setMultiClickTimeout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Double -- ^ timeout - -> IO () - -- ^ +{- function setMultiClickTimeout -} +setMultiClickTimeout :: HG3DClass -> Double -> IO () setMultiClickTimeout a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -337,10 +248,8 @@ return () {-# LINE 147 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return whether automatic mouse button click and multi-click (i.e. double-click and treble-click) event generation is enabled. -isMouseClickEventGenerationEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isMouseClickEventGenerationEnabled -} +isMouseClickEventGenerationEnabled :: HG3DClass -> IO (Bool) isMouseClickEventGenerationEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -349,13 +258,8 @@ return (a2'') {-# LINE 152 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set whether automatic mouse button click and multi-click (i.e. double-click and treble-click) event generation will occur. -setMouseClickEventGenerationEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enable - --- --- - -> IO () - -- ^ +{- function setMouseClickEventGenerationEnabled -} +setMouseClickEventGenerationEnabled :: HG3DClass -> Bool -> IO () setMouseClickEventGenerationEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -363,12 +267,8 @@ return () {-# LINE 157 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the image to be used as the default mouse cursor. -setDefaultMouseCursor3 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - String object that contains the name of the Imageset that contains the image to be used. - -> String -- ^ image_name - String object that contains the name of the Image on imageset that is to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultMouseCursor3 -} +setDefaultMouseCursor3 :: HG3DClass -> String -> String -> IO () setDefaultMouseCursor3 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -377,10 +277,8 @@ return () {-# LINE 163 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return the Window -getWindowContainingMouse :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getWindowContainingMouse -} +getWindowContainingMouse :: HG3DClass -> IO (HG3DClass) getWindowContainingMouse a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -389,10 +287,8 @@ return (a2'') {-# LINE 168 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a pointer to the ScriptModule -getScriptingModule :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getScriptingModule -} +getScriptingModule :: HG3DClass -> IO (HG3DClass) getScriptingModule a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -401,11 +297,8 @@ return (a2'') {-# LINE 173 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the ScriptModule -setScriptingModule :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ scriptModule - Pointer to a ScriptModule based object, or 0 for none (be careful!) - -> IO () - -- ^ return value - Nothing +{- function setScriptingModule -} +setScriptingModule :: HG3DClass -> HG3DClass -> IO () setScriptingModule a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -413,10 +306,8 @@ return () {-# LINE 178 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a pointer to the ResourceProvider -getResourceProvider :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a +{- function getResourceProvider -} +getResourceProvider :: HG3DClass -> IO (HG3DClass) getResourceProvider a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -425,12 +316,8 @@ return (a2'') {-# LINE 183 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Execute a script file if possible. -executeScriptFile :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ filename - String object holding the filename of the script file that is to be executed - -> String -- ^ resourceGroup - Resource group identifier to be passed to the ResourceProvider when loading the script file. - -> IO () - -- ^ +{- function executeScriptFile -} +executeScriptFile :: HG3DClass -> String -> String -> IO () executeScriptFile a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -439,11 +326,8 @@ return () {-# LINE 189 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Execute a scripted global function if possible. The function should not take any parameters and should return an integer. -executeScriptGlobal :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ function_name - String object holding the name of the function, in the global script environment, that is to be executed. - -> IO (Int) - -- ^ return value - The integer value returned from the script function. +{- function executeScriptGlobal -} +executeScriptGlobal :: HG3DClass -> String -> IO (Int) executeScriptGlobal a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -453,11 +337,8 @@ return (a3'') {-# LINE 195 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | If possible, execute script code contained in the given CEGUI::String object. -executeScriptString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ str - String object holding the valid script code that should be executed. - -> IO () - -- ^ return value - Nothing. +{- function executeScriptString -} +executeScriptString :: HG3DClass -> String -> IO () executeScriptString a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -465,10 +346,8 @@ return () {-# LINE 200 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | return the current mouse movement scaling factor. -getMouseMoveScaling :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value that is equal to the currently set mouse movement scaling factor. Defaults to 1.0f. +{- function getMouseMoveScaling -} +getMouseMoveScaling :: HG3DClass -> IO (Float) getMouseMoveScaling a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -477,11 +356,8 @@ return (a2'') {-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the current mouse movement scaling factor. -setMouseMoveScaling :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ scaling - float value specifying the scaling to be applied to mouse movement inputs. - -> IO () - -- ^ return value - nothing. +{- function setMouseMoveScaling -} +setMouseMoveScaling :: HG3DClass -> Float -> IO () setMouseMoveScaling a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -489,11 +365,8 @@ return () {-# LINE 210 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Internal method used to inform the SystemSystem - Details: This method is not intended for client code usage. If you use this method anything can, and probably will, go wrong! -notifyWindowDestroyed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - -> IO () - -- ^ +{- function notifyWindowDestroyed -} +notifyWindowDestroyed :: HG3DClass -> HG3DClass -> IO () notifyWindowDestroyed a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -501,10 +374,8 @@ return () {-# LINE 215 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return the current system keys value. -getSystemKeys :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - uint value representing a combination of the SystemKey bits. +{- function getSystemKeys -} +getSystemKeys :: HG3DClass -> IO (Int) getSystemKeys a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -513,15 +384,8 @@ return (a2'') {-# LINE 220 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set a new XML parser module to be used. - Details: The current XMLParser will be cleaned up and, if owned by the system, ---also deleted, as will any dynamically loaded module associated with the ---XMLParser object. The newly created XMLParser object, and the ---associated module will be owned by the system. --- -setXMLParser :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ parserName - -> IO () - -- ^ +{- function setXMLParser -} +setXMLParser :: HG3DClass -> String -> IO () setXMLParser a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -529,19 +393,8 @@ return () {-# LINE 225 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Sets the XMLParser - Details: The current XMLParser will be cleaned up and, if owned by the system, ---also deleted, as will any dynamically loaded module associated with the ---XMLParser object. --- ---If the argument passed in the \a parser parameter is 0, the system will ---cleanup any existing parser as described above, and revert to using ---the parser provided by the default module (see getDefaultXMLParserName ---and setDefaultXMLParserName). --- -setXMLParser2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ parser - -> IO () - -- ^ +{- function setXMLParser2 -} +setXMLParser2 :: HG3DClass -> HG3DClass -> IO () setXMLParser2 a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -549,10 +402,8 @@ return () {-# LINE 230 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return the XMLParser -getXMLParser :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getXMLParser -} +getXMLParser :: HG3DClass -> IO (HG3DClass) getXMLParser a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -561,11 +412,8 @@ return (a2'') {-# LINE 235 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the system default TooltipTooltip -setDefaultTooltip :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ tooltip - Pointer to a valid Tooltip based object which should be used as the default tooltip for the system, or NULL to indicate that no system default tooltip is required. Note that when passing a pointer to a Tooltip object, ownership of the Tooltip does not pass to System. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultTooltip -} +setDefaultTooltip :: HG3DClass -> HG3DClass -> IO () setDefaultTooltip a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -573,14 +421,8 @@ return () {-# LINE 240 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the system default TooltipWindow - Details: System will internally attempt to create an instance of the specified window type (which must be ---derived from the base Tooltip class). If the Tooltip creation fails, the error is logged and no ---system default Tooltip will be available. --- -setDefaultTooltip2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ tooltipType - -> IO () - -- ^ +{- function setDefaultTooltip2 -} +setDefaultTooltip2 :: HG3DClass -> String -> IO () setDefaultTooltip2 a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -588,10 +430,8 @@ return () {-# LINE 245 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | return a poiter to the system default tooltip. May return 0. -getDefaultTooltip :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the current system default tooltip. May return 0 if no system default tooltip is available. +{- function getDefaultTooltip -} +getDefaultTooltip :: HG3DClass -> IO (HG3DClass) getDefaultTooltip a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -600,11 +440,8 @@ return (a2'') {-# LINE 250 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Internal method to directly set the current modal target. - Details: This method is called internally by Window -setModalTarget :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ target - -> IO () - -- ^ +{- function setModalTarget -} +setModalTarget :: HG3DClass -> HG3DClass -> IO () setModalTarget a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -612,10 +449,8 @@ return () {-# LINE 255 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Return a pointer to the Window -getModalTarget :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the current modal target. NULL if there is no modal target. +{- function getModalTarget -} +getModalTarget :: HG3DClass -> IO (HG3DClass) getModalTarget a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -624,10 +459,8 @@ return (a2'') {-# LINE 260 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Perform updates with regards to the window that contains the mouse cursor, firing any required MouseEnters / MouseLeaves events. - Details: The CEGUI -updateWindowContainingMouse :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function updateWindowContainingMouse -} +updateWindowContainingMouse :: HG3DClass -> IO (Bool) updateWindowContainingMouse a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -636,10 +469,8 @@ return (a2'') {-# LINE 265 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Retrieve the image codec to be used by the system. -getImageCodec :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getImageCodec -} +getImageCodec :: HG3DClass -> IO (HG3DClass) getImageCodec a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -648,11 +479,8 @@ return (a2'') {-# LINE 270 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the image codec to be used by the system. -setImageCodec :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ codecName - -> IO () - -- ^ +{- function setImageCodec -} +setImageCodec :: HG3DClass -> String -> IO () setImageCodec a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -660,13 +488,8 @@ return () {-# LINE 275 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Set the image codec to use from an existing image codec. - Details: In this case the renderer does not take the ownership of the image codec ---object. --- -setImageCodec2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ codec - -> IO () - -- ^ +{- function setImageCodec2 -} +setImageCodec2 :: HG3DClass -> HG3DClass -> IO () setImageCodec2 a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -674,22 +497,16 @@ return () {-# LINE 280 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Invalidate all imagery and geometry caches for CEGUI - Details: This function will invalidate the caches used for both imagery and geometry for all content that is managed by the core CEGUIWindow -invalidateAllCachedRendering :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function invalidateAllCachedRendering -} +invalidateAllCachedRendering :: HG3DClass -> IO () invalidateAllCachedRendering a1 = withHG3DClass a1 $ \a1' -> invalidateAllCachedRendering'_ a1' >>= \res -> return () {-# LINE 284 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a mouse movement event into the system. -injectMouseMove :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ delta_x - amount the mouse moved on the x axis. - -> Float -- ^ delta_y - amount the mouse moved on the y axis. - -> IO (Bool) - -- ^ +{- function injectMouseMove -} +injectMouseMove :: HG3DClass -> Float -> Float -> IO (Bool) injectMouseMove a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -700,10 +517,8 @@ return (a4'') {-# LINE 291 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects that the mouse has left the application window. -injectMouseLeaves :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function injectMouseLeaves -} +injectMouseLeaves :: HG3DClass -> IO (Bool) injectMouseLeaves a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -712,11 +527,8 @@ return (a2'') {-# LINE 296 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a mouse button down event into the system. -injectMouseButtonDown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumMouseButton -- ^ button - One of the MouseButton values indicating which button was pressed. - -> IO (Bool) - -- ^ +{- function injectMouseButtonDown -} +injectMouseButtonDown :: HG3DClass -> EnumMouseButton -> IO (Bool) injectMouseButtonDown a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -726,11 +538,8 @@ return (a3'') {-# LINE 302 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a mouse button up event into the system. -injectMouseButtonUp :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumMouseButton -- ^ button - One of the MouseButton values indicating which button was released. - -> IO (Bool) - -- ^ +{- function injectMouseButtonUp -} +injectMouseButtonUp :: HG3DClass -> EnumMouseButton -> IO (Bool) injectMouseButtonUp a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -740,11 +549,8 @@ return (a3'') {-# LINE 308 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a key down event into the system. -injectKeyDown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ key_code - uint value indicating which key was pressed. - -> IO (Bool) - -- ^ +{- function injectKeyDown -} +injectKeyDown :: HG3DClass -> Int -> IO (Bool) injectKeyDown a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -754,11 +560,8 @@ return (a3'') {-# LINE 314 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a key up event into the system. -injectKeyUp :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ key_code - uint value indicating which key was released. - -> IO (Bool) - -- ^ +{- function injectKeyUp -} +injectKeyUp :: HG3DClass -> Int -> IO (Bool) injectKeyUp a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -768,11 +571,8 @@ return (a3'') {-# LINE 320 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a typed character event into the system. -injectChar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ code_point - Unicode code point of the character that was typed. - -> IO (Bool) - -- ^ +{- function injectChar -} +injectChar :: HG3DClass -> Int -> IO (Bool) injectChar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -782,11 +582,8 @@ return (a3'') {-# LINE 326 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a mouse-wheel / scroll-wheel event into the system. -injectMouseWheelChange :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ delta - float value representing the amount the wheel moved. - -> IO (Bool) - -- ^ +{- function injectMouseWheelChange -} +injectMouseWheelChange :: HG3DClass -> Float -> IO (Bool) injectMouseWheelChange a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -796,12 +593,8 @@ return (a3'') {-# LINE 332 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method that injects a new position for the mouse cursor. -injectMousePosition :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ x_pos - New absolute pixel position of the mouse cursor on the x axis. - -> Float -- ^ y_pos - New absolute pixel position of the mouse cursoe in the y axis. - -> IO (Bool) - -- ^ +{- function injectMousePosition -} +injectMousePosition :: HG3DClass -> Float -> Float -> IO (Bool) injectMousePosition a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -812,11 +605,8 @@ return (a4'') {-# LINE 339 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Method to inject time pulses into the system. -injectTimePulse :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ timeElapsed - float value indicating the amount of time passed, in seconds, since the last time this method was called. - -> IO (Bool) - -- ^ return value - Currently, this method always returns true. +{- function injectTimePulse -} +injectTimePulse :: HG3DClass -> Float -> IO (Bool) injectTimePulse a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -826,13 +616,8 @@ return (a3'') {-# LINE 345 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Function to directly inject a mouse button click event. - Details: Here 'click' means a mouse button down event followed by a mouse ---button up event. --- -injectMouseButtonClick :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumMouseButton -- ^ button - -> IO (Bool) - -- ^ +{- function injectMouseButtonClick -} +injectMouseButtonClick :: HG3DClass -> EnumMouseButton -> IO (Bool) injectMouseButtonClick a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -842,13 +627,8 @@ return (a3'') {-# LINE 351 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Function to directly inject a mouse button double-click event. - Details: Here 'double-click' means a single mouse button had the sequence down, ---up, down within a predefined period of time. --- -injectMouseButtonDoubleClick :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumMouseButton -- ^ button - -> IO (Bool) - -- ^ +{- function injectMouseButtonDoubleClick -} +injectMouseButtonDoubleClick :: HG3DClass -> EnumMouseButton -> IO (Bool) injectMouseButtonDoubleClick a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in @@ -858,13 +638,8 @@ return (a3'') {-# LINE 357 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-} --- | Function to directly inject a mouse button triple-click event. - Details: Here 'triple-click' means a single mouse button had the sequence down, ---up, down, up, down within a predefined period of time. --- -injectMouseButtonTripleClick :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumMouseButton -- ^ button - -> IO (Bool) - -- ^ +{- function injectMouseButtonTripleClick -} +injectMouseButtonTripleClick :: HG3DClass -> EnumMouseButton -> IO (Bool) injectMouseButtonTripleClick a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = cIntFromEnum a2} in diff --git a/HGamer3D/Bindings/CEGUI/ClassSystemHG3D.hs b/HGamer3D/Bindings/CEGUI/ClassSystemHG3D.hs --- a/HGamer3D/Bindings/CEGUI/ClassSystemHG3D.hs +++ b/HGamer3D/Bindings/CEGUI/ClassSystemHG3D.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | +{- function createNoLogger -} createNoLogger :: IO (HG3DClass) - -- ^ createNoLogger = alloca $ \a1' -> createNoLogger'_ a1' >>= \res -> @@ -58,10 +57,8 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | -getDefaultResourceProvider :: HG3DClass -- ^ system - -> IO (HG3DClass) - -- ^ +{- function getDefaultResourceProvider -} +getDefaultResourceProvider :: HG3DClass -> IO (HG3DClass) getDefaultResourceProvider a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -70,9 +67,8 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | +{- function getSchemeManagerSingleton -} getSchemeManagerSingleton :: IO (HG3DClass) - -- ^ getSchemeManagerSingleton = alloca $ \a1' -> getSchemeManagerSingleton'_ a1' >>= \res -> @@ -80,11 +76,8 @@ return (a1'') {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | -schemeManagerCreate :: HG3DClass -- ^ smgr - -> String -- ^ scheme - -> IO () - -- ^ +{- function schemeManagerCreate -} +schemeManagerCreate :: HG3DClass -> String -> IO () schemeManagerCreate a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -92,11 +85,8 @@ return () {-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | -fontManagerCreate :: HG3DClass -- ^ fmgr - -> String -- ^ font - -> IO () - -- ^ +{- function fontManagerCreate -} +fontManagerCreate :: HG3DClass -> String -> IO () fontManagerCreate a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -104,9 +94,8 @@ return () {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | +{- function getFontManagerSingleton -} getFontManagerSingleton :: IO (HG3DClass) - -- ^ getFontManagerSingleton = alloca $ \a1' -> getFontManagerSingleton'_ a1' >>= \res -> @@ -114,9 +103,8 @@ return (a1'') {-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-} --- | +{- function getLoggerSingleton -} getLoggerSingleton :: IO (HG3DClass) - -- ^ getLoggerSingleton = alloca $ \a1' -> getLoggerSingleton'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassTabButton.hs b/HGamer3D/Bindings/CEGUI/ClassTabButton.hs --- a/HGamer3D/Bindings/CEGUI/ClassTabButton.hs +++ b/HGamer3D/Bindings/CEGUI/ClassTabButton.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-} --- | Constructor for base TabButton -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function TabButton -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -62,21 +59,16 @@ return (a3'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-} --- | Destructor for TabButton -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~TabButton -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-} --- | Set whether this tab button is selected or not. -setSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ selected - -> IO () - -- ^ +{- function setSelected -} +setSelected :: HG3DClass -> Bool -> IO () setSelected a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -84,10 +76,8 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-} --- | Return whether this tab button is selected or not. -isSelected :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSelected -} +isSelected :: HG3DClass -> IO (Bool) isSelected a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,11 +86,8 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-} --- | Set the target window which is the content pane which this button is covering. -setTargetWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ wnd - -> IO () - -- ^ +{- function setTargetWindow -} +setTargetWindow :: HG3DClass -> HG3DClass -> IO () setTargetWindow a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -108,10 +95,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-} --- | Get the target window which is the content pane which this button is covering. -getTargetWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getTargetWindow -} +getTargetWindow :: HG3DClass -> IO (HG3DClass) getTargetWindow a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/ClassThumb.hs b/HGamer3D/Bindings/CEGUI/ClassThumb.hs --- a/HGamer3D/Bindings/CEGUI/ClassThumb.hs +++ b/HGamer3D/Bindings/CEGUI/ClassThumb.hs @@ -48,10 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | return whether hot-tracking is enabled or not. -isHotTracked :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if hot-tracking is enabled. false if hot-tracking is disabled. +{- function isHotTracked -} +isHotTracked :: HG3DClass -> IO (Bool) isHotTracked a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -60,10 +58,8 @@ return (a2'') {-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | return whether the thumb is movable on the vertical axis. -isVertFree :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the thumb is movable along the vertical axis. false if the thumb is fixed on the vertical axis. +{- function isVertFree -} +isVertFree :: HG3DClass -> IO (Bool) isVertFree a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,10 +68,8 @@ return (a2'') {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | return whether the thumb is movable on the horizontal axis. -isHorzFree :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if the thumb is movable along the horizontal axis. false if the thumb is fixed on the horizontal axis. +{- function isHorzFree -} +isHorzFree :: HG3DClass -> IO (Bool) isHorzFree a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -84,11 +78,8 @@ return (a2'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | set whether the thumb uses hot-tracking. -setHotTracked :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true to enable hot-tracking. false to disable hot-tracking. - -> IO () - -- ^ return value - Nothing. +{- function setHotTracked -} +setHotTracked :: HG3DClass -> Bool -> IO () setHotTracked a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -96,11 +87,8 @@ return () {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | set whether thumb is movable on the vertical axis. -setVertFree :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true to allow movement of thumb along the vertical axis. false to fix thumb on the vertical axis. - -> IO () - -- ^ return value - nothing. +{- function setVertFree -} +setVertFree :: HG3DClass -> Bool -> IO () setVertFree a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -108,11 +96,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | set whether thumb is movable on the horizontal axis. -setHorzFree :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true to allow movement of thumb along the horizontal axis. false to fix thumb on the horizontal axis. - -> IO () - -- ^ return value - nothing. +{- function setHorzFree -} +setHorzFree :: HG3DClass -> Bool -> IO () setHorzFree a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -120,14 +105,8 @@ return () {-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | set the movement range of the thumb for the vertical axis. - Details: The values specified here are relative to the parent window for the thumb, and are specified in whichever ---metrics mode is active for the widget. --- -setVertRange :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ min - -> Float -- ^ max - -> IO () - -- ^ +{- function setVertRange -} +setVertRange :: HG3DClass -> Float -> Float -> IO () setVertRange a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -136,14 +115,8 @@ return () {-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | set the movement range of the thumb for the horizontal axis. - Details: The values specified here are relative to the parent window for the thumb, and are specified in whichever ---metrics mode is active for the widget. --- -setHorzRange :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ min - -> Float -- ^ max - -> IO () - -- ^ +{- function setHorzRange -} +setHorzRange :: HG3DClass -> Float -> Float -> IO () setHorzRange a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -152,11 +125,8 @@ return () {-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | Constructor for Thumb -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Thumb -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -166,10 +136,8 @@ return (a3'') {-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-} --- | Destructor for Thumb -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Thumb -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassTooltip.hs b/HGamer3D/Bindings/CEGUI/ClassTooltip.hs --- a/HGamer3D/Bindings/CEGUI/ClassTooltip.hs +++ b/HGamer3D/Bindings/CEGUI/ClassTooltip.hs @@ -48,11 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Constructor for the Tooltip -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Tooltip -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -62,21 +59,16 @@ return (a3'') {-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Destructor for the Tooltip -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Tooltip -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Sets the target window for the tooltip. This used internally to manage tooltips, you should not have to call this yourself. -setTargetWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ wnd - Window object that the tooltip should be associated with (for now). - -> IO () - -- ^ return value - Nothing. +{- function setTargetWindow -} +setTargetWindow :: HG3DClass -> HG3DClass -> IO () setTargetWindow a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -84,10 +76,8 @@ return () {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | return the current target window for this Tooltip -getTargetWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the target window for this +{- function getTargetWindow -} +getTargetWindow :: HG3DClass -> IO (HG3DClass) getTargetWindow a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -96,20 +86,16 @@ return (a2'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Resets the timer on the tooltip when in the Active / Inactive states. This is used internally to control the tooltip, it is not normally necessary to call this method yourself. -resetTimer :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function resetTimer -} +resetTimer :: HG3DClass -> IO () resetTimer a1 = withHG3DClass a1 $ \a1' -> resetTimer'_ a1' >>= \res -> return () {-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Return the number of seconds the mouse should hover stationary over the target window before the tooltip gets activated. -getHoverTime :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value representing a number of seconds. +{- function getHoverTime -} +getHoverTime :: HG3DClass -> IO (Float) getHoverTime a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -118,11 +104,8 @@ return (a2'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Set the number of seconds the tooltip should be displayed for before it automatically de-activates itself. 0 indicates that the tooltip should never timesout and auto-deactivate. -setDisplayTime :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ seconds - float value representing a number of seconds. - -> IO () - -- ^ return value - Nothing. +{- function setDisplayTime -} +setDisplayTime :: HG3DClass -> Float -> IO () setDisplayTime a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -130,10 +113,8 @@ return () {-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Return the number of seconds that should be taken to fade the tooltip into and out of visibility. -getFadeTime :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value representing a number of seconds. +{- function getFadeTime -} +getFadeTime :: HG3DClass -> IO (Float) getFadeTime a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -142,11 +123,8 @@ return (a2'') {-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Set the number of seconds the mouse should hover stationary over the target window before the tooltip gets activated. -setHoverTime :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ seconds - float value representing a number of seconds. - -> IO () - -- ^ return value - Nothing. +{- function setHoverTime -} +setHoverTime :: HG3DClass -> Float -> IO () setHoverTime a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -154,10 +132,8 @@ return () {-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Return the number of seconds the tooltip should be displayed for before it automatically de-activates itself. 0 indicates that the tooltip never timesout and auto-deactivates. -getDisplayTime :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value representing a number of seconds. +{- function getDisplayTime -} +getDisplayTime :: HG3DClass -> IO (Float) getDisplayTime a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -166,11 +142,8 @@ return (a2'') {-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Set the number of seconds that should be taken to fade the tooltip into and out of visibility. -setFadeTime :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ seconds - float value representing a number of seconds. - -> IO () - -- ^ return value - Nothing. +{- function setFadeTime -} +setFadeTime :: HG3DClass -> Float -> IO () setFadeTime a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in @@ -178,20 +151,16 @@ return () {-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Causes the tooltip to position itself appropriately. -positionSelf :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function positionSelf -} +positionSelf :: HG3DClass -> IO () positionSelf a1 = withHG3DClass a1 $ \a1' -> positionSelf'_ a1' >>= \res -> return () {-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-} --- | Causes the tooltip to resize itself appropriately. -sizeSelf :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function sizeSelf -} +sizeSelf :: HG3DClass -> IO () sizeSelf a1 = withHG3DClass a1 $ \a1' -> sizeSelf'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassTree.hs b/HGamer3D/Bindings/CEGUI/ClassTree.hs --- a/HGamer3D/Bindings/CEGUI/ClassTree.hs +++ b/HGamer3D/Bindings/CEGUI/ClassTree.hs @@ -48,30 +48,24 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | -doTreeRender :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function doTreeRender -} +doTreeRender :: HG3DClass -> IO () doTreeRender a1 = withHG3DClass a1 $ \a1' -> doTreeRender'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | -doScrollbars :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function doScrollbars -} +doScrollbars :: HG3DClass -> IO () doScrollbars a1 = withHG3DClass a1 $ \a1' -> doScrollbars'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Return number of items attached to the tree. -getItemCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - the number of items currently attached to this tree. +{- function getItemCount -} +getItemCount :: HG3DClass -> IO (Int) getItemCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -80,10 +74,8 @@ return (a2'') {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Return the number of selected items in the tree. -getSelectedCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - Total number of attached items that are in the selected state. +{- function getSelectedCount -} +getSelectedCount :: HG3DClass -> IO (Int) getSelectedCount a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -92,10 +84,8 @@ return (a2'') {-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | return whether tree sorting is enabled -isSortEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isSortEnabled -} +isSortEnabled :: HG3DClass -> IO (Bool) isSortEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -104,10 +94,8 @@ return (a2'') {-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | -getVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getVertScrollbar -} +getVertScrollbar :: HG3DClass -> IO (HG3DClass) getVertScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -116,10 +104,8 @@ return (a2'') {-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | -getHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ +{- function getHorzScrollbar -} +getHorzScrollbar :: HG3DClass -> IO (HG3DClass) getHorzScrollbar a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -128,10 +114,8 @@ return (a2'') {-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | return whether multi-select is enabled -isMultiselectEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if multi-select is enabled, false if multi-select is not enabled. +{- function isMultiselectEnabled -} +isMultiselectEnabled :: HG3DClass -> IO (Bool) isMultiselectEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -140,10 +124,8 @@ return (a2'') {-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | -isItemTooltipsEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isItemTooltipsEnabled -} +isItemTooltipsEnabled :: HG3DClass -> IO (Bool) isItemTooltipsEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -152,10 +134,8 @@ return (a2'') {-# LINE 86 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Return whether the vertical scroll bar is always shown. -isVertScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isVertScrollbarAlwaysShown -} +isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isVertScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -164,10 +144,8 @@ return (a2'') {-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Return whether the horizontal scroll bar is always shown. -isHorzScrollbarAlwaysShown :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isHorzScrollbarAlwaysShown -} +isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool) isHorzScrollbarAlwaysShown a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -176,43 +154,32 @@ return (a2'') {-# LINE 96 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Initialise the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowFactory for each Window -initialise :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing +{- function initialise -} +initialise :: HG3DClass -> IO () initialise a1 = withHG3DClass a1 $ \a1' -> initialise'_ a1' >>= \res -> return () {-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Remove all items from the tree. - Details: Note that this will cause 'AutoDelete' items to be deleted. -resetList :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function resetList -} +resetList :: HG3DClass -> IO () resetList a1 = withHG3DClass a1 $ \a1' -> resetList'_ a1' >>= \res -> return () {-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Clear the selected state for all items. -clearAllSelections :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function clearAllSelections -} +clearAllSelections :: HG3DClass -> IO () clearAllSelections a1 = withHG3DClass a1 $ \a1' -> clearAllSelections'_ a1' >>= \res -> return () {-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Set whether the tree should be sorted. -setSortingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setSortingEnabled -} +setSortingEnabled :: HG3DClass -> Bool -> IO () setSortingEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -220,13 +187,8 @@ return () {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Set whether the tree should allow multiple selections or just a single selection. -setMultiselectEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setMultiselectEnabled -} +setMultiselectEnabled :: HG3DClass -> Bool -> IO () setMultiselectEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -234,13 +196,8 @@ return () {-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Set whether the vertical scroll bar should always be shown. -setShowVertScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setShowVertScrollbar -} +setShowVertScrollbar :: HG3DClass -> Bool -> IO () setShowVertScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -248,13 +205,8 @@ return () {-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Set whether the horizontal scroll bar should always be shown. -setShowHorzScrollbar :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. +{- function setShowHorzScrollbar -} +setShowHorzScrollbar :: HG3DClass -> Bool -> IO () setShowHorzScrollbar a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -262,11 +214,8 @@ return () {-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | -setItemTooltipsEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - -> IO () - -- ^ +{- function setItemTooltipsEnabled -} +setItemTooltipsEnabled :: HG3DClass -> Bool -> IO () setItemTooltipsEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in @@ -274,12 +223,8 @@ return () {-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Set the select state of an attached TreeItem. - Details: This is the recommended way of selecting and deselecting items attached to a tree as it respects the multi-select mode setting. It is possible to modify the setting on TreeItems directly, but that approach does not respect the settings of the tree. -setItemSelectState2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ item_index - -> Bool -- ^ state - -> IO () - -- ^ +{- function setItemSelectState2 -} +setItemSelectState2 :: HG3DClass -> Int -> Bool -> IO () setItemSelectState2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in @@ -288,11 +233,8 @@ return () {-# LINE 139 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Set the LookNFeel that shoule be used for this window. - Details: Once a look'n'feel has been assigned it is locked - as in cannot be changed. -setLookNFeel :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ look - String object holding the name of the look to be assigned to the window. - -> IO () - -- ^ return value - Nothing. +{- function setLookNFeel -} +setLookNFeel :: HG3DClass -> String -> IO () setLookNFeel a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -300,21 +242,16 @@ return () {-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Causes the tree to update it's internal state after changes have been made to one or more attached TreeItem objects. - Details: Client code must call this whenever it has made any changes to TreeItem objects already attached to the tree. If you are just adding items, or removed items to update them prior to re-adding them, there is no need to call this method. -handleUpdatedItemData :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function handleUpdatedItemData -} +handleUpdatedItemData :: HG3DClass -> IO () handleUpdatedItemData a1 = withHG3DClass a1 $ \a1' -> handleUpdatedItemData'_ a1' >>= \res -> return () {-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Constructor for Tree -new :: String -- ^ type - -> String -- ^ name - -> IO (HG3DClass) - -- ^ +{- function Tree -} +new :: String -> String -> IO (HG3DClass) new a1 a2 = withCString a1 $ \a1' -> withCString a2 $ \a2' -> @@ -324,10 +261,8 @@ return (a3'') {-# LINE 154 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-} --- | Destructor for Tree -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~Tree -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassWidgetLookManager.hs b/HGamer3D/Bindings/CEGUI/ClassWidgetLookManager.hs --- a/HGamer3D/Bindings/CEGUI/ClassWidgetLookManager.hs +++ b/HGamer3D/Bindings/CEGUI/ClassWidgetLookManager.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Constructor. +{- function WidgetLookManager -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,22 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Destructor. -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~WidgetLookManager -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Parses a file containing window look & feel specifications (in the form of XML). - Details: If the new file contains specifications for widget types that are already specified, it is not an error; the previous definitions are overwritten by the new data. An entry will appear in the log each time any look & feel component is overwritten. -parseLookNFeelSpecification :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ filename - String object containing the filename of a file containing the widget look & feel data - -> String -- ^ resourceGroup - Resource group identifier to pass to the resource provider when loading the file. - -> IO () - -- ^ return value - Nothing. +{- function parseLookNFeelSpecification -} +parseLookNFeelSpecification :: HG3DClass -> String -> String -> IO () parseLookNFeelSpecification a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -82,11 +75,8 @@ return () {-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Return whether a WidgetLookFeel has been created with the specified name. -isWidgetLookAvailable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ widget - String object holding the name of a widget look to test for. - -> IO (Bool) - -- ^ +{- function isWidgetLookAvailable -} +isWidgetLookAvailable :: HG3DClass -> String -> IO (Bool) isWidgetLookAvailable a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -96,11 +86,8 @@ return (a3'') {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Erase the WidgetLookFeel that has the specified name. -eraseWidgetLook :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ widget - String object holding the name of a widget look to be erased. If no such WidgetLookFeel exists, nothing happens. - -> IO () - -- ^ return value - Nothing. +{- function eraseWidgetLook -} +eraseWidgetLook :: HG3DClass -> String -> IO () eraseWidgetLook a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -108,9 +95,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Return singleton WidgetLookManager +{- function getSingleton -} getSingleton :: IO (HG3DClass) - -- ^ return value - Singleton getSingleton = alloca $ \a1' -> getSingleton'_ a1' >>= \res -> @@ -118,9 +104,8 @@ return (a1'') {-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Return pointer to singleton WidgetLookManager +{- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) - -- ^ return value - Pointer to singleton getSingletonPtr = alloca $ \a1' -> getSingletonPtr'_ a1' >>= \res -> @@ -128,9 +113,8 @@ return (a1'') {-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Returns the default resource group currently set for LookNFeels. +{- function getDefaultResourceGroup -} getDefaultResourceGroup :: IO (String) - -- ^ return value - String describing the default resource group identifier that will be used when loading LookNFeel data. getDefaultResourceGroup = alloc64k $ \a1' -> getDefaultResourceGroup'_ a1' >>= \res -> @@ -138,10 +122,8 @@ return (a1'') {-# LINE 80 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-} --- | Sets the default resource group to be used when loading LookNFeel data. -setDefaultResourceGroup :: String -- ^ resourceGroup - String describing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: String -> IO () setDefaultResourceGroup a1 = withCString a1 $ \a1' -> setDefaultResourceGroup'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassWindow.hs b/HGamer3D/Bindings/CEGUI/ClassWindow.hs --- a/HGamer3D/Bindings/CEGUI/ClassWindow.hs +++ b/HGamer3D/Bindings/CEGUI/ClassWindow.hs @@ -54,1930 +54,1443 @@ import HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode {-# LINE 45 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} --- | Constructor for Window -new :: String -- ^ type - String object holding Window type (usually provided by WindowFactory). - -> String -- ^ name - String object holding unique name for the Window. - -> IO (HG3DClass) - -- ^ -new a1 a2 = - withCString a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - new'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Destructor for Window -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ -delete a1 = - withHG3DClass a1 $ \a1' -> - delete'_ a1' >>= \res -> - return () -{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a String object holding the type name for this Window -getType :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding the -getType a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getType'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a String object holding the name of this Window -getName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding the unique -getName a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getName'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | returns whether or not this Window -isDestroyedByParent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isDestroyedByParent a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isDestroyedByParent'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | returns whether or not this WindowWindow -isAlwaysOnTop :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isAlwaysOnTop a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isAlwaysOnTop'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return whether the Window -isDisabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ localOnly - States whether to only return the state set for this window, and not to factor in inherited state from ancestor windows. - -> IO (Bool) - -- ^ -isDisabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - alloca $ \a3' -> - isDisabled'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if the Window - Details: When true is returned from this function does not mean that the window ---is not completely obscured by other windows, just that the window will ---be processed when rendering, and is not explicitly marked as hidden. --- -isVisible :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ localOnly - -> IO (Bool) - -- ^ -isVisible a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - alloca $ \a3' -> - isVisible'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if this is the active Window - Details: Mouse events are always sent to the window containing the mouse cursor ---regardless of what this function reports (unless a window has captured ---inputs). The active state mainly determines where send other, for ---example keyboard, inputs. --- -isActive :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isActive a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isActive'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if this WindowWindow -isClippedByParent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isClippedByParent a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isClippedByParent'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the ID code currently assigned to this Window -getID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - uint value equal to the currently assigned ID code for this -getID a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getID'_ a1' a2' >>= \res -> - peekIntConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the number of child WindowWindow -getChildCount :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ return value - size_t value equal to the number of -getChildCount a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getChildCount'_ a1' a2' >>= \res -> - peekIntConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | returns whether a WindowWindow -isChild :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object containing the name of the Window to look for. - -> IO (Bool) - -- ^ -isChild a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - isChild'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | returns whether at least one window with the given ID code is attached to this Window - Details: ID codes are client assigned and may or may not be unique, and as such, the return from this function will only have meaning to the client code. -isChild2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - uint ID code to look for. - -> IO (Bool) - -- ^ -isChild2 a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - alloca $ \a3' -> - isChild2'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | returns whether at least one window with the given ID code is attached to this Window - Details: ID codes are client assigned and may or may not be unique, and as such, the return from this function will only have meaning to the client code. -isChildRecursive :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - -> IO (Bool) - -- ^ -isChildRecursive a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - alloca $ \a3' -> - isChildRecursive'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if the given Window -isChild3 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Pointer to the Window object to look for. - -> IO (Bool) - -- ^ -isChild3 a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - alloca $ \a3' -> - isChild3'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a pointer to the child window with the specified name. - Details: This function will throw an exception if no child object with the given ---name is attached. This decision was made (over returning NULL if no ---window was found) so that client code can assume that if the call ---returns it has a valid window pointer. We provide the isChild() ---functions for checking if a given window is attached. --- -getChild :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - -> IO (HG3DClass) - -- ^ -getChild a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - getChild'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a pointer to the first attached child window with the specified ID value. - Details: This function will throw an exception if no child object with the given ---ID is attached. This decision was made (over returning NULL if no ---window was found) so that client code can assume that if the call ---returns it has a valid window pointer. We provide the isChild() ---functions for checking if a given window is attached. --- -getChild2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - -> IO (HG3DClass) - -- ^ -getChild2 a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - alloca $ \a3' -> - getChild2'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a pointer to the first attached child window with the specified name. Children are traversed recursively. - Details: Contrary to the non recursive version of this function, this one will ---not throw an exception, but return 0 in case no child was found. --- -getChildRecursive :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - -> IO (HG3DClass) - -- ^ -getChildRecursive a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - getChildRecursive'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 150 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a pointer to the first attached child window with the specified ID value. Children are traversed recursively. - Details: Contrary to the non recursive version of this function, this one will ---not throw an exception, but return 0 in case no child was found. --- -getChildRecursive2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - -> IO (HG3DClass) - -- ^ -getChildRecursive2 a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - alloca $ \a3' -> - getChildRecursive2'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 156 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a pointer to the child window that is attached to 'this' at the given index. -getChildAtIdx :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ idx - Index of the child window whos pointer should be returned. This value is not bounds checked, client code should ensure that this is less than the value returned by getChildCount(). - -> IO (HG3DClass) - -- ^ return value - Pointer to the child window currently attached at index position -getChildAtIdx a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - alloca $ \a3' -> - getChildAtIdx'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 162 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return a pointer to the WindowWindow -getActiveChild :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the window that is active (has input focus) starting at this window. The function will return 'this' if this -getActiveChild a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getActiveChild'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 167 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | -getActiveChild2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ -getActiveChild2 a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getActiveChild2'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 172 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if the specified WindowWindow -isAncestor :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Window to check for. - -> IO (Bool) - -- ^ -isAncestor a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - isAncestor'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 178 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if any WindowWindow -isAncestor2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - uint value specifying the ID to look for. - -> IO (Bool) - -- ^ -isAncestor2 a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - alloca $ \a3' -> - isAncestor2'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 184 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if the specified WindowWindow -isAncestor3 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Pointer to the Window object to look for. - -> IO (Bool) - -- ^ -isAncestor3 a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - alloca $ \a3' -> - isAncestor3'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 190 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the active FontWindow -getFont :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ useDefault - Sepcifies whether to return the default font if this Window has no preferred font set. - -> IO (HG3DClass) - -- ^ return value - Pointer to the -getFont a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - alloca $ \a3' -> - getFont'_ a1' a2' a3' >>= \res -> - peek a3'>>= \a3'' -> - return (a3'') -{-# LINE 196 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the current text for the Window -getText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - The String object that holds the current text for this -getText a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getText'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 201 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return text string with visual -getTextVisual :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ -getTextVisual a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getTextVisual'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 206 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if the Window -inheritsAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -inheritsAlpha a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - inheritsAlpha'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the current alpha value set for this Window - Details: The alpha value set for any given window may or may not be the final alpha value that is used when rendering. All window objects, by default, inherit alpha from thier parent window(s) - this will blend child windows, relatively, down the line of inheritance. This behaviour can be overridden via the setInheritsAlpha()getEffectiveAlpha() -getAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - the currently set alpha value for this -getAlpha a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getAlpha'_ a1' a2' >>= \res -> - peekFloatConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 216 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the effective alpha value that will be used when rendering this window, taking into account inheritance of parent window(s) alpha. -getEffectiveAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - the effective alpha that will be applied to this -getEffectiveAlpha a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getEffectiveAlpha'_ a1' a2' >>= \res -> - peekFloatConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 221 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if this Window -isCapturedByThis :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isCapturedByThis a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isCapturedByThis'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 226 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if an ancestor window has captured inputs. -isCapturedByAncestor :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isCapturedByAncestor a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isCapturedByAncestor'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 231 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return true if a child window has captured inputs. -isCapturedByChild :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isCapturedByChild a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isCapturedByChild'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 236 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the parent of this Window -getParent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to the -getParent a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getParent'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 241 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether this window is set to restore old input capture when it loses input capture. - Details: This is only really useful for certain sub-components for widget ---writers. --- -restoresOldCapture :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -restoresOldCapture a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - restoresOldCapture'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 246 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether z-order changes are enabled or disabled for this Window - Details: This is distinguished from the is/setRiseOnClickEnabled setting in that if rise on click is disabled it only affects the users ability to affect the z order of the WindowWindowWindow -isZOrderingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isZOrderingEnabled a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isZOrderingEnabled'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 251 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether this window will receive multi-click events or multiple 'down' events instead. -wantsMultiClickEvents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -wantsMultiClickEvents a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - wantsMultiClickEvents'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 256 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether mouse button down event autorepeat is enabled for this window. -isMouseAutoRepeatEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isMouseAutoRepeatEnabled a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isMouseAutoRepeatEnabled'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 261 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the current auto-repeat delay setting for this window. -getAutoRepeatDelay :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value indicating the delay, in seconds, defore the first repeat mouse button down event will be triggered when autorepeat is enabled. -getAutoRepeatDelay a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getAutoRepeatDelay'_ a1' a2' >>= \res -> - peekFloatConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 266 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the current auto-repeat rate setting for this window. -getAutoRepeatRate :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value indicating the rate, in seconds, at which repeat mouse button down events will be generated after the initial delay has expired. -getAutoRepeatRate a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getAutoRepeatRate'_ a1' a2' >>= \res -> - peekFloatConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 271 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether the window wants inputs passed to its attached child windows when the window has inputs captured. -distributesCapturedInputs :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -distributesCapturedInputs a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - distributesCapturedInputs'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 276 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether this WindowTooltipTooltip -isUsingDefaultTooltip :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isUsingDefaultTooltip a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isUsingDefaultTooltip'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 281 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return a pointer to the TooltipWindowTooltipWindowTooltip -getTooltip :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - Pointer to a -getTooltip a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getTooltip'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 286 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the custom tooltip type. -getTooltipType :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding the current custom tooltip window type, or an empty string if no custom tooltip is set. -getTooltipType a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getTooltipType'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 291 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the current tooltip text set for this Window -getTooltipText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding the current tooltip text set for this window. -getTooltipText a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getTooltipText'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 296 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether this window inherits Tooltip -inheritsTooltipText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -inheritsTooltipText a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - inheritsTooltipText'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 301 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether this window will rise to the top of the z-order when clicked with the left mouse button. - Details: This is distinguished from the is/setZOrderingEnabled setting in that if rise on click is disabled it only affects the users ability to affect the z order of the WindowWindowWindow -isRiseOnClickEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isRiseOnClickEnabled a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isRiseOnClickEnabled'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 306 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether this window was inherited from the given class name at some point in the inheritance hierarchy. -testClassName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ class_name - The class name that is to be checked. - -> IO (Bool) - -- ^ return value - true if this window was inherited from -testClassName a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - testClassName'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 312 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Get the vertical alignment. - Details: Returns the vertical alignment for the window. This setting affects how ---the windows position is interpreted relative to its parent. --- -getVerticalAlignment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumVerticalAlignment) - -- ^ -getVerticalAlignment a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getVerticalAlignment'_ a1' a2' >>= \res -> - peekEnumUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 317 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Get the horizontal alignment. - Details: Returns the horizontal alignment for the window. This setting affects ---how the windows position is interpreted relative to its parent. --- -getHorizontalAlignment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumHorizontalAlignment) - -- ^ -getHorizontalAlignment a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getHorizontalAlignment'_ a1' a2' >>= \res -> - peekEnumUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 322 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Get the name of the LookNFeel assigned to this window. -getLookNFeel :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding the name of the look assigned to this window. Returns the empty string if no look is assigned. -getLookNFeel a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getLookNFeel'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 327 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Get whether or not this Window -getModalState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - Returns true if this -getModalState a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getModalState'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 332 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns a named user string. -getUserString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the string to be returned. - -> IO (String) - -- ^ return value - String object holding the data stored for the requested user string. -getUserString a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloc64k $ \a3' -> - getUserString'_ a1' a2' a3' >>= \res -> - peekCString a3'>>= \a3'' -> - return (a3'') -{-# LINE 338 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether a user string with the specified name exists. -isUserStringDefined :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the string to be checked. - -> IO (Bool) - -- ^ -isUserStringDefined a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - isUserStringDefined'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 344 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns the active sibling window. - Details: This searches the immediate children of this window's parent, and ---returns a pointer to the active window. The method will return this if ---we are the immediate child of our parent that is active. If our parent ---is not active, or if no immediate child of our parent is active then 0 ---is returned. If this window has no parent, and this window is not ---active then 0 is returned, else this is returned. --- -getActiveSibling :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ -getActiveSibling a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getActiveSibling'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 349 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the pixel Width of the parent element. This always returns a valid number. -getParentPixelWidth :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value that is equal to the pixel width of this -getParentPixelWidth a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getParentPixelWidth'_ a1' a2' >>= \res -> - peekFloatConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 354 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the pixel Height of the parent element. This always returns a valid number. -getParentPixelHeight :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Float) - -- ^ return value - float value that is equal to the pixel height of this -getParentPixelHeight a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getParentPixelHeight'_ a1' a2' >>= \res -> - peekFloatConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 359 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns whether this window should ignore mouse event and pass them through to and other windows behind it. In effect making the window transparent to the mouse. -isMousePassThroughEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ return value - true if mouse pass through is enabled. false if mouse pass through is not enabled. -isMousePassThroughEnabled a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isMousePassThroughEnabled'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 364 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns whether this window is an auto-child window. All auto-child windows have "__auto_" in their name, but this is faster. -isAutoWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isAutoWindow a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isAutoWindow'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 369 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns whether this window is allowed to write XML. -isWritingXMLAllowed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isWritingXMLAllowed a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isWritingXMLAllowed'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 374 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns whether this Window -isDragDropTarget :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isDragDropTarget a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isDragDropTarget'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 379 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns whether automatic -isUsingAutoRenderingSurface :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isUsingAutoRenderingSurface a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isUsingAutoRenderingSurface'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 384 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Returns the window at the root of the hierarchy starting at this Window -getRootWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ return value - A pointer to the root window of the hierarchy that this window is attched to. -getRootWindow a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getRootWindow'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 389 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | -getRootWindow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (HG3DClass) - -- ^ -getRootWindow2 a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getRootWindow2'_ a1' a2' >>= \res -> - peek a2'>>= \a2'' -> - return (a2'') -{-# LINE 394 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether the Window - Details: A non-client window is clipped, positioned and sized according to the ---parent window's full area as opposed to just the inner rect area used ---for normal client windows. --- -isNonClientWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isNonClientWindow a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isNonClientWindow'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 399 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Renames the window. -rename :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ new_name - String object holding the new name for the window. - -> IO () - -- ^ -rename a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - rename'_ a1' a2' >>= \res -> - return () -{-# LINE 404 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Initialises the Window - Details: This must be called for every window created. Normally this is handled automatically by the WindowManager -initialiseComponents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -initialiseComponents a1 = - withHG3DClass a1 $ \a1' -> - initialiseComponents'_ a1' >>= \res -> - return () -{-# LINE 408 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether or not this WindowWindow -setDestroyedByParent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing -setDestroyedByParent a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setDestroyedByParent'_ a1' a2' >>= \res -> - return () -{-# LINE 413 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this window is always on top, or not. -setAlwaysOnTop :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing -setAlwaysOnTop a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setAlwaysOnTop'_ a1' a2' >>= \res -> - return () -{-# LINE 418 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this window is enabled or disabled. A disabled window normally can not be interacted with, and may have different rendering. -setEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing -setEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 423 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | enable the Window -enable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -enable a1 = - withHG3DClass a1 $ \a1' -> - enable'_ a1' >>= \res -> - return () -{-# LINE 427 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | disable the Window -disable :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -disable a1 = - withHG3DClass a1 $ \a1' -> - disable'_ a1' >>= \res -> - return () -{-# LINE 431 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether the Window - Details: Hiding the active window will cause that window to become deactivated. Showing a window does not, however, automatically cause that window to become the active window (call Window::activate -setVisible :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing -setVisible a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setVisible'_ a1' a2' >>= \res -> - return () -{-# LINE 436 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | show the Window - Details: Showing a window does not automatically activate the window. If you want the window to also become active you will need to call the Window::activate -show :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -show a1 = - withHG3DClass a1 $ \a1' -> - show'_ a1' >>= \res -> - return () -{-# LINE 440 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | hide the Window - Details: If the window is the active window, it will become deactivated as a result of being hidden. -hide :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -hide a1 = - withHG3DClass a1 $ \a1' -> - hide'_ a1' >>= \res -> - return () -{-# LINE 444 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Activate the WindowWindow -activate :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -activate a1 = - withHG3DClass a1 $ \a1' -> - activate'_ a1' >>= \res -> - return () -{-# LINE 448 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Deactivate the window. No further inputs will be received by the window until it is re-activated either programmatically or by the user interacting with the gui. -deactivate :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. -deactivate a1 = - withHG3DClass a1 $ \a1' -> - deactivate'_ a1' >>= \res -> - return () -{-# LINE 452 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this Window -setClippedByParent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing -setClippedByParent a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setClippedByParent'_ a1' a2' >>= \res -> - return () -{-# LINE 457 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the current ID for the Window -setID :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - Client assigned ID code for this Window. The GUI system assigns no meaning to any IDs, they are a device purely for client code usage. - -> IO () - -- ^ return value - Nothing -setID a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - setID'_ a1' a2' >>= \res -> - return () -{-# LINE 462 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the current text string for the Window -setText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object containing the text that is to be set as the Window text. - -> IO () - -- ^ return value - Nothing -setText a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - setText'_ a1' a2' >>= \res -> - return () -{-# LINE 467 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Append the string textWindow -appendText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ text - String object holding the text that is to be appended to the Window object's current text string. - -> IO () - -- ^ -appendText a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - appendText'_ a1' a2' >>= \res -> - return () -{-# LINE 472 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the font used by this Window -setFont :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ font - Pointer to the Font object to be used by this Window. If font is NULL, the default font will be used. - -> IO () - -- ^ return value - Nothing -setFont a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - setFont'_ a1' a2' >>= \res -> - return () -{-# LINE 477 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the font used by this Window -setFont2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Font object to be used by this Window. If name == "", the default font will be used. - -> IO () - -- ^ return value - Nothing -setFont2 a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - setFont2'_ a1' a2' >>= \res -> - return () -{-# LINE 482 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Add the named WindowWindowWindownameWindowWindow -addChildWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Window to be added. - -> IO () - -- ^ return value - Nothing. -addChildWindow a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - addChildWindow'_ a1' a2' >>= \res -> - return () -{-# LINE 487 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Add the specified WindowWindowWindowwindowWindowWindow -addChildWindow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Pointer to the Window object to be added. - -> IO () - -- ^ return value - Nothing -addChildWindow2 a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - addChildWindow2'_ a1' a2' >>= \res -> - return () -{-# LINE 492 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Remove the named Window -removeChildWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the Window to be removed. If the Window specified is not attached to this Window, nothing happens. - -> IO () - -- ^ return value - Nothing. -removeChildWindow a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - removeChildWindow'_ a1' a2' >>= \res -> - return () -{-# LINE 497 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Remove the specified Window -removeChildWindow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Pointer to the Window object to be removed. If the window is not attached to this Window, then nothing happens. - -> IO () - -- ^ return value - Nothing. -removeChildWindow2 a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - removeChildWindow2'_ a1' a2' >>= \res -> - return () -{-# LINE 502 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Remove the first child WindowWindow -removeChildWindow3 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Int -- ^ ID - ID number assigned to the Window to be removed. If no Window with ID code ID is attached, nothing happens. - -> IO () - -- ^ return value - Nothing. -removeChildWindow3 a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromIntegral a2} in - removeChildWindow3'_ a1' a2' >>= \res -> - return () -{-# LINE 507 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Move the Window - Details: - If the Window is a non always-on-top window it is moved the the top of --- all other non always-on-top sibling windows, and the process repeated --- for all ancestors. ---- If the Window is an always-on-top window it is moved to the of of all --- sibling Windows, and the process repeated for all ancestors. --- -moveToFront :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -moveToFront a1 = - withHG3DClass a1 $ \a1' -> - moveToFront'_ a1' >>= \res -> - return () -{-# LINE 511 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Move the Window - Details: - If the window is non always-on-top the Window is sent to the very --- bottom of its sibling windows and the process repeated for all --- ancestors. ---- If the window is always-on-top, the Window is sent to the bottom of --- all sibling always-on-top windows and the process repeated for all --- ancestors. --- -moveToBack :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -moveToBack a1 = - withHG3DClass a1 $ \a1' -> - moveToBack'_ a1' >>= \res -> - return () -{-# LINE 515 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Captures input to this window. -captureInput :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -captureInput a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - captureInput'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 520 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Releases input capture from this WindowWindow -releaseInput :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -releaseInput a1 = - withHG3DClass a1 $ \a1' -> - releaseInput'_ a1' >>= \res -> - return () -{-# LINE 524 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this window will remember and restore the previous window that had inputs captured. - Details: --- -setRestoreCapture :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ -setRestoreCapture a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setRestoreCapture'_ a1' a2' >>= \res -> - return () -{-# LINE 529 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the current alpha value for this window. - Details: The alpha value set for any given window may or may not be the final alpha value that is used when rendering. All window objects, by default, inherit alpha from thier parent window(s) - this will blend child windows, relatively, down the line of inheritance. This behaviour can be overridden via the setInheritsAlpha()getEffectiveAlpha() -setAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ alpha - The new alpha value for the window. Value should be between 0.0f and 1.0f. - -> IO () - -- ^ return value - Nothing -setAlpha a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = realToFrac a2} in - setAlpha'_ a1' a2' >>= \res -> - return () -{-# LINE 534 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets whether this Window -setInheritsAlpha :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing -setInheritsAlpha a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setInheritsAlpha'_ a1' a2' >>= \res -> - return () -{-# LINE 539 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Invalidate this window causing at least this window to be redrawn during the next rendering pass. -invalidate :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -invalidate a1 = - withHG3DClass a1 $ \a1' -> - invalidate'_ a1' >>= \res -> - return () -{-# LINE 543 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Invalidate this window and - dependant upon recursive -invalidate2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ recursive - Boolean value indicating whether attached child content should also be invalidated. --- --- - -> IO () - -- ^ return value - Nothing -invalidate2 a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - invalidate2'_ a1' a2' >>= \res -> - return () -{-# LINE 548 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the mouse cursor image to be used when the mouse enters this window. -setMouseCursor3 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ imageset - String object that contains the name of the Imageset that contains the image to be used. - -> String -- ^ image_name - String object that contains the name of the Image on imageset that is to be used. - -> IO () - -- ^ return value - Nothing. -setMouseCursor3 a1 a2 a3 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - withCString a3 $ \a3' -> - setMouseCursor3'_ a1' a2' a3' >>= \res -> - return () -{-# LINE 554 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether z-order changes are enabled or disabled for this Window - Details: This is distinguished from the is/setRiseOnClickEnabled setting in that if rise on click is disabled it only affects the users ability to affect the z order of the WindowWindowWindow -setZOrderingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. -setZOrderingEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setZOrderingEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 559 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this window will receive multi-click events or multiple 'down' events instead. -setWantsMultiClickEvents :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. -setWantsMultiClickEvents a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setWantsMultiClickEvents'_ a1' a2' >>= \res -> - return () -{-# LINE 564 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether mouse button down event autorepeat is enabled for this window. -setMouseAutoRepeatEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. -setMouseAutoRepeatEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setMouseAutoRepeatEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 569 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the current auto-repeat delay setting for this window. -setAutoRepeatDelay :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ delay - float value indicating the delay, in seconds, defore the first repeat mouse button down event should be triggered when autorepeat is enabled. - -> IO () - -- ^ return value - Nothing. -setAutoRepeatDelay a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = realToFrac a2} in - setAutoRepeatDelay'_ a1' a2' >>= \res -> - return () -{-# LINE 574 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the current auto-repeat rate setting for this window. -setAutoRepeatRate :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ rate - float value indicating the rate, in seconds, at which repeat mouse button down events should be generated after the initial delay has expired. - -> IO () - -- ^ return value - Nothing. -setAutoRepeatRate a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = realToFrac a2} in - setAutoRepeatRate'_ a1' a2' >>= \res -> - return () -{-# LINE 579 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether the window wants inputs passed to its attached child windows when the window has inputs captured. -setDistributesCapturedInputs :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ -setDistributesCapturedInputs a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setDistributesCapturedInputs'_ a1' a2' >>= \res -> - return () -{-# LINE 584 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Internal support method for drag & drop. You do not normally call this directly from client code. See the DragContainer -notifyDragDropItemEnters :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> IO () - -- ^ -notifyDragDropItemEnters a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - notifyDragDropItemEnters'_ a1' a2' >>= \res -> - return () -{-# LINE 589 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Internal support method for drag & drop. You do not normally call this directly from client code. See the DragContainer -notifyDragDropItemLeaves :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> IO () - -- ^ -notifyDragDropItemLeaves a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - notifyDragDropItemLeaves'_ a1' a2' >>= \res -> - return () -{-# LINE 594 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Internal support method for drag & drop. You do not normally call this directly from client code. See the DragContainer -notifyDragDropItemDropped :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ item - -> IO () - -- ^ -notifyDragDropItemDropped a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - notifyDragDropItemDropped'_ a1' a2' >>= \res -> - return () -{-# LINE 599 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Internal destroy method which actually just adds the window and any parent destructed child windows to the dead pool. - Details: This is virtual to allow for specialised cleanup which may be required ---in some advanced cases. If you override this for the above reason, you ---MUST call this base class version. --- -destroy :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -destroy a1 = - withHG3DClass a1 $ \a1' -> - destroy'_ a1' >>= \res -> - return () -{-# LINE 603 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the custom TooltipWindowWindowTooltip -setTooltip :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ tooltip - Pointer to a valid Tooltip based object which should be used as the tooltip for this Window, or 0 to indicate that the Window should use the system default Tooltip object. Note that when passing a pointer to a Tooltip object, ownership of the Tooltip does not pass to this Window object. - -> IO () - -- ^ return value - Nothing. -setTooltip a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - setTooltip'_ a1' a2' >>= \res -> - return () -{-# LINE 608 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the custom TooltipWindowWindow - Details: The Window will internally attempt to create an instance of the ---specified window type (which must be derived from the base Tooltip ---class). If the Tooltip creation fails, the error is logged and the ---Window will revert to using either the existing custom Tooltip or the ---system default Tooltip. --- -setTooltipType :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ tooltipType - -> IO () - -- ^ -setTooltipType a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - setTooltipType'_ a1' a2' >>= \res -> - return () -{-# LINE 613 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the tooltip text for this window. -setTooltipText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ tip - String object holding the text to be displayed in the tooltip for this Window. - -> IO () - -- ^ return value - Nothing. -setTooltipText a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - setTooltipText'_ a1' a2' >>= \res -> - return () -{-# LINE 618 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this window inherits Tooltip -setInheritsTooltipText :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. -setInheritsTooltipText a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setInheritsTooltipText'_ a1' a2' >>= \res -> - return () -{-# LINE 623 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether this window will rise to the top of the z-order when clicked with the left mouse button. - Details: This is distinguished from the is/setZOrderingEnabled setting in that if rise on click is disabled it only affects the users ability to affect the z order of the WindowWindowWindow -setRiseOnClickEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ return value - Nothing. -setRiseOnClickEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setRiseOnClickEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 628 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the vertical alignment. - Details: Modifies the vertical alignment for the window. This setting affects ---how the windows position is interpreted relative to its parent. --- -setVerticalAlignment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumVerticalAlignment -- ^ alignment - -> IO () - -- ^ -setVerticalAlignment a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = cIntFromEnum a2} in - setVerticalAlignment'_ a1' a2' >>= \res -> - return () -{-# LINE 633 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the horizontal alignment. - Details: Modifies the horizontal alignment for the window. This setting affects ---how the windows position is interpreted relative to its parent. --- -setHorizontalAlignment :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumHorizontalAlignment -- ^ alignment - -> IO () - -- ^ -setHorizontalAlignment a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = cIntFromEnum a2} in - setHorizontalAlignment'_ a1' a2' >>= \res -> - return () -{-# LINE 638 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the LookNFeel that shoule be used for this window. - Details: Once a look'n'feel has been assigned it is locked - as in cannot be changed. -setLookNFeel :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ look - String object holding the name of the look to be assigned to the window. - -> IO () - -- ^ return value - Nothing. -setLookNFeel a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - setLookNFeel'_ a1' a2' >>= \res -> - return () -{-# LINE 643 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the modal state for this Window -setModalState :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ state - Boolean value defining if this Window should be the modal target. --- --- - -> IO () - -- ^ return value - Nothing. -setModalState a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setModalState'_ a1' a2' >>= \res -> - return () -{-# LINE 648 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | method called to perform extended laying out of attached child windows. - Details: The system may call this at various times (like when it is resized for ---example), and it may be invoked directly where required. --- -performChildWindowLayout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -performChildWindowLayout a1 = - withHG3DClass a1 $ \a1' -> - performChildWindowLayout'_ a1' >>= \res -> - return () -{-# LINE 652 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets the value a named user string, creating it as required. -setUserString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String object holding the name of the string to be returned. - -> String -- ^ value - String object holding the value to be assigned to the user string. - -> IO () - -- ^ return value - Nothing. -setUserString a1 a2 a3 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - withCString a3 $ \a3' -> - setUserString'_ a1' a2' a3' >>= \res -> - return () -{-# LINE 658 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Causes the Window -render :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing -render a1 = - withHG3DClass a1 $ \a1' -> - render'_ a1' >>= \res -> - return () -{-# LINE 662 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Cause window to update itself and any attached children. Client code does not need to call this method; to ensure full, and proper updates, call the injectTimePulse methodname method provided by the System - Details: The update order is such that 'this' window is updated prior to any child windows, this is so that child windows that access the parent in their update code get the correct updated state. -update :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Float -- ^ elapsed - float value indicating the number of seconds passed since the last update. - -> IO () - -- ^ return value - Nothing. -update a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = realToFrac a2} in - update'_ a1' a2' >>= \res -> - return () -{-# LINE 667 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets the internal 'initialising' flag to true. This can be use to optimize initialisation of some widgets, and is called automatically by the layout XML handler when it has created a window. That is just after the window has been created, but before any children or properties are read. -beginInitialisation :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -beginInitialisation a1 = - withHG3DClass a1 $ \a1' -> - beginInitialisation'_ a1' >>= \res -> - return () -{-# LINE 671 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets the internal 'initialising' flag to false. This is called automatically by the layout XML handler when it is done creating a window. That is after all properties and children have been loaded and just before the next sibling gets created. -endInitialisation :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -endInitialisation a1 = - withHG3DClass a1 $ \a1' -> - endInitialisation'_ a1' >>= \res -> - return () -{-# LINE 675 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets whether this window should ignore mouse events and pass them through to any windows behind it. In effect making the window transparent to the mouse. -setMousePassThroughEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - true if mouse pass through is enabled. false if mouse pass through is not enabled. - -> IO () - -- ^ -setMousePassThroughEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setMousePassThroughEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 680 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Assign the WindowRenderer to specify the Look'N'Feel specification to be used. - Details: Once a window renderer has been assigned it is locked - as in cannot be changed. -setWindowRenderer :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - The factory name of the WindowRenderer to use. - -> IO () - -- ^ -setWindowRenderer a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - setWindowRenderer'_ a1' a2' >>= \res -> - return () -{-# LINE 685 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Get the factory name of the currently assigned WindowRenderer. (Look'N'Feel specification). -getWindowRendererName :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - The factory name of the currently assigned WindowRenderer. If no WindowRenderer is assigned an empty string is returned. -getWindowRendererName a1 = - withHG3DClass a1 $ \a1' -> - alloc64k $ \a2' -> - getWindowRendererName'_ a1' a2' >>= \res -> - peekCString a2'>>= \a2'' -> - return (a2'') -{-# LINE 690 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets whether this window is allowed to write XML. -setWritingXMLAllowed :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ allow - -> IO () - -- ^ -setWritingXMLAllowed a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setWritingXMLAllowed'_ a1' a2' >>= \res -> - return () -{-# LINE 695 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Inform the window, and optionally all children, that screen area rectangles have changed. -notifyScreenAreaChanged :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ recursive - --- --- - -> IO () - -- ^ -notifyScreenAreaChanged a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - notifyScreenAreaChanged'_ a1' a2' >>= \res -> - return () -{-# LINE 700 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Changes the widget's falagard type, thus changing its look'n'feel and optionally its renderer in the process. -setFalagardType :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ type - New renderer of the widget - -> String -- ^ rendererType - -> IO () - -- ^ -setFalagardType a1 a2 a3 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - withCString a3 $ \a3' -> - setFalagardType'_ a1' a2' a3' >>= \res -> - return () -{-# LINE 706 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Specifies whether this Window -setDragDropTarget :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ -setDragDropTarget a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setDragDropTarget'_ a1' a2' >>= \res -> - return () -{-# LINE 711 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Invalidate the chain of rendering surfaces from this window backwards to ensure they get properly redrawn - but doing the minimum amount of work possibe - next render. -invalidateRenderingSurface :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ -invalidateRenderingSurface a1 = - withHG3DClass a1 $ \a1' -> - invalidateRenderingSurface'_ a1' >>= \res -> - return () -{-# LINE 715 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Sets whether automatic - Details: Note that this setting really only controls whether the WindowuseWindowEnabling this option will cause the WindowWindowWindowbut not destroyedDisabling this option will cause any automatically created RenderingSurface to be released. It is possible that the renderer in use may not support facilities for RenderingSurfaces that are suitable for full imagery caching. If this is the case, then calling getRenderingSurface after enabling this option will return 0. In these cases this option will still show as being 'enabled', this is because WindowsettingsWindowIf this option is enabled, and the client subsequently assigns a different RenderingSurface to the Window -setUsingAutoRenderingSurface :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - --- --- - -> IO () - -- ^ -setUsingAutoRenderingSurface a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setUsingAutoRenderingSurface'_ a1' a2' >>= \res -> - return () -{-# LINE 720 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether the Window - Details: A non-client window is clipped, positioned and sized according to the ---parent window's full area as opposed to just the inner rect area used ---for normal client windows. --- -setNonClientWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - -> IO () - -- ^ -setNonClientWindow a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setNonClientWindow'_ a1' a2' >>= \res -> - return () -{-# LINE 725 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return whether text parsing is enabled for this window. -isTextParsingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isTextParsingEnabled a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isTextParsingEnabled'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 730 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | set whether text parsing is enabled for this window. -setTextParsingEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ setting - -> IO () - -- ^ -setTextParsingEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setTextParsingEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 735 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Add the named property to the XML ban list for this window. -banPropertyFromXML :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ property_name - -> IO () - -- ^ -banPropertyFromXML a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - banPropertyFromXML'_ a1' a2' >>= \res -> - return () -{-# LINE 740 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Remove the named property from the XML ban list for this window. -unbanPropertyFromXML :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ property_name - -> IO () - -- ^ -unbanPropertyFromXML a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - unbanPropertyFromXML'_ a1' a2' >>= \res -> - return () -{-# LINE 745 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether the named property is banned from XML. -isPropertyBannedFromXML :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ property_name - -> IO (Bool) - -- ^ -isPropertyBannedFromXML a1 a2 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - alloca $ \a3' -> - isPropertyBannedFromXML'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 751 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set the window update mode. This mode controls the behaviour of the Window::update - Details: Disabling updates can have negative effects on the behaviour of CEGUI -setUpdateMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> EnumWindowUpdateMode -- ^ mode - One of the WindowUpdateMode enumerated values indicating the mode to set for this Window. - -> IO () - -- ^ -setUpdateMode a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = cIntFromEnum a2} in - setUpdateMode'_ a1' a2' >>= \res -> - return () -{-# LINE 756 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the current window update mode that is set for this WindowWindow::update - Details: Disabling updates can have negative effects on the behaviour of CEGUI -getUpdateMode :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (EnumWindowUpdateMode) - -- ^ return value - One of the WindowUpdateMode enumerated values indicating the current mode set for this -getUpdateMode a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getUpdateMode'_ a1' a2' >>= \res -> - peekEnumUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 761 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Set whether mouse input that is not directly handled by this WindowWindow -setMouseInputPropagationEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> Bool -- ^ enabled - --- --- - -> IO () - -- ^ -setMouseInputPropagationEnabled a1 a2 = - withHG3DClass a1 $ \a1' -> - let {a2' = fromBool a2} in - setMouseInputPropagationEnabled'_ a1' a2' >>= \res -> - return () -{-# LINE 766 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether mouse input that is not directly handled by this WindowWindow -isMouseInputPropagationEnabled :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ -isMouseInputPropagationEnabled a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - isMouseInputPropagationEnabled'_ a1' a2' >>= \res -> - peekBoolUtil a2'>>= \a2'' -> - return (a2'') -{-# LINE 771 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Clones this Window -clone :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ newName - new name of the cloned window - -> Bool -- ^ deepCopy - if true, even children are copied (the old name prefix will be replaced with new name prefix) - -> IO (HG3DClass) - -- ^ return value - the cloned -clone a1 a2 a3 = - withHG3DClass a1 $ \a1' -> - withCString a2 $ \a2' -> - let {a3' = fromBool a3} in - alloca $ \a4' -> - clone'_ a1' a2' a3' a4' >>= \res -> - peek a4'>>= \a4'' -> - return (a4'') -{-# LINE 778 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | copies this widget's properties to given target widget -clonePropertiesTo :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ target - -> IO () - -- ^ -clonePropertiesTo a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - clonePropertiesTo'_ a1' a2' >>= \res -> - return () -{-# LINE 783 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | copies this widget's child widgets to given target widget -cloneChildWidgetsTo :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ target - -> IO () - -- ^ -cloneChildWidgetsTo a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - cloneChildWidgetsTo'_ a1' a2' >>= \res -> - return () -{-# LINE 788 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return the (visual) z index of the window on it's parent. - Details: The z index is a number that indicates the order that windows will be drawn (but is not a 'z co-ordinate', as such). Higher numbers are in front of lower numbers. -getZIndex :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Int) - -- ^ -getZIndex a1 = - withHG3DClass a1 $ \a1' -> - alloca $ \a2' -> - getZIndex'_ a1' a2' >>= \res -> - peekIntConv a2'>>= \a2'' -> - return (a2'') -{-# LINE 793 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether /a this Window - Details: Here 'in front' just means that one window is drawn after the other, it is not meant to imply that the windows are overlapping nor that one window is obscured by the other. -isInFront :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ wnd - -> IO (Bool) - -- ^ -isInFront a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - alloca $ \a3' -> - isInFront'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 799 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | Return whether /a this Window - Details: Here 'behind' just means that one window is drawn before the other, it is not meant to imply that the windows are overlapping nor that one window is obscured by the other. -isBehind :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ wnd - -> IO (Bool) - -- ^ -isBehind a1 a2 = - withHG3DClass a1 $ \a1' -> - withHG3DClass a2 $ \a2' -> - alloca $ \a3' -> - isBehind'_ a1' a2' a3' >>= \res -> - peekBoolUtil a3'>>= \a3'' -> - return (a3'') -{-# LINE 805 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} - --- | return the Window -getCaptureWindow :: IO (HG3DClass) - -- ^ return value - Pointer to the +{- function Window -} +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'') +{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function ~Window -} +delete :: HG3DClass -> IO () +delete a1 = + withHG3DClass a1 $ \a1' -> + delete'_ a1' >>= \res -> + return () +{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getType -} +getType :: HG3DClass -> IO (String) +getType a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getType'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getName -} +getName :: HG3DClass -> IO (String) +getName a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getName'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isDestroyedByParent -} +isDestroyedByParent :: HG3DClass -> IO (Bool) +isDestroyedByParent a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isDestroyedByParent'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isAlwaysOnTop -} +isAlwaysOnTop :: HG3DClass -> IO (Bool) +isAlwaysOnTop a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isAlwaysOnTop'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isDisabled -} +isDisabled :: HG3DClass -> Bool -> IO (Bool) +isDisabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + alloca $ \a3' -> + isDisabled'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isVisible -} +isVisible :: HG3DClass -> Bool -> IO (Bool) +isVisible a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + alloca $ \a3' -> + isVisible'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isActive -} +isActive :: HG3DClass -> IO (Bool) +isActive a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isActive'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isClippedByParent -} +isClippedByParent :: HG3DClass -> IO (Bool) +isClippedByParent a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isClippedByParent'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getID -} +getID :: HG3DClass -> IO (Int) +getID a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getID'_ a1' a2' >>= \res -> + peekIntConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getChildCount -} +getChildCount :: HG3DClass -> IO (Int) +getChildCount a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getChildCount'_ a1' a2' >>= \res -> + peekIntConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isChild -} +isChild :: HG3DClass -> String -> IO (Bool) +isChild a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + isChild'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isChild2 -} +isChild2 :: HG3DClass -> Int -> IO (Bool) +isChild2 a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + alloca $ \a3' -> + isChild2'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isChildRecursive -} +isChildRecursive :: HG3DClass -> Int -> IO (Bool) +isChildRecursive a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + alloca $ \a3' -> + isChildRecursive'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isChild3 -} +isChild3 :: HG3DClass -> HG3DClass -> IO (Bool) +isChild3 a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + alloca $ \a3' -> + isChild3'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getChild -} +getChild :: HG3DClass -> String -> IO (HG3DClass) +getChild a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + getChild'_ a1' a2' a3' >>= \res -> + peek a3'>>= \a3'' -> + return (a3'') +{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getChild2 -} +getChild2 :: HG3DClass -> Int -> IO (HG3DClass) +getChild2 a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + alloca $ \a3' -> + getChild2'_ a1' a2' a3' >>= \res -> + peek a3'>>= \a3'' -> + return (a3'') +{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getChildRecursive -} +getChildRecursive :: HG3DClass -> String -> IO (HG3DClass) +getChildRecursive a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + getChildRecursive'_ a1' a2' a3' >>= \res -> + peek a3'>>= \a3'' -> + return (a3'') +{-# LINE 150 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getChildRecursive2 -} +getChildRecursive2 :: HG3DClass -> Int -> IO (HG3DClass) +getChildRecursive2 a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + alloca $ \a3' -> + getChildRecursive2'_ a1' a2' a3' >>= \res -> + peek a3'>>= \a3'' -> + return (a3'') +{-# LINE 156 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getChildAtIdx -} +getChildAtIdx :: HG3DClass -> Int -> IO (HG3DClass) +getChildAtIdx a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + alloca $ \a3' -> + getChildAtIdx'_ a1' a2' a3' >>= \res -> + peek a3'>>= \a3'' -> + return (a3'') +{-# LINE 162 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getActiveChild -} +getActiveChild :: HG3DClass -> IO (HG3DClass) +getActiveChild a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getActiveChild'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 167 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getActiveChild2 -} +getActiveChild2 :: HG3DClass -> IO (HG3DClass) +getActiveChild2 a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getActiveChild2'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 172 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isAncestor -} +isAncestor :: HG3DClass -> String -> IO (Bool) +isAncestor a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + isAncestor'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 178 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isAncestor2 -} +isAncestor2 :: HG3DClass -> Int -> IO (Bool) +isAncestor2 a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + alloca $ \a3' -> + isAncestor2'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 184 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isAncestor3 -} +isAncestor3 :: HG3DClass -> HG3DClass -> IO (Bool) +isAncestor3 a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + alloca $ \a3' -> + isAncestor3'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 190 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getFont -} +getFont :: HG3DClass -> Bool -> IO (HG3DClass) +getFont a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + alloca $ \a3' -> + getFont'_ a1' a2' a3' >>= \res -> + peek a3'>>= \a3'' -> + return (a3'') +{-# LINE 196 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getText -} +getText :: HG3DClass -> IO (String) +getText a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getText'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 201 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getTextVisual -} +getTextVisual :: HG3DClass -> IO (String) +getTextVisual a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getTextVisual'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 206 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function inheritsAlpha -} +inheritsAlpha :: HG3DClass -> IO (Bool) +inheritsAlpha a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + inheritsAlpha'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getAlpha -} +getAlpha :: HG3DClass -> IO (Float) +getAlpha a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getAlpha'_ a1' a2' >>= \res -> + peekFloatConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 216 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getEffectiveAlpha -} +getEffectiveAlpha :: HG3DClass -> IO (Float) +getEffectiveAlpha a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getEffectiveAlpha'_ a1' a2' >>= \res -> + peekFloatConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 221 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isCapturedByThis -} +isCapturedByThis :: HG3DClass -> IO (Bool) +isCapturedByThis a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isCapturedByThis'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 226 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isCapturedByAncestor -} +isCapturedByAncestor :: HG3DClass -> IO (Bool) +isCapturedByAncestor a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isCapturedByAncestor'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 231 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isCapturedByChild -} +isCapturedByChild :: HG3DClass -> IO (Bool) +isCapturedByChild a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isCapturedByChild'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 236 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getParent -} +getParent :: HG3DClass -> IO (HG3DClass) +getParent a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getParent'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 241 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function restoresOldCapture -} +restoresOldCapture :: HG3DClass -> IO (Bool) +restoresOldCapture a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + restoresOldCapture'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 246 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isZOrderingEnabled -} +isZOrderingEnabled :: HG3DClass -> IO (Bool) +isZOrderingEnabled a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isZOrderingEnabled'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 251 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function wantsMultiClickEvents -} +wantsMultiClickEvents :: HG3DClass -> IO (Bool) +wantsMultiClickEvents a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + wantsMultiClickEvents'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 256 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isMouseAutoRepeatEnabled -} +isMouseAutoRepeatEnabled :: HG3DClass -> IO (Bool) +isMouseAutoRepeatEnabled a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isMouseAutoRepeatEnabled'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 261 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getAutoRepeatDelay -} +getAutoRepeatDelay :: HG3DClass -> IO (Float) +getAutoRepeatDelay a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getAutoRepeatDelay'_ a1' a2' >>= \res -> + peekFloatConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 266 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getAutoRepeatRate -} +getAutoRepeatRate :: HG3DClass -> IO (Float) +getAutoRepeatRate a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getAutoRepeatRate'_ a1' a2' >>= \res -> + peekFloatConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 271 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function distributesCapturedInputs -} +distributesCapturedInputs :: HG3DClass -> IO (Bool) +distributesCapturedInputs a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + distributesCapturedInputs'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 276 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isUsingDefaultTooltip -} +isUsingDefaultTooltip :: HG3DClass -> IO (Bool) +isUsingDefaultTooltip a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isUsingDefaultTooltip'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 281 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getTooltip -} +getTooltip :: HG3DClass -> IO (HG3DClass) +getTooltip a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getTooltip'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 286 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getTooltipType -} +getTooltipType :: HG3DClass -> IO (String) +getTooltipType a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getTooltipType'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 291 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getTooltipText -} +getTooltipText :: HG3DClass -> IO (String) +getTooltipText a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getTooltipText'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 296 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function inheritsTooltipText -} +inheritsTooltipText :: HG3DClass -> IO (Bool) +inheritsTooltipText a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + inheritsTooltipText'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 301 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isRiseOnClickEnabled -} +isRiseOnClickEnabled :: HG3DClass -> IO (Bool) +isRiseOnClickEnabled a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isRiseOnClickEnabled'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 306 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function testClassName -} +testClassName :: HG3DClass -> String -> IO (Bool) +testClassName a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + testClassName'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 312 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getVerticalAlignment -} +getVerticalAlignment :: HG3DClass -> IO (EnumVerticalAlignment) +getVerticalAlignment a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getVerticalAlignment'_ a1' a2' >>= \res -> + peekEnumUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 317 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getHorizontalAlignment -} +getHorizontalAlignment :: HG3DClass -> IO (EnumHorizontalAlignment) +getHorizontalAlignment a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getHorizontalAlignment'_ a1' a2' >>= \res -> + peekEnumUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 322 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getLookNFeel -} +getLookNFeel :: HG3DClass -> IO (String) +getLookNFeel a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getLookNFeel'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 327 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getModalState -} +getModalState :: HG3DClass -> IO (Bool) +getModalState a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getModalState'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 332 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getUserString -} +getUserString :: HG3DClass -> String -> IO (String) +getUserString a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloc64k $ \a3' -> + getUserString'_ a1' a2' a3' >>= \res -> + peekCString a3'>>= \a3'' -> + return (a3'') +{-# LINE 338 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isUserStringDefined -} +isUserStringDefined :: HG3DClass -> String -> IO (Bool) +isUserStringDefined a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + isUserStringDefined'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 344 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getActiveSibling -} +getActiveSibling :: HG3DClass -> IO (HG3DClass) +getActiveSibling a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getActiveSibling'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 349 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getParentPixelWidth -} +getParentPixelWidth :: HG3DClass -> IO (Float) +getParentPixelWidth a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getParentPixelWidth'_ a1' a2' >>= \res -> + peekFloatConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 354 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getParentPixelHeight -} +getParentPixelHeight :: HG3DClass -> IO (Float) +getParentPixelHeight a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getParentPixelHeight'_ a1' a2' >>= \res -> + peekFloatConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 359 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isMousePassThroughEnabled -} +isMousePassThroughEnabled :: HG3DClass -> IO (Bool) +isMousePassThroughEnabled a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isMousePassThroughEnabled'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 364 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isAutoWindow -} +isAutoWindow :: HG3DClass -> IO (Bool) +isAutoWindow a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isAutoWindow'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 369 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isWritingXMLAllowed -} +isWritingXMLAllowed :: HG3DClass -> IO (Bool) +isWritingXMLAllowed a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isWritingXMLAllowed'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 374 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isDragDropTarget -} +isDragDropTarget :: HG3DClass -> IO (Bool) +isDragDropTarget a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isDragDropTarget'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 379 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isUsingAutoRenderingSurface -} +isUsingAutoRenderingSurface :: HG3DClass -> IO (Bool) +isUsingAutoRenderingSurface a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isUsingAutoRenderingSurface'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 384 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getRootWindow -} +getRootWindow :: HG3DClass -> IO (HG3DClass) +getRootWindow a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getRootWindow'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 389 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getRootWindow2 -} +getRootWindow2 :: HG3DClass -> IO (HG3DClass) +getRootWindow2 a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getRootWindow2'_ a1' a2' >>= \res -> + peek a2'>>= \a2'' -> + return (a2'') +{-# LINE 394 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isNonClientWindow -} +isNonClientWindow :: HG3DClass -> IO (Bool) +isNonClientWindow a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isNonClientWindow'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 399 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function rename -} +rename :: HG3DClass -> String -> IO () +rename a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + rename'_ a1' a2' >>= \res -> + return () +{-# LINE 404 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function initialiseComponents -} +initialiseComponents :: HG3DClass -> IO () +initialiseComponents a1 = + withHG3DClass a1 $ \a1' -> + initialiseComponents'_ a1' >>= \res -> + return () +{-# LINE 408 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setDestroyedByParent -} +setDestroyedByParent :: HG3DClass -> Bool -> IO () +setDestroyedByParent a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setDestroyedByParent'_ a1' a2' >>= \res -> + return () +{-# LINE 413 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setAlwaysOnTop -} +setAlwaysOnTop :: HG3DClass -> Bool -> IO () +setAlwaysOnTop a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setAlwaysOnTop'_ a1' a2' >>= \res -> + return () +{-# LINE 418 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setEnabled -} +setEnabled :: HG3DClass -> Bool -> IO () +setEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 423 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function enable -} +enable :: HG3DClass -> IO () +enable a1 = + withHG3DClass a1 $ \a1' -> + enable'_ a1' >>= \res -> + return () +{-# LINE 427 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function disable -} +disable :: HG3DClass -> IO () +disable a1 = + withHG3DClass a1 $ \a1' -> + disable'_ a1' >>= \res -> + return () +{-# LINE 431 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setVisible -} +setVisible :: HG3DClass -> Bool -> IO () +setVisible a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setVisible'_ a1' a2' >>= \res -> + return () +{-# LINE 436 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function show -} +show :: HG3DClass -> IO () +show a1 = + withHG3DClass a1 $ \a1' -> + show'_ a1' >>= \res -> + return () +{-# LINE 440 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function hide -} +hide :: HG3DClass -> IO () +hide a1 = + withHG3DClass a1 $ \a1' -> + hide'_ a1' >>= \res -> + return () +{-# LINE 444 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function activate -} +activate :: HG3DClass -> IO () +activate a1 = + withHG3DClass a1 $ \a1' -> + activate'_ a1' >>= \res -> + return () +{-# LINE 448 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function deactivate -} +deactivate :: HG3DClass -> IO () +deactivate a1 = + withHG3DClass a1 $ \a1' -> + deactivate'_ a1' >>= \res -> + return () +{-# LINE 452 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setClippedByParent -} +setClippedByParent :: HG3DClass -> Bool -> IO () +setClippedByParent a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setClippedByParent'_ a1' a2' >>= \res -> + return () +{-# LINE 457 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setID -} +setID :: HG3DClass -> Int -> IO () +setID a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + setID'_ a1' a2' >>= \res -> + return () +{-# LINE 462 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setText -} +setText :: HG3DClass -> String -> IO () +setText a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + setText'_ a1' a2' >>= \res -> + return () +{-# LINE 467 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function appendText -} +appendText :: HG3DClass -> String -> IO () +appendText a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + appendText'_ a1' a2' >>= \res -> + return () +{-# LINE 472 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setFont -} +setFont :: HG3DClass -> HG3DClass -> IO () +setFont a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + setFont'_ a1' a2' >>= \res -> + return () +{-# LINE 477 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setFont2 -} +setFont2 :: HG3DClass -> String -> IO () +setFont2 a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + setFont2'_ a1' a2' >>= \res -> + return () +{-# LINE 482 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function addChildWindow -} +addChildWindow :: HG3DClass -> String -> IO () +addChildWindow a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + addChildWindow'_ a1' a2' >>= \res -> + return () +{-# LINE 487 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function addChildWindow2 -} +addChildWindow2 :: HG3DClass -> HG3DClass -> IO () +addChildWindow2 a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + addChildWindow2'_ a1' a2' >>= \res -> + return () +{-# LINE 492 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function removeChildWindow -} +removeChildWindow :: HG3DClass -> String -> IO () +removeChildWindow a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + removeChildWindow'_ a1' a2' >>= \res -> + return () +{-# LINE 497 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function removeChildWindow2 -} +removeChildWindow2 :: HG3DClass -> HG3DClass -> IO () +removeChildWindow2 a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + removeChildWindow2'_ a1' a2' >>= \res -> + return () +{-# LINE 502 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function removeChildWindow3 -} +removeChildWindow3 :: HG3DClass -> Int -> IO () +removeChildWindow3 a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromIntegral a2} in + removeChildWindow3'_ a1' a2' >>= \res -> + return () +{-# LINE 507 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function moveToFront -} +moveToFront :: HG3DClass -> IO () +moveToFront a1 = + withHG3DClass a1 $ \a1' -> + moveToFront'_ a1' >>= \res -> + return () +{-# LINE 511 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function moveToBack -} +moveToBack :: HG3DClass -> IO () +moveToBack a1 = + withHG3DClass a1 $ \a1' -> + moveToBack'_ a1' >>= \res -> + return () +{-# LINE 515 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function captureInput -} +captureInput :: HG3DClass -> IO (Bool) +captureInput a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + captureInput'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 520 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function releaseInput -} +releaseInput :: HG3DClass -> IO () +releaseInput a1 = + withHG3DClass a1 $ \a1' -> + releaseInput'_ a1' >>= \res -> + return () +{-# LINE 524 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setRestoreCapture -} +setRestoreCapture :: HG3DClass -> Bool -> IO () +setRestoreCapture a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setRestoreCapture'_ a1' a2' >>= \res -> + return () +{-# LINE 529 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setAlpha -} +setAlpha :: HG3DClass -> Float -> IO () +setAlpha a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = realToFrac a2} in + setAlpha'_ a1' a2' >>= \res -> + return () +{-# LINE 534 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setInheritsAlpha -} +setInheritsAlpha :: HG3DClass -> Bool -> IO () +setInheritsAlpha a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setInheritsAlpha'_ a1' a2' >>= \res -> + return () +{-# LINE 539 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function invalidate -} +invalidate :: HG3DClass -> IO () +invalidate a1 = + withHG3DClass a1 $ \a1' -> + invalidate'_ a1' >>= \res -> + return () +{-# LINE 543 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function invalidate2 -} +invalidate2 :: HG3DClass -> Bool -> IO () +invalidate2 a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + invalidate2'_ a1' a2' >>= \res -> + return () +{-# LINE 548 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setMouseCursor3 -} +setMouseCursor3 :: HG3DClass -> String -> String -> IO () +setMouseCursor3 a1 a2 a3 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + withCString a3 $ \a3' -> + setMouseCursor3'_ a1' a2' a3' >>= \res -> + return () +{-# LINE 554 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setZOrderingEnabled -} +setZOrderingEnabled :: HG3DClass -> Bool -> IO () +setZOrderingEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setZOrderingEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 559 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setWantsMultiClickEvents -} +setWantsMultiClickEvents :: HG3DClass -> Bool -> IO () +setWantsMultiClickEvents a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setWantsMultiClickEvents'_ a1' a2' >>= \res -> + return () +{-# LINE 564 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setMouseAutoRepeatEnabled -} +setMouseAutoRepeatEnabled :: HG3DClass -> Bool -> IO () +setMouseAutoRepeatEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setMouseAutoRepeatEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 569 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setAutoRepeatDelay -} +setAutoRepeatDelay :: HG3DClass -> Float -> IO () +setAutoRepeatDelay a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = realToFrac a2} in + setAutoRepeatDelay'_ a1' a2' >>= \res -> + return () +{-# LINE 574 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setAutoRepeatRate -} +setAutoRepeatRate :: HG3DClass -> Float -> IO () +setAutoRepeatRate a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = realToFrac a2} in + setAutoRepeatRate'_ a1' a2' >>= \res -> + return () +{-# LINE 579 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setDistributesCapturedInputs -} +setDistributesCapturedInputs :: HG3DClass -> Bool -> IO () +setDistributesCapturedInputs a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setDistributesCapturedInputs'_ a1' a2' >>= \res -> + return () +{-# LINE 584 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function notifyDragDropItemEnters -} +notifyDragDropItemEnters :: HG3DClass -> HG3DClass -> IO () +notifyDragDropItemEnters a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + notifyDragDropItemEnters'_ a1' a2' >>= \res -> + return () +{-# LINE 589 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function notifyDragDropItemLeaves -} +notifyDragDropItemLeaves :: HG3DClass -> HG3DClass -> IO () +notifyDragDropItemLeaves a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + notifyDragDropItemLeaves'_ a1' a2' >>= \res -> + return () +{-# LINE 594 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function notifyDragDropItemDropped -} +notifyDragDropItemDropped :: HG3DClass -> HG3DClass -> IO () +notifyDragDropItemDropped a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + notifyDragDropItemDropped'_ a1' a2' >>= \res -> + return () +{-# LINE 599 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function destroy -} +destroy :: HG3DClass -> IO () +destroy a1 = + withHG3DClass a1 $ \a1' -> + destroy'_ a1' >>= \res -> + return () +{-# LINE 603 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setTooltip -} +setTooltip :: HG3DClass -> HG3DClass -> IO () +setTooltip a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + setTooltip'_ a1' a2' >>= \res -> + return () +{-# LINE 608 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setTooltipType -} +setTooltipType :: HG3DClass -> String -> IO () +setTooltipType a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + setTooltipType'_ a1' a2' >>= \res -> + return () +{-# LINE 613 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setTooltipText -} +setTooltipText :: HG3DClass -> String -> IO () +setTooltipText a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + setTooltipText'_ a1' a2' >>= \res -> + return () +{-# LINE 618 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setInheritsTooltipText -} +setInheritsTooltipText :: HG3DClass -> Bool -> IO () +setInheritsTooltipText a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setInheritsTooltipText'_ a1' a2' >>= \res -> + return () +{-# LINE 623 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setRiseOnClickEnabled -} +setRiseOnClickEnabled :: HG3DClass -> Bool -> IO () +setRiseOnClickEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setRiseOnClickEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 628 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setVerticalAlignment -} +setVerticalAlignment :: HG3DClass -> EnumVerticalAlignment -> IO () +setVerticalAlignment a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = cIntFromEnum a2} in + setVerticalAlignment'_ a1' a2' >>= \res -> + return () +{-# LINE 633 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setHorizontalAlignment -} +setHorizontalAlignment :: HG3DClass -> EnumHorizontalAlignment -> IO () +setHorizontalAlignment a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = cIntFromEnum a2} in + setHorizontalAlignment'_ a1' a2' >>= \res -> + return () +{-# LINE 638 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setLookNFeel -} +setLookNFeel :: HG3DClass -> String -> IO () +setLookNFeel a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + setLookNFeel'_ a1' a2' >>= \res -> + return () +{-# LINE 643 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setModalState -} +setModalState :: HG3DClass -> Bool -> IO () +setModalState a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setModalState'_ a1' a2' >>= \res -> + return () +{-# LINE 648 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function performChildWindowLayout -} +performChildWindowLayout :: HG3DClass -> IO () +performChildWindowLayout a1 = + withHG3DClass a1 $ \a1' -> + performChildWindowLayout'_ a1' >>= \res -> + return () +{-# LINE 652 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setUserString -} +setUserString :: HG3DClass -> String -> String -> IO () +setUserString a1 a2 a3 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + withCString a3 $ \a3' -> + setUserString'_ a1' a2' a3' >>= \res -> + return () +{-# LINE 658 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function render -} +render :: HG3DClass -> IO () +render a1 = + withHG3DClass a1 $ \a1' -> + render'_ a1' >>= \res -> + return () +{-# LINE 662 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function update -} +update :: HG3DClass -> Float -> IO () +update a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = realToFrac a2} in + update'_ a1' a2' >>= \res -> + return () +{-# LINE 667 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function beginInitialisation -} +beginInitialisation :: HG3DClass -> IO () +beginInitialisation a1 = + withHG3DClass a1 $ \a1' -> + beginInitialisation'_ a1' >>= \res -> + return () +{-# LINE 671 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function endInitialisation -} +endInitialisation :: HG3DClass -> IO () +endInitialisation a1 = + withHG3DClass a1 $ \a1' -> + endInitialisation'_ a1' >>= \res -> + return () +{-# LINE 675 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setMousePassThroughEnabled -} +setMousePassThroughEnabled :: HG3DClass -> Bool -> IO () +setMousePassThroughEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setMousePassThroughEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 680 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setWindowRenderer -} +setWindowRenderer :: HG3DClass -> String -> IO () +setWindowRenderer a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + setWindowRenderer'_ a1' a2' >>= \res -> + return () +{-# LINE 685 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getWindowRendererName -} +getWindowRendererName :: HG3DClass -> IO (String) +getWindowRendererName a1 = + withHG3DClass a1 $ \a1' -> + alloc64k $ \a2' -> + getWindowRendererName'_ a1' a2' >>= \res -> + peekCString a2'>>= \a2'' -> + return (a2'') +{-# LINE 690 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setWritingXMLAllowed -} +setWritingXMLAllowed :: HG3DClass -> Bool -> IO () +setWritingXMLAllowed a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setWritingXMLAllowed'_ a1' a2' >>= \res -> + return () +{-# LINE 695 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function notifyScreenAreaChanged -} +notifyScreenAreaChanged :: HG3DClass -> Bool -> IO () +notifyScreenAreaChanged a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + notifyScreenAreaChanged'_ a1' a2' >>= \res -> + return () +{-# LINE 700 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setFalagardType -} +setFalagardType :: HG3DClass -> String -> String -> IO () +setFalagardType a1 a2 a3 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + withCString a3 $ \a3' -> + setFalagardType'_ a1' a2' a3' >>= \res -> + return () +{-# LINE 706 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setDragDropTarget -} +setDragDropTarget :: HG3DClass -> Bool -> IO () +setDragDropTarget a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setDragDropTarget'_ a1' a2' >>= \res -> + return () +{-# LINE 711 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function invalidateRenderingSurface -} +invalidateRenderingSurface :: HG3DClass -> IO () +invalidateRenderingSurface a1 = + withHG3DClass a1 $ \a1' -> + invalidateRenderingSurface'_ a1' >>= \res -> + return () +{-# LINE 715 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setUsingAutoRenderingSurface -} +setUsingAutoRenderingSurface :: HG3DClass -> Bool -> IO () +setUsingAutoRenderingSurface a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setUsingAutoRenderingSurface'_ a1' a2' >>= \res -> + return () +{-# LINE 720 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setNonClientWindow -} +setNonClientWindow :: HG3DClass -> Bool -> IO () +setNonClientWindow a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setNonClientWindow'_ a1' a2' >>= \res -> + return () +{-# LINE 725 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isTextParsingEnabled -} +isTextParsingEnabled :: HG3DClass -> IO (Bool) +isTextParsingEnabled a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isTextParsingEnabled'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 730 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setTextParsingEnabled -} +setTextParsingEnabled :: HG3DClass -> Bool -> IO () +setTextParsingEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setTextParsingEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 735 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function banPropertyFromXML -} +banPropertyFromXML :: HG3DClass -> String -> IO () +banPropertyFromXML a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + banPropertyFromXML'_ a1' a2' >>= \res -> + return () +{-# LINE 740 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function unbanPropertyFromXML -} +unbanPropertyFromXML :: HG3DClass -> String -> IO () +unbanPropertyFromXML a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + unbanPropertyFromXML'_ a1' a2' >>= \res -> + return () +{-# LINE 745 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isPropertyBannedFromXML -} +isPropertyBannedFromXML :: HG3DClass -> String -> IO (Bool) +isPropertyBannedFromXML a1 a2 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + alloca $ \a3' -> + isPropertyBannedFromXML'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 751 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setUpdateMode -} +setUpdateMode :: HG3DClass -> EnumWindowUpdateMode -> IO () +setUpdateMode a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = cIntFromEnum a2} in + setUpdateMode'_ a1' a2' >>= \res -> + return () +{-# LINE 756 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getUpdateMode -} +getUpdateMode :: HG3DClass -> IO (EnumWindowUpdateMode) +getUpdateMode a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getUpdateMode'_ a1' a2' >>= \res -> + peekEnumUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 761 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function setMouseInputPropagationEnabled -} +setMouseInputPropagationEnabled :: HG3DClass -> Bool -> IO () +setMouseInputPropagationEnabled a1 a2 = + withHG3DClass a1 $ \a1' -> + let {a2' = fromBool a2} in + setMouseInputPropagationEnabled'_ a1' a2' >>= \res -> + return () +{-# LINE 766 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isMouseInputPropagationEnabled -} +isMouseInputPropagationEnabled :: HG3DClass -> IO (Bool) +isMouseInputPropagationEnabled a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + isMouseInputPropagationEnabled'_ a1' a2' >>= \res -> + peekBoolUtil a2'>>= \a2'' -> + return (a2'') +{-# LINE 771 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function clone -} +clone :: HG3DClass -> String -> Bool -> IO (HG3DClass) +clone a1 a2 a3 = + withHG3DClass a1 $ \a1' -> + withCString a2 $ \a2' -> + let {a3' = fromBool a3} in + alloca $ \a4' -> + clone'_ a1' a2' a3' a4' >>= \res -> + peek a4'>>= \a4'' -> + return (a4'') +{-# LINE 778 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function clonePropertiesTo -} +clonePropertiesTo :: HG3DClass -> HG3DClass -> IO () +clonePropertiesTo a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + clonePropertiesTo'_ a1' a2' >>= \res -> + return () +{-# LINE 783 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function cloneChildWidgetsTo -} +cloneChildWidgetsTo :: HG3DClass -> HG3DClass -> IO () +cloneChildWidgetsTo a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + cloneChildWidgetsTo'_ a1' a2' >>= \res -> + return () +{-# LINE 788 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getZIndex -} +getZIndex :: HG3DClass -> IO (Int) +getZIndex a1 = + withHG3DClass a1 $ \a1' -> + alloca $ \a2' -> + getZIndex'_ a1' a2' >>= \res -> + peekIntConv a2'>>= \a2'' -> + return (a2'') +{-# LINE 793 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isInFront -} +isInFront :: HG3DClass -> HG3DClass -> IO (Bool) +isInFront a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + alloca $ \a3' -> + isInFront'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 799 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function isBehind -} +isBehind :: HG3DClass -> HG3DClass -> IO (Bool) +isBehind a1 a2 = + withHG3DClass a1 $ \a1' -> + withHG3DClass a2 $ \a2' -> + alloca $ \a3' -> + isBehind'_ a1' a2' a3' >>= \res -> + peekBoolUtil a3'>>= \a3'' -> + return (a3'') +{-# LINE 805 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-} + +{- function getCaptureWindow -} +getCaptureWindow :: IO (HG3DClass) getCaptureWindow = alloca $ \a1' -> getCaptureWindow'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassWindowManager.hs b/HGamer3D/Bindings/CEGUI/ClassWindowManager.hs --- a/HGamer3D/Bindings/CEGUI/ClassWindowManager.hs +++ b/HGamer3D/Bindings/CEGUI/ClassWindowManager.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Constructs a new WindowManager - Details: NB: Client code should not create WindowManagerWindowManagerSystem +{- function WindowManager -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,22 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Destructor for WindowManager - Details: This will properly destry all remaining Window -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~WindowManager -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Creates a new Window -createWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ type - String that describes the type of Window to be created. A valid WindowFactory for the specified type must be registered. - -> String -- ^ name - String that holds a unique name that is to be given to the new window. If this string is empty (""), a name will be generated for the window. - -> IO (HG3DClass) - -- ^ return value - Pointer to the newly created +{- function createWindow -} +createWindow :: HG3DClass -> String -> String -> IO (HG3DClass) createWindow a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -84,11 +77,8 @@ return (a4'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Destroy the specified Window -destroyWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Pointer to the Window object to be destroyed. If the window is null, or is not recognised, nothing happens. - -> IO () - -- ^ return value - Nothing +{- function destroyWindow -} +destroyWindow :: HG3DClass -> HG3DClass -> IO () destroyWindow a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -96,11 +86,8 @@ return () {-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Destroy the specified Window -destroyWindow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ window - String containing the name of the Window object to be destroyed. If window is not recognised, nothing happens. - -> IO () - -- ^ return value - Nothing. +{- function destroyWindow2 -} +destroyWindow2 :: HG3DClass -> String -> IO () destroyWindow2 a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -108,11 +95,8 @@ return () {-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Return a pointer to the specified Window -getWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String holding the name of the Window object to be returned. - -> IO (HG3DClass) - -- ^ return value - Pointer to the +{- function getWindow -} +getWindow :: HG3DClass -> String -> IO (HG3DClass) getWindow a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -122,11 +106,8 @@ return (a3'') {-# LINE 74 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Examines the list of Window -isWindowPresent :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ name - String holding the name of the Window object to look for. - -> IO (Bool) - -- ^ return value - true if a +{- function isWindowPresent -} +isWindowPresent :: HG3DClass -> String -> IO (Bool) isWindowPresent a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -136,20 +117,16 @@ return (a3'') {-# LINE 80 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Destroys all Window -destroyAllWindows :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function destroyAllWindows -} +destroyAllWindows :: HG3DClass -> IO () destroyAllWindows a1 = withHG3DClass a1 $ \a1' -> destroyAllWindows'_ a1' >>= \res -> return () {-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Return whether the window dead pool is empty. -isDeadPoolEmpty :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isDeadPoolEmpty -} +isDeadPoolEmpty :: HG3DClass -> IO (Bool) isDeadPoolEmpty a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -158,23 +135,16 @@ return (a2'') {-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Permanently destroys any windows placed in the dead pool. - Details: It is probably not a good idea to call this from a Window -cleanDeadPool :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ return value - Nothing. +{- function cleanDeadPool -} +cleanDeadPool :: HG3DClass -> IO () cleanDeadPool a1 = withHG3DClass a1 $ \a1' -> cleanDeadPool'_ a1' >>= \res -> return () {-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Save a full XML window layout, starting at the given Window -saveWindowLayout :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ window - String holding the name of the Window object to become the root of the layout. - -> String -- ^ filename - The name of the file to which the XML will be written. Note that this does not use any part of the ResourceProvider system, but rather will write directly to disk. If this is not desirable, you should prefer the OutStream based writeWindowLayoutToStream functions. - -> Bool -- ^ writeParent - If the starting window has a parent window, specifies whether to write the parent name into the Parent attribute of the GUILayout XML element. - -> IO () - -- ^ +{- function saveWindowLayout -} +saveWindowLayout :: HG3DClass -> String -> String -> Bool -> IO () saveWindowLayout a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -184,13 +154,8 @@ return () {-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Save a full XML window layout, starting at the given Window -saveWindowLayout2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Window object to become the root of the layout. - -> String -- ^ filename - The name of the file to which the XML will be written. Note that this does not use any part of the ResourceProvider system, but rather will write directly to disk. If this is not desirable, you should prefer the OutStream based writeWindowLayoutToStream functions. - -> Bool -- ^ writeParent - If the starting window has a parent window, specifies whether to write the parent name into the Parent attribute of the GUILayout XML element. - -> IO () - -- ^ +{- function saveWindowLayout2 -} +saveWindowLayout2 :: HG3DClass -> HG3DClass -> String -> Bool -> IO () saveWindowLayout2 a1 a2 a3 a4 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -200,12 +165,8 @@ return () {-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Rename a window. -renameWindow :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ window - String holding the current name of the window to be renamed. - -> String -- ^ new_name - String holding the new name for the window - -> IO () - -- ^ +{- function renameWindow -} +renameWindow :: HG3DClass -> String -> String -> IO () renameWindow a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -214,12 +175,8 @@ return () {-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Rename a window. -renameWindow2 :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> HG3DClass -- ^ window - Pointer to the window to be renamed. - -> String -- ^ new_name - String holding the new name for the window - -> IO () - -- ^ +{- function renameWindow2 -} +renameWindow2 :: HG3DClass -> HG3DClass -> String -> IO () renameWindow2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> @@ -228,45 +185,24 @@ return () {-# LINE 119 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Put WindowManager - Details: While WindowManager is in the locked state all attempts to create a ---Window of any type will fail with an InvalidRequestException being ---thrown. Calls to lock/unlock are recursive; if multiple calls to lock ---are made, WindowManager is only unlocked after a matching number of ---calls to unlock. --- -lock :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function lock -} +lock :: HG3DClass -> IO () lock a1 = withHG3DClass a1 $ \a1' -> lock'_ a1' >>= \res -> return () {-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Put WindowManager - Details: While WindowManager is in the locked state all attempts to create a ---Window of any type will fail with an InvalidRequestException being ---thrown. Calls to lock/unlock are recursive; if multiple calls to lock ---are made, WindowManager is only unlocked after a matching number of ---calls to unlock. --- -unlock :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function unlock -} +unlock :: HG3DClass -> IO () unlock a1 = withHG3DClass a1 $ \a1' -> unlock'_ a1' >>= \res -> return () {-# LINE 127 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Returns whether WindowManager - Details: While WindowManager is in the locked state all attempts to create a ---Window of any type will fail with an InvalidRequestException being ---thrown. Calls to lock/unlock are recursive; if multiple calls to lock ---are made, WindowManager is only unlocked after a matching number of ---calls to unlock. --- -isLocked :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function isLocked -} +isLocked :: HG3DClass -> IO (Bool) isLocked a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -275,9 +211,8 @@ return (a2'') {-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Returns the default resource group currently set for layouts. +{- function getDefaultResourceGroup -} getDefaultResourceGroup :: IO (String) - -- ^ return value - String describing the default resource group identifier that will be used when loading layouts. getDefaultResourceGroup = alloc64k $ \a1' -> getDefaultResourceGroup'_ a1' >>= \res -> @@ -285,10 +220,8 @@ return (a1'') {-# LINE 136 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-} --- | Sets the default resource group to be used when loading layouts. -setDefaultResourceGroup :: String -- ^ resourceGroup - String describing the default resource group identifier to be used. - -> IO () - -- ^ return value - Nothing. +{- function setDefaultResourceGroup -} +setDefaultResourceGroup :: String -> IO () setDefaultResourceGroup a1 = withCString a1 $ \a1' -> setDefaultResourceGroup'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassWindowManagerHG3D.hs b/HGamer3D/Bindings/CEGUI/ClassWindowManagerHG3D.hs --- a/HGamer3D/Bindings/CEGUI/ClassWindowManagerHG3D.hs +++ b/HGamer3D/Bindings/CEGUI/ClassWindowManagerHG3D.hs @@ -48,9 +48,8 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-} --- | +{- function WindowManagerHG3D -} new :: IO (HG3DClass) - -- ^ new = alloca $ \a1' -> new'_ a1' >>= \res -> @@ -58,22 +57,16 @@ return (a1'') {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-} --- | -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~WindowManagerHG3D -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-} --- | -loadWindowLayoutHG3D :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> String -- ^ filename - -> String -- ^ name_prefix - -> IO (HG3DClass) - -- ^ +{- function loadWindowLayoutHG3D -} +loadWindowLayoutHG3D :: HG3DClass -> String -> String -> IO (HG3DClass) loadWindowLayoutHG3D a1 a2 a3 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> @@ -84,9 +77,8 @@ return (a4'') {-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-} --- | +{- function getSingleton -} getSingleton :: IO (HG3DClass) - -- ^ getSingleton = alloca $ \a1' -> getSingleton'_ a1' >>= \res -> diff --git a/HGamer3D/Bindings/CEGUI/ClassXMLParser.hs b/HGamer3D/Bindings/CEGUI/ClassXMLParser.hs --- a/HGamer3D/Bindings/CEGUI/ClassXMLParser.hs +++ b/HGamer3D/Bindings/CEGUI/ClassXMLParser.hs @@ -48,22 +48,16 @@ import HGamer3D.Bindings.CEGUI.StructHG3DClass {-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-} --- | XMLParser -delete :: HG3DClass -- ^ classpointer - pointer of Class instance which is going to be deleted. - -> IO () - -- ^ +{- function ~XMLParser -} +delete :: HG3DClass -> IO () delete a1 = withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () {-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-} --- | Initialises the XMLParser - Details: Note that this calls the protected abstract method 'initialiseImpl', which should ---be provided in your implementation to perform any required initialisation. --- -initialise :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (Bool) - -- ^ +{- function initialise -} +initialise :: HG3DClass -> IO (Bool) initialise a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> @@ -72,22 +66,16 @@ return (a2'') {-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-} --- | Cleans up the XMLParser - Details: Note that this calls the protected abstract method 'cleanupImpl', which should ---be provided in your implementation to perform any required cleanup. --- -cleanup :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO () - -- ^ +{- function cleanup -} +cleanup :: HG3DClass -> IO () cleanup a1 = withHG3DClass a1 $ \a1' -> cleanup'_ a1' >>= \res -> return () {-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-} --- | Return identification string for the XML parser module. If the internal id string has not been set by the XML parser module creator, a generic string of "Unknown XML parser" will be returned. -getIdentifierString :: HG3DClass -- ^ classpointer - pointer of Class instance from which this methods is called. - -> IO (String) - -- ^ return value - String object holding a string that identifies the XML parser in use. +{- function getIdentifierString -} +getIdentifierString :: HG3DClass -> IO (String) getIdentifierString a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> diff --git a/HGamer3D/Bindings/CEGUI/EnumBlendMode.hs b/HGamer3D/Bindings/CEGUI/EnumBlendMode.hs --- a/HGamer3D/Bindings/CEGUI/EnumBlendMode.hs +++ b/HGamer3D/Bindings/CEGUI/EnumBlendMode.hs @@ -42,11 +42,7 @@ import HGamer3D.Data.Angle -data EnumBlendMode = - -- | Invalid mode indicator. - BM_INVALID - -- | Use normal blending mode. - | BM_NORMAL - -- | Use blending mode suitable for textures with premultiplied colours. - | BM_RTT_PREMULTIPLIED +data EnumBlendMode = BM_INVALID + | BM_NORMAL + | BM_RTT_PREMULTIPLIED deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumFWSizingLocation.hs b/HGamer3D/Bindings/CEGUI/EnumFWSizingLocation.hs --- a/HGamer3D/Bindings/CEGUI/EnumFWSizingLocation.hs +++ b/HGamer3D/Bindings/CEGUI/EnumFWSizingLocation.hs @@ -42,23 +42,13 @@ import HGamer3D.Data.Angle -data EnumFWSizingLocation = - -- | Position is not a sizing location. - SizingNone - -- | Position will size from the top-left. - | SizingTopLeft - -- | Position will size from the top-right. - | SizingTopRight - -- | Position will size from the bottom left. - | SizingBottomLeft - -- | Position will size from the bottom right. - | SizingBottomRight - -- | Position will size from the top. - | SizingTop - -- | Position will size from the left. - | SizingLeft - -- | Position will size from the bottom. - | SizingBottom - -- | Position will size from the right. - | SizingRight +data EnumFWSizingLocation = SizingNone + | SizingTopLeft + | SizingTopRight + | SizingBottomLeft + | SizingBottomRight + | SizingTop + | SizingLeft + | SizingBottom + | SizingRight deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumHorizontalAlignment.hs b/HGamer3D/Bindings/CEGUI/EnumHorizontalAlignment.hs --- a/HGamer3D/Bindings/CEGUI/EnumHorizontalAlignment.hs +++ b/HGamer3D/Bindings/CEGUI/EnumHorizontalAlignment.hs @@ -42,11 +42,7 @@ import HGamer3D.Data.Angle -data EnumHorizontalAlignment = - -- | Window - HA_LEFT - -- | Window - | HA_CENTRE - -- | Window - | HA_RIGHT +data EnumHorizontalAlignment = HA_LEFT + | HA_CENTRE + | HA_RIGHT deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumKeyScan.hs b/HGamer3D/Bindings/CEGUI/EnumKeyScan.hs --- a/HGamer3D/Bindings/CEGUI/EnumKeyScan.hs +++ b/HGamer3D/Bindings/CEGUI/EnumKeyScan.hs @@ -42,295 +42,150 @@ import HGamer3D.Data.Angle -data EnumKeyScan = - -- | - KeyEscape - -- | - | KeyOne - -- | - | KeyTwo - -- | - | KeyThree - -- | - | KeyFour - -- | - | KeyFive - -- | - | KeySix - -- | - | KeySeven - -- | - | KeyEight - -- | - | KeyNine - -- | - | KeyZero - -- | - | KeyMinus - -- | - | KeyEquals - -- | - | KeyBackspace - -- | - | KeyTab - -- | - | KeyQ - -- | - | KeyW - -- | - | KeyE - -- | - | KeyR - -- | - | KeyT - -- | - | KeyY - -- | - | KeyU - -- | - | KeyI - -- | - | KeyO - -- | - | KeyP - -- | - | KeyLeftBracket - -- | - | KeyRightBracket - -- | - | KeyReturn - -- | - | KeyLeftControl - -- | - | KeyA - -- | - | KeyS - -- | - | KeyD - -- | - | KeyF - -- | - | KeyG - -- | - | KeyH - -- | - | KeyJ - -- | - | KeyK - -- | - | KeyL - -- | - | KeySemicolon - -- | - | KeyApostrophe - -- | - | KeyGrave - -- | - | KeyLeftShift - -- | - | KeyBackslash - -- | - | KeyZ - -- | - | KeyX - -- | - | KeyC - -- | - | KeyV - -- | - | KeyB - -- | - | KeyN - -- | - | KeyM - -- | - | KeyComma - -- | - | KeyPeriod - -- | - | KeySlash - -- | - | KeyRightShift - -- | - | KeyMultiply - -- | - | KeyLeftAlt - -- | - | KeySpace - -- | - | KeyCapital - -- | - | KeyF1 - -- | - | KeyF2 - -- | - | KeyF3 - -- | - | KeyF4 - -- | - | KeyF5 - -- | - | KeyF6 - -- | - | KeyF7 - -- | - | KeyF8 - -- | - | KeyF9 - -- | - | KeyF10 - -- | - | KeyNumLock - -- | - | KeyScrollLock - -- | - | KeyNumpad7 - -- | - | KeyNumpad8 - -- | - | KeyNumpad9 - -- | - | KeySubtract - -- | - | KeyNumpad4 - -- | - | KeyNumpad5 - -- | - | KeyNumpad6 - -- | - | KeyAdd - -- | - | KeyNumpad1 - -- | - | KeyNumpad2 - -- | - | KeyNumpad3 - -- | - | KeyNumpad0 - -- | - | KeyDecimal - -- | - | KeyOEM_102 - -- | - | KeyF11 - -- | - | KeyF12 - -- | - | KeyF13 - -- | - | KeyF14 - -- | - | KeyF15 - -- | - | KeyKana - -- | - | KeyABNT_C1 - -- | - | KeyConvert - -- | - | KeyNoConvert - -- | - | KeyYen - -- | - | KeyABNT_C2 - -- | - | KeyNumpadEquals - -- | - | KeyPrevTrack - -- | - | KeyAt - -- | - | KeyColon - -- | - | KeyUnderline - -- | - | KeyKanji - -- | - | KeyStop - -- | - | KeyAX - -- | - | KeyUnlabeled - -- | - | KeyNextTrack - -- | - | KeyNumpadEnter - -- | - | KeyRightControl - -- | - | KeyMute - -- | - | KeyCalculator - -- | - | KeyPlayPause - -- | - | KeyMediaStop - -- | - | KeyVolumeDown - -- | - | KeyVolumeUp - -- | - | KeyWebHome - -- | - | KeyNumpadComma - -- | - | KeyDivide - -- | - | KeySysRq - -- | - | KeyRightAlt - -- | - | KeyPause - -- | - | KeyHome - -- | - | KeyArrowUp - -- | - | KeyPageUp - -- | - | KeyArrowLeft - -- | - | KeyArrowRight - -- | - | KeyEnd - -- | - | KeyArrowDown - -- | - | KeyPageDown - -- | - | KeyInsert - -- | - | KeyDelete - -- | - | KeyLeftWindows - -- | - | KeyRightWindows - -- | - | KeyAppMenu - -- | - | KeyPower - -- | - | KeySleep - -- | - | KeyWake - -- | - | KeyWebSearch - -- | - | KeyWebFavorites - -- | - | KeyWebRefresh - -- | - | KeyWebStop - -- | - | KeyWebForward - -- | - | KeyWebBack - -- | - | KeyMyComputer - -- | - | KeyMail - -- | - | KeyMediaSelect +data EnumKeyScan = KeyEscape + | KeyOne + | KeyTwo + | KeyThree + | KeyFour + | KeyFive + | KeySix + | KeySeven + | KeyEight + | KeyNine + | KeyZero + | KeyMinus + | KeyEquals + | KeyBackspace + | KeyTab + | KeyQ + | KeyW + | KeyE + | KeyR + | KeyT + | KeyY + | KeyU + | KeyI + | KeyO + | KeyP + | KeyLeftBracket + | KeyRightBracket + | KeyReturn + | KeyLeftControl + | KeyA + | KeyS + | KeyD + | KeyF + | KeyG + | KeyH + | KeyJ + | KeyK + | KeyL + | KeySemicolon + | KeyApostrophe + | KeyGrave + | KeyLeftShift + | KeyBackslash + | KeyZ + | KeyX + | KeyC + | KeyV + | KeyB + | KeyN + | KeyM + | KeyComma + | KeyPeriod + | KeySlash + | KeyRightShift + | KeyMultiply + | KeyLeftAlt + | KeySpace + | KeyCapital + | KeyF1 + | KeyF2 + | KeyF3 + | KeyF4 + | KeyF5 + | KeyF6 + | KeyF7 + | KeyF8 + | KeyF9 + | KeyF10 + | KeyNumLock + | KeyScrollLock + | KeyNumpad7 + | KeyNumpad8 + | KeyNumpad9 + | KeySubtract + | KeyNumpad4 + | KeyNumpad5 + | KeyNumpad6 + | KeyAdd + | KeyNumpad1 + | KeyNumpad2 + | KeyNumpad3 + | KeyNumpad0 + | KeyDecimal + | KeyOEM_102 + | KeyF11 + | KeyF12 + | KeyF13 + | KeyF14 + | KeyF15 + | KeyKana + | KeyABNT_C1 + | KeyConvert + | KeyNoConvert + | KeyYen + | KeyABNT_C2 + | KeyNumpadEquals + | KeyPrevTrack + | KeyAt + | KeyColon + | KeyUnderline + | KeyKanji + | KeyStop + | KeyAX + | KeyUnlabeled + | KeyNextTrack + | KeyNumpadEnter + | KeyRightControl + | KeyMute + | KeyCalculator + | KeyPlayPause + | KeyMediaStop + | KeyVolumeDown + | KeyVolumeUp + | KeyWebHome + | KeyNumpadComma + | KeyDivide + | KeySysRq + | KeyRightAlt + | KeyPause + | KeyHome + | KeyArrowUp + | KeyPageUp + | KeyArrowLeft + | KeyArrowRight + | KeyEnd + | KeyArrowDown + | KeyPageDown + | KeyInsert + | KeyDelete + | KeyLeftWindows + | KeyRightWindows + | KeyAppMenu + | KeyPower + | KeySleep + | KeyWake + | KeyWebSearch + | KeyWebFavorites + | KeyWebRefresh + | KeyWebStop + | KeyWebForward + | KeyWebBack + | KeyMyComputer + | KeyMail + | KeyMediaSelect deriving (Eq) instance Enum EnumKeyScan where fromEnum KeyEscape = 1 diff --git a/HGamer3D/Bindings/CEGUI/EnumLoggingLevel.hs b/HGamer3D/Bindings/CEGUI/EnumLoggingLevel.hs --- a/HGamer3D/Bindings/CEGUI/EnumLoggingLevel.hs +++ b/HGamer3D/Bindings/CEGUI/EnumLoggingLevel.hs @@ -42,15 +42,9 @@ import HGamer3D.Data.Angle -data EnumLoggingLevel = - -- | Only actual error conditions will be logged. - LoggingLevelErrors - -- | Warnings will be logged as well. - | LoggingLevelWarnings - -- | Basic events will be logged (default level). - | LoggingLevelStandard - -- | Useful tracing (object creations etc) information will be logged. - | LoggingLevelInformative - -- | Mostly everything gets logged (use for heavy tracing only, log WILL be big). - | LoggingLevelInsane +data EnumLoggingLevel = LoggingLevelErrors + | LoggingLevelWarnings + | LoggingLevelStandard + | LoggingLevelInformative + | LoggingLevelInsane deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumMouseButton.hs b/HGamer3D/Bindings/CEGUI/EnumMouseButton.hs --- a/HGamer3D/Bindings/CEGUI/EnumMouseButton.hs +++ b/HGamer3D/Bindings/CEGUI/EnumMouseButton.hs @@ -42,19 +42,11 @@ import HGamer3D.Data.Angle -data EnumMouseButton = - -- | The left mouse button. - MouseLeftButton - -- | The right mouse button. - | MouseRightButton - -- | The middle mouse button. - | MouseMiddleButton - -- | The first 'extra' mouse button. - | MouseX1Button - -- | The second 'extra' mouse button. - | MouseX2Button - -- | Value that equals the number of mouse buttons supported by CEGUI - | MouseMouseButtonCount - -- | Value set for no mouse button. NB: This is not 0, do not assume! - | MouseNoButton +data EnumMouseButton = MouseLeftButton + | MouseRightButton + | MouseMiddleButton + | MouseX1Button + | MouseX2Button + | MouseMouseButtonCount + | MouseNoButton deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumQuadSplitMode.hs b/HGamer3D/Bindings/CEGUI/EnumQuadSplitMode.hs --- a/HGamer3D/Bindings/CEGUI/EnumQuadSplitMode.hs +++ b/HGamer3D/Bindings/CEGUI/EnumQuadSplitMode.hs @@ -42,9 +42,6 @@ import HGamer3D.Data.Angle -data EnumQuadSplitMode = - -- | Diagonal split goes from top-left to bottom-right. - TopLeftToBottomRight - -- | Diagonal split goes from bottom-left to top-right. - | BottomLeftToTopRight +data EnumQuadSplitMode = TopLeftToBottomRight + | BottomLeftToTopRight deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumSelectionMode.hs b/HGamer3D/Bindings/CEGUI/EnumSelectionMode.hs --- a/HGamer3D/Bindings/CEGUI/EnumSelectionMode.hs +++ b/HGamer3D/Bindings/CEGUI/EnumSelectionMode.hs @@ -42,25 +42,14 @@ import HGamer3D.Data.Angle -data EnumSelectionMode = - -- | - SelectionModeRowSingle - -- | - | SelectionModeRowMultiple - -- | - | SelectionModeCellSingle - -- | - | SelectionModeCellMultiple - -- | - | SelectionModeNominatedColumnSingle - -- | - | SelectionModeNominatedColumnMultiple - -- | - | SelectionModeColumnSingle - -- | - | SelectionModeColumnMultiple - -- | - | SelectionModeNominatedRowSingle - -- | - | SelectionModeNominatedRowMultiple +data EnumSelectionMode = SelectionModeRowSingle + | SelectionModeRowMultiple + | SelectionModeCellSingle + | SelectionModeCellMultiple + | SelectionModeNominatedColumnSingle + | SelectionModeNominatedColumnMultiple + | SelectionModeColumnSingle + | SelectionModeColumnMultiple + | SelectionModeNominatedRowSingle + | SelectionModeNominatedRowMultiple deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumSortDirection.hs b/HGamer3D/Bindings/CEGUI/EnumSortDirection.hs --- a/HGamer3D/Bindings/CEGUI/EnumSortDirection.hs +++ b/HGamer3D/Bindings/CEGUI/EnumSortDirection.hs @@ -42,11 +42,7 @@ import HGamer3D.Data.Angle -data EnumSortDirection = - -- | Items under this segment should not be sorted. - SortDirectionNone - -- | Items under this segment should be sorted in ascending order. - | SortDirectionAscending - -- | Items under this segment should be sorted in descending order. - | SortDirectionDescending +data EnumSortDirection = SortDirectionNone + | SortDirectionAscending + | SortDirectionDescending deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumSystemKey.hs b/HGamer3D/Bindings/CEGUI/EnumSystemKey.hs --- a/HGamer3D/Bindings/CEGUI/EnumSystemKey.hs +++ b/HGamer3D/Bindings/CEGUI/EnumSystemKey.hs @@ -42,23 +42,14 @@ import HGamer3D.Data.Angle -data EnumSystemKey = - -- | The left mouse button. - SystemKeyLeftMouse - -- | The right mouse button. - | SystemKeyRightMouse - -- | Either shift key. - | SystemKeyShift - -- | Either control key. - | SystemKeyControl - -- | The middle mouse button. - | SystemKeyMiddleMouse - -- | The first 'extra' mouse button. - | SystemKeyX1Mouse - -- | The second 'extra' mouse button. - | SystemKeyX2Mouse - -- | Either alt key. - | SystemKeyAlt +data EnumSystemKey = SystemKeyLeftMouse + | SystemKeyRightMouse + | SystemKeyShift + | SystemKeyControl + | SystemKeyMiddleMouse + | SystemKeyX1Mouse + | SystemKeyX2Mouse + | SystemKeyAlt deriving (Eq) instance Enum EnumSystemKey where fromEnum SystemKeyLeftMouse = 1 diff --git a/HGamer3D/Bindings/CEGUI/EnumTabPanePosition.hs b/HGamer3D/Bindings/CEGUI/EnumTabPanePosition.hs --- a/HGamer3D/Bindings/CEGUI/EnumTabPanePosition.hs +++ b/HGamer3D/Bindings/CEGUI/EnumTabPanePosition.hs @@ -42,9 +42,6 @@ import HGamer3D.Data.Angle -data EnumTabPanePosition = - -- | - TabPanePositionTop - -- | - | TabPanePositionBottom +data EnumTabPanePosition = TabPanePositionTop + | TabPanePositionBottom deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumTextInputMode.hs b/HGamer3D/Bindings/CEGUI/EnumTextInputMode.hs --- a/HGamer3D/Bindings/CEGUI/EnumTextInputMode.hs +++ b/HGamer3D/Bindings/CEGUI/EnumTextInputMode.hs @@ -42,13 +42,8 @@ import HGamer3D.Data.Angle -data EnumTextInputMode = - -- | Floating point decimal. - TextInputModeFloatingPoint - -- | Integer decimal. - | TextInputModeInteger - -- | Hexadecimal. - | TextInputModeHexadecimal - -- | Octal. - | TextInputModeOctal +data EnumTextInputMode = TextInputModeFloatingPoint + | TextInputModeInteger + | TextInputModeHexadecimal + | TextInputModeOctal deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumTipState.hs b/HGamer3D/Bindings/CEGUI/EnumTipState.hs --- a/HGamer3D/Bindings/CEGUI/EnumTipState.hs +++ b/HGamer3D/Bindings/CEGUI/EnumTipState.hs @@ -42,13 +42,8 @@ import HGamer3D.Data.Angle -data EnumTipState = - -- | Tooltip - TipStateInactive - -- | Tooltip - | TipStateActive - -- | Tooltip - | TipStateFadeIn - -- | Tooltip - | TipStateFadeOut +data EnumTipState = TipStateInactive + | TipStateActive + | TipStateFadeIn + | TipStateFadeOut deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumVerticalAlignment.hs b/HGamer3D/Bindings/CEGUI/EnumVerticalAlignment.hs --- a/HGamer3D/Bindings/CEGUI/EnumVerticalAlignment.hs +++ b/HGamer3D/Bindings/CEGUI/EnumVerticalAlignment.hs @@ -42,11 +42,7 @@ import HGamer3D.Data.Angle -data EnumVerticalAlignment = - -- | Window - VA_TOP - -- | Window - | VA_CENTRE - -- | Window - | VA_BOTTOM +data EnumVerticalAlignment = VA_TOP + | VA_CENTRE + | VA_BOTTOM deriving (Enum,Eq) diff --git a/HGamer3D/Bindings/CEGUI/EnumWindowUpdateMode.hs b/HGamer3D/Bindings/CEGUI/EnumWindowUpdateMode.hs --- a/HGamer3D/Bindings/CEGUI/EnumWindowUpdateMode.hs +++ b/HGamer3D/Bindings/CEGUI/EnumWindowUpdateMode.hs @@ -42,11 +42,7 @@ import HGamer3D.Data.Angle -data EnumWindowUpdateMode = - -- | Always call the Window::update - WUM_ALWAYS - -- | Never call the Window::update - | WUM_NEVER - -- | Only call the Window::update - | WUM_VISIBLE +data EnumWindowUpdateMode = WUM_ALWAYS + | WUM_NEVER + | WUM_VISIBLE deriving (Enum,Eq) diff --git a/include/CEGUIDllDefines.h b/include/CEGUIDllDefines.h --- a/include/CEGUIDllDefines.h +++ b/include/CEGUIDllDefines.h @@ -16,10 +16,10 @@ // CEGUIDllDefines.h -#ifndef _HGamer3DCEGUI019_DLLDEFINES_H_ -#define _HGamer3DCEGUI019_DLLDEFINES_H_ +#ifndef _HGamer3DCEGUI020_DLLDEFINES_H_ +#define _HGamer3DCEGUI020_DLLDEFINES_H_ -/* Cmake will define HGamer3DCEGUI019_EXPORTS on Windows when it +/* Cmake will define HGamer3DCEGUI020_EXPORTS on Windows when it configures to build a shared library. If you are going to use another build system on windows or create the visual studio projects by hand you need to define MyLibrary_EXPORTS when @@ -29,13 +29,13 @@ // We are using the Visual Studio Compiler and building Shared libraries #if (defined (_WIN32)) && !(defined (__GNUC__)) - #if defined(HGamer3DCEGUI019_EXPORTS) + #if defined(HGamer3DCEGUI020_EXPORTS) #define CEGUI_LIB_EXPORT __declspec(dllexport) #else #define CEGUI_LIB_EXPORT __declspec(dllimport) - #endif /* HGamer3DCEGUI019_EXPORTS */ + #endif /* HGamer3DCEGUI020_EXPORTS */ #else /* defined (_WIN32) */ #define CEGUI_LIB_EXPORT #endif -#endif /* _HGamer3DCEGUI019_DLLDEFINES_H_ */ +#endif /* _HGamer3DCEGUI020_DLLDEFINES_H_ */