packages feed

HGamer3D-CEGUI-Binding 0.2.1 → 0.3.0

raw patch · 245 files changed

+8224/−21697 lines, 245 filesdep ~HGamer3D-Datasetup-changed

Dependency ranges changed: HGamer3D-Data

Files

HGamer3D-CEGUI-Binding.cabal view
@@ -1,13 +1,11 @@ Name:                HGamer3D-CEGUI-Binding
-Version:             0.2.1
-Synopsis:            Windows Game Engine for the Haskell Programmer - CEGUI  Bindings
+Version:             0.3.0
+Synopsis:            A Game Engine for the Haskell Programmer - CEGUI  Bindings
 Description:         
-   HGamer3D is a game engine for developing 3D games in the programming 
-   language Haskell. The game engine uses available libraries for 3D graphics, 
-   sound, input device handling, gui programming and other areas and make
-   those functions available for the Haskell programmer by providing  
-   a Haskell API on top of that. HGamer3D is available on Windows only.
-   
+   HGamer3D is a game engine for developing 3D games in the programming +   language Haskell. This module provides the CEGUI Bindings.+   HGamer3D-CEGUI-Binding is available on Windows and Linux.+    
 	
 License:             OtherLicense
@@ -18,12 +16,12 @@ Cabal-Version:       >=1.4
 Homepage:            http://www.hgamer3d.org
 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
+Extra-source-files:  Setup.hs, include/SystemHG3D.h, include/quaternion_struct.h, include/WindowManagerHG3D.h, include/sharedptr_struct.h, include/radian_struct.h, include/vector2_struct.h, include/vector4_struct.h, include/hg3dstruct.h, include/vector3_struct.h, include/colorvalue_struct.h, include/degree_struct.h
 
 Library
-  Build-Depends:     base >= 3 && < 5,  HGamer3D-Data >= 0.2.0
+  Build-Depends:     base >= 3 && < 5,  HGamer3D-Data >= 0.3.0 && < 0.4.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
+  Exposed-modules:   HGamer3D.Bindings.CEGUI.Utils, HGamer3D.Bindings.CEGUI.StructHG3DClass, HGamer3D.Bindings.CEGUI.ClassPtr, HGamer3D.Bindings.CEGUI.EnumBlendMode, HGamer3D.Bindings.CEGUI.EnumTipState, HGamer3D.Bindings.CEGUI.EnumLoggingLevel, HGamer3D.Bindings.CEGUI.EnumVerticalAlignment, HGamer3D.Bindings.CEGUI.EnumKeyScan, HGamer3D.Bindings.CEGUI.EnumTextInputMode, HGamer3D.Bindings.CEGUI.EnumSortDirection, HGamer3D.Bindings.CEGUI.EnumHorizontalAlignment, HGamer3D.Bindings.CEGUI.EnumQuadSplitMode, HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode, HGamer3D.Bindings.CEGUI.EnumFWSizingLocation, HGamer3D.Bindings.CEGUI.EnumTabPanePosition, HGamer3D.Bindings.CEGUI.EnumSystemKey, HGamer3D.Bindings.CEGUI.EnumMouseButton, HGamer3D.Bindings.CEGUI.EnumSelectionMode, HGamer3D.Bindings.CEGUI.ClassTooltip, HGamer3D.Bindings.CEGUI.ClassListboxItem, HGamer3D.Bindings.CEGUI.ClassScrolledItemListBase, HGamer3D.Bindings.CEGUI.ClassFontManager, HGamer3D.Bindings.CEGUI.ClassOgreResourceProvider, HGamer3D.Bindings.CEGUI.ClassMenuBase, HGamer3D.Bindings.CEGUI.ClassEventArgs, HGamer3D.Bindings.CEGUI.ClassScheme, HGamer3D.Bindings.CEGUI.ClassWindowManager, HGamer3D.Bindings.CEGUI.ClassListboxTextItem, HGamer3D.Bindings.CEGUI.ClassListbox, HGamer3D.Bindings.CEGUI.ClassDragContainer, HGamer3D.Bindings.CEGUI.ClassPropertySet, HGamer3D.Bindings.CEGUI.ClassDefaultLogger, HGamer3D.Bindings.CEGUI.ClassEventSet, HGamer3D.Bindings.CEGUI.ClassImageCodec, HGamer3D.Bindings.CEGUI.ClassResourceProvider, HGamer3D.Bindings.CEGUI.ClassListHeader, HGamer3D.Bindings.CEGUI.ClassHG3DWindowStaticFunctions, HGamer3D.Bindings.CEGUI.ClassWindow, HGamer3D.Bindings.CEGUI.ClassSpinner, HGamer3D.Bindings.CEGUI.ClassSchemeManager, HGamer3D.Bindings.CEGUI.ClassComboDropList, HGamer3D.Bindings.CEGUI.ClassScrollbar, HGamer3D.Bindings.CEGUI.ClassHG3DListboxStaticFunctions, HGamer3D.Bindings.CEGUI.ClassScriptModule, HGamer3D.Bindings.CEGUI.ClassHG3DEventController, HGamer3D.Bindings.CEGUI.ClassMultiColumnList, HGamer3D.Bindings.CEGUI.ClassWidgetLookManager, HGamer3D.Bindings.CEGUI.ClassScriptFunctor, HGamer3D.Bindings.CEGUI.ClassTree, HGamer3D.Bindings.CEGUI.ClassFrameWindow, HGamer3D.Bindings.CEGUI.ClassThumb, HGamer3D.Bindings.CEGUI.ClassFont, HGamer3D.Bindings.CEGUI.ClassDefaultResourceProvider, HGamer3D.Bindings.CEGUI.ClassItemListbox, HGamer3D.Bindings.CEGUI.ClassScrollablePane, HGamer3D.Bindings.CEGUI.ClassLogger, HGamer3D.Bindings.CEGUI.ClassHG3DEventStaticFunctions, HGamer3D.Bindings.CEGUI.ClassRenderer, HGamer3D.Bindings.CEGUI.ClassMenuItem, HGamer3D.Bindings.CEGUI.ClassListHeaderSegment, HGamer3D.Bindings.CEGUI.ClassProgressBar, HGamer3D.Bindings.CEGUI.ClassSystem, HGamer3D.Bindings.CEGUI.ClassTabButton, HGamer3D.Bindings.CEGUI.ClassSlider, HGamer3D.Bindings.CEGUI.ClassImageset, HGamer3D.Bindings.CEGUI.ClassMultiLineEditbox, HGamer3D.Bindings.CEGUI.ClassPushButton, HGamer3D.Bindings.CEGUI.ClassOgreRenderer, HGamer3D.Bindings.CEGUI.ClassWindowManagerHG3D, HGamer3D.Bindings.CEGUI.ClassScrolledContainer, HGamer3D.Bindings.CEGUI.ClassItemEntry, HGamer3D.Bindings.CEGUI.ClassCheckbox, HGamer3D.Bindings.CEGUI.ClassEditbox, HGamer3D.Bindings.CEGUI.ClassCombobox, HGamer3D.Bindings.CEGUI.ClassRadioButton, HGamer3D.Bindings.CEGUI.ClassSystemHG3D, HGamer3D.Bindings.CEGUI.ClassXMLParser
   Other-modules:     
 
   ghc-options:       
@@ -32,4 +30,7 @@   Include-dirs:      include
   Build-tools:       
   build-depends:     
-  extra-libraries:   
+  if os(windows)
+     extra-libraries:   hg3dcegui030
+  else
+     extra-libraries:   hg3dcegui030,CEGUIBase-0.7.7,CEGUIOgreRenderer-0.7.7
+ HGamer3D/Bindings/CEGUI/ClassCheckbox.chs view
@@ -0,0 +1,63 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassCheckbox.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassCheckbox where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassCheckbox.h"
+{- function isSelected -}+{#fun cegui_chkbx_isSelected as isSelected +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setSelected -}+{#fun cegui_chkbx_setSelected as setSelected +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function Checkbox -}+{#fun cegui_chkbx_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Checkbox -}+{#fun cegui_chkbx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassCheckbox.hs 
@@ -1,100 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassCheckbox.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassCheckbox where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-
-{- function isSelected -}
-isSelected :: HG3DClass -> IO (Bool)
-isSelected a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSelected'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-
-{- function setSelected -}
-setSelected :: HG3DClass -> Bool -> IO ()
-setSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSelected'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-
-{- function Checkbox -}
-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 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-
-{- function ~Checkbox -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs.h cegui_chkbx_isSelected"
-  isSelected'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs.h cegui_chkbx_setSelected"
-  setSelected'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs.h cegui_chkbx_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCheckbox.chs.h cegui_chkbx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassComboDropList.chs view
@@ -0,0 +1,77 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassComboDropList.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassComboDropList where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassComboDropList.h"
+{- function initialiseComponents -}+{#fun cegui_cmbdrplst_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setArmed -}+{#fun cegui_cmbdrplst_setArmed as setArmed +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isArmed -}+{#fun cegui_cmbdrplst_isArmed as isArmed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setAutoArmEnabled -}+{#fun cegui_cmbdrplst_setAutoArmEnabled as setAutoArmEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isAutoArmEnabled -}+{#fun cegui_cmbdrplst_isAutoArmEnabled as isAutoArmEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function ComboDropList -}+{#fun cegui_cmbdrplst_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ComboDropList -}+{#fun cegui_cmbdrplst_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassComboDropList.hs 
@@ -1,136 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassComboDropList.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassComboDropList where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function setArmed -}
-setArmed :: HG3DClass -> Bool -> IO ()
-setArmed a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setArmed'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function isArmed -}
-isArmed :: HG3DClass -> IO (Bool)
-isArmed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isArmed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function setAutoArmEnabled -}
-setAutoArmEnabled :: HG3DClass -> Bool -> IO ()
-setAutoArmEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoArmEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function isAutoArmEnabled -}
-isAutoArmEnabled :: HG3DClass -> IO (Bool)
-isAutoArmEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAutoArmEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function ComboDropList -}
-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 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-{- function ~ComboDropList -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_setArmed"
-  setArmed'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_isArmed"
-  isArmed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_setAutoArmEnabled"
-  setAutoArmEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_isAutoArmEnabled"
-  isAutoArmEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassComboDropList.chs.h cegui_cmbdrplst_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassCombobox.chs view
@@ -0,0 +1,281 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassCombobox.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassCombobox where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassCombobox.h"
+{- function getSingleClickEnabled -}+{#fun cegui_cmbbx_getSingleClickEnabled as getSingleClickEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isDropDownListVisible -}+{#fun cegui_cmbbx_isDropDownListVisible as isDropDownListVisible +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getEditbox -}+{#fun cegui_cmbbx_getEditbox as getEditbox +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getPushButton -}+{#fun cegui_cmbbx_getPushButton as getPushButton +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getDropList -}+{#fun cegui_cmbbx_getDropList as getDropList +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasInputFocus -}+{#fun cegui_cmbbx_hasInputFocus as hasInputFocus +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isReadOnly -}+{#fun cegui_cmbbx_isReadOnly as isReadOnly +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isTextValid -}+{#fun cegui_cmbbx_isTextValid as isTextValid +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getValidationString -}+{#fun cegui_cmbbx_getValidationString as getValidationString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getCaratIndex -}+{#fun cegui_cmbbx_getCaratIndex as getCaratIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionStartIndex -}+{#fun cegui_cmbbx_getSelectionStartIndex as getSelectionStartIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionEndIndex -}+{#fun cegui_cmbbx_getSelectionEndIndex as getSelectionEndIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionLength -}+{#fun cegui_cmbbx_getSelectionLength as getSelectionLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getMaxTextLength -}+{#fun cegui_cmbbx_getMaxTextLength as getMaxTextLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getItemCount -}+{#fun cegui_cmbbx_getItemCount as getItemCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectedItem -}+{#fun cegui_cmbbx_getSelectedItem as getSelectedItem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getListboxItemFromIndex -}+{#fun cegui_cmbbx_getListboxItemFromIndex as getListboxItemFromIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getItemIndex -}+{#fun cegui_cmbbx_getItemIndex as getItemIndex +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isSortEnabled -}+{#fun cegui_cmbbx_isSortEnabled as isSortEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isItemSelected -}+{#fun cegui_cmbbx_isItemSelected as isItemSelected +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function findItemWithText -}+{#fun cegui_cmbbx_findItemWithText as findItemWithText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isListboxItemInList -}+{#fun cegui_cmbbx_isListboxItemInList as isListboxItemInList +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVertScrollbarAlwaysShown -}+{#fun cegui_cmbbx_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHorzScrollbarAlwaysShown -}+{#fun cegui_cmbbx_isHorzScrollbarAlwaysShown as isHorzScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_cmbbx_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function showDropList -}+{#fun cegui_cmbbx_showDropList as showDropList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hideDropList -}+{#fun cegui_cmbbx_hideDropList as hideDropList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSingleClickEnabled -}+{#fun cegui_cmbbx_setSingleClickEnabled as setSingleClickEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setReadOnly -}+{#fun cegui_cmbbx_setReadOnly as setReadOnly +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setValidationString -}+{#fun cegui_cmbbx_setValidationString as setValidationString +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setCaratIndex -}+{#fun cegui_cmbbx_setCaratIndex as setCaratIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSelection -}+{#fun cegui_cmbbx_setSelection as setSelection +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function setMaxTextLength -}+{#fun cegui_cmbbx_setMaxTextLength as setMaxTextLength +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function activateEditbox -}+{#fun cegui_cmbbx_activateEditbox as activateEditbox +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resetList -}+{#fun cegui_cmbbx_resetList as resetList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function addItem -}+{#fun cegui_cmbbx_addItem as addItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function insertItem -}+{#fun cegui_cmbbx_insertItem as insertItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeItem -}+{#fun cegui_cmbbx_removeItem as removeItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearAllSelections -}+{#fun cegui_cmbbx_clearAllSelections as clearAllSelections +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSortingEnabled -}+{#fun cegui_cmbbx_setSortingEnabled as setSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_cmbbx_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowHorzScrollbar -}+{#fun cegui_cmbbx_setShowHorzScrollbar as setShowHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemSelectState -}+{#fun cegui_cmbbx_setItemSelectState as setItemSelectState +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemSelectState2 -}+{#fun cegui_cmbbx_setItemSelectState2 as setItemSelectState2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromBool `Bool' } -> `()'  #}++{- function handleUpdatedListItemData -}+{#fun cegui_cmbbx_handleUpdatedListItemData as handleUpdatedListItemData +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function Combobox -}+{#fun cegui_cmbbx_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Combobox -}+{#fun cegui_cmbbx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassCombobox.hs 
@@ -1,642 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassCombobox.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassCombobox where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getSingleClickEnabled -}
-getSingleClickEnabled :: HG3DClass -> IO (Bool)
-getSingleClickEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSingleClickEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isDropDownListVisible -}
-isDropDownListVisible :: HG3DClass -> IO (Bool)
-isDropDownListVisible a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDropDownListVisible'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getEditbox -}
-getEditbox :: HG3DClass -> IO (HG3DClass)
-getEditbox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getEditbox'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getPushButton -}
-getPushButton :: HG3DClass -> IO (HG3DClass)
-getPushButton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPushButton'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getDropList -}
-getDropList :: HG3DClass -> IO (HG3DClass)
-getDropList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDropList'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function hasInputFocus -}
-hasInputFocus :: HG3DClass -> IO (Bool)
-hasInputFocus a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasInputFocus'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isReadOnly -}
-isReadOnly :: HG3DClass -> IO (Bool)
-isReadOnly a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isReadOnly'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isTextValid -}
-isTextValid :: HG3DClass -> IO (Bool)
-isTextValid a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTextValid'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getValidationString -}
-getValidationString :: HG3DClass -> IO (String)
-getValidationString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getValidationString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getCaratIndex -}
-getCaratIndex :: HG3DClass -> IO (Int)
-getCaratIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCaratIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getSelectionStartIndex -}
-getSelectionStartIndex :: HG3DClass -> IO (Int)
-getSelectionStartIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionStartIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getSelectionEndIndex -}
-getSelectionEndIndex :: HG3DClass -> IO (Int)
-getSelectionEndIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionEndIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getSelectionLength -}
-getSelectionLength :: HG3DClass -> IO (Int)
-getSelectionLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionLength'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getMaxTextLength -}
-getMaxTextLength :: HG3DClass -> IO (Int)
-getMaxTextLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxTextLength'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getItemCount -}
-getItemCount :: HG3DClass -> IO (Int)
-getItemCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getItemCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getSelectedItem -}
-getSelectedItem :: HG3DClass -> IO (HG3DClass)
-getSelectedItem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectedItem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getListboxItemFromIndex -}
-getListboxItemFromIndex :: HG3DClass -> Int -> IO (HG3DClass)
-getListboxItemFromIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getListboxItemFromIndex'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function getItemIndex -}
-getItemIndex :: HG3DClass -> HG3DClass -> IO (Int)
-getItemIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getItemIndex'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 135 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isSortEnabled -}
-isSortEnabled :: HG3DClass -> IO (Bool)
-isSortEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSortEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 140 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isItemSelected -}
-isItemSelected :: HG3DClass -> Int -> IO (Bool)
-isItemSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  isItemSelected'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function findItemWithText -}
-findItemWithText :: HG3DClass -> String -> HG3DClass -> IO (HG3DClass)
-findItemWithText a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  findItemWithText'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isListboxItemInList -}
-isListboxItemInList :: HG3DClass -> HG3DClass -> IO (Bool)
-isListboxItemInList a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isListboxItemInList'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 159 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 164 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function isHorzScrollbarAlwaysShown -}
-isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isHorzScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 169 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 173 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function showDropList -}
-showDropList :: HG3DClass -> IO ()
-showDropList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  showDropList'_ a1' >>= \res ->
-  return ()
-{-# LINE 177 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function hideDropList -}
-hideDropList :: HG3DClass -> IO ()
-hideDropList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  hideDropList'_ a1' >>= \res ->
-  return ()
-{-# LINE 181 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setSingleClickEnabled -}
-setSingleClickEnabled :: HG3DClass -> Bool -> IO ()
-setSingleClickEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSingleClickEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 186 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setReadOnly -}
-setReadOnly :: HG3DClass -> Bool -> IO ()
-setReadOnly a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setReadOnly'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 191 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setValidationString -}
-setValidationString :: HG3DClass -> String -> IO ()
-setValidationString a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setValidationString'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 196 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setCaratIndex -}
-setCaratIndex :: HG3DClass -> Int -> IO ()
-setCaratIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setCaratIndex'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 201 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setSelection -}
-setSelection :: HG3DClass -> Int -> Int -> IO ()
-setSelection a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  setSelection'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 207 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setMaxTextLength -}
-setMaxTextLength :: HG3DClass -> Int -> IO ()
-setMaxTextLength a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setMaxTextLength'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 212 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function activateEditbox -}
-activateEditbox :: HG3DClass -> IO ()
-activateEditbox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  activateEditbox'_ a1' >>= \res ->
-  return ()
-{-# LINE 216 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function resetList -}
-resetList :: HG3DClass -> IO ()
-resetList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetList'_ a1' >>= \res ->
-  return ()
-{-# LINE 220 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function addItem -}
-addItem :: HG3DClass -> HG3DClass -> IO ()
-addItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  addItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 225 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function insertItem -}
-insertItem :: HG3DClass -> HG3DClass -> HG3DClass -> IO ()
-insertItem a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  insertItem'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 231 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function removeItem -}
-removeItem :: HG3DClass -> HG3DClass -> IO ()
-removeItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  removeItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 236 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function clearAllSelections -}
-clearAllSelections :: HG3DClass -> IO ()
-clearAllSelections a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearAllSelections'_ a1' >>= \res ->
-  return ()
-{-# LINE 240 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setSortingEnabled -}
-setSortingEnabled :: HG3DClass -> Bool -> IO ()
-setSortingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSortingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 245 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 250 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setShowHorzScrollbar -}
-setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
-setShowHorzScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowHorzScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 255 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setItemSelectState -}
-setItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO ()
-setItemSelectState a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  setItemSelectState'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 261 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function setItemSelectState2 -}
-setItemSelectState2 :: HG3DClass -> Int -> Bool -> IO ()
-setItemSelectState2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromBool a3} in 
-  setItemSelectState2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 267 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function handleUpdatedListItemData -}
-handleUpdatedListItemData :: HG3DClass -> IO ()
-handleUpdatedListItemData a1 =
-  withHG3DClass a1 $ \a1' -> 
-  handleUpdatedListItemData'_ a1' >>= \res ->
-  return ()
-{-# LINE 271 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function Combobox -}
-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 277 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-{- function ~Combobox -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 281 ".\\HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getSingleClickEnabled"
-  getSingleClickEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isDropDownListVisible"
-  isDropDownListVisible'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getEditbox"
-  getEditbox'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getPushButton"
-  getPushButton'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getDropList"
-  getDropList'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_hasInputFocus"
-  hasInputFocus'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isReadOnly"
-  isReadOnly'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isTextValid"
-  isTextValid'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getValidationString"
-  getValidationString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getCaratIndex"
-  getCaratIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getSelectionStartIndex"
-  getSelectionStartIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getSelectionEndIndex"
-  getSelectionEndIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getSelectionLength"
-  getSelectionLength'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getMaxTextLength"
-  getMaxTextLength'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getItemCount"
-  getItemCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getSelectedItem"
-  getSelectedItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getListboxItemFromIndex"
-  getListboxItemFromIndex'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_getItemIndex"
-  getItemIndex'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isSortEnabled"
-  isSortEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isItemSelected"
-  isItemSelected'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_findItemWithText"
-  findItemWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isListboxItemInList"
-  isListboxItemInList'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_isHorzScrollbarAlwaysShown"
-  isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_showDropList"
-  showDropList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_hideDropList"
-  hideDropList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setSingleClickEnabled"
-  setSingleClickEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setReadOnly"
-  setReadOnly'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setValidationString"
-  setValidationString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setCaratIndex"
-  setCaratIndex'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setSelection"
-  setSelection'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setMaxTextLength"
-  setMaxTextLength'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_activateEditbox"
-  activateEditbox'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_resetList"
-  resetList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_addItem"
-  addItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_insertItem"
-  insertItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_removeItem"
-  removeItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_clearAllSelections"
-  clearAllSelections'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setSortingEnabled"
-  setSortingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setShowHorzScrollbar"
-  setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setItemSelectState"
-  setItemSelectState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_setItemSelectState2"
-  setItemSelectState2'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_handleUpdatedListItemData"
-  handleUpdatedListItemData'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassCombobox.chs.h cegui_cmbbx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassDefaultLogger.chs view
@@ -0,0 +1,64 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassDefaultLogger.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassDefaultLogger where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumLoggingLevel #}+
+#include "ClassDefaultLogger.h"
+{- function DefaultLogger -}+{#fun cegui_dfltlgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~DefaultLogger -}+{#fun cegui_dfltlgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function logEvent -}+{#fun cegui_dfltlgr_logEvent as logEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumLoggingLevel' } -> `()'  #}++{- function setLogFilename -}+{#fun cegui_dfltlgr_setLogFilename as setLogFilename +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassDefaultLogger.hs 
@@ -1,101 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassDefaultLogger.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassDefaultLogger where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumLoggingLevel
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-
-{- function DefaultLogger -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-
-{- function ~DefaultLogger -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-
-{- function logEvent -}
-logEvent :: HG3DClass -> String -> EnumLoggingLevel -> IO ()
-logEvent a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  logEvent'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-
-{- function setLogFilename -}
-setLogFilename :: HG3DClass -> String -> Bool -> IO ()
-setLogFilename a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  setLogFilename'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs.h cegui_dfltlgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs.h cegui_dfltlgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs.h cegui_dfltlgr_logEvent"
-  logEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultLogger.chs.h cegui_dfltlgr_setLogFilename"
-  setLogFilename'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassDefaultResourceProvider.chs view
@@ -0,0 +1,68 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassDefaultResourceProvider.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassDefaultResourceProvider where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassDefaultResourceProvider.h"
+{- function DefaultResourceProvider -}+{#fun cegui_drpr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~DefaultResourceProvider -}+{#fun cegui_drpr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setResourceGroupDirectory -}+{#fun cegui_drpr_setResourceGroupDirectory as setResourceGroupDirectory +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function getResourceGroupDirectory -}+{#fun cegui_drpr_getResourceGroupDirectory as getResourceGroupDirectory +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function clearResourceGroupDirectory -}+{#fun cegui_drpr_clearResourceGroupDirectory as clearResourceGroupDirectory +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassDefaultResourceProvider.hs 
@@ -1,112 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassDefaultResourceProvider.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassDefaultResourceProvider where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-
-{- function DefaultResourceProvider -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-
-{- function ~DefaultResourceProvider -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-
-{- function setResourceGroupDirectory -}
-setResourceGroupDirectory :: HG3DClass -> String -> String -> IO ()
-setResourceGroupDirectory a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setResourceGroupDirectory'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-
-{- function getResourceGroupDirectory -}
-getResourceGroupDirectory :: HG3DClass -> String -> IO (String)
-getResourceGroupDirectory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloc64k $ \a3' -> 
-  getResourceGroupDirectory'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-
-{- function clearResourceGroupDirectory -}
-clearResourceGroupDirectory :: HG3DClass -> String -> IO ()
-clearResourceGroupDirectory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  clearResourceGroupDirectory'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs.h cegui_drpr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs.h cegui_drpr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs.h cegui_drpr_setResourceGroupDirectory"
-  setResourceGroupDirectory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs.h cegui_drpr_getResourceGroupDirectory"
-  getResourceGroupDirectory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDefaultResourceProvider.chs.h cegui_drpr_clearResourceGroupDirectory"
-  clearResourceGroupDirectory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassDragContainer.chs view
@@ -0,0 +1,125 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassDragContainer.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassDragContainer where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassDragContainer.h"
+{- function DragContainer -}+{#fun cegui_drgcnt_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~DragContainer -}+{#fun cegui_drgcnt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isDraggingEnabled -}+{#fun cegui_drgcnt_isDraggingEnabled as isDraggingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setDraggingEnabled -}+{#fun cegui_drgcnt_setDraggingEnabled as setDraggingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isBeingDragged -}+{#fun cegui_drgcnt_isBeingDragged as isBeingDragged +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPixelDragThreshold -}+{#fun cegui_drgcnt_getPixelDragThreshold as getPixelDragThreshold +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setPixelDragThreshold -}+{#fun cegui_drgcnt_setPixelDragThreshold as setPixelDragThreshold +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getDragAlpha -}+{#fun cegui_drgcnt_getDragAlpha as getDragAlpha +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setDragAlpha -}+{#fun cegui_drgcnt_setDragAlpha as setDragAlpha +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setDragCursorImage3 -}+{#fun cegui_drgcnt_setDragCursorImage3 as setDragCursorImage3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function getCurrentDropTarget -}+{#fun cegui_drgcnt_getCurrentDropTarget as getCurrentDropTarget +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isStickyModeEnabled -}+{#fun cegui_drgcnt_isStickyModeEnabled as isStickyModeEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setStickyModeEnabled -}+{#fun cegui_drgcnt_setStickyModeEnabled as setStickyModeEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function pickUp -}+{#fun cegui_drgcnt_pickUp as pickUp +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setUsingFixedDragOffset -}+{#fun cegui_drgcnt_setUsingFixedDragOffset as setUsingFixedDragOffset +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isUsingFixedDragOffset -}+{#fun cegui_drgcnt_isUsingFixedDragOffset as isUsingFixedDragOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassDragContainer.hs 
@@ -1,253 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassDragContainer.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassDragContainer where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function DragContainer -}
-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 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function ~DragContainer -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function isDraggingEnabled -}
-isDraggingEnabled :: HG3DClass -> IO (Bool)
-isDraggingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDraggingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function setDraggingEnabled -}
-setDraggingEnabled :: HG3DClass -> Bool -> IO ()
-setDraggingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDraggingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function isBeingDragged -}
-isBeingDragged :: HG3DClass -> IO (Bool)
-isBeingDragged a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isBeingDragged'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function getPixelDragThreshold -}
-getPixelDragThreshold :: HG3DClass -> IO (Float)
-getPixelDragThreshold a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPixelDragThreshold'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function setPixelDragThreshold -}
-setPixelDragThreshold :: HG3DClass -> Float -> IO ()
-setPixelDragThreshold a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setPixelDragThreshold'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function getDragAlpha -}
-getDragAlpha :: HG3DClass -> IO (Float)
-getDragAlpha a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDragAlpha'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function setDragAlpha -}
-setDragAlpha :: HG3DClass -> Float -> IO ()
-setDragAlpha a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDragAlpha'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function setDragCursorImage3 -}
-setDragCursorImage3 :: HG3DClass -> String -> String -> IO ()
-setDragCursorImage3 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setDragCursorImage3'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function getCurrentDropTarget -}
-getCurrentDropTarget :: HG3DClass -> IO (HG3DClass)
-getCurrentDropTarget a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCurrentDropTarget'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 99 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function isStickyModeEnabled -}
-isStickyModeEnabled :: HG3DClass -> IO (Bool)
-isStickyModeEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isStickyModeEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function setStickyModeEnabled -}
-setStickyModeEnabled :: HG3DClass -> Bool -> IO ()
-setStickyModeEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setStickyModeEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 109 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function pickUp -}
-pickUp :: HG3DClass -> Bool -> IO (Bool)
-pickUp a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  alloca $ \a3' -> 
-  pickUp'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function setUsingFixedDragOffset -}
-setUsingFixedDragOffset :: HG3DClass -> Bool -> IO ()
-setUsingFixedDragOffset a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUsingFixedDragOffset'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-{- function isUsingFixedDragOffset -}
-isUsingFixedDragOffset :: HG3DClass -> IO (Bool)
-isUsingFixedDragOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isUsingFixedDragOffset'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 125 ".\\HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isDraggingEnabled"
-  isDraggingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setDraggingEnabled"
-  setDraggingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isBeingDragged"
-  isBeingDragged'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_getPixelDragThreshold"
-  getPixelDragThreshold'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setPixelDragThreshold"
-  setPixelDragThreshold'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_getDragAlpha"
-  getDragAlpha'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setDragAlpha"
-  setDragAlpha'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setDragCursorImage3"
-  setDragCursorImage3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_getCurrentDropTarget"
-  getCurrentDropTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isStickyModeEnabled"
-  isStickyModeEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setStickyModeEnabled"
-  setStickyModeEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_pickUp"
-  pickUp'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_setUsingFixedDragOffset"
-  setUsingFixedDragOffset'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassDragContainer.chs.h cegui_drgcnt_isUsingFixedDragOffset"
-  isUsingFixedDragOffset'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassEditbox.chs view
@@ -0,0 +1,144 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassEditbox.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassEditbox where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassEditbox.h"
+{- function hasInputFocus -}+{#fun cegui_edtbx_hasInputFocus as hasInputFocus +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isReadOnly -}+{#fun cegui_edtbx_isReadOnly as isReadOnly +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isTextMasked -}+{#fun cegui_edtbx_isTextMasked as isTextMasked +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isTextValid -}+{#fun cegui_edtbx_isTextValid as isTextValid +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getValidationString -}+{#fun cegui_edtbx_getValidationString as getValidationString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getCaratIndex -}+{#fun cegui_edtbx_getCaratIndex as getCaratIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionStartIndex -}+{#fun cegui_edtbx_getSelectionStartIndex as getSelectionStartIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionEndIndex -}+{#fun cegui_edtbx_getSelectionEndIndex as getSelectionEndIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionLength -}+{#fun cegui_edtbx_getSelectionLength as getSelectionLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getMaskCodePoint -}+{#fun cegui_edtbx_getMaskCodePoint as getMaskCodePoint +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getMaxTextLength -}+{#fun cegui_edtbx_getMaxTextLength as getMaxTextLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setReadOnly -}+{#fun cegui_edtbx_setReadOnly as setReadOnly +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setTextMasked -}+{#fun cegui_edtbx_setTextMasked as setTextMasked +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setValidationString -}+{#fun cegui_edtbx_setValidationString as setValidationString +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setCaratIndex -}+{#fun cegui_edtbx_setCaratIndex as setCaratIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSelection -}+{#fun cegui_edtbx_setSelection as setSelection +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function setMaskCodePoint -}+{#fun cegui_edtbx_setMaskCodePoint as setMaskCodePoint +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setMaxTextLength -}+{#fun cegui_edtbx_setMaxTextLength as setMaxTextLength +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function Editbox -}+{#fun cegui_edtbx_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Editbox -}+{#fun cegui_edtbx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassEditbox.hs 
@@ -1,303 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassEditbox.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassEditbox where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function hasInputFocus -}
-hasInputFocus :: HG3DClass -> IO (Bool)
-hasInputFocus a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasInputFocus'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function isReadOnly -}
-isReadOnly :: HG3DClass -> IO (Bool)
-isReadOnly a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isReadOnly'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function isTextMasked -}
-isTextMasked :: HG3DClass -> IO (Bool)
-isTextMasked a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTextMasked'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function isTextValid -}
-isTextValid :: HG3DClass -> IO (Bool)
-isTextValid a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTextValid'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getValidationString -}
-getValidationString :: HG3DClass -> IO (String)
-getValidationString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getValidationString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getCaratIndex -}
-getCaratIndex :: HG3DClass -> IO (Int)
-getCaratIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCaratIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getSelectionStartIndex -}
-getSelectionStartIndex :: HG3DClass -> IO (Int)
-getSelectionStartIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionStartIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getSelectionEndIndex -}
-getSelectionEndIndex :: HG3DClass -> IO (Int)
-getSelectionEndIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionEndIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getSelectionLength -}
-getSelectionLength :: HG3DClass -> IO (Int)
-getSelectionLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionLength'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getMaskCodePoint -}
-getMaskCodePoint :: HG3DClass -> IO (Int)
-getMaskCodePoint a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaskCodePoint'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function getMaxTextLength -}
-getMaxTextLength :: HG3DClass -> IO (Int)
-getMaxTextLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxTextLength'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setReadOnly -}
-setReadOnly :: HG3DClass -> Bool -> IO ()
-setReadOnly a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setReadOnly'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setTextMasked -}
-setTextMasked :: HG3DClass -> Bool -> IO ()
-setTextMasked a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setTextMasked'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setValidationString -}
-setValidationString :: HG3DClass -> String -> IO ()
-setValidationString a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setValidationString'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setCaratIndex -}
-setCaratIndex :: HG3DClass -> Int -> IO ()
-setCaratIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setCaratIndex'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setSelection -}
-setSelection :: HG3DClass -> Int -> Int -> IO ()
-setSelection a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  setSelection'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setMaskCodePoint -}
-setMaskCodePoint :: HG3DClass -> Int -> IO ()
-setMaskCodePoint a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setMaskCodePoint'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function setMaxTextLength -}
-setMaxTextLength :: HG3DClass -> Int -> IO ()
-setMaxTextLength a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setMaxTextLength'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 134 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function Editbox -}
-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 140 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-{- function ~Editbox -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_hasInputFocus"
-  hasInputFocus'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_isReadOnly"
-  isReadOnly'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_isTextMasked"
-  isTextMasked'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_isTextValid"
-  isTextValid'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getValidationString"
-  getValidationString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getCaratIndex"
-  getCaratIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getSelectionStartIndex"
-  getSelectionStartIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getSelectionEndIndex"
-  getSelectionEndIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getSelectionLength"
-  getSelectionLength'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getMaskCodePoint"
-  getMaskCodePoint'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_getMaxTextLength"
-  getMaxTextLength'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setReadOnly"
-  setReadOnly'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setTextMasked"
-  setTextMasked'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setValidationString"
-  setValidationString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setCaratIndex"
-  setCaratIndex'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setSelection"
-  setSelection'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setMaskCodePoint"
-  setMaskCodePoint'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_setMaxTextLength"
-  setMaxTextLength'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEditbox.chs.h cegui_edtbx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassEventArgs.chs view
@@ -0,0 +1,51 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassEventArgs.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassEventArgs where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassEventArgs.h"
+{- function EventArgs -}+{#fun cegui_evntargs_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~EventArgs -}+{#fun cegui_evntargs_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassEventArgs.hs 
@@ -1,73 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassEventArgs.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassEventArgs where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-}
-
-{- function EventArgs -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-}
-
-{- function ~EventArgs -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs.h cegui_evntargs_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventArgs.chs.h cegui_evntargs_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassEventSet.chs view
@@ -0,0 +1,88 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassEventSet.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassEventSet where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassEventSet.h"
+{- function EventSet -}+{#fun cegui_evtst_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~EventSet -}+{#fun cegui_evtst_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function addEvent -}+{#fun cegui_evtst_addEvent as addEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeEvent -}+{#fun cegui_evtst_removeEvent as removeEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeAllEvents -}+{#fun cegui_evtst_removeAllEvents as removeAllEvents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isEventPresent -}+{#fun cegui_evtst_isEventPresent as isEventPresent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function fireEvent -}+{#fun cegui_evtst_fireEvent as fireEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function isMuted -}+{#fun cegui_evtst_isMuted as isMuted +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setMutedState -}+{#fun cegui_evtst_setMutedState as setMutedState +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassEventSet.hs 
@@ -1,161 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassEventSet.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassEventSet where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function EventSet -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function ~EventSet -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function addEvent -}
-addEvent :: HG3DClass -> String -> IO ()
-addEvent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  addEvent'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function removeEvent -}
-removeEvent :: HG3DClass -> String -> IO ()
-removeEvent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removeEvent'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function removeAllEvents -}
-removeAllEvents :: HG3DClass -> IO ()
-removeAllEvents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllEvents'_ a1' >>= \res ->
-  return ()
-{-# LINE 65 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function isEventPresent -}
-isEventPresent :: HG3DClass -> String -> IO (Bool)
-isEventPresent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isEventPresent'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function fireEvent -}
-fireEvent :: HG3DClass -> String -> HG3DClass -> String -> IO ()
-fireEvent a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  fireEvent'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function isMuted -}
-isMuted :: HG3DClass -> IO (Bool)
-isMuted a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isMuted'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-{- function setMutedState -}
-setMutedState :: HG3DClass -> Bool -> IO ()
-setMutedState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setMutedState'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_addEvent"
-  addEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_removeEvent"
-  removeEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_removeAllEvents"
-  removeAllEvents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_isEventPresent"
-  isEventPresent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_fireEvent"
-  fireEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_isMuted"
-  isMuted'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassEventSet.chs.h cegui_evtst_setMutedState"
-  setMutedState'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassFont.chs view
@@ -0,0 +1,123 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassFont.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassFont where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassFont.h"
+{- function ~Font -}+{#fun cegui_fnt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun cegui_fnt_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getTypeName -}+{#fun cegui_fnt_getTypeName as getTypeName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function isCodepointAvailable -}+{#fun cegui_fnt_isCodepointAvailable as isCodepointAvailable +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setAutoScaled -}+{#fun cegui_fnt_setAutoScaled as setAutoScaled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isAutoScaled -}+{#fun cegui_fnt_isAutoScaled as isAutoScaled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getLineSpacing -}+{#fun cegui_fnt_getLineSpacing as getLineSpacing +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getFontHeight -}+{#fun cegui_fnt_getFontHeight as getFontHeight +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getBaseline -}+{#fun cegui_fnt_getBaseline as getBaseline +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getTextExtent -}+{#fun cegui_fnt_getTextExtent as getTextExtent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getCharAtPixel -}+{#fun cegui_fnt_getCharAtPixel as getCharAtPixel +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getCharAtPixel2 -}+{#fun cegui_fnt_getCharAtPixel2 as getCharAtPixel2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromIntegral `Int' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_fnt_setDefaultResourceGroup as setDefaultResourceGroup +{ withCString* `String' } -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_fnt_getDefaultResourceGroup as getDefaultResourceGroup +{ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassFont.hs 
@@ -1,239 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassFont.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassFont where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function ~Font -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getTypeName -}
-getTypeName :: HG3DClass -> IO (String)
-getTypeName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getTypeName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function isCodepointAvailable -}
-isCodepointAvailable :: HG3DClass -> Int -> IO (Bool)
-isCodepointAvailable a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  isCodepointAvailable'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function setAutoScaled -}
-setAutoScaled :: HG3DClass -> Bool -> IO ()
-setAutoScaled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoScaled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function isAutoScaled -}
-isAutoScaled :: HG3DClass -> IO (Bool)
-isAutoScaled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAutoScaled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getLineSpacing -}
-getLineSpacing :: HG3DClass -> Float -> IO (Float)
-getLineSpacing a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  alloca $ \a3' -> 
-  getLineSpacing'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getFontHeight -}
-getFontHeight :: HG3DClass -> Float -> IO (Float)
-getFontHeight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  alloca $ \a3' -> 
-  getFontHeight'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getBaseline -}
-getBaseline :: HG3DClass -> Float -> IO (Float)
-getBaseline a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  alloca $ \a3' -> 
-  getBaseline'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getTextExtent -}
-getTextExtent :: HG3DClass -> String -> Float -> IO (Float)
-getTextExtent a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  alloca $ \a4' -> 
-  getTextExtent'_ a1' a2' a3' a4' >>= \res ->
-  peekFloatConv  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getCharAtPixel -}
-getCharAtPixel :: HG3DClass -> String -> Float -> Float -> IO (Int)
-getCharAtPixel a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  alloca $ \a5' -> 
-  getCharAtPixel'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekIntConv  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getCharAtPixel2 -}
-getCharAtPixel2 :: HG3DClass -> String -> Int -> Float -> Float -> IO (Int)
-getCharAtPixel2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  alloca $ \a6' -> 
-  getCharAtPixel2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  peekIntConv  a6'>>= \a6'' -> 
-  return (a6'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: String -> IO ()
-setDefaultResourceGroup a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultResourceGroup'_ a1' >>= \res ->
-  return ()
-{-# LINE 119 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: IO (String)
-getDefaultResourceGroup =
-  alloc64k $ \a1' -> 
-  getDefaultResourceGroup'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFont.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getTypeName"
-  getTypeName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_isCodepointAvailable"
-  isCodepointAvailable'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_setAutoScaled"
-  setAutoScaled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_isAutoScaled"
-  isAutoScaled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getLineSpacing"
-  getLineSpacing'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getFontHeight"
-  getFontHeight'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getBaseline"
-  getBaseline'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getTextExtent"
-  getTextExtent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> ((Ptr CFloat) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getCharAtPixel"
-  getCharAtPixel'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> (CFloat -> ((Ptr CInt) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getCharAtPixel2"
-  getCharAtPixel2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (CFloat -> (CFloat -> ((Ptr CInt) -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFont.chs.h cegui_fnt_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassFontManager.chs view
@@ -0,0 +1,51 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassFontManager.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassFontManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassFontManager.h"
+{- function FontManager -}+{#fun cegui_fntmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~FontManager -}+{#fun cegui_fntmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassFontManager.hs 
@@ -1,73 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassFontManager.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassFontManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-}
-
-{- function FontManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-}
-
-{- function ~FontManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs.h cegui_fntmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFontManager.chs.h cegui_fntmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassFrameWindow.chs view
@@ -0,0 +1,165 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassFrameWindow.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassFrameWindow where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassFrameWindow.h"
+{- function initialiseComponents -}+{#fun cegui_frmwndw_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isSizingEnabled -}+{#fun cegui_frmwndw_isSizingEnabled as isSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isFrameEnabled -}+{#fun cegui_frmwndw_isFrameEnabled as isFrameEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isTitleBarEnabled -}+{#fun cegui_frmwndw_isTitleBarEnabled as isTitleBarEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isCloseButtonEnabled -}+{#fun cegui_frmwndw_isCloseButtonEnabled as isCloseButtonEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isRollupEnabled -}+{#fun cegui_frmwndw_isRollupEnabled as isRollupEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isRolledup -}+{#fun cegui_frmwndw_isRolledup as isRolledup +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSizingBorderThickness -}+{#fun cegui_frmwndw_getSizingBorderThickness as getSizingBorderThickness +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setSizingEnabled -}+{#fun cegui_frmwndw_setSizingEnabled as setSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setFrameEnabled -}+{#fun cegui_frmwndw_setFrameEnabled as setFrameEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setTitleBarEnabled -}+{#fun cegui_frmwndw_setTitleBarEnabled as setTitleBarEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setCloseButtonEnabled -}+{#fun cegui_frmwndw_setCloseButtonEnabled as setCloseButtonEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setRollupEnabled -}+{#fun cegui_frmwndw_setRollupEnabled as setRollupEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function toggleRollup -}+{#fun cegui_frmwndw_toggleRollup as toggleRollup +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSizingBorderThickness -}+{#fun cegui_frmwndw_setSizingBorderThickness as setSizingBorderThickness +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function isDragMovingEnabled -}+{#fun cegui_frmwndw_isDragMovingEnabled as isDragMovingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setDragMovingEnabled -}+{#fun cegui_frmwndw_setDragMovingEnabled as setDragMovingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setNSSizingCursorImage2 -}+{#fun cegui_frmwndw_setNSSizingCursorImage2 as setNSSizingCursorImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setEWSizingCursorImage2 -}+{#fun cegui_frmwndw_setEWSizingCursorImage2 as setEWSizingCursorImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setNWSESizingCursorImage2 -}+{#fun cegui_frmwndw_setNWSESizingCursorImage2 as setNWSESizingCursorImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setNESWSizingCursorImage2 -}+{#fun cegui_frmwndw_setNESWSizingCursorImage2 as setNESWSizingCursorImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function getCloseButton -}+{#fun cegui_frmwndw_getCloseButton as getCloseButton +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function FrameWindow -}+{#fun cegui_frmwndw_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~FrameWindow -}+{#fun cegui_frmwndw_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassFrameWindow.hs 
@@ -1,350 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassFrameWindow.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassFrameWindow where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isSizingEnabled -}
-isSizingEnabled :: HG3DClass -> IO (Bool)
-isSizingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSizingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isFrameEnabled -}
-isFrameEnabled :: HG3DClass -> IO (Bool)
-isFrameEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isFrameEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isTitleBarEnabled -}
-isTitleBarEnabled :: HG3DClass -> IO (Bool)
-isTitleBarEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTitleBarEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isCloseButtonEnabled -}
-isCloseButtonEnabled :: HG3DClass -> IO (Bool)
-isCloseButtonEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isCloseButtonEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isRollupEnabled -}
-isRollupEnabled :: HG3DClass -> IO (Bool)
-isRollupEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isRollupEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isRolledup -}
-isRolledup :: HG3DClass -> IO (Bool)
-isRolledup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isRolledup'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function getSizingBorderThickness -}
-getSizingBorderThickness :: HG3DClass -> IO (Float)
-getSizingBorderThickness a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSizingBorderThickness'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setSizingEnabled -}
-setSizingEnabled :: HG3DClass -> Bool -> IO ()
-setSizingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSizingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setFrameEnabled -}
-setFrameEnabled :: HG3DClass -> Bool -> IO ()
-setFrameEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setFrameEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setTitleBarEnabled -}
-setTitleBarEnabled :: HG3DClass -> Bool -> IO ()
-setTitleBarEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setTitleBarEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setCloseButtonEnabled -}
-setCloseButtonEnabled :: HG3DClass -> Bool -> IO ()
-setCloseButtonEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setCloseButtonEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setRollupEnabled -}
-setRollupEnabled :: HG3DClass -> Bool -> IO ()
-setRollupEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setRollupEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function toggleRollup -}
-toggleRollup :: HG3DClass -> IO ()
-toggleRollup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  toggleRollup'_ a1' >>= \res ->
-  return ()
-{-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setSizingBorderThickness -}
-setSizingBorderThickness :: HG3DClass -> Float -> IO ()
-setSizingBorderThickness a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setSizingBorderThickness'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function isDragMovingEnabled -}
-isDragMovingEnabled :: HG3DClass -> IO (Bool)
-isDragMovingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDragMovingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setDragMovingEnabled -}
-setDragMovingEnabled :: HG3DClass -> Bool -> IO ()
-setDragMovingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDragMovingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setNSSizingCursorImage2 -}
-setNSSizingCursorImage2 :: HG3DClass -> String -> String -> IO ()
-setNSSizingCursorImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setNSSizingCursorImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setEWSizingCursorImage2 -}
-setEWSizingCursorImage2 :: HG3DClass -> String -> String -> IO ()
-setEWSizingCursorImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setEWSizingCursorImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setNWSESizingCursorImage2 -}
-setNWSESizingCursorImage2 :: HG3DClass -> String -> String -> IO ()
-setNWSESizingCursorImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setNWSESizingCursorImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function setNESWSizingCursorImage2 -}
-setNESWSizingCursorImage2 :: HG3DClass -> String -> String -> IO ()
-setNESWSizingCursorImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setNESWSizingCursorImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 150 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function getCloseButton -}
-getCloseButton :: HG3DClass -> IO (HG3DClass)
-getCloseButton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCloseButton'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 155 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function FrameWindow -}
-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 161 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-{- function ~FrameWindow -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 165 ".\\HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isSizingEnabled"
-  isSizingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isFrameEnabled"
-  isFrameEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isTitleBarEnabled"
-  isTitleBarEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isCloseButtonEnabled"
-  isCloseButtonEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isRollupEnabled"
-  isRollupEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isRolledup"
-  isRolledup'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_getSizingBorderThickness"
-  getSizingBorderThickness'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setSizingEnabled"
-  setSizingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setFrameEnabled"
-  setFrameEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setTitleBarEnabled"
-  setTitleBarEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setCloseButtonEnabled"
-  setCloseButtonEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setRollupEnabled"
-  setRollupEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_toggleRollup"
-  toggleRollup'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setSizingBorderThickness"
-  setSizingBorderThickness'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_isDragMovingEnabled"
-  isDragMovingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setDragMovingEnabled"
-  setDragMovingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setNSSizingCursorImage2"
-  setNSSizingCursorImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setEWSizingCursorImage2"
-  setEWSizingCursorImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setNWSESizingCursorImage2"
-  setNWSESizingCursorImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_setNESWSizingCursorImage2"
-  setNESWSizingCursorImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_getCloseButton"
-  getCloseButton'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassFrameWindow.chs.h cegui_frmwndw_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassHG3DEventController.chs view
@@ -0,0 +1,70 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassHG3DEventController.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassHG3DEventController where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassHG3DEventController.h"
+{- function HG3DEventController -}+{#fun construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~HG3DEventController -}+{#fun destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function pushEvent -}+{#fun pushEvent as pushEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function eventsAvailable -}+{#fun eventsAvailable as eventsAvailable +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function popEvent -}+{#fun popEvent as popEvent +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*,+ alloc64k- `String' peekCString*,+ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassHG3DEventController.hs 
@@ -1,117 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassHG3DEventController.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassHG3DEventController where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-
-{- function HG3DEventController -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-
-{- function ~HG3DEventController -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-
-{- function pushEvent -}
-pushEvent :: HG3DClass -> String -> String -> HG3DClass -> IO ()
-pushEvent a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withHG3DClass a4 $ \a4' -> 
-  pushEvent'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-
-{- function eventsAvailable -}
-eventsAvailable :: HG3DClass -> IO (Bool)
-eventsAvailable a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  eventsAvailable'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-
-{- function popEvent -}
-popEvent :: HG3DClass -> IO (String, String, HG3DClass)
-popEvent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  alloc64k $ \a3' -> 
-  alloca $ \a4' -> 
-  popEvent'_ a1' a2' a3' a4' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  peekCString  a3'>>= \a3'' -> 
-  peek  a4'>>= \a4'' -> 
-  return (a2'', a3'', a4'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h pushEvent"
-  pushEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h eventsAvailable"
-  eventsAvailable'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventController.chs.h popEvent"
-  popEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
+ HGamer3D/Bindings/CEGUI/ClassHG3DEventStaticFunctions.chs view
@@ -0,0 +1,49 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassHG3DEventStaticFunctions.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassHG3DEventStaticFunctions where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassHG3DEventStaticFunctions.h"
+{- function subscribeScriptedEvent -}+{#fun cegui_hg3devtsf_subscribeScriptedEvent as subscribeScriptedEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassHG3DEventStaticFunctions.hs 
@@ -1,63 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassHG3DEventStaticFunctions.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassHG3DEventStaticFunctions where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs" #-}
-
-{- function subscribeScriptedEvent -}
-subscribeScriptedEvent :: HG3DClass -> String -> String -> IO ()
-subscribeScriptedEvent a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  subscribeScriptedEvent'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DEventStaticFunctions.chs.h cegui_hg3devtsf_subscribeScriptedEvent"
-  subscribeScriptedEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassHG3DListboxStaticFunctions.chs view
@@ -0,0 +1,53 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassHG3DListboxStaticFunctions.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassHG3DListboxStaticFunctions where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassHG3DListboxStaticFunctions.h"
+{- function listboxAddItem -}+{#fun cegui_hg3dlstbxsf_listboxAddItem as listboxAddItem +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function comboboxAddItem -}+{#fun cegui_hg3dlstbxsf_comboboxAddItem as comboboxAddItem +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassHG3DListboxStaticFunctions.hs 
@@ -1,74 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassHG3DListboxStaticFunctions.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassHG3DListboxStaticFunctions where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-}
-
-{- function listboxAddItem -}
-listboxAddItem :: HG3DClass -> String -> IO ()
-listboxAddItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  listboxAddItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-}
-
-{- function comboboxAddItem -}
-comboboxAddItem :: HG3DClass -> String -> IO ()
-comboboxAddItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  comboboxAddItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs.h cegui_hg3dlstbxsf_listboxAddItem"
-  listboxAddItem'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DListboxStaticFunctions.chs.h cegui_hg3dlstbxsf_comboboxAddItem"
-  comboboxAddItem'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassHG3DWindowStaticFunctions.chs view
@@ -0,0 +1,98 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassHG3DWindowStaticFunctions.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassHG3DWindowStaticFunctions where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassHG3DWindowStaticFunctions.h"
+{- function castWindowToPushButton -}+{#fun cegui_hg3dwsfs_castWindowToPushButton as castWindowToPushButton +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToListbox -}+{#fun cegui_hg3dwsfs_castWindowToListbox as castWindowToListbox +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToCombobox -}+{#fun cegui_hg3dwsfs_castWindowToCombobox as castWindowToCombobox +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToRadioButton -}+{#fun cegui_hg3dwsfs_castWindowToRadioButton as castWindowToRadioButton +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToEditbox -}+{#fun cegui_hg3dwsfs_castWindowToEditbox as castWindowToEditbox +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToMultiLineEditbox -}+{#fun cegui_hg3dwsfs_castWindowToMultiLineEditbox as castWindowToMultiLineEditbox +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToFrameWindow -}+{#fun cegui_hg3dwsfs_castWindowToFrameWindow as castWindowToFrameWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToProgressBar -}+{#fun cegui_hg3dwsfs_castWindowToProgressBar as castWindowToProgressBar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToSlider -}+{#fun cegui_hg3dwsfs_castWindowToSlider as castWindowToSlider +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToSpinner -}+{#fun cegui_hg3dwsfs_castWindowToSpinner as castWindowToSpinner +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function castWindowToMultiColumnList -}+{#fun cegui_hg3dwsfs_castWindowToMultiColumnList as castWindowToMultiColumnList +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassHG3DWindowStaticFunctions.hs 
@@ -1,206 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassHG3DWindowStaticFunctions.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassHG3DWindowStaticFunctions where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToPushButton -}
-castWindowToPushButton :: HG3DClass -> IO (HG3DClass)
-castWindowToPushButton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToPushButton'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToListbox -}
-castWindowToListbox :: HG3DClass -> IO (HG3DClass)
-castWindowToListbox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToListbox'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToCombobox -}
-castWindowToCombobox :: HG3DClass -> IO (HG3DClass)
-castWindowToCombobox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToCombobox'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToCheckbox -}
-castWindowToCheckbox :: HG3DClass -> IO (HG3DClass)
-castWindowToCheckbox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToCheckbox'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToRadioButton -}
-castWindowToRadioButton :: HG3DClass -> IO (HG3DClass)
-castWindowToRadioButton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToRadioButton'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToEditbox -}
-castWindowToEditbox :: HG3DClass -> IO (HG3DClass)
-castWindowToEditbox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToEditbox'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToMultiLineEditbox -}
-castWindowToMultiLineEditbox :: HG3DClass -> IO (HG3DClass)
-castWindowToMultiLineEditbox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToMultiLineEditbox'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToFrameWindow -}
-castWindowToFrameWindow :: HG3DClass -> IO (HG3DClass)
-castWindowToFrameWindow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToFrameWindow'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToProgressBar -}
-castWindowToProgressBar :: HG3DClass -> IO (HG3DClass)
-castWindowToProgressBar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToProgressBar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToSlider -}
-castWindowToSlider :: HG3DClass -> IO (HG3DClass)
-castWindowToSlider a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToSlider'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToSpinner -}
-castWindowToSpinner :: HG3DClass -> IO (HG3DClass)
-castWindowToSpinner a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToSpinner'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-{- function castWindowToMultiColumnList -}
-castWindowToMultiColumnList :: HG3DClass -> IO (HG3DClass)
-castWindowToMultiColumnList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  castWindowToMultiColumnList'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToPushButton"
-  castWindowToPushButton'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToListbox"
-  castWindowToListbox'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToCombobox"
-  castWindowToCombobox'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToCheckbox"
-  castWindowToCheckbox'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToRadioButton"
-  castWindowToRadioButton'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToEditbox"
-  castWindowToEditbox'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToMultiLineEditbox"
-  castWindowToMultiLineEditbox'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToFrameWindow"
-  castWindowToFrameWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToProgressBar"
-  castWindowToProgressBar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToSlider"
-  castWindowToSlider'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToSpinner"
-  castWindowToSpinner'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassHG3DWindowStaticFunctions.chs.h cegui_hg3dwsfs_castWindowToMultiColumnList"
-  castWindowToMultiColumnList'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassImageCodec.chs view
@@ -0,0 +1,57 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassImageCodec.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassImageCodec where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassImageCodec.h"
+{- function ~ImageCodec -}+{#fun cegui_imgcdc_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getIdentifierString -}+{#fun cegui_imgcdc_getIdentifierString as getIdentifierString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getSupportedFormat -}+{#fun cegui_imgcdc_getSupportedFormat as getSupportedFormat +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassImageCodec.hs 
@@ -1,87 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassImageCodec.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassImageCodec where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}
-
-{- function ~ImageCodec -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}
-
-{- function getIdentifierString -}
-getIdentifierString :: HG3DClass -> IO (String)
-getIdentifierString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getIdentifierString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}
-
-{- function getSupportedFormat -}
-getSupportedFormat :: HG3DClass -> IO (String)
-getSupportedFormat a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getSupportedFormat'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs.h cegui_imgcdc_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs.h cegui_imgcdc_getIdentifierString"
-  getIdentifierString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageCodec.chs.h cegui_imgcdc_getSupportedFormat"
-  getSupportedFormat'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassImageset.chs view
@@ -0,0 +1,121 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassImageset.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassImageset where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassImageset.h"
+{- function Imageset2 -}+{#fun cegui_imgst_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Imageset -}+{#fun cegui_imgst_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun cegui_imgst_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getImageCount -}+{#fun cegui_imgst_getImageCount as getImageCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isImageDefined -}+{#fun cegui_imgst_isImageDefined as isImageDefined +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function undefineImage -}+{#fun cegui_imgst_undefineImage as undefineImage +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function undefineAllImages -}+{#fun cegui_imgst_undefineAllImages as undefineAllImages +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getImageWidth -}+{#fun cegui_imgst_getImageWidth as getImageWidth +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getImageHeight -}+{#fun cegui_imgst_getImageHeight as getImageHeight +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getImageOffsetX -}+{#fun cegui_imgst_getImageOffsetX as getImageOffsetX +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getImageOffsetY -}+{#fun cegui_imgst_getImageOffsetY as getImageOffsetY +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function isAutoScaled -}+{#fun cegui_imgst_isAutoScaled as isAutoScaled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setAutoScalingEnabled -}+{#fun cegui_imgst_setAutoScalingEnabled as setAutoScalingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_imgst_setDefaultResourceGroup as setDefaultResourceGroup +{ withCString* `String' } -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_imgst_getDefaultResourceGroup as getDefaultResourceGroup +{ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassImageset.hs 
@@ -1,243 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassImageset.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassImageset where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function Imageset2 -}
-new :: String -> String -> String -> IO (HG3DClass)
-new a1 a2 a3 =
-  withCString a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  new'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function ~Imageset -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getImageCount -}
-getImageCount :: HG3DClass -> IO (Int)
-getImageCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getImageCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function isImageDefined -}
-isImageDefined :: HG3DClass -> String -> IO (Bool)
-isImageDefined a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isImageDefined'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function undefineImage -}
-undefineImage :: HG3DClass -> String -> IO ()
-undefineImage a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  undefineImage'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function undefineAllImages -}
-undefineAllImages :: HG3DClass -> IO ()
-undefineAllImages a1 =
-  withHG3DClass a1 $ \a1' -> 
-  undefineAllImages'_ a1' >>= \res ->
-  return ()
-{-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getImageWidth -}
-getImageWidth :: HG3DClass -> String -> IO (Float)
-getImageWidth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getImageWidth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getImageHeight -}
-getImageHeight :: HG3DClass -> String -> IO (Float)
-getImageHeight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getImageHeight'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getImageOffsetX -}
-getImageOffsetX :: HG3DClass -> String -> IO (Float)
-getImageOffsetX a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getImageOffsetX'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getImageOffsetY -}
-getImageOffsetY :: HG3DClass -> String -> IO (Float)
-getImageOffsetY a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getImageOffsetY'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function isAutoScaled -}
-isAutoScaled :: HG3DClass -> IO (Bool)
-isAutoScaled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAutoScaled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function setAutoScalingEnabled -}
-setAutoScalingEnabled :: HG3DClass -> Bool -> IO ()
-setAutoScalingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoScalingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: String -> IO ()
-setDefaultResourceGroup a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultResourceGroup'_ a1' >>= \res ->
-  return ()
-{-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: IO (String)
-getDefaultResourceGroup =
-  alloc64k $ \a1' -> 
-  getDefaultResourceGroup'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getImageCount"
-  getImageCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_isImageDefined"
-  isImageDefined'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_undefineImage"
-  undefineImage'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_undefineAllImages"
-  undefineAllImages'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getImageWidth"
-  getImageWidth'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getImageHeight"
-  getImageHeight'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getImageOffsetX"
-  getImageOffsetX'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getImageOffsetY"
-  getImageOffsetY'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_isAutoScaled"
-  isAutoScaled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_setAutoScalingEnabled"
-  setAutoScalingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassImageset.chs.h cegui_imgst_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassItemEntry.chs view
@@ -0,0 +1,87 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassItemEntry.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassItemEntry where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassItemEntry.h"
+{- function isSelected -}+{#fun cegui_itmentr_isSelected as isSelected +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isSelectable -}+{#fun cegui_itmentr_isSelectable as isSelectable +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setSelected -}+{#fun cegui_itmentr_setSelected as setSelected +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function select -}+{#fun cegui_itmentr_select as select +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function deselect -}+{#fun cegui_itmentr_deselect as deselect +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSelected_impl -}+{#fun cegui_itmentr_setSelected_impl as setSelectedImpl +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ fromBool `Bool' } -> `()'  #}++{- function setSelectable -}+{#fun cegui_itmentr_setSelectable as setSelectable +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function ItemEntry -}+{#fun cegui_itmentr_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ItemEntry -}+{#fun cegui_itmentr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassItemEntry.hs 
@@ -1,160 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassItemEntry.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassItemEntry where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function isSelected -}
-isSelected :: HG3DClass -> IO (Bool)
-isSelected a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSelected'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function isSelectable -}
-isSelectable :: HG3DClass -> IO (Bool)
-isSelectable a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSelectable'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function setSelected -}
-setSelected :: HG3DClass -> Bool -> IO ()
-setSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSelected'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function select -}
-select :: HG3DClass -> IO ()
-select a1 =
-  withHG3DClass a1 $ \a1' -> 
-  select'_ a1' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function deselect -}
-deselect :: HG3DClass -> IO ()
-deselect a1 =
-  withHG3DClass a1 $ \a1' -> 
-  deselect'_ a1' >>= \res ->
-  return ()
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function setSelected_impl -}
-setSelectedImpl :: HG3DClass -> Bool -> Bool -> IO ()
-setSelectedImpl a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = fromBool a3} in 
-  setSelectedImpl'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function setSelectable -}
-setSelectable :: HG3DClass -> Bool -> IO ()
-setSelectable a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSelectable'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function ItemEntry -}
-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 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-{- function ~ItemEntry -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_isSelected"
-  isSelected'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_isSelectable"
-  isSelectable'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_setSelected"
-  setSelected'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_select"
-  select'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_deselect"
-  deselect'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_setSelected_impl"
-  setSelectedImpl'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_setSelectable"
-  setSelectable'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemEntry.chs.h cegui_itmentr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassItemListbox.chs view
@@ -0,0 +1,135 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassItemListbox.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassItemListbox where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassItemListbox.h"
+{- function getSelectedCount -}+{#fun cegui_itmlstbx_getSelectedCount as getSelectedCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getLastSelectedItem -}+{#fun cegui_itmlstbx_getLastSelectedItem as getLastSelectedItem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getFirstSelectedItem -}+{#fun cegui_itmlstbx_getFirstSelectedItem as getFirstSelectedItem +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNextSelectedItem -}+{#fun cegui_itmlstbx_getNextSelectedItem as getNextSelectedItem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNextSelectedItemAfter -}+{#fun cegui_itmlstbx_getNextSelectedItemAfter as getNextSelectedItemAfter +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isMultiSelectEnabled -}+{#fun cegui_itmlstbx_isMultiSelectEnabled as isMultiSelectEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isItemSelected -}+{#fun cegui_itmlstbx_isItemSelected as isItemSelected +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_itmlstbx_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setMultiSelectEnabled -}+{#fun cegui_itmlstbx_setMultiSelectEnabled as setMultiSelectEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function clearAllSelections -}+{#fun cegui_itmlstbx_clearAllSelections as clearAllSelections +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function selectRange -}+{#fun cegui_itmlstbx_selectRange as selectRange +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function selectAllItems -}+{#fun cegui_itmlstbx_selectAllItems as selectAllItems +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function ItemListbox -}+{#fun cegui_itmlstbx_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ItemListbox -}+{#fun cegui_itmlstbx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function layoutItemWidgets -}+{#fun cegui_itmlstbx_layoutItemWidgets as layoutItemWidgets +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function testClassName_impl -}+{#fun cegui_itmlstbx_testClassName_impl as testClassNameImpl +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function notifyItemClicked -}+{#fun cegui_itmlstbx_notifyItemClicked as notifyItemClicked +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function notifyItemSelectState -}+{#fun cegui_itmlstbx_notifyItemSelectState as notifyItemSelectState +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassItemListbox.hs 
@@ -1,277 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassItemListbox.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassItemListbox where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function getSelectedCount -}
-getSelectedCount :: HG3DClass -> IO (Int)
-getSelectedCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectedCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function getLastSelectedItem -}
-getLastSelectedItem :: HG3DClass -> IO (HG3DClass)
-getLastSelectedItem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLastSelectedItem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function getFirstSelectedItem -}
-getFirstSelectedItem :: HG3DClass -> Int -> IO (HG3DClass)
-getFirstSelectedItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getFirstSelectedItem'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function getNextSelectedItem -}
-getNextSelectedItem :: HG3DClass -> IO (HG3DClass)
-getNextSelectedItem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNextSelectedItem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function getNextSelectedItemAfter -}
-getNextSelectedItemAfter :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-getNextSelectedItemAfter a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getNextSelectedItemAfter'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function isMultiSelectEnabled -}
-isMultiSelectEnabled :: HG3DClass -> IO (Bool)
-isMultiSelectEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isMultiSelectEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function isItemSelected -}
-isItemSelected :: HG3DClass -> Int -> IO (Bool)
-isItemSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  isItemSelected'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function setMultiSelectEnabled -}
-setMultiSelectEnabled :: HG3DClass -> Bool -> IO ()
-setMultiSelectEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setMultiSelectEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function clearAllSelections -}
-clearAllSelections :: HG3DClass -> IO ()
-clearAllSelections a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearAllSelections'_ a1' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function selectRange -}
-selectRange :: HG3DClass -> Int -> Int -> IO ()
-selectRange a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  selectRange'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function selectAllItems -}
-selectAllItems :: HG3DClass -> IO ()
-selectAllItems a1 =
-  withHG3DClass a1 $ \a1' -> 
-  selectAllItems'_ a1' >>= \res ->
-  return ()
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function ItemListbox -}
-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 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function ~ItemListbox -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function layoutItemWidgets -}
-layoutItemWidgets :: HG3DClass -> IO ()
-layoutItemWidgets a1 =
-  withHG3DClass a1 $ \a1' -> 
-  layoutItemWidgets'_ a1' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function testClassName_impl -}
-testClassNameImpl :: HG3DClass -> String -> IO (Bool)
-testClassNameImpl a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  testClassNameImpl'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function notifyItemClicked -}
-notifyItemClicked :: HG3DClass -> HG3DClass -> IO ()
-notifyItemClicked a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  notifyItemClicked'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-{- function notifyItemSelectState -}
-notifyItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO ()
-notifyItemSelectState a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  notifyItemSelectState'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 135 ".\\HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_getSelectedCount"
-  getSelectedCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_getLastSelectedItem"
-  getLastSelectedItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_getFirstSelectedItem"
-  getFirstSelectedItem'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_getNextSelectedItem"
-  getNextSelectedItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_getNextSelectedItemAfter"
-  getNextSelectedItemAfter'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_isMultiSelectEnabled"
-  isMultiSelectEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_isItemSelected"
-  isItemSelected'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_setMultiSelectEnabled"
-  setMultiSelectEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_clearAllSelections"
-  clearAllSelections'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_selectRange"
-  selectRange'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_selectAllItems"
-  selectAllItems'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_layoutItemWidgets"
-  layoutItemWidgets'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_testClassName_impl"
-  testClassNameImpl'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_notifyItemClicked"
-  notifyItemClicked'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassItemListbox.chs.h cegui_itmlstbx_notifyItemSelectState"
-  notifyItemSelectState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassListHeader.chs view
@@ -0,0 +1,215 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassListHeader.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassListHeader where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumSortDirection #}+
+#include "ClassListHeader.h"
+{- function getColumnCount -}+{#fun cegui_lsthdr_getColumnCount as getColumnCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSegmentFromColumn -}+{#fun cegui_lsthdr_getSegmentFromColumn as getSegmentFromColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSegmentFromID -}+{#fun cegui_lsthdr_getSegmentFromID as getSegmentFromID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSortSegment -}+{#fun cegui_lsthdr_getSortSegment as getSortSegment +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getColumnFromSegment -}+{#fun cegui_lsthdr_getColumnFromSegment as getColumnFromSegment +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getColumnFromID -}+{#fun cegui_lsthdr_getColumnFromID as getColumnFromID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSortColumn -}+{#fun cegui_lsthdr_getSortColumn as getSortColumn +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getColumnWithText -}+{#fun cegui_lsthdr_getColumnWithText as getColumnWithText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getPixelOffsetToSegment -}+{#fun cegui_lsthdr_getPixelOffsetToSegment as getPixelOffsetToSegment +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getPixelOffsetToColumn -}+{#fun cegui_lsthdr_getPixelOffsetToColumn as getPixelOffsetToColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getTotalSegmentsPixelExtent -}+{#fun cegui_lsthdr_getTotalSegmentsPixelExtent as getTotalSegmentsPixelExtent +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getSortDirection -}+{#fun cegui_lsthdr_getSortDirection as getSortDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumSortDirection' peekEnumUtil*} -> `()'  #}++{- function isSortingEnabled -}+{#fun cegui_lsthdr_isSortingEnabled as isSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isColumnSizingEnabled -}+{#fun cegui_lsthdr_isColumnSizingEnabled as isColumnSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isColumnDraggingEnabled -}+{#fun cegui_lsthdr_isColumnDraggingEnabled as isColumnDraggingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSegmentOffset -}+{#fun cegui_lsthdr_getSegmentOffset as getSegmentOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setSortingEnabled -}+{#fun cegui_lsthdr_setSortingEnabled as setSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setSortDirection -}+{#fun cegui_lsthdr_setSortDirection as setSortDirection +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSortDirection' } -> `()'  #}++{- function setSortSegment -}+{#fun cegui_lsthdr_setSortSegment as setSortSegment +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSortColumn -}+{#fun cegui_lsthdr_setSortColumn as setSortColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSortColumnFromID -}+{#fun cegui_lsthdr_setSortColumnFromID as setSortColumnFromID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setColumnSizingEnabled -}+{#fun cegui_lsthdr_setColumnSizingEnabled as setColumnSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setColumnDraggingEnabled -}+{#fun cegui_lsthdr_setColumnDraggingEnabled as setColumnDraggingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function removeColumn -}+{#fun cegui_lsthdr_removeColumn as removeColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeSegment -}+{#fun cegui_lsthdr_removeSegment as removeSegment +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function moveColumn -}+{#fun cegui_lsthdr_moveColumn as moveColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function moveColumn2 -}+{#fun cegui_lsthdr_moveColumn2 as moveColumn2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function moveSegment -}+{#fun cegui_lsthdr_moveSegment as moveSegment +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function moveSegment2 -}+{#fun cegui_lsthdr_moveSegment2 as moveSegment2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSegmentOffset -}+{#fun cegui_lsthdr_setSegmentOffset as setSegmentOffset +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function ListHeader -}+{#fun cegui_lsthdr_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ListHeader -}+{#fun cegui_lsthdr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassListHeader.hs 
@@ -1,464 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassListHeader.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassListHeader where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumSortDirection
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getColumnCount -}
-getColumnCount :: HG3DClass -> IO (Int)
-getColumnCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getColumnCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getSegmentFromColumn -}
-getSegmentFromColumn :: HG3DClass -> Int -> IO (HG3DClass)
-getSegmentFromColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getSegmentFromColumn'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getSegmentFromID -}
-getSegmentFromID :: HG3DClass -> Int -> IO (HG3DClass)
-getSegmentFromID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getSegmentFromID'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getSortSegment -}
-getSortSegment :: HG3DClass -> IO (HG3DClass)
-getSortSegment a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortSegment'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getColumnFromSegment -}
-getColumnFromSegment :: HG3DClass -> HG3DClass -> IO (Int)
-getColumnFromSegment a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getColumnFromSegment'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getColumnFromID -}
-getColumnFromID :: HG3DClass -> Int -> IO (Int)
-getColumnFromID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getColumnFromID'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getSortColumn -}
-getSortColumn :: HG3DClass -> IO (Int)
-getSortColumn a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortColumn'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getColumnWithText -}
-getColumnWithText :: HG3DClass -> String -> IO (Int)
-getColumnWithText a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getColumnWithText'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getPixelOffsetToSegment -}
-getPixelOffsetToSegment :: HG3DClass -> HG3DClass -> IO (Float)
-getPixelOffsetToSegment a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getPixelOffsetToSegment'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 95 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getPixelOffsetToColumn -}
-getPixelOffsetToColumn :: HG3DClass -> Int -> IO (Float)
-getPixelOffsetToColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getPixelOffsetToColumn'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getTotalSegmentsPixelExtent -}
-getTotalSegmentsPixelExtent :: HG3DClass -> IO (Float)
-getTotalSegmentsPixelExtent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTotalSegmentsPixelExtent'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getSortDirection -}
-getSortDirection :: HG3DClass -> IO (EnumSortDirection)
-getSortDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortDirection'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function isSortingEnabled -}
-isSortingEnabled :: HG3DClass -> IO (Bool)
-isSortingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSortingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function isColumnSizingEnabled -}
-isColumnSizingEnabled :: HG3DClass -> IO (Bool)
-isColumnSizingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isColumnSizingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function isColumnDraggingEnabled -}
-isColumnDraggingEnabled :: HG3DClass -> IO (Bool)
-isColumnDraggingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isColumnDraggingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function getSegmentOffset -}
-getSegmentOffset :: HG3DClass -> IO (Float)
-getSegmentOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSegmentOffset'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 131 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setSortingEnabled -}
-setSortingEnabled :: HG3DClass -> Bool -> IO ()
-setSortingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSortingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 136 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setSortDirection -}
-setSortDirection :: HG3DClass -> EnumSortDirection -> IO ()
-setSortDirection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setSortDirection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 141 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setSortSegment -}
-setSortSegment :: HG3DClass -> HG3DClass -> IO ()
-setSortSegment a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setSortSegment'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setSortColumn -}
-setSortColumn :: HG3DClass -> Int -> IO ()
-setSortColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setSortColumn'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 151 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setSortColumnFromID -}
-setSortColumnFromID :: HG3DClass -> Int -> IO ()
-setSortColumnFromID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setSortColumnFromID'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 156 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setColumnSizingEnabled -}
-setColumnSizingEnabled :: HG3DClass -> Bool -> IO ()
-setColumnSizingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setColumnSizingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 161 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setColumnDraggingEnabled -}
-setColumnDraggingEnabled :: HG3DClass -> Bool -> IO ()
-setColumnDraggingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setColumnDraggingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 166 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function removeColumn -}
-removeColumn :: HG3DClass -> Int -> IO ()
-removeColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeColumn'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 171 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function removeSegment -}
-removeSegment :: HG3DClass -> HG3DClass -> IO ()
-removeSegment a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  removeSegment'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 176 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function moveColumn -}
-moveColumn :: HG3DClass -> Int -> Int -> IO ()
-moveColumn a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  moveColumn'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 182 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function moveColumn2 -}
-moveColumn2 :: HG3DClass -> Int -> HG3DClass -> IO ()
-moveColumn2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withHG3DClass a3 $ \a3' -> 
-  moveColumn2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 188 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function moveSegment -}
-moveSegment :: HG3DClass -> HG3DClass -> Int -> IO ()
-moveSegment a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  moveSegment'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function moveSegment2 -}
-moveSegment2 :: HG3DClass -> HG3DClass -> HG3DClass -> IO ()
-moveSegment2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  moveSegment2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 200 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function setSegmentOffset -}
-setSegmentOffset :: HG3DClass -> Float -> IO ()
-setSegmentOffset a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setSegmentOffset'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function ListHeader -}
-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 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-{- function ~ListHeader -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 215 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnCount"
-  getColumnCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSegmentFromColumn"
-  getSegmentFromColumn'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSegmentFromID"
-  getSegmentFromID'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSortSegment"
-  getSortSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnFromSegment"
-  getColumnFromSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnFromID"
-  getColumnFromID'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSortColumn"
-  getSortColumn'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getColumnWithText"
-  getColumnWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getPixelOffsetToSegment"
-  getPixelOffsetToSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getPixelOffsetToColumn"
-  getPixelOffsetToColumn'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getTotalSegmentsPixelExtent"
-  getTotalSegmentsPixelExtent'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSortDirection"
-  getSortDirection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_isSortingEnabled"
-  isSortingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_isColumnSizingEnabled"
-  isColumnSizingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_isColumnDraggingEnabled"
-  isColumnDraggingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_getSegmentOffset"
-  getSegmentOffset'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortingEnabled"
-  setSortingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortDirection"
-  setSortDirection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortSegment"
-  setSortSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortColumn"
-  setSortColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSortColumnFromID"
-  setSortColumnFromID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setColumnSizingEnabled"
-  setColumnSizingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setColumnDraggingEnabled"
-  setColumnDraggingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_removeColumn"
-  removeColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_removeSegment"
-  removeSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveColumn"
-  moveColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveColumn2"
-  moveColumn2'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveSegment"
-  moveSegment'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_moveSegment2"
-  moveSegment2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_setSegmentOffset"
-  setSegmentOffset'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeader.chs.h cegui_lsthdr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassListHeaderSegment.chs view
@@ -0,0 +1,131 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassListHeaderSegment.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassListHeaderSegment where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumSortDirection #}+
+#include "ClassListHeaderSegment.h"
+{- function isSizingEnabled -}+{#fun cegui_lsthdrsgm_isSizingEnabled as isSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSortDirection -}+{#fun cegui_lsthdrsgm_getSortDirection as getSortDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumSortDirection' peekEnumUtil*} -> `()'  #}++{- function isDragMovingEnabled -}+{#fun cegui_lsthdrsgm_isDragMovingEnabled as isDragMovingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isClickable -}+{#fun cegui_lsthdrsgm_isClickable as isClickable +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isSegmentHovering -}+{#fun cegui_lsthdrsgm_isSegmentHovering as isSegmentHovering +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isSegmentPushed -}+{#fun cegui_lsthdrsgm_isSegmentPushed as isSegmentPushed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isSplitterHovering -}+{#fun cegui_lsthdrsgm_isSplitterHovering as isSplitterHovering +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isBeingDragMoved -}+{#fun cegui_lsthdrsgm_isBeingDragMoved as isBeingDragMoved +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isBeingDragSized -}+{#fun cegui_lsthdrsgm_isBeingDragSized as isBeingDragSized +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setSizingEnabled -}+{#fun cegui_lsthdrsgm_setSizingEnabled as setSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setSortDirection -}+{#fun cegui_lsthdrsgm_setSortDirection as setSortDirection +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSortDirection' } -> `()'  #}++{- function setDragMovingEnabled -}+{#fun cegui_lsthdrsgm_setDragMovingEnabled as setDragMovingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setClickable -}+{#fun cegui_lsthdrsgm_setClickable as setClickable +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setSizingCursorImage2 -}+{#fun cegui_lsthdrsgm_setSizingCursorImage2 as setSizingCursorImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setMovingCursorImage2 -}+{#fun cegui_lsthdrsgm_setMovingCursorImage2 as setMovingCursorImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function ListHeaderSegment -}+{#fun cegui_lsthdrsgm_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ListHeaderSegment -}+{#fun cegui_lsthdrsgm_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassListHeaderSegment.hs 
@@ -1,268 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassListHeaderSegment.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassListHeaderSegment where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumSortDirection
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isSizingEnabled -}
-isSizingEnabled :: HG3DClass -> IO (Bool)
-isSizingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSizingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function getSortDirection -}
-getSortDirection :: HG3DClass -> IO (EnumSortDirection)
-getSortDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortDirection'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isDragMovingEnabled -}
-isDragMovingEnabled :: HG3DClass -> IO (Bool)
-isDragMovingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDragMovingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isClickable -}
-isClickable :: HG3DClass -> IO (Bool)
-isClickable a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isClickable'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isSegmentHovering -}
-isSegmentHovering :: HG3DClass -> IO (Bool)
-isSegmentHovering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSegmentHovering'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isSegmentPushed -}
-isSegmentPushed :: HG3DClass -> IO (Bool)
-isSegmentPushed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSegmentPushed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 74 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isSplitterHovering -}
-isSplitterHovering :: HG3DClass -> IO (Bool)
-isSplitterHovering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSplitterHovering'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isBeingDragMoved -}
-isBeingDragMoved :: HG3DClass -> IO (Bool)
-isBeingDragMoved a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isBeingDragMoved'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function isBeingDragSized -}
-isBeingDragSized :: HG3DClass -> IO (Bool)
-isBeingDragSized a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isBeingDragSized'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function setSizingEnabled -}
-setSizingEnabled :: HG3DClass -> Bool -> IO ()
-setSizingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSizingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function setSortDirection -}
-setSortDirection :: HG3DClass -> EnumSortDirection -> IO ()
-setSortDirection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setSortDirection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 99 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function setDragMovingEnabled -}
-setDragMovingEnabled :: HG3DClass -> Bool -> IO ()
-setDragMovingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDragMovingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function setClickable -}
-setClickable :: HG3DClass -> Bool -> IO ()
-setClickable a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setClickable'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 109 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function setSizingCursorImage2 -}
-setSizingCursorImage2 :: HG3DClass -> String -> String -> IO ()
-setSizingCursorImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setSizingCursorImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function setMovingCursorImage2 -}
-setMovingCursorImage2 :: HG3DClass -> String -> String -> IO ()
-setMovingCursorImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setMovingCursorImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 121 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function ListHeaderSegment -}
-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 127 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-{- function ~ListHeaderSegment -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 131 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isSizingEnabled"
-  isSizingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_getSortDirection"
-  getSortDirection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isDragMovingEnabled"
-  isDragMovingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isClickable"
-  isClickable'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isSegmentHovering"
-  isSegmentHovering'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isSegmentPushed"
-  isSegmentPushed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isSplitterHovering"
-  isSplitterHovering'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isBeingDragMoved"
-  isBeingDragMoved'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_isBeingDragSized"
-  isBeingDragSized'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_setSizingEnabled"
-  setSizingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_setSortDirection"
-  setSortDirection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_setDragMovingEnabled"
-  setDragMovingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_setClickable"
-  setClickable'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_setSizingCursorImage2"
-  setSizingCursorImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_setMovingCursorImage2"
-  setMovingCursorImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListHeaderSegment.chs.h cegui_lsthdrsgm_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassListbox.chs view
@@ -0,0 +1,229 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassListbox.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassListbox where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassListbox.h"
+{- function getItemCount -}+{#fun cegui_lstbx_getItemCount as getItemCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectedCount -}+{#fun cegui_lstbx_getSelectedCount as getSelectedCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getFirstSelectedItem -}+{#fun cegui_lstbx_getFirstSelectedItem as getFirstSelectedItem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNextSelected -}+{#fun cegui_lstbx_getNextSelected as getNextSelected +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getListboxItemFromIndex -}+{#fun cegui_lstbx_getListboxItemFromIndex as getListboxItemFromIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getItemIndex -}+{#fun cegui_lstbx_getItemIndex as getItemIndex +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isSortEnabled -}+{#fun cegui_lstbx_isSortEnabled as isSortEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isMultiselectEnabled -}+{#fun cegui_lstbx_isMultiselectEnabled as isMultiselectEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isItemTooltipsEnabled -}+{#fun cegui_lstbx_isItemTooltipsEnabled as isItemTooltipsEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isItemSelected -}+{#fun cegui_lstbx_isItemSelected as isItemSelected +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function findItemWithText -}+{#fun cegui_lstbx_findItemWithText as findItemWithText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isListboxItemInList -}+{#fun cegui_lstbx_isListboxItemInList as isListboxItemInList +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVertScrollbarAlwaysShown -}+{#fun cegui_lstbx_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHorzScrollbarAlwaysShown -}+{#fun cegui_lstbx_isHorzScrollbarAlwaysShown as isHorzScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_lstbx_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resetList -}+{#fun cegui_lstbx_resetList as resetList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function addItem -}+{#fun cegui_lstbx_addItem as addItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function insertItem -}+{#fun cegui_lstbx_insertItem as insertItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeItem -}+{#fun cegui_lstbx_removeItem as removeItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearAllSelections -}+{#fun cegui_lstbx_clearAllSelections as clearAllSelections +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSortingEnabled -}+{#fun cegui_lstbx_setSortingEnabled as setSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setMultiselectEnabled -}+{#fun cegui_lstbx_setMultiselectEnabled as setMultiselectEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_lstbx_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowHorzScrollbar -}+{#fun cegui_lstbx_setShowHorzScrollbar as setShowHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemTooltipsEnabled -}+{#fun cegui_lstbx_setItemTooltipsEnabled as setItemTooltipsEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemSelectState -}+{#fun cegui_lstbx_setItemSelectState as setItemSelectState +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemSelectState2 -}+{#fun cegui_lstbx_setItemSelectState2 as setItemSelectState2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromBool `Bool' } -> `()'  #}++{- function handleUpdatedItemData -}+{#fun cegui_lstbx_handleUpdatedItemData as handleUpdatedItemData +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function ensureItemIsVisible -}+{#fun cegui_lstbx_ensureItemIsVisible as ensureItemIsVisible +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function ensureItemIsVisible2 -}+{#fun cegui_lstbx_ensureItemIsVisible2 as ensureItemIsVisible2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getVertScrollbar -}+{#fun cegui_lstbx_getVertScrollbar as getVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getHorzScrollbar -}+{#fun cegui_lstbx_getHorzScrollbar as getHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getTotalItemsHeight -}+{#fun cegui_lstbx_getTotalItemsHeight as getTotalItemsHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getWidestItemWidth -}+{#fun cegui_lstbx_getWidestItemWidth as getWidestItemWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function Listbox -}+{#fun cegui_lstbx_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Listbox -}+{#fun cegui_lstbx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassListbox.hs 
@@ -1,507 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassListbox.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassListbox where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getItemCount -}
-getItemCount :: HG3DClass -> IO (Int)
-getItemCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getItemCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getSelectedCount -}
-getSelectedCount :: HG3DClass -> IO (Int)
-getSelectedCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectedCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getFirstSelectedItem -}
-getFirstSelectedItem :: HG3DClass -> IO (HG3DClass)
-getFirstSelectedItem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFirstSelectedItem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getNextSelected -}
-getNextSelected :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-getNextSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getNextSelected'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getListboxItemFromIndex -}
-getListboxItemFromIndex :: HG3DClass -> Int -> IO (HG3DClass)
-getListboxItemFromIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getListboxItemFromIndex'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getItemIndex -}
-getItemIndex :: HG3DClass -> HG3DClass -> IO (Int)
-getItemIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getItemIndex'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isSortEnabled -}
-isSortEnabled :: HG3DClass -> IO (Bool)
-isSortEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSortEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isMultiselectEnabled -}
-isMultiselectEnabled :: HG3DClass -> IO (Bool)
-isMultiselectEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isMultiselectEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isItemTooltipsEnabled -}
-isItemTooltipsEnabled :: HG3DClass -> IO (Bool)
-isItemTooltipsEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isItemTooltipsEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isItemSelected -}
-isItemSelected :: HG3DClass -> Int -> IO (Bool)
-isItemSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  isItemSelected'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function findItemWithText -}
-findItemWithText :: HG3DClass -> String -> HG3DClass -> IO (HG3DClass)
-findItemWithText a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  findItemWithText'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isListboxItemInList -}
-isListboxItemInList :: HG3DClass -> HG3DClass -> IO (Bool)
-isListboxItemInList a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isListboxItemInList'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function isHorzScrollbarAlwaysShown -}
-isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isHorzScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function resetList -}
-resetList :: HG3DClass -> IO ()
-resetList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetList'_ a1' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function addItem -}
-addItem :: HG3DClass -> HG3DClass -> IO ()
-addItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  addItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function insertItem -}
-insertItem :: HG3DClass -> HG3DClass -> HG3DClass -> IO ()
-insertItem a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  insertItem'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 139 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function removeItem -}
-removeItem :: HG3DClass -> HG3DClass -> IO ()
-removeItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  removeItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function clearAllSelections -}
-clearAllSelections :: HG3DClass -> IO ()
-clearAllSelections a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearAllSelections'_ a1' >>= \res ->
-  return ()
-{-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setSortingEnabled -}
-setSortingEnabled :: HG3DClass -> Bool -> IO ()
-setSortingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSortingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setMultiselectEnabled -}
-setMultiselectEnabled :: HG3DClass -> Bool -> IO ()
-setMultiselectEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setMultiselectEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 163 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setShowHorzScrollbar -}
-setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
-setShowHorzScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowHorzScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 168 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setItemTooltipsEnabled -}
-setItemTooltipsEnabled :: HG3DClass -> Bool -> IO ()
-setItemTooltipsEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setItemTooltipsEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 173 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setItemSelectState -}
-setItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO ()
-setItemSelectState a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  setItemSelectState'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 179 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function setItemSelectState2 -}
-setItemSelectState2 :: HG3DClass -> Int -> Bool -> IO ()
-setItemSelectState2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromBool a3} in 
-  setItemSelectState2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 185 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function handleUpdatedItemData -}
-handleUpdatedItemData :: HG3DClass -> IO ()
-handleUpdatedItemData a1 =
-  withHG3DClass a1 $ \a1' -> 
-  handleUpdatedItemData'_ a1' >>= \res ->
-  return ()
-{-# LINE 189 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function ensureItemIsVisible -}
-ensureItemIsVisible :: HG3DClass -> Int -> IO ()
-ensureItemIsVisible a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  ensureItemIsVisible'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function ensureItemIsVisible2 -}
-ensureItemIsVisible2 :: HG3DClass -> HG3DClass -> IO ()
-ensureItemIsVisible2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  ensureItemIsVisible2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 199 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getVertScrollbar -}
-getVertScrollbar :: HG3DClass -> IO (HG3DClass)
-getVertScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 204 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getHorzScrollbar -}
-getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
-getHorzScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorzScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 209 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getTotalItemsHeight -}
-getTotalItemsHeight :: HG3DClass -> IO (Float)
-getTotalItemsHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTotalItemsHeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 214 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function getWidestItemWidth -}
-getWidestItemWidth :: HG3DClass -> IO (Float)
-getWidestItemWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWidestItemWidth'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 219 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function Listbox -}
-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 225 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-{- function ~Listbox -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 229 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getItemCount"
-  getItemCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getSelectedCount"
-  getSelectedCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getFirstSelectedItem"
-  getFirstSelectedItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getNextSelected"
-  getNextSelected'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getListboxItemFromIndex"
-  getListboxItemFromIndex'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getItemIndex"
-  getItemIndex'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isSortEnabled"
-  isSortEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isMultiselectEnabled"
-  isMultiselectEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isItemTooltipsEnabled"
-  isItemTooltipsEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isItemSelected"
-  isItemSelected'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_findItemWithText"
-  findItemWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isListboxItemInList"
-  isListboxItemInList'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_isHorzScrollbarAlwaysShown"
-  isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_resetList"
-  resetList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_addItem"
-  addItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_insertItem"
-  insertItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_removeItem"
-  removeItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_clearAllSelections"
-  clearAllSelections'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setSortingEnabled"
-  setSortingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setMultiselectEnabled"
-  setMultiselectEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setShowHorzScrollbar"
-  setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setItemTooltipsEnabled"
-  setItemTooltipsEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setItemSelectState"
-  setItemSelectState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_setItemSelectState2"
-  setItemSelectState2'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_handleUpdatedItemData"
-  handleUpdatedItemData'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_ensureItemIsVisible"
-  ensureItemIsVisible'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_ensureItemIsVisible2"
-  ensureItemIsVisible2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getVertScrollbar"
-  getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getHorzScrollbar"
-  getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getTotalItemsHeight"
-  getTotalItemsHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_getWidestItemWidth"
-  getWidestItemWidth'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListbox.chs.h cegui_lstbx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassListboxItem.chs view
@@ -0,0 +1,128 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassListboxItem.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassListboxItem where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassListboxItem.h"
+{- function ~ListboxItem -}+{#fun cegui_lstbxitm_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getTooltipText -}+{#fun cegui_lstbxitm_getTooltipText as getTooltipText +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getText -}+{#fun cegui_lstbxitm_getText as getText +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getTextVisual -}+{#fun cegui_lstbxitm_getTextVisual as getTextVisual +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getID -}+{#fun cegui_lstbxitm_getID as getID +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isSelected -}+{#fun cegui_lstbxitm_isSelected as isSelected +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isDisabled -}+{#fun cegui_lstbxitm_isDisabled as isDisabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isAutoDeleted -}+{#fun cegui_lstbxitm_isAutoDeleted as isAutoDeleted +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getOwnerWindow -}+{#fun cegui_lstbxitm_getOwnerWindow as getOwnerWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setText -}+{#fun cegui_lstbxitm_setText as setText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setTooltipText -}+{#fun cegui_lstbxitm_setTooltipText as setTooltipText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setID -}+{#fun cegui_lstbxitm_setID as setID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSelected -}+{#fun cegui_lstbxitm_setSelected as setSelected +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setDisabled -}+{#fun cegui_lstbxitm_setDisabled as setDisabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setAutoDeleted -}+{#fun cegui_lstbxitm_setAutoDeleted as setAutoDeleted +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setOwnerWindow -}+{#fun cegui_lstbxitm_setOwnerWindow as setOwnerWindow +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSelectionBrushImage2 -}+{#fun cegui_lstbxitm_setSelectionBrushImage2 as setSelectionBrushImage2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassListboxItem.hs 
@@ -1,262 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassListboxItem.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassListboxItem where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function ~ListboxItem -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function getTooltipText -}
-getTooltipText :: HG3DClass -> IO (String)
-getTooltipText a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getTooltipText'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function getText -}
-getText :: HG3DClass -> IO (String)
-getText a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getText'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function getTextVisual -}
-getTextVisual :: HG3DClass -> IO (String)
-getTextVisual a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getTextVisual'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function getID -}
-getID :: HG3DClass -> IO (Int)
-getID a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getID'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function isSelected -}
-isSelected :: HG3DClass -> IO (Bool)
-isSelected a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSelected'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function isDisabled -}
-isDisabled :: HG3DClass -> IO (Bool)
-isDisabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDisabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function isAutoDeleted -}
-isAutoDeleted :: HG3DClass -> IO (Bool)
-isAutoDeleted a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAutoDeleted'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function getOwnerWindow -}
-getOwnerWindow :: HG3DClass -> IO (HG3DClass)
-getOwnerWindow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOwnerWindow'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setText -}
-setText :: HG3DClass -> String -> IO ()
-setText a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setText'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setTooltipText -}
-setTooltipText :: HG3DClass -> String -> IO ()
-setTooltipText a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setTooltipText'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setID -}
-setID :: HG3DClass -> Int -> IO ()
-setID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setID'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setSelected -}
-setSelected :: HG3DClass -> Bool -> IO ()
-setSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSelected'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setDisabled -}
-setDisabled :: HG3DClass -> Bool -> IO ()
-setDisabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDisabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setAutoDeleted -}
-setAutoDeleted :: HG3DClass -> Bool -> IO ()
-setAutoDeleted a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoDeleted'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setOwnerWindow -}
-setOwnerWindow :: HG3DClass -> HG3DClass -> IO ()
-setOwnerWindow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setOwnerWindow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-{- function setSelectionBrushImage2 -}
-setSelectionBrushImage2 :: HG3DClass -> String -> String -> IO ()
-setSelectionBrushImage2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setSelectionBrushImage2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_getTooltipText"
-  getTooltipText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_getText"
-  getText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_getTextVisual"
-  getTextVisual'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_getID"
-  getID'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_isSelected"
-  isSelected'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_isDisabled"
-  isDisabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_isAutoDeleted"
-  isAutoDeleted'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_getOwnerWindow"
-  getOwnerWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setText"
-  setText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setTooltipText"
-  setTooltipText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setID"
-  setID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setSelected"
-  setSelected'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setDisabled"
-  setDisabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setAutoDeleted"
-  setAutoDeleted'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setOwnerWindow"
-  setOwnerWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxItem.chs.h cegui_lstbxitm_setSelectionBrushImage2"
-  setSelectionBrushImage2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassListboxTextItem.chs view
@@ -0,0 +1,77 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassListboxTextItem.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassListboxTextItem where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassListboxTextItem.h"
+{- function ~ListboxTextItem -}+{#fun cegui_lstbxti_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getFont -}+{#fun cegui_lstbxti_getFont as getFont +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setFont -}+{#fun cegui_lstbxti_setFont as setFont +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setFont2 -}+{#fun cegui_lstbxti_setFont2 as setFont2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setTextParsingEnabled -}+{#fun cegui_lstbxti_setTextParsingEnabled as setTextParsingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isTextParsingEnabled -}+{#fun cegui_lstbxti_isTextParsingEnabled as isTextParsingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setText -}+{#fun cegui_lstbxti_setText as setText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassListboxTextItem.hs 
@@ -1,135 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassListboxTextItem.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassListboxTextItem where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function ~ListboxTextItem -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function getFont -}
-getFont :: HG3DClass -> IO (HG3DClass)
-getFont a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFont'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function setFont -}
-setFont :: HG3DClass -> HG3DClass -> IO ()
-setFont a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setFont'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function setFont2 -}
-setFont2 :: HG3DClass -> String -> IO ()
-setFont2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setFont2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function setTextParsingEnabled -}
-setTextParsingEnabled :: HG3DClass -> Bool -> IO ()
-setTextParsingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setTextParsingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function isTextParsingEnabled -}
-isTextParsingEnabled :: HG3DClass -> IO (Bool)
-isTextParsingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTextParsingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-{- function setText -}
-setText :: HG3DClass -> String -> IO ()
-setText a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setText'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_getFont"
-  getFont'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_setFont"
-  setFont'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_setFont2"
-  setFont2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_setTextParsingEnabled"
-  setTextParsingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_isTextParsingEnabled"
-  isTextParsingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassListboxTextItem.chs.h cegui_lstbxti_setText"
-  setText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassLogger.chs view
@@ -0,0 +1,70 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassLogger.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassLogger where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumLoggingLevel #}+
+#include "ClassLogger.h"
+{- function ~Logger -}+{#fun cegui_lggr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setLoggingLevel -}+{#fun cegui_lggr_setLoggingLevel as setLoggingLevel +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLoggingLevel' } -> `()'  #}++{- function getLoggingLevel -}+{#fun cegui_lggr_getLoggingLevel as getLoggingLevel +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumLoggingLevel' peekEnumUtil*} -> `()'  #}++{- function logEvent -}+{#fun cegui_lggr_logEvent as logEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumLoggingLevel' } -> `()'  #}++{- function setLogFilename -}+{#fun cegui_lggr_setLogFilename as setLogFilename +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassLogger.hs 
@@ -1,114 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassLogger.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassLogger where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumLoggingLevel
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-
-{- function ~Logger -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-
-{- function setLoggingLevel -}
-setLoggingLevel :: HG3DClass -> EnumLoggingLevel -> IO ()
-setLoggingLevel a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setLoggingLevel'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-
-{- function getLoggingLevel -}
-getLoggingLevel :: HG3DClass -> IO (EnumLoggingLevel)
-getLoggingLevel a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLoggingLevel'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-
-{- function logEvent -}
-logEvent :: HG3DClass -> String -> EnumLoggingLevel -> IO ()
-logEvent a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  logEvent'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-
-{- function setLogFilename -}
-setLogFilename :: HG3DClass -> String -> Bool -> IO ()
-setLogFilename a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  setLogFilename'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs.h cegui_lggr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs.h cegui_lggr_setLoggingLevel"
-  setLoggingLevel'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs.h cegui_lggr_getLoggingLevel"
-  getLoggingLevel'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs.h cegui_lggr_logEvent"
-  logEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassLogger.chs.h cegui_lggr_setLogFilename"
-  setLogFilename'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassMenuBase.chs view
@@ -0,0 +1,87 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassMenuBase.chs
+
+-- abstrakte Klasse!+
+module HGamer3D.Bindings.CEGUI.ClassMenuBase where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassMenuBase.h"
+{- function getItemSpacing -}+{#fun cegui_mnbs_getItemSpacing as getItemSpacing +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function isMultiplePopupsAllowed -}+{#fun cegui_mnbs_isMultiplePopupsAllowed as isMultiplePopupsAllowed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getAutoCloseNestedPopups -}+{#fun cegui_mnbs_getAutoCloseNestedPopups as getAutoCloseNestedPopups +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPopupMenuItem -}+{#fun cegui_mnbs_getPopupMenuItem as getPopupMenuItem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setItemSpacing -}+{#fun cegui_mnbs_setItemSpacing as setItemSpacing +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function changePopupMenuItem -}+{#fun cegui_mnbs_changePopupMenuItem as changePopupMenuItem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setAllowMultiplePopups -}+{#fun cegui_mnbs_setAllowMultiplePopups as setAllowMultiplePopups +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setAutoCloseNestedPopups -}+{#fun cegui_mnbs_setAutoCloseNestedPopups as setAutoCloseNestedPopups +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setPopupMenuItemClosing -}+{#fun cegui_mnbs_setPopupMenuItemClosing as setPopupMenuItemClosing +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassMenuBase.hs 
@@ -1,161 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassMenuBase.chs
-
--- abstrakte Klasse!
-
-module HGamer3D.Bindings.CEGUI.ClassMenuBase where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function getItemSpacing -}
-getItemSpacing :: HG3DClass -> IO (Float)
-getItemSpacing a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getItemSpacing'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function isMultiplePopupsAllowed -}
-isMultiplePopupsAllowed :: HG3DClass -> IO (Bool)
-isMultiplePopupsAllowed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isMultiplePopupsAllowed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function getAutoCloseNestedPopups -}
-getAutoCloseNestedPopups :: HG3DClass -> IO (Bool)
-getAutoCloseNestedPopups a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoCloseNestedPopups'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function getPopupMenuItem -}
-getPopupMenuItem :: HG3DClass -> IO (HG3DClass)
-getPopupMenuItem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPopupMenuItem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function setItemSpacing -}
-setItemSpacing :: HG3DClass -> Float -> IO ()
-setItemSpacing a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setItemSpacing'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function changePopupMenuItem -}
-changePopupMenuItem :: HG3DClass -> HG3DClass -> IO ()
-changePopupMenuItem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  changePopupMenuItem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function setAllowMultiplePopups -}
-setAllowMultiplePopups :: HG3DClass -> Bool -> IO ()
-setAllowMultiplePopups a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAllowMultiplePopups'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function setAutoCloseNestedPopups -}
-setAutoCloseNestedPopups :: HG3DClass -> Bool -> IO ()
-setAutoCloseNestedPopups a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoCloseNestedPopups'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-{- function setPopupMenuItemClosing -}
-setPopupMenuItemClosing :: HG3DClass -> IO ()
-setPopupMenuItemClosing a1 =
-  withHG3DClass a1 $ \a1' -> 
-  setPopupMenuItemClosing'_ a1' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_getItemSpacing"
-  getItemSpacing'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_isMultiplePopupsAllowed"
-  isMultiplePopupsAllowed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_getAutoCloseNestedPopups"
-  getAutoCloseNestedPopups'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_getPopupMenuItem"
-  getPopupMenuItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_setItemSpacing"
-  setItemSpacing'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_changePopupMenuItem"
-  changePopupMenuItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_setAllowMultiplePopups"
-  setAllowMultiplePopups'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_setAutoCloseNestedPopups"
-  setAutoCloseNestedPopups'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuBase.chs.h cegui_mnbs_setPopupMenuItemClosing"
-  setPopupMenuItemClosing'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassMenuItem.chs view
@@ -0,0 +1,111 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassMenuItem.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassMenuItem where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassMenuItem.h"
+{- function isHovering -}+{#fun cegui_mnitm_isHovering as isHovering +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isPushed -}+{#fun cegui_mnitm_isPushed as isPushed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isOpened -}+{#fun cegui_mnitm_isOpened as isOpened +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isPopupClosing -}+{#fun cegui_mnitm_isPopupClosing as isPopupClosing +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function hasAutoPopup -}+{#fun cegui_mnitm_hasAutoPopup as hasAutoPopup +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getAutoPopupTimeout -}+{#fun cegui_mnitm_getAutoPopupTimeout as getAutoPopupTimeout +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setAutoPopupTimeout -}+{#fun cegui_mnitm_setAutoPopupTimeout as setAutoPopupTimeout +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function openPopupMenu -}+{#fun cegui_mnitm_openPopupMenu as openPopupMenu +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function closePopupMenu -}+{#fun cegui_mnitm_closePopupMenu as closePopupMenu +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function togglePopupMenu -}+{#fun cegui_mnitm_togglePopupMenu as togglePopupMenu +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function startPopupClosing -}+{#fun cegui_mnitm_startPopupClosing as startPopupClosing +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function startPopupOpening -}+{#fun cegui_mnitm_startPopupOpening as startPopupOpening +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function MenuItem -}+{#fun cegui_mnitm_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~MenuItem -}+{#fun cegui_mnitm_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassMenuItem.hs 
@@ -1,224 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassMenuItem.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassMenuItem where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function isHovering -}
-isHovering :: HG3DClass -> IO (Bool)
-isHovering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHovering'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function isPushed -}
-isPushed :: HG3DClass -> IO (Bool)
-isPushed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPushed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function isOpened -}
-isOpened :: HG3DClass -> IO (Bool)
-isOpened a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isOpened'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function isPopupClosing -}
-isPopupClosing :: HG3DClass -> IO (Bool)
-isPopupClosing a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPopupClosing'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function hasAutoPopup -}
-hasAutoPopup :: HG3DClass -> IO (Bool)
-hasAutoPopup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasAutoPopup'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function getAutoPopupTimeout -}
-getAutoPopupTimeout :: HG3DClass -> IO (Float)
-getAutoPopupTimeout a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoPopupTimeout'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function setAutoPopupTimeout -}
-setAutoPopupTimeout :: HG3DClass -> Float -> IO ()
-setAutoPopupTimeout a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setAutoPopupTimeout'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function openPopupMenu -}
-openPopupMenu :: HG3DClass -> Bool -> IO ()
-openPopupMenu a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  openPopupMenu'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function closePopupMenu -}
-closePopupMenu :: HG3DClass -> Bool -> IO ()
-closePopupMenu a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  closePopupMenu'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function togglePopupMenu -}
-togglePopupMenu :: HG3DClass -> IO (Bool)
-togglePopupMenu a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  togglePopupMenu'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function startPopupClosing -}
-startPopupClosing :: HG3DClass -> IO ()
-startPopupClosing a1 =
-  withHG3DClass a1 $ \a1' -> 
-  startPopupClosing'_ a1' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function startPopupOpening -}
-startPopupOpening :: HG3DClass -> IO ()
-startPopupOpening a1 =
-  withHG3DClass a1 $ \a1' -> 
-  startPopupOpening'_ a1' >>= \res ->
-  return ()
-{-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function MenuItem -}
-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 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-{- function ~MenuItem -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 111 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isHovering"
-  isHovering'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isPushed"
-  isPushed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isOpened"
-  isOpened'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_isPopupClosing"
-  isPopupClosing'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_hasAutoPopup"
-  hasAutoPopup'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_getAutoPopupTimeout"
-  getAutoPopupTimeout'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_setAutoPopupTimeout"
-  setAutoPopupTimeout'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_openPopupMenu"
-  openPopupMenu'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_closePopupMenu"
-  closePopupMenu'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_togglePopupMenu"
-  togglePopupMenu'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_startPopupClosing"
-  startPopupClosing'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_startPopupOpening"
-  startPopupOpening'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMenuItem.chs.h cegui_mnitm_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassMultiColumnList.chs view
@@ -0,0 +1,416 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassMultiColumnList.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassMultiColumnList where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumSortDirection #}+{# import HGamer3D.Bindings.CEGUI.EnumSelectionMode #}+
+#include "ClassMultiColumnList.h"
+{- function isUserSortControlEnabled -}+{#fun cegui_mltclmlst_isUserSortControlEnabled as isUserSortControlEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isUserColumnSizingEnabled -}+{#fun cegui_mltclmlst_isUserColumnSizingEnabled as isUserColumnSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isUserColumnDraggingEnabled -}+{#fun cegui_mltclmlst_isUserColumnDraggingEnabled as isUserColumnDraggingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getColumnCount -}+{#fun cegui_mltclmlst_getColumnCount as getColumnCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getRowCount -}+{#fun cegui_mltclmlst_getRowCount as getRowCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSortColumn -}+{#fun cegui_mltclmlst_getSortColumn as getSortColumn +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getColumnWithID -}+{#fun cegui_mltclmlst_getColumnWithID as getColumnWithID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getColumnWithHeaderText -}+{#fun cegui_mltclmlst_getColumnWithHeaderText as getColumnWithHeaderText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSortDirection -}+{#fun cegui_mltclmlst_getSortDirection as getSortDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumSortDirection' peekEnumUtil*} -> `()'  #}++{- function getHeaderSegmentForColumn -}+{#fun cegui_mltclmlst_getHeaderSegmentForColumn as getHeaderSegmentForColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getItemRowIndex -}+{#fun cegui_mltclmlst_getItemRowIndex as getItemRowIndex +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getItemColumnIndex -}+{#fun cegui_mltclmlst_getItemColumnIndex as getItemColumnIndex +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isListboxItemInColumn -}+{#fun cegui_mltclmlst_isListboxItemInColumn as isListboxItemInColumn +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isListboxItemInRow -}+{#fun cegui_mltclmlst_isListboxItemInRow as isListboxItemInRow +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isListboxItemInList -}+{#fun cegui_mltclmlst_isListboxItemInList as isListboxItemInList +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function findColumnItemWithText -}+{#fun cegui_mltclmlst_findColumnItemWithText as findColumnItemWithText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromIntegral `Int' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function findRowItemWithText -}+{#fun cegui_mltclmlst_findRowItemWithText as findRowItemWithText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromIntegral `Int' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function findListItemWithText -}+{#fun cegui_mltclmlst_findListItemWithText as findListItemWithText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getFirstSelectedItem -}+{#fun cegui_mltclmlst_getFirstSelectedItem as getFirstSelectedItem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNextSelected -}+{#fun cegui_mltclmlst_getNextSelected as getNextSelected +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSelectedCount -}+{#fun cegui_mltclmlst_getSelectedCount as getSelectedCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNominatedSelectionColumnID -}+{#fun cegui_mltclmlst_getNominatedSelectionColumnID as getNominatedSelectionColumnID +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNominatedSelectionColumn -}+{#fun cegui_mltclmlst_getNominatedSelectionColumn as getNominatedSelectionColumn +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNominatedSelectionRow -}+{#fun cegui_mltclmlst_getNominatedSelectionRow as getNominatedSelectionRow +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionMode -}+{#fun cegui_mltclmlst_getSelectionMode as getSelectionMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumSelectionMode' peekEnumUtil*} -> `()'  #}++{- function isVertScrollbarAlwaysShown -}+{#fun cegui_mltclmlst_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHorzScrollbarAlwaysShown -}+{#fun cegui_mltclmlst_isHorzScrollbarAlwaysShown as isHorzScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getColumnID -}+{#fun cegui_mltclmlst_getColumnID as getColumnID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getRowID -}+{#fun cegui_mltclmlst_getRowID as getRowID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getRowWithID -}+{#fun cegui_mltclmlst_getRowWithID as getRowWithID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getVertScrollbar -}+{#fun cegui_mltclmlst_getVertScrollbar as getVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getHorzScrollbar -}+{#fun cegui_mltclmlst_getHorzScrollbar as getHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getListHeader -}+{#fun cegui_mltclmlst_getListHeader as getListHeader +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getTotalRowsHeight -}+{#fun cegui_mltclmlst_getTotalRowsHeight as getTotalRowsHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getWidestColumnItemWidth -}+{#fun cegui_mltclmlst_getWidestColumnItemWidth as getWidestColumnItemWidth +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getHighestRowItemHeight -}+{#fun cegui_mltclmlst_getHighestRowItemHeight as getHighestRowItemHeight +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_mltclmlst_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resetList -}+{#fun cegui_mltclmlst_resetList as resetList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeColumn -}+{#fun cegui_mltclmlst_removeColumn as removeColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeColumnWithID -}+{#fun cegui_mltclmlst_removeColumnWithID as removeColumnWithID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function moveColumn -}+{#fun cegui_mltclmlst_moveColumn as moveColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function moveColumnWithID -}+{#fun cegui_mltclmlst_moveColumnWithID as moveColumnWithID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function addRow -}+{#fun cegui_mltclmlst_addRow as addRow +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function addRow2 -}+{#fun cegui_mltclmlst_addRow2 as addRow2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function insertRow -}+{#fun cegui_mltclmlst_insertRow as insertRow +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function insertRow2 -}+{#fun cegui_mltclmlst_insertRow2 as insertRow2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function removeRow -}+{#fun cegui_mltclmlst_removeRow as removeRow +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setItem2 -}+{#fun cegui_mltclmlst_setItem2 as setItem2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSelectionMode -}+{#fun cegui_mltclmlst_setSelectionMode as setSelectionMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSelectionMode' } -> `()'  #}++{- function setNominatedSelectionColumnID -}+{#fun cegui_mltclmlst_setNominatedSelectionColumnID as setNominatedSelectionColumnID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setNominatedSelectionColumn -}+{#fun cegui_mltclmlst_setNominatedSelectionColumn as setNominatedSelectionColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setNominatedSelectionRow -}+{#fun cegui_mltclmlst_setNominatedSelectionRow as setNominatedSelectionRow +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSortDirection -}+{#fun cegui_mltclmlst_setSortDirection as setSortDirection +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSortDirection' } -> `()'  #}++{- function setSortColumn -}+{#fun cegui_mltclmlst_setSortColumn as setSortColumn +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSortColumnByID -}+{#fun cegui_mltclmlst_setSortColumnByID as setSortColumnByID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_mltclmlst_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowHorzScrollbar -}+{#fun cegui_mltclmlst_setShowHorzScrollbar as setShowHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function clearAllSelections -}+{#fun cegui_mltclmlst_clearAllSelections as clearAllSelections +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setItemSelectState -}+{#fun cegui_mltclmlst_setItemSelectState as setItemSelectState +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function handleUpdatedItemData -}+{#fun cegui_mltclmlst_handleUpdatedItemData as handleUpdatedItemData +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setUserSortControlEnabled -}+{#fun cegui_mltclmlst_setUserSortControlEnabled as setUserSortControlEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setUserColumnSizingEnabled -}+{#fun cegui_mltclmlst_setUserColumnSizingEnabled as setUserColumnSizingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setUserColumnDraggingEnabled -}+{#fun cegui_mltclmlst_setUserColumnDraggingEnabled as setUserColumnDraggingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function autoSizeColumnHeader -}+{#fun cegui_mltclmlst_autoSizeColumnHeader as autoSizeColumnHeader +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setRowID -}+{#fun cegui_mltclmlst_setRowID as setRowID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function MultiColumnList -}+{#fun cegui_mltclmlst_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~MultiColumnList -}+{#fun cegui_mltclmlst_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassMultiColumnList.hs 
@@ -1,935 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassMultiColumnList.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassMultiColumnList where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumSortDirection
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumSelectionMode
-{-# LINE 44 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isUserSortControlEnabled -}
-isUserSortControlEnabled :: HG3DClass -> IO (Bool)
-isUserSortControlEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isUserSortControlEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isUserColumnSizingEnabled -}
-isUserColumnSizingEnabled :: HG3DClass -> IO (Bool)
-isUserColumnSizingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isUserColumnSizingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isUserColumnDraggingEnabled -}
-isUserColumnDraggingEnabled :: HG3DClass -> IO (Bool)
-isUserColumnDraggingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isUserColumnDraggingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getColumnCount -}
-getColumnCount :: HG3DClass -> IO (Int)
-getColumnCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getColumnCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 65 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getRowCount -}
-getRowCount :: HG3DClass -> IO (Int)
-getRowCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRowCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getSortColumn -}
-getSortColumn :: HG3DClass -> IO (Int)
-getSortColumn a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortColumn'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getColumnWithID -}
-getColumnWithID :: HG3DClass -> Int -> IO (Int)
-getColumnWithID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getColumnWithID'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getColumnWithHeaderText -}
-getColumnWithHeaderText :: HG3DClass -> String -> IO (Int)
-getColumnWithHeaderText a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getColumnWithHeaderText'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getSortDirection -}
-getSortDirection :: HG3DClass -> IO (EnumSortDirection)
-getSortDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortDirection'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getHeaderSegmentForColumn -}
-getHeaderSegmentForColumn :: HG3DClass -> Int -> IO (HG3DClass)
-getHeaderSegmentForColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getHeaderSegmentForColumn'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getItemRowIndex -}
-getItemRowIndex :: HG3DClass -> HG3DClass -> IO (Int)
-getItemRowIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getItemRowIndex'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getItemColumnIndex -}
-getItemColumnIndex :: HG3DClass -> HG3DClass -> IO (Int)
-getItemColumnIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getItemColumnIndex'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isListboxItemInColumn -}
-isListboxItemInColumn :: HG3DClass -> HG3DClass -> Int -> IO (Bool)
-isListboxItemInColumn a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  alloca $ \a4' -> 
-  isListboxItemInColumn'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isListboxItemInRow -}
-isListboxItemInRow :: HG3DClass -> HG3DClass -> Int -> IO (Bool)
-isListboxItemInRow a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  alloca $ \a4' -> 
-  isListboxItemInRow'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isListboxItemInList -}
-isListboxItemInList :: HG3DClass -> HG3DClass -> IO (Bool)
-isListboxItemInList a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isListboxItemInList'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 130 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function findColumnItemWithText -}
-findColumnItemWithText :: HG3DClass -> String -> Int -> HG3DClass -> IO (HG3DClass)
-findColumnItemWithText a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  withHG3DClass a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  findColumnItemWithText'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function findRowItemWithText -}
-findRowItemWithText :: HG3DClass -> String -> Int -> HG3DClass -> IO (HG3DClass)
-findRowItemWithText a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  withHG3DClass a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  findRowItemWithText'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function findListItemWithText -}
-findListItemWithText :: HG3DClass -> String -> HG3DClass -> IO (HG3DClass)
-findListItemWithText a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  findListItemWithText'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getFirstSelectedItem -}
-getFirstSelectedItem :: HG3DClass -> IO (HG3DClass)
-getFirstSelectedItem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFirstSelectedItem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getNextSelected -}
-getNextSelected :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-getNextSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getNextSelected'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 164 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getSelectedCount -}
-getSelectedCount :: HG3DClass -> IO (Int)
-getSelectedCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectedCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 169 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getNominatedSelectionColumnID -}
-getNominatedSelectionColumnID :: HG3DClass -> IO (Int)
-getNominatedSelectionColumnID a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNominatedSelectionColumnID'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 174 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getNominatedSelectionColumn -}
-getNominatedSelectionColumn :: HG3DClass -> IO (Int)
-getNominatedSelectionColumn a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNominatedSelectionColumn'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 179 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getNominatedSelectionRow -}
-getNominatedSelectionRow :: HG3DClass -> IO (Int)
-getNominatedSelectionRow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNominatedSelectionRow'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 184 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getSelectionMode -}
-getSelectionMode :: HG3DClass -> IO (EnumSelectionMode)
-getSelectionMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 189 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 194 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function isHorzScrollbarAlwaysShown -}
-isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isHorzScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 199 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getColumnID -}
-getColumnID :: HG3DClass -> Int -> IO (Int)
-getColumnID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getColumnID'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getRowID -}
-getRowID :: HG3DClass -> Int -> IO (Int)
-getRowID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getRowID'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 211 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getRowWithID -}
-getRowWithID :: HG3DClass -> Int -> IO (Int)
-getRowWithID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getRowWithID'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 217 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getVertScrollbar -}
-getVertScrollbar :: HG3DClass -> IO (HG3DClass)
-getVertScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 222 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getHorzScrollbar -}
-getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
-getHorzScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorzScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 227 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getListHeader -}
-getListHeader :: HG3DClass -> IO (HG3DClass)
-getListHeader a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getListHeader'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 232 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getTotalRowsHeight -}
-getTotalRowsHeight :: HG3DClass -> IO (Float)
-getTotalRowsHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTotalRowsHeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 237 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getWidestColumnItemWidth -}
-getWidestColumnItemWidth :: HG3DClass -> Int -> IO (Float)
-getWidestColumnItemWidth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getWidestColumnItemWidth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 243 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function getHighestRowItemHeight -}
-getHighestRowItemHeight :: HG3DClass -> Int -> IO (Float)
-getHighestRowItemHeight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getHighestRowItemHeight'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 249 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 253 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function resetList -}
-resetList :: HG3DClass -> IO ()
-resetList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetList'_ a1' >>= \res ->
-  return ()
-{-# LINE 257 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function removeColumn -}
-removeColumn :: HG3DClass -> Int -> IO ()
-removeColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeColumn'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 262 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function removeColumnWithID -}
-removeColumnWithID :: HG3DClass -> Int -> IO ()
-removeColumnWithID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeColumnWithID'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 267 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function moveColumn -}
-moveColumn :: HG3DClass -> Int -> Int -> IO ()
-moveColumn a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  moveColumn'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 273 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function moveColumnWithID -}
-moveColumnWithID :: HG3DClass -> Int -> Int -> IO ()
-moveColumnWithID a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  moveColumnWithID'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 279 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function addRow -}
-addRow :: HG3DClass -> Int -> IO (Int)
-addRow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  addRow'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 285 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function addRow2 -}
-addRow2 :: HG3DClass -> HG3DClass -> Int -> Int -> IO (Int)
-addRow2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  alloca $ \a5' -> 
-  addRow2'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekIntConv  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 293 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function insertRow -}
-insertRow :: HG3DClass -> Int -> Int -> IO (Int)
-insertRow a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  alloca $ \a4' -> 
-  insertRow'_ a1' a2' a3' a4' >>= \res ->
-  peekIntConv  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 300 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function insertRow2 -}
-insertRow2 :: HG3DClass -> HG3DClass -> Int -> Int -> Int -> IO (Int)
-insertRow2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  let {a5' = fromIntegral a5} in 
-  alloca $ \a6' -> 
-  insertRow2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  peekIntConv  a6'>>= \a6'' -> 
-  return (a6'')
-{-# LINE 309 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function removeRow -}
-removeRow :: HG3DClass -> Int -> IO ()
-removeRow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeRow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 314 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setItem2 -}
-setItem2 :: HG3DClass -> HG3DClass -> Int -> Int -> IO ()
-setItem2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  setItem2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 321 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setSelectionMode -}
-setSelectionMode :: HG3DClass -> EnumSelectionMode -> IO ()
-setSelectionMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setSelectionMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 326 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setNominatedSelectionColumnID -}
-setNominatedSelectionColumnID :: HG3DClass -> Int -> IO ()
-setNominatedSelectionColumnID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setNominatedSelectionColumnID'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 331 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setNominatedSelectionColumn -}
-setNominatedSelectionColumn :: HG3DClass -> Int -> IO ()
-setNominatedSelectionColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setNominatedSelectionColumn'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 336 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setNominatedSelectionRow -}
-setNominatedSelectionRow :: HG3DClass -> Int -> IO ()
-setNominatedSelectionRow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setNominatedSelectionRow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 341 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setSortDirection -}
-setSortDirection :: HG3DClass -> EnumSortDirection -> IO ()
-setSortDirection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setSortDirection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 346 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setSortColumn -}
-setSortColumn :: HG3DClass -> Int -> IO ()
-setSortColumn a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setSortColumn'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 351 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setSortColumnByID -}
-setSortColumnByID :: HG3DClass -> Int -> IO ()
-setSortColumnByID a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setSortColumnByID'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 356 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 361 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setShowHorzScrollbar -}
-setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
-setShowHorzScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowHorzScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 366 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function clearAllSelections -}
-clearAllSelections :: HG3DClass -> IO ()
-clearAllSelections a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearAllSelections'_ a1' >>= \res ->
-  return ()
-{-# LINE 370 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setItemSelectState -}
-setItemSelectState :: HG3DClass -> HG3DClass -> Bool -> IO ()
-setItemSelectState a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  setItemSelectState'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 376 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function handleUpdatedItemData -}
-handleUpdatedItemData :: HG3DClass -> IO ()
-handleUpdatedItemData a1 =
-  withHG3DClass a1 $ \a1' -> 
-  handleUpdatedItemData'_ a1' >>= \res ->
-  return ()
-{-# LINE 380 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setUserSortControlEnabled -}
-setUserSortControlEnabled :: HG3DClass -> Bool -> IO ()
-setUserSortControlEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUserSortControlEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 385 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setUserColumnSizingEnabled -}
-setUserColumnSizingEnabled :: HG3DClass -> Bool -> IO ()
-setUserColumnSizingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUserColumnSizingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 390 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setUserColumnDraggingEnabled -}
-setUserColumnDraggingEnabled :: HG3DClass -> Bool -> IO ()
-setUserColumnDraggingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUserColumnDraggingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 395 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function autoSizeColumnHeader -}
-autoSizeColumnHeader :: HG3DClass -> Int -> IO ()
-autoSizeColumnHeader a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  autoSizeColumnHeader'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 400 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function setRowID -}
-setRowID :: HG3DClass -> Int -> Int -> IO ()
-setRowID a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  setRowID'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 406 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function MultiColumnList -}
-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 412 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-{- function ~MultiColumnList -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 416 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isUserSortControlEnabled"
-  isUserSortControlEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isUserColumnSizingEnabled"
-  isUserColumnSizingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isUserColumnDraggingEnabled"
-  isUserColumnDraggingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getColumnCount"
-  getColumnCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getRowCount"
-  getRowCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getSortColumn"
-  getSortColumn'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getColumnWithID"
-  getColumnWithID'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getColumnWithHeaderText"
-  getColumnWithHeaderText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getSortDirection"
-  getSortDirection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getHeaderSegmentForColumn"
-  getHeaderSegmentForColumn'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getItemRowIndex"
-  getItemRowIndex'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getItemColumnIndex"
-  getItemColumnIndex'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isListboxItemInColumn"
-  isListboxItemInColumn'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isListboxItemInRow"
-  isListboxItemInRow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isListboxItemInList"
-  isListboxItemInList'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_findColumnItemWithText"
-  findColumnItemWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CUInt -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_findRowItemWithText"
-  findRowItemWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CUInt -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_findListItemWithText"
-  findListItemWithText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getFirstSelectedItem"
-  getFirstSelectedItem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getNextSelected"
-  getNextSelected'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getSelectedCount"
-  getSelectedCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getNominatedSelectionColumnID"
-  getNominatedSelectionColumnID'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getNominatedSelectionColumn"
-  getNominatedSelectionColumn'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getNominatedSelectionRow"
-  getNominatedSelectionRow'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getSelectionMode"
-  getSelectionMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_isHorzScrollbarAlwaysShown"
-  isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getColumnID"
-  getColumnID'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getRowID"
-  getRowID'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getRowWithID"
-  getRowWithID'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getVertScrollbar"
-  getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getHorzScrollbar"
-  getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getListHeader"
-  getListHeader'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getTotalRowsHeight"
-  getTotalRowsHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getWidestColumnItemWidth"
-  getWidestColumnItemWidth'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_getHighestRowItemHeight"
-  getHighestRowItemHeight'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_resetList"
-  resetList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_removeColumn"
-  removeColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_removeColumnWithID"
-  removeColumnWithID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_moveColumn"
-  moveColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_moveColumnWithID"
-  moveColumnWithID'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_addRow"
-  addRow'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_addRow2"
-  addRow2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> (CUInt -> ((Ptr CUInt) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_insertRow"
-  insertRow'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> ((Ptr CUInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_insertRow2"
-  insertRow2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> (CUInt -> (CUInt -> ((Ptr CUInt) -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_removeRow"
-  removeRow'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setItem2"
-  setItem2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setSelectionMode"
-  setSelectionMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setNominatedSelectionColumnID"
-  setNominatedSelectionColumnID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setNominatedSelectionColumn"
-  setNominatedSelectionColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setNominatedSelectionRow"
-  setNominatedSelectionRow'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setSortDirection"
-  setSortDirection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setSortColumn"
-  setSortColumn'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setSortColumnByID"
-  setSortColumnByID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setShowHorzScrollbar"
-  setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_clearAllSelections"
-  clearAllSelections'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setItemSelectState"
-  setItemSelectState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_handleUpdatedItemData"
-  handleUpdatedItemData'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setUserSortControlEnabled"
-  setUserSortControlEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setUserColumnSizingEnabled"
-  setUserColumnSizingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setUserColumnDraggingEnabled"
-  setUserColumnDraggingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_autoSizeColumnHeader"
-  autoSizeColumnHeader'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_setRowID"
-  setRowID'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiColumnList.chs.h cegui_mltclmlst_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassMultiLineEditbox.chs view
@@ -0,0 +1,153 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassMultiLineEditbox.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassMultiLineEditbox where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassMultiLineEditbox.h"
+{- function hasInputFocus -}+{#fun cegui_mltlnedtbx_hasInputFocus as hasInputFocus +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isReadOnly -}+{#fun cegui_mltlnedtbx_isReadOnly as isReadOnly +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getCaratIndex -}+{#fun cegui_mltlnedtbx_getCaratIndex as getCaratIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionStartIndex -}+{#fun cegui_mltlnedtbx_getSelectionStartIndex as getSelectionStartIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionEndIndex -}+{#fun cegui_mltlnedtbx_getSelectionEndIndex as getSelectionEndIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectionLength -}+{#fun cegui_mltlnedtbx_getSelectionLength as getSelectionLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getMaxTextLength -}+{#fun cegui_mltlnedtbx_getMaxTextLength as getMaxTextLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isWordWrapped -}+{#fun cegui_mltlnedtbx_isWordWrapped as isWordWrapped +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getVertScrollbar -}+{#fun cegui_mltlnedtbx_getVertScrollbar as getVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isVertScrollbarAlwaysShown -}+{#fun cegui_mltlnedtbx_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getHorzScrollbar -}+{#fun cegui_mltlnedtbx_getHorzScrollbar as getHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getLineNumberFromIndex -}+{#fun cegui_mltlnedtbx_getLineNumberFromIndex as getLineNumberFromIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_mltlnedtbx_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setReadOnly -}+{#fun cegui_mltlnedtbx_setReadOnly as setReadOnly +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setCaratIndex -}+{#fun cegui_mltlnedtbx_setCaratIndex as setCaratIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setSelection -}+{#fun cegui_mltlnedtbx_setSelection as setSelection +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function setMaxTextLength -}+{#fun cegui_mltlnedtbx_setMaxTextLength as setMaxTextLength +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function ensureCaratIsVisible -}+{#fun cegui_mltlnedtbx_ensureCaratIsVisible as ensureCaratIsVisible +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setWordWrapping -}+{#fun cegui_mltlnedtbx_setWordWrapping as setWordWrapping +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_mltlnedtbx_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function MultiLineEditbox -}+{#fun cegui_mltlnedtbx_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~MultiLineEditbox -}+{#fun cegui_mltlnedtbx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassMultiLineEditbox.hs 
@@ -1,327 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassMultiLineEditbox.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassMultiLineEditbox where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function hasInputFocus -}
-hasInputFocus :: HG3DClass -> IO (Bool)
-hasInputFocus a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasInputFocus'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function isReadOnly -}
-isReadOnly :: HG3DClass -> IO (Bool)
-isReadOnly a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isReadOnly'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getCaratIndex -}
-getCaratIndex :: HG3DClass -> IO (Int)
-getCaratIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCaratIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getSelectionStartIndex -}
-getSelectionStartIndex :: HG3DClass -> IO (Int)
-getSelectionStartIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionStartIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getSelectionEndIndex -}
-getSelectionEndIndex :: HG3DClass -> IO (Int)
-getSelectionEndIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionEndIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getSelectionLength -}
-getSelectionLength :: HG3DClass -> IO (Int)
-getSelectionLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectionLength'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getMaxTextLength -}
-getMaxTextLength :: HG3DClass -> IO (Int)
-getMaxTextLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxTextLength'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function isWordWrapped -}
-isWordWrapped :: HG3DClass -> IO (Bool)
-isWordWrapped a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isWordWrapped'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getVertScrollbar -}
-getVertScrollbar :: HG3DClass -> IO (HG3DClass)
-getVertScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getHorzScrollbar -}
-getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
-getHorzScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorzScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function getLineNumberFromIndex -}
-getLineNumberFromIndex :: HG3DClass -> Int -> IO (Int)
-getLineNumberFromIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getLineNumberFromIndex'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function setReadOnly -}
-setReadOnly :: HG3DClass -> Bool -> IO ()
-setReadOnly a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setReadOnly'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function setCaratIndex -}
-setCaratIndex :: HG3DClass -> Int -> IO ()
-setCaratIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setCaratIndex'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function setSelection -}
-setSelection :: HG3DClass -> Int -> Int -> IO ()
-setSelection a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  setSelection'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function setMaxTextLength -}
-setMaxTextLength :: HG3DClass -> Int -> IO ()
-setMaxTextLength a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setMaxTextLength'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 129 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function ensureCaratIsVisible -}
-ensureCaratIsVisible :: HG3DClass -> IO ()
-ensureCaratIsVisible a1 =
-  withHG3DClass a1 $ \a1' -> 
-  ensureCaratIsVisible'_ a1' >>= \res ->
-  return ()
-{-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function setWordWrapping -}
-setWordWrapping :: HG3DClass -> Bool -> IO ()
-setWordWrapping a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setWordWrapping'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 143 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function MultiLineEditbox -}
-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 149 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-{- function ~MultiLineEditbox -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_hasInputFocus"
-  hasInputFocus'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_isReadOnly"
-  isReadOnly'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getCaratIndex"
-  getCaratIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getSelectionStartIndex"
-  getSelectionStartIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getSelectionEndIndex"
-  getSelectionEndIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getSelectionLength"
-  getSelectionLength'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getMaxTextLength"
-  getMaxTextLength'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_isWordWrapped"
-  isWordWrapped'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getVertScrollbar"
-  getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getHorzScrollbar"
-  getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_getLineNumberFromIndex"
-  getLineNumberFromIndex'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_setReadOnly"
-  setReadOnly'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_setCaratIndex"
-  setCaratIndex'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_setSelection"
-  setSelection'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_setMaxTextLength"
-  setMaxTextLength'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_ensureCaratIsVisible"
-  ensureCaratIsVisible'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_setWordWrapping"
-  setWordWrapping'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassMultiLineEditbox.chs.h cegui_mltlnedtbx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassOgreRenderer.chs view
@@ -0,0 +1,128 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassOgreRenderer.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassOgreRenderer where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumBlendMode #}+
+#include "ClassOgreRenderer.h"
+{- function bootstrapSystem -}+{#fun cegui_ogrrndr_bootstrapSystem as bootstrapSystem +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroySystem -}+{#fun cegui_ogrrndr_destroySystem as destroySystem +{ } -> `()'  #}++{- function create -}+{#fun cegui_ogrrndr_create as create +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroy -}+{#fun cegui_ogrrndr_destroy as destroy +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createOgreResourceProvider -}+{#fun cegui_ogrrndr_createOgreResourceProvider as createOgreResourceProvider +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroyOgreResourceProvider -}+{#fun cegui_ogrrndr_destroyOgreResourceProvider as destroyOgreResourceProvider +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setRenderingEnabled -}+{#fun cegui_ogrrndr_setRenderingEnabled as setRenderingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isRenderingEnabled -}+{#fun cegui_ogrrndr_isRenderingEnabled as isRenderingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setupRenderingBlendMode -}+{#fun cegui_ogrrndr_setupRenderingBlendMode as setupRenderingBlendMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumBlendMode' ,+ fromBool `Bool' } -> `()'  #}++{- function setFrameControlExecutionEnabled -}+{#fun cegui_ogrrndr_setFrameControlExecutionEnabled as setFrameControlExecutionEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isFrameControlExecutionEnabled -}+{#fun cegui_ogrrndr_isFrameControlExecutionEnabled as isFrameControlExecutionEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function initialiseRenderStateSettings -}+{#fun cegui_ogrrndr_initialiseRenderStateSettings as initialiseRenderStateSettings +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllGeometryBuffers -}+{#fun cegui_ogrrndr_destroyAllGeometryBuffers as destroyAllGeometryBuffers +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllTextureTargets -}+{#fun cegui_ogrrndr_destroyAllTextureTargets as destroyAllTextureTargets +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllTextures -}+{#fun cegui_ogrrndr_destroyAllTextures as destroyAllTextures +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function beginRendering -}+{#fun cegui_ogrrndr_beginRendering as beginRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function endRendering -}+{#fun cegui_ogrrndr_endRendering as endRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getMaxTextureSize -}+{#fun cegui_ogrrndr_getMaxTextureSize as getMaxTextureSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getIdentifierString -}+{#fun cegui_ogrrndr_getIdentifierString as getIdentifierString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassOgreRenderer.hs 
@@ -1,275 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassOgreRenderer.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassOgreRenderer where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumBlendMode
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function bootstrapSystem -}
-bootstrapSystem :: IO (HG3DClass)
-bootstrapSystem =
-  alloca $ \a1' -> 
-  bootstrapSystem'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function destroySystem -}
-destroySystem :: IO ()
-destroySystem =
-  destroySystem'_ >>= \res ->
-  return ()
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function create -}
-create :: IO (HG3DClass)
-create =
-  alloca $ \a1' -> 
-  create'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function destroy -}
-destroy :: HG3DClass -> IO ()
-destroy a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroy'_ a1' >>= \res ->
-  return ()
-{-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function createOgreResourceProvider -}
-createOgreResourceProvider :: IO (HG3DClass)
-createOgreResourceProvider =
-  alloca $ \a1' -> 
-  createOgreResourceProvider'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function destroyOgreResourceProvider -}
-destroyOgreResourceProvider :: HG3DClass -> IO ()
-destroyOgreResourceProvider a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyOgreResourceProvider'_ a1' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function setRenderingEnabled -}
-setRenderingEnabled :: HG3DClass -> Bool -> IO ()
-setRenderingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setRenderingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function isRenderingEnabled -}
-isRenderingEnabled :: HG3DClass -> IO (Bool)
-isRenderingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isRenderingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function setupRenderingBlendMode -}
-setupRenderingBlendMode :: HG3DClass -> EnumBlendMode -> Bool -> IO ()
-setupRenderingBlendMode a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  let {a3' = fromBool a3} in 
-  setupRenderingBlendMode'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function setFrameControlExecutionEnabled -}
-setFrameControlExecutionEnabled :: HG3DClass -> Bool -> IO ()
-setFrameControlExecutionEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setFrameControlExecutionEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function isFrameControlExecutionEnabled -}
-isFrameControlExecutionEnabled :: HG3DClass -> IO (Bool)
-isFrameControlExecutionEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isFrameControlExecutionEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function initialiseRenderStateSettings -}
-initialiseRenderStateSettings :: HG3DClass -> IO ()
-initialiseRenderStateSettings a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseRenderStateSettings'_ a1' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function destroyAllGeometryBuffers -}
-destroyAllGeometryBuffers :: HG3DClass -> IO ()
-destroyAllGeometryBuffers a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllGeometryBuffers'_ a1' >>= \res ->
-  return ()
-{-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function destroyAllTextureTargets -}
-destroyAllTextureTargets :: HG3DClass -> IO ()
-destroyAllTextureTargets a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllTextureTargets'_ a1' >>= \res ->
-  return ()
-{-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function destroyAllTextures -}
-destroyAllTextures :: HG3DClass -> IO ()
-destroyAllTextures a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllTextures'_ a1' >>= \res ->
-  return ()
-{-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function beginRendering -}
-beginRendering :: HG3DClass -> IO ()
-beginRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  beginRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function endRendering -}
-endRendering :: HG3DClass -> IO ()
-endRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  endRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function getMaxTextureSize -}
-getMaxTextureSize :: HG3DClass -> IO (Int)
-getMaxTextureSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxTextureSize'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-{- function getIdentifierString -}
-getIdentifierString :: HG3DClass -> IO (String)
-getIdentifierString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getIdentifierString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_bootstrapSystem"
-  bootstrapSystem'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_destroySystem"
-  destroySystem'_ :: (IO ())
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_create"
-  create'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_destroy"
-  destroy'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_createOgreResourceProvider"
-  createOgreResourceProvider'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_destroyOgreResourceProvider"
-  destroyOgreResourceProvider'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_setRenderingEnabled"
-  setRenderingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_isRenderingEnabled"
-  isRenderingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_setupRenderingBlendMode"
-  setupRenderingBlendMode'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_setFrameControlExecutionEnabled"
-  setFrameControlExecutionEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_isFrameControlExecutionEnabled"
-  isFrameControlExecutionEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_initialiseRenderStateSettings"
-  initialiseRenderStateSettings'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_destroyAllGeometryBuffers"
-  destroyAllGeometryBuffers'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_destroyAllTextureTargets"
-  destroyAllTextureTargets'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_destroyAllTextures"
-  destroyAllTextures'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_beginRendering"
-  beginRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_endRendering"
-  endRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_getMaxTextureSize"
-  getMaxTextureSize'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassOgreRenderer.chs.h cegui_ogrrndr_getIdentifierString"
-  getIdentifierString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassOgreResourceProvider.chs view
@@ -0,0 +1,43 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassOgreResourceProvider.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassOgreResourceProvider where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassOgreResourceProvider.h"
− HGamer3D/Bindings/CEGUI/ClassOgreResourceProvider.hs 
@@ -1,50 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreResourceProvider.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassOgreResourceProvider.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassOgreResourceProvider where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreResourceProvider.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreResourceProvider.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassOgreResourceProvider.chs" #-}
-
+ HGamer3D/Bindings/CEGUI/ClassProgressBar.chs view
@@ -0,0 +1,82 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassProgressBar.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassProgressBar where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassProgressBar.h"
+{- function getProgress -}+{#fun cegui_prgbr_getProgress as getProgress +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getStep -}+{#fun cegui_prgbr_getStep as getStep +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setProgress -}+{#fun cegui_prgbr_setProgress as setProgress +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setStepSize -}+{#fun cegui_prgbr_setStepSize as setStepSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function step -}+{#fun cegui_prgbr_step as step +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function adjustProgress -}+{#fun cegui_prgbr_adjustProgress as adjustProgress +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function ProgressBar -}+{#fun cegui_prgbr_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ProgressBar -}+{#fun cegui_prgbr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassProgressBar.hs 
@@ -1,148 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassProgressBar.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassProgressBar where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function getProgress -}
-getProgress :: HG3DClass -> IO (Float)
-getProgress a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getProgress'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function getStep -}
-getStep :: HG3DClass -> IO (Float)
-getStep a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getStep'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function setProgress -}
-setProgress :: HG3DClass -> Float -> IO ()
-setProgress a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setProgress'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function setStepSize -}
-setStepSize :: HG3DClass -> Float -> IO ()
-setStepSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setStepSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function step -}
-step :: HG3DClass -> IO ()
-step a1 =
-  withHG3DClass a1 $ \a1' -> 
-  step'_ a1' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function adjustProgress -}
-adjustProgress :: HG3DClass -> Float -> IO ()
-adjustProgress a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  adjustProgress'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function ProgressBar -}
-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 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-{- function ~ProgressBar -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_getProgress"
-  getProgress'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_getStep"
-  getStep'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_setProgress"
-  setProgress'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_setStepSize"
-  setStepSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_step"
-  step'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_adjustProgress"
-  adjustProgress'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassProgressBar.chs.h cegui_prgbr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassPropertySet.chs view
@@ -0,0 +1,96 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassPropertySet.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassPropertySet where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassPropertySet.h"
+{- function PropertySet -}+{#fun cegui_prpst_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~PropertySet -}+{#fun cegui_prpst_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeProperty -}+{#fun cegui_prpst_removeProperty as removeProperty +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function clearProperties -}+{#fun cegui_prpst_clearProperties as clearProperties +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isPropertyPresent -}+{#fun cegui_prpst_isPropertyPresent as isPropertyPresent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPropertyHelp -}+{#fun cegui_prpst_getPropertyHelp as getPropertyHelp +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getProperty -}+{#fun cegui_prpst_getProperty as getProperty +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setProperty -}+{#fun cegui_prpst_setProperty as setProperty +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function isPropertyDefault -}+{#fun cegui_prpst_isPropertyDefault as isPropertyDefault +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPropertyDefault -}+{#fun cegui_prpst_getPropertyDefault as getPropertyDefault +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassPropertySet.hs 
@@ -1,179 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassPropertySet.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassPropertySet where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function PropertySet -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function ~PropertySet -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function removeProperty -}
-removeProperty :: HG3DClass -> String -> IO ()
-removeProperty a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removeProperty'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function clearProperties -}
-clearProperties :: HG3DClass -> IO ()
-clearProperties a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearProperties'_ a1' >>= \res ->
-  return ()
-{-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function isPropertyPresent -}
-isPropertyPresent :: HG3DClass -> String -> IO (Bool)
-isPropertyPresent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isPropertyPresent'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function getPropertyHelp -}
-getPropertyHelp :: HG3DClass -> String -> IO (String)
-getPropertyHelp a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloc64k $ \a3' -> 
-  getPropertyHelp'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function getProperty -}
-getProperty :: HG3DClass -> String -> IO (String)
-getProperty a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloc64k $ \a3' -> 
-  getProperty'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function setProperty -}
-setProperty :: HG3DClass -> String -> String -> IO ()
-setProperty a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setProperty'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function isPropertyDefault -}
-isPropertyDefault :: HG3DClass -> String -> IO (Bool)
-isPropertyDefault a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isPropertyDefault'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 90 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-{- function getPropertyDefault -}
-getPropertyDefault :: HG3DClass -> String -> IO (String)
-getPropertyDefault a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloc64k $ \a3' -> 
-  getPropertyDefault'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 96 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_removeProperty"
-  removeProperty'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_clearProperties"
-  clearProperties'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_isPropertyPresent"
-  isPropertyPresent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_getPropertyHelp"
-  getPropertyHelp'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_getProperty"
-  getProperty'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_setProperty"
-  setProperty'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_isPropertyDefault"
-  isPropertyDefault'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPropertySet.chs.h cegui_prpst_getPropertyDefault"
-  getPropertyDefault'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassPtr.chs view
@@ -0,0 +1,160 @@+{-# LANGUAGE EmptyDataDecls #-}+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassPtr.chs
+
+-- Class Ptr Utilities+
+module HGamer3D.Bindings.CEGUI.ClassPtr where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+
+#include "ClassPtr.h"
+{- class ClassCheckbox -}+{#pointer *ClassCheckbox as ClassCheckbox#}+{- class ClassCombobox -}+{#pointer *ClassCombobox as ClassCombobox#}+{- class ClassComboDropList -}+{#pointer *ClassComboDropList as ClassComboDropList#}+{- class ClassDefaultLogger -}+{#pointer *ClassDefaultLogger as ClassDefaultLogger#}+{- class ClassDefaultResourceProvider -}+{#pointer *ClassDefaultResourceProvider as ClassDefaultResourceProvider#}+{- class ClassDragContainer -}+{#pointer *ClassDragContainer as ClassDragContainer#}+{- class ClassEditbox -}+{#pointer *ClassEditbox as ClassEditbox#}+{- class ClassEventArgs -}+{#pointer *ClassEventArgs as ClassEventArgs#}+{- class ClassEventSet -}+{#pointer *ClassEventSet as ClassEventSet#}+{- class ClassFont -}+{#pointer *ClassFont as ClassFont#}+{- class ClassFontManager -}+{#pointer *ClassFontManager as ClassFontManager#}+{- class ClassFrameWindow -}+{#pointer *ClassFrameWindow as ClassFrameWindow#}+{- class ClassImageCodec -}+{#pointer *ClassImageCodec as ClassImageCodec#}+{- class ClassImageset -}+{#pointer *ClassImageset as ClassImageset#}+{- class ClassItemEntry -}+{#pointer *ClassItemEntry as ClassItemEntry#}+{- class ClassItemListbox -}+{#pointer *ClassItemListbox as ClassItemListbox#}+{- class ClassListbox -}+{#pointer *ClassListbox as ClassListbox#}+{- class ClassListboxItem -}+{#pointer *ClassListboxItem as ClassListboxItem#}+{- class ClassListboxTextItem -}+{#pointer *ClassListboxTextItem as ClassListboxTextItem#}+{- class ClassListHeader -}+{#pointer *ClassListHeader as ClassListHeader#}+{- class ClassListHeaderSegment -}+{#pointer *ClassListHeaderSegment as ClassListHeaderSegment#}+{- class ClassLogger -}+{#pointer *ClassLogger as ClassLogger#}+{- class ClassMenuBase -}+{#pointer *ClassMenuBase as ClassMenuBase#}+{- class ClassMenuItem -}+{#pointer *ClassMenuItem as ClassMenuItem#}+{- class ClassMultiColumnList -}+{#pointer *ClassMultiColumnList as ClassMultiColumnList#}+{- class ClassMultiLineEditbox -}+{#pointer *ClassMultiLineEditbox as ClassMultiLineEditbox#}+{- class ClassOgreRenderer -}+{#pointer *ClassOgreRenderer as ClassOgreRenderer#}+{- class ClassOgreResourceProvider -}+{#pointer *ClassOgreResourceProvider as ClassOgreResourceProvider#}+{- class ClassProgressBar -}+{#pointer *ClassProgressBar as ClassProgressBar#}+{- class ClassPropertySet -}+{#pointer *ClassPropertySet as ClassPropertySet#}+{- class ClassPushButton -}+{#pointer *ClassPushButton as ClassPushButton#}+{- class ClassRadioButton -}+{#pointer *ClassRadioButton as ClassRadioButton#}+{- class ClassRenderer -}+{#pointer *ClassRenderer as ClassRenderer#}+{- class ClassResourceProvider -}+{#pointer *ClassResourceProvider as ClassResourceProvider#}+{- class ClassScheme -}+{#pointer *ClassScheme as ClassScheme#}+{- class ClassSchemeManager -}+{#pointer *ClassSchemeManager as ClassSchemeManager#}+{- class ClassScriptFunctor -}+{#pointer *ClassScriptFunctor as ClassScriptFunctor#}+{- class ClassScriptModule -}+{#pointer *ClassScriptModule as ClassScriptModule#}+{- class ClassScrollablePane -}+{#pointer *ClassScrollablePane as ClassScrollablePane#}+{- class ClassScrollbar -}+{#pointer *ClassScrollbar as ClassScrollbar#}+{- class ClassScrolledContainer -}+{#pointer *ClassScrolledContainer as ClassScrolledContainer#}+{- class ClassScrolledItemListBase -}+{#pointer *ClassScrolledItemListBase as ClassScrolledItemListBase#}+{- class ClassSlider -}+{#pointer *ClassSlider as ClassSlider#}+{- class ClassSpinner -}+{#pointer *ClassSpinner as ClassSpinner#}+{- class ClassSystem -}+{#pointer *ClassSystem as ClassSystem#}+{- class ClassTabButton -}+{#pointer *ClassTabButton as ClassTabButton#}+{- class ClassThumb -}+{#pointer *ClassThumb as ClassThumb#}+{- class ClassTooltip -}+{#pointer *ClassTooltip as ClassTooltip#}+{- class ClassTree -}+{#pointer *ClassTree as ClassTree#}+{- class ClassWidgetLookManager -}+{#pointer *ClassWidgetLookManager as ClassWidgetLookManager#}+{- class ClassWindow -}+{#pointer *ClassWindow as ClassWindow#}+{- class ClassWindowManager -}+{#pointer *ClassWindowManager as ClassWindowManager#}+{- class ClassXMLParser -}+{#pointer *ClassXMLParser as ClassXMLParser#}+{- class ClassHG3DEventController -}+{#pointer *ClassHG3DEventController as ClassHG3DEventController#}+{- class ClassHG3DEventStaticFunctions -}+{#pointer *ClassHG3DEventStaticFunctions as ClassHG3DEventStaticFunctions#}+{- class ClassHG3DListboxStaticFunctions -}+{#pointer *ClassHG3DListboxStaticFunctions as ClassHG3DListboxStaticFunctions#}+{- class ClassHG3DWindowStaticFunctions -}+{#pointer *ClassHG3DWindowStaticFunctions as ClassHG3DWindowStaticFunctions#}+{- class ClassSystemHG3D -}+{#pointer *ClassSystemHG3D as ClassSystemHG3D#}+{- class ClassWindowManagerHG3D -}+{#pointer *ClassWindowManagerHG3D as ClassWindowManagerHG3D#}
− HGamer3D/Bindings/CEGUI/ClassPtr.hs 
@@ -1,223 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassPtr.chs
-
--- Class Ptr Utilities
-
-module HGamer3D.Bindings.CEGUI.ClassPtr where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-
-{- class ClassCheckbox -}
-type ClassCheckbox = Ptr (())
-{-# LINE 44 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassCombobox -}
-type ClassCombobox = Ptr (())
-{-# LINE 46 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassComboDropList -}
-type ClassComboDropList = Ptr (())
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassDefaultLogger -}
-type ClassDefaultLogger = Ptr (())
-{-# LINE 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassDefaultResourceProvider -}
-type ClassDefaultResourceProvider = Ptr (())
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassDragContainer -}
-type ClassDragContainer = Ptr (())
-{-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassEditbox -}
-type ClassEditbox = Ptr (())
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassEventArgs -}
-type ClassEventArgs = Ptr (())
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassEventSet -}
-type ClassEventSet = Ptr (())
-{-# LINE 60 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassFont -}
-type ClassFont = Ptr (())
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassFontManager -}
-type ClassFontManager = Ptr (())
-{-# LINE 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassFrameWindow -}
-type ClassFrameWindow = Ptr (())
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassImageCodec -}
-type ClassImageCodec = Ptr (())
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassImageset -}
-type ClassImageset = Ptr (())
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassItemEntry -}
-type ClassItemEntry = Ptr (())
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassItemListbox -}
-type ClassItemListbox = Ptr (())
-{-# LINE 74 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassListbox -}
-type ClassListbox = Ptr (())
-{-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassListboxItem -}
-type ClassListboxItem = Ptr (())
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassListboxTextItem -}
-type ClassListboxTextItem = Ptr (())
-{-# LINE 80 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassListHeader -}
-type ClassListHeader = Ptr (())
-{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassListHeaderSegment -}
-type ClassListHeaderSegment = Ptr (())
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassLogger -}
-type ClassLogger = Ptr (())
-{-# LINE 86 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassMenuBase -}
-type ClassMenuBase = Ptr (())
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassMenuItem -}
-type ClassMenuItem = Ptr (())
-{-# LINE 90 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassMultiColumnList -}
-type ClassMultiColumnList = Ptr (())
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassMultiLineEditbox -}
-type ClassMultiLineEditbox = Ptr (())
-{-# LINE 94 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassOgreRenderer -}
-type ClassOgreRenderer = Ptr (())
-{-# LINE 96 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassOgreResourceProvider -}
-type ClassOgreResourceProvider = Ptr (())
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassProgressBar -}
-type ClassProgressBar = Ptr (())
-{-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassPropertySet -}
-type ClassPropertySet = Ptr (())
-{-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassPushButton -}
-type ClassPushButton = Ptr (())
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassRadioButton -}
-type ClassRadioButton = Ptr (())
-{-# LINE 106 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassRenderer -}
-type ClassRenderer = Ptr (())
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassResourceProvider -}
-type ClassResourceProvider = Ptr (())
-{-# LINE 110 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScheme -}
-type ClassScheme = Ptr (())
-{-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassSchemeManager -}
-type ClassSchemeManager = Ptr (())
-{-# LINE 114 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScriptFunctor -}
-type ClassScriptFunctor = Ptr (())
-{-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScriptModule -}
-type ClassScriptModule = Ptr (())
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScrollablePane -}
-type ClassScrollablePane = Ptr (())
-{-# LINE 120 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScrollbar -}
-type ClassScrollbar = Ptr (())
-{-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScrolledContainer -}
-type ClassScrolledContainer = Ptr (())
-{-# LINE 124 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassScrolledItemListBase -}
-type ClassScrolledItemListBase = Ptr (())
-{-# LINE 126 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassSlider -}
-type ClassSlider = Ptr (())
-{-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassSpinner -}
-type ClassSpinner = Ptr (())
-{-# LINE 130 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassSystem -}
-type ClassSystem = Ptr (())
-{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassTabButton -}
-type ClassTabButton = Ptr (())
-{-# LINE 134 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassThumb -}
-type ClassThumb = Ptr (())
-{-# LINE 136 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassTooltip -}
-type ClassTooltip = Ptr (())
-{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassTree -}
-type ClassTree = Ptr (())
-{-# LINE 140 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassWidgetLookManager -}
-type ClassWidgetLookManager = Ptr (())
-{-# LINE 142 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassWindow -}
-type ClassWindow = Ptr (())
-{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassWindowManager -}
-type ClassWindowManager = Ptr (())
-{-# LINE 146 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassXMLParser -}
-type ClassXMLParser = Ptr (())
-{-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassHG3DEventController -}
-type ClassHG3DEventController = Ptr (())
-{-# LINE 150 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassHG3DEventStaticFunctions -}
-type ClassHG3DEventStaticFunctions = Ptr (())
-{-# LINE 152 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassHG3DListboxStaticFunctions -}
-type ClassHG3DListboxStaticFunctions = Ptr (())
-{-# LINE 154 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassHG3DWindowStaticFunctions -}
-type ClassHG3DWindowStaticFunctions = Ptr (())
-{-# LINE 156 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassSystemHG3D -}
-type ClassSystemHG3D = Ptr (())
-{-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
-{- class ClassWindowManagerHG3D -}
-type ClassWindowManagerHG3D = Ptr (())
-{-# LINE 160 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPtr.chs" #-}
+ HGamer3D/Bindings/CEGUI/ClassPushButton.chs view
@@ -0,0 +1,53 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassPushButton.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassPushButton where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassPushButton.h"
+{- function PushButton -}+{#fun cegui_pshbttn_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~PushButton -}+{#fun cegui_pshbttn_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassPushButton.hs 
@@ -1,75 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassPushButton.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassPushButton where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-}
-
-{- function PushButton -}
-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 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-}
-
-{- function ~PushButton -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs.h cegui_pshbttn_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassPushButton.chs.h cegui_pshbttn_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassRadioButton.chs view
@@ -0,0 +1,68 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassRadioButton.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassRadioButton where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassRadioButton.h"
+{- function isSelected -}+{#fun cegui_rdbttn_isSelected as isSelected +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSelectedButtonInGroup -}+{#fun cegui_rdbttn_getSelectedButtonInGroup as getSelectedButtonInGroup +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setSelected -}+{#fun cegui_rdbttn_setSelected as setSelected +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function RadioButton -}+{#fun cegui_rdbttn_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~RadioButton -}+{#fun cegui_rdbttn_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassRadioButton.hs 
@@ -1,113 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassRadioButton.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassRadioButton where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-
-{- function isSelected -}
-isSelected :: HG3DClass -> IO (Bool)
-isSelected a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSelected'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-
-{- function getSelectedButtonInGroup -}
-getSelectedButtonInGroup :: HG3DClass -> IO (HG3DClass)
-getSelectedButtonInGroup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectedButtonInGroup'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-
-{- function setSelected -}
-setSelected :: HG3DClass -> Bool -> IO ()
-setSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSelected'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-
-{- function RadioButton -}
-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 64 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-
-{- function ~RadioButton -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs.h cegui_rdbttn_isSelected"
-  isSelected'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs.h cegui_rdbttn_getSelectedButtonInGroup"
-  getSelectedButtonInGroup'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs.h cegui_rdbttn_setSelected"
-  setSelected'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs.h cegui_rdbttn_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRadioButton.chs.h cegui_rdbttn_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassRenderer.chs view
@@ -0,0 +1,77 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassRenderer.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassRenderer where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassRenderer.h"
+{- function destroyAllGeometryBuffers -}+{#fun cegui_rndr_destroyAllGeometryBuffers as destroyAllGeometryBuffers +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllTextureTargets -}+{#fun cegui_rndr_destroyAllTextureTargets as destroyAllTextureTargets +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllTextures -}+{#fun cegui_rndr_destroyAllTextures as destroyAllTextures +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function beginRendering -}+{#fun cegui_rndr_beginRendering as beginRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function endRendering -}+{#fun cegui_rndr_endRendering as endRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getMaxTextureSize -}+{#fun cegui_rndr_getMaxTextureSize as getMaxTextureSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getIdentifierString -}+{#fun cegui_rndr_getIdentifierString as getIdentifierString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function ~Renderer -}+{#fun cegui_rndr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassRenderer.hs 
@@ -1,142 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassRenderer.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassRenderer where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function destroyAllGeometryBuffers -}
-destroyAllGeometryBuffers :: HG3DClass -> IO ()
-destroyAllGeometryBuffers a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllGeometryBuffers'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function destroyAllTextureTargets -}
-destroyAllTextureTargets :: HG3DClass -> IO ()
-destroyAllTextureTargets a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllTextureTargets'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function destroyAllTextures -}
-destroyAllTextures :: HG3DClass -> IO ()
-destroyAllTextures a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllTextures'_ a1' >>= \res ->
-  return ()
-{-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function beginRendering -}
-beginRendering :: HG3DClass -> IO ()
-beginRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  beginRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function endRendering -}
-endRendering :: HG3DClass -> IO ()
-endRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  endRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function getMaxTextureSize -}
-getMaxTextureSize :: HG3DClass -> IO (Int)
-getMaxTextureSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxTextureSize'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function getIdentifierString -}
-getIdentifierString :: HG3DClass -> IO (String)
-getIdentifierString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getIdentifierString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-{- function ~Renderer -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_destroyAllGeometryBuffers"
-  destroyAllGeometryBuffers'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_destroyAllTextureTargets"
-  destroyAllTextureTargets'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_destroyAllTextures"
-  destroyAllTextures'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_beginRendering"
-  beginRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_endRendering"
-  endRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_getMaxTextureSize"
-  getMaxTextureSize'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_getIdentifierString"
-  getIdentifierString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassRenderer.chs.h cegui_rndr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassResourceProvider.chs view
@@ -0,0 +1,57 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassResourceProvider.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassResourceProvider where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassResourceProvider.h"
+{- function ~ResourceProvider -}+{#fun cegui_rsrcpr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_rsrcpr_getDefaultResourceGroup as getDefaultResourceGroup +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_rsrcpr_setDefaultResourceGroup as setDefaultResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassResourceProvider.hs 
@@ -1,86 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassResourceProvider.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassResourceProvider where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}
-
-{- function ~ResourceProvider -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: HG3DClass -> IO (String)
-getDefaultResourceGroup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getDefaultResourceGroup'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: HG3DClass -> String -> IO ()
-setDefaultResourceGroup a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setDefaultResourceGroup'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs.h cegui_rsrcpr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs.h cegui_rsrcpr_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassResourceProvider.chs.h cegui_rsrcpr_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassScheme.chs view
@@ -0,0 +1,73 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScheme.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassScheme where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScheme.h"
+{- function loadResources -}+{#fun cegui_schm_loadResources as loadResources +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unloadResources -}+{#fun cegui_schm_unloadResources as unloadResources +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resourcesLoaded -}+{#fun cegui_schm_resourcesLoaded as resourcesLoaded +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getName -}+{#fun cegui_schm_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function ~Scheme -}+{#fun cegui_schm_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_schm_getDefaultResourceGroup as getDefaultResourceGroup +{ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_schm_setDefaultResourceGroup as setDefaultResourceGroup +{ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScheme.hs 
@@ -1,132 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScheme.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassScheme where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function loadResources -}
-loadResources :: HG3DClass -> IO ()
-loadResources a1 =
-  withHG3DClass a1 $ \a1' -> 
-  loadResources'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function unloadResources -}
-unloadResources :: HG3DClass -> IO ()
-unloadResources a1 =
-  withHG3DClass a1 $ \a1' -> 
-  unloadResources'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function resourcesLoaded -}
-resourcesLoaded :: HG3DClass -> IO (Bool)
-resourcesLoaded a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  resourcesLoaded'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function ~Scheme -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 65 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: IO (String)
-getDefaultResourceGroup =
-  alloc64k $ \a1' -> 
-  getDefaultResourceGroup'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: String -> IO ()
-setDefaultResourceGroup a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultResourceGroup'_ a1' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_loadResources"
-  loadResources'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_unloadResources"
-  unloadResources'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_resourcesLoaded"
-  resourcesLoaded'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassSchemeManager.chs view
@@ -0,0 +1,51 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassSchemeManager.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassSchemeManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassSchemeManager.h"
+{- function SchemeManager -}+{#fun cegui_schmmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~SchemeManager -}+{#fun cegui_schmmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassSchemeManager.hs 
@@ -1,73 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassSchemeManager.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassSchemeManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-}
-
-{- function SchemeManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-}
-
-{- function ~SchemeManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs.h cegui_schmmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSchemeManager.chs.h cegui_schmmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassScriptFunctor.chs view
@@ -0,0 +1,48 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScriptFunctor.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassScriptFunctor where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScriptFunctor.h"
+{- function ScriptFunctor -}+{#fun cegui_scrfnct_construct as new +{ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScriptFunctor.hs 
@@ -1,63 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScriptFunctor.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassScriptFunctor where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs" #-}
-
-{- function ScriptFunctor -}
-new :: String -> IO (HG3DClass)
-new a1 =
-  withCString a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  new'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptFunctor.chs.h cegui_scrfnct_construct"
-  new'_ :: ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassScriptModule.chs view
@@ -0,0 +1,92 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScriptModule.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassScriptModule where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScriptModule.h"
+{- function ~ScriptModule -}+{#fun cegui_scrmd_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function executeScriptFile -}+{#fun cegui_scrmd_executeScriptFile as executeScriptFile +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function executeScriptGlobal -}+{#fun cegui_scrmd_executeScriptGlobal as executeScriptGlobal +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function executeScriptedEventHandler -}+{#fun cegui_scrmd_executeScriptedEventHandler as executeScriptedEventHandler +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function executeString -}+{#fun cegui_scrmd_executeString as executeString +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function createBindings -}+{#fun cegui_scrmd_createBindings as createBindings +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyBindings -}+{#fun cegui_scrmd_destroyBindings as destroyBindings +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getIdentifierString -}+{#fun cegui_scrmd_getIdentifierString as getIdentifierString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_scrmd_setDefaultResourceGroup as setDefaultResourceGroup +{ withCString* `String' } -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_scrmd_getDefaultResourceGroup as getDefaultResourceGroup +{ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScriptModule.hs 
@@ -1,173 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScriptModule.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassScriptModule where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function ~ScriptModule -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function executeScriptFile -}
-executeScriptFile :: HG3DClass -> String -> String -> IO ()
-executeScriptFile a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  executeScriptFile'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function executeScriptGlobal -}
-executeScriptGlobal :: HG3DClass -> String -> IO (Int)
-executeScriptGlobal a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  executeScriptGlobal'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function executeScriptedEventHandler -}
-executeScriptedEventHandler :: HG3DClass -> String -> HG3DClass -> IO (Bool)
-executeScriptedEventHandler a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  executeScriptedEventHandler'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function executeString -}
-executeString :: HG3DClass -> String -> IO ()
-executeString a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  executeString'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function createBindings -}
-createBindings :: HG3DClass -> IO ()
-createBindings a1 =
-  withHG3DClass a1 $ \a1' -> 
-  createBindings'_ a1' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function destroyBindings -}
-destroyBindings :: HG3DClass -> IO ()
-destroyBindings a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyBindings'_ a1' >>= \res ->
-  return ()
-{-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function getIdentifierString -}
-getIdentifierString :: HG3DClass -> IO (String)
-getIdentifierString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getIdentifierString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: String -> IO ()
-setDefaultResourceGroup a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultResourceGroup'_ a1' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: IO (String)
-getDefaultResourceGroup =
-  alloc64k $ \a1' -> 
-  getDefaultResourceGroup'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_executeScriptFile"
-  executeScriptFile'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_executeScriptGlobal"
-  executeScriptGlobal'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_executeScriptedEventHandler"
-  executeScriptedEventHandler'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_executeString"
-  executeString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_createBindings"
-  createBindings'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_destroyBindings"
-  destroyBindings'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_getIdentifierString"
-  getIdentifierString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScriptModule.chs.h cegui_scrmd_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassScrollablePane.chs view
@@ -0,0 +1,166 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScrollablePane.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassScrollablePane where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScrollablePane.h"
+{- function ScrollablePane -}+{#fun cegui_scrlpn_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ScrollablePane -}+{#fun cegui_scrlpn_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getContentPane -}+{#fun cegui_scrlpn_getContentPane as getContentPane +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isVertScrollbarAlwaysShown -}+{#fun cegui_scrlpn_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_scrlpn_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isHorzScrollbarAlwaysShown -}+{#fun cegui_scrlpn_isHorzScrollbarAlwaysShown as isHorzScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShowHorzScrollbar -}+{#fun cegui_scrlpn_setShowHorzScrollbar as setShowHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isContentPaneAutoSized -}+{#fun cegui_scrlpn_isContentPaneAutoSized as isContentPaneAutoSized +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setContentPaneAutoSized -}+{#fun cegui_scrlpn_setContentPaneAutoSized as setContentPaneAutoSized +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getHorizontalStepSize -}+{#fun cegui_scrlpn_getHorizontalStepSize as getHorizontalStepSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setHorizontalStepSize -}+{#fun cegui_scrlpn_setHorizontalStepSize as setHorizontalStepSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getHorizontalOverlapSize -}+{#fun cegui_scrlpn_getHorizontalOverlapSize as getHorizontalOverlapSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setHorizontalOverlapSize -}+{#fun cegui_scrlpn_setHorizontalOverlapSize as setHorizontalOverlapSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getHorizontalScrollPosition -}+{#fun cegui_scrlpn_getHorizontalScrollPosition as getHorizontalScrollPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setHorizontalScrollPosition -}+{#fun cegui_scrlpn_setHorizontalScrollPosition as setHorizontalScrollPosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getVerticalStepSize -}+{#fun cegui_scrlpn_getVerticalStepSize as getVerticalStepSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setVerticalStepSize -}+{#fun cegui_scrlpn_setVerticalStepSize as setVerticalStepSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getVerticalOverlapSize -}+{#fun cegui_scrlpn_getVerticalOverlapSize as getVerticalOverlapSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setVerticalOverlapSize -}+{#fun cegui_scrlpn_setVerticalOverlapSize as setVerticalOverlapSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getVerticalScrollPosition -}+{#fun cegui_scrlpn_getVerticalScrollPosition as getVerticalScrollPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setVerticalScrollPosition -}+{#fun cegui_scrlpn_setVerticalScrollPosition as setVerticalScrollPosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getVertScrollbar -}+{#fun cegui_scrlpn_getVertScrollbar as getVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getHorzScrollbar -}+{#fun cegui_scrlpn_getHorzScrollbar as getHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_scrlpn_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroy -}+{#fun cegui_scrlpn_destroy as destroy +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScrollablePane.hs 
@@ -1,361 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScrollablePane.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassScrollablePane where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function ScrollablePane -}
-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 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function ~ScrollablePane -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getContentPane -}
-getContentPane :: HG3DClass -> IO (HG3DClass)
-getContentPane a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getContentPane'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function isHorzScrollbarAlwaysShown -}
-isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isHorzScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setShowHorzScrollbar -}
-setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
-setShowHorzScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowHorzScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function isContentPaneAutoSized -}
-isContentPaneAutoSized :: HG3DClass -> IO (Bool)
-isContentPaneAutoSized a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isContentPaneAutoSized'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setContentPaneAutoSized -}
-setContentPaneAutoSized :: HG3DClass -> Bool -> IO ()
-setContentPaneAutoSized a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setContentPaneAutoSized'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getHorizontalStepSize -}
-getHorizontalStepSize :: HG3DClass -> IO (Float)
-getHorizontalStepSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorizontalStepSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setHorizontalStepSize -}
-setHorizontalStepSize :: HG3DClass -> Float -> IO ()
-setHorizontalStepSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setHorizontalStepSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getHorizontalOverlapSize -}
-getHorizontalOverlapSize :: HG3DClass -> IO (Float)
-getHorizontalOverlapSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorizontalOverlapSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setHorizontalOverlapSize -}
-setHorizontalOverlapSize :: HG3DClass -> Float -> IO ()
-setHorizontalOverlapSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setHorizontalOverlapSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getHorizontalScrollPosition -}
-getHorizontalScrollPosition :: HG3DClass -> IO (Float)
-getHorizontalScrollPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorizontalScrollPosition'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setHorizontalScrollPosition -}
-setHorizontalScrollPosition :: HG3DClass -> Float -> IO ()
-setHorizontalScrollPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setHorizontalScrollPosition'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getVerticalStepSize -}
-getVerticalStepSize :: HG3DClass -> IO (Float)
-getVerticalStepSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVerticalStepSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setVerticalStepSize -}
-setVerticalStepSize :: HG3DClass -> Float -> IO ()
-setVerticalStepSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setVerticalStepSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getVerticalOverlapSize -}
-getVerticalOverlapSize :: HG3DClass -> IO (Float)
-getVerticalOverlapSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVerticalOverlapSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setVerticalOverlapSize -}
-setVerticalOverlapSize :: HG3DClass -> Float -> IO ()
-setVerticalOverlapSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setVerticalOverlapSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getVerticalScrollPosition -}
-getVerticalScrollPosition :: HG3DClass -> IO (Float)
-getVerticalScrollPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVerticalScrollPosition'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 143 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function setVerticalScrollPosition -}
-setVerticalScrollPosition :: HG3DClass -> Float -> IO ()
-setVerticalScrollPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setVerticalScrollPosition'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getVertScrollbar -}
-getVertScrollbar :: HG3DClass -> IO (HG3DClass)
-getVertScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 153 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function getHorzScrollbar -}
-getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
-getHorzScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorzScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 162 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-{- function destroy -}
-destroy :: HG3DClass -> IO ()
-destroy a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroy'_ a1' >>= \res ->
-  return ()
-{-# LINE 166 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getContentPane"
-  getContentPane'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_isHorzScrollbarAlwaysShown"
-  isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setShowHorzScrollbar"
-  setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_isContentPaneAutoSized"
-  isContentPaneAutoSized'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setContentPaneAutoSized"
-  setContentPaneAutoSized'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorizontalStepSize"
-  getHorizontalStepSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setHorizontalStepSize"
-  setHorizontalStepSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorizontalOverlapSize"
-  getHorizontalOverlapSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setHorizontalOverlapSize"
-  setHorizontalOverlapSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorizontalScrollPosition"
-  getHorizontalScrollPosition'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setHorizontalScrollPosition"
-  setHorizontalScrollPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVerticalStepSize"
-  getVerticalStepSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setVerticalStepSize"
-  setVerticalStepSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVerticalOverlapSize"
-  getVerticalOverlapSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setVerticalOverlapSize"
-  setVerticalOverlapSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVerticalScrollPosition"
-  getVerticalScrollPosition'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_setVerticalScrollPosition"
-  setVerticalScrollPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getVertScrollbar"
-  getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_getHorzScrollbar"
-  getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollablePane.chs.h cegui_scrlpn_destroy"
-  destroy'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassScrollbar.chs view
@@ -0,0 +1,132 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScrollbar.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassScrollbar where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScrollbar.h"
+{- function getDocumentSize -}+{#fun cegui_scrlbr_getDocumentSize as getDocumentSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getPageSize -}+{#fun cegui_scrlbr_getPageSize as getPageSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getStepSize -}+{#fun cegui_scrlbr_getStepSize as getStepSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getOverlapSize -}+{#fun cegui_scrlbr_getOverlapSize as getOverlapSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getScrollPosition -}+{#fun cegui_scrlbr_getScrollPosition as getScrollPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getIncreaseButton -}+{#fun cegui_scrlbr_getIncreaseButton as getIncreaseButton +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getDecreaseButton -}+{#fun cegui_scrlbr_getDecreaseButton as getDecreaseButton +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getThumb -}+{#fun cegui_scrlbr_getThumb as getThumb +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_scrlbr_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDocumentSize -}+{#fun cegui_scrlbr_setDocumentSize as setDocumentSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setPageSize -}+{#fun cegui_scrlbr_setPageSize as setPageSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setStepSize -}+{#fun cegui_scrlbr_setStepSize as setStepSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setOverlapSize -}+{#fun cegui_scrlbr_setOverlapSize as setOverlapSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setScrollPosition -}+{#fun cegui_scrlbr_setScrollPosition as setScrollPosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setEndLockEnabled -}+{#fun cegui_scrlbr_setEndLockEnabled as setEndLockEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isEndLockEnabled -}+{#fun cegui_scrlbr_isEndLockEnabled as isEndLockEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function Scrollbar -}+{#fun cegui_scrlbr_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Scrollbar -}+{#fun cegui_scrlbr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScrollbar.hs 
@@ -1,275 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScrollbar.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassScrollbar where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getDocumentSize -}
-getDocumentSize :: HG3DClass -> IO (Float)
-getDocumentSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDocumentSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getPageSize -}
-getPageSize :: HG3DClass -> IO (Float)
-getPageSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPageSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getStepSize -}
-getStepSize :: HG3DClass -> IO (Float)
-getStepSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getStepSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getOverlapSize -}
-getOverlapSize :: HG3DClass -> IO (Float)
-getOverlapSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOverlapSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getScrollPosition -}
-getScrollPosition :: HG3DClass -> IO (Float)
-getScrollPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getScrollPosition'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getIncreaseButton -}
-getIncreaseButton :: HG3DClass -> IO (HG3DClass)
-getIncreaseButton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getIncreaseButton'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getDecreaseButton -}
-getDecreaseButton :: HG3DClass -> IO (HG3DClass)
-getDecreaseButton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDecreaseButton'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function getThumb -}
-getThumb :: HG3DClass -> IO (HG3DClass)
-getThumb a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getThumb'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function setDocumentSize -}
-setDocumentSize :: HG3DClass -> Float -> IO ()
-setDocumentSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDocumentSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function setPageSize -}
-setPageSize :: HG3DClass -> Float -> IO ()
-setPageSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setPageSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function setStepSize -}
-setStepSize :: HG3DClass -> Float -> IO ()
-setStepSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setStepSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 102 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function setOverlapSize -}
-setOverlapSize :: HG3DClass -> Float -> IO ()
-setOverlapSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setOverlapSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function setScrollPosition -}
-setScrollPosition :: HG3DClass -> Float -> IO ()
-setScrollPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setScrollPosition'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function setEndLockEnabled -}
-setEndLockEnabled :: HG3DClass -> Bool -> IO ()
-setEndLockEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setEndLockEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 117 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function isEndLockEnabled -}
-isEndLockEnabled :: HG3DClass -> IO (Bool)
-isEndLockEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isEndLockEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function Scrollbar -}
-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 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-{- function ~Scrollbar -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getDocumentSize"
-  getDocumentSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getPageSize"
-  getPageSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getStepSize"
-  getStepSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getOverlapSize"
-  getOverlapSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getScrollPosition"
-  getScrollPosition'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getIncreaseButton"
-  getIncreaseButton'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getDecreaseButton"
-  getDecreaseButton'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_getThumb"
-  getThumb'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_setDocumentSize"
-  setDocumentSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_setPageSize"
-  setPageSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_setStepSize"
-  setStepSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_setOverlapSize"
-  setOverlapSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_setScrollPosition"
-  setScrollPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_setEndLockEnabled"
-  setEndLockEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_isEndLockEnabled"
-  isEndLockEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrollbar.chs.h cegui_scrlbr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassScrolledContainer.chs view
@@ -0,0 +1,63 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScrolledContainer.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassScrolledContainer where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScrolledContainer.h"
+{- function ScrolledContainer -}+{#fun cegui_scrlcnt_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ScrolledContainer -}+{#fun cegui_scrlcnt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isContentPaneAutoSized -}+{#fun cegui_scrlcnt_isContentPaneAutoSized as isContentPaneAutoSized +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setContentPaneAutoSized -}+{#fun cegui_scrlcnt_setContentPaneAutoSized as setContentPaneAutoSized +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScrolledContainer.hs 
@@ -1,100 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScrolledContainer.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassScrolledContainer where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-
-{- function ScrolledContainer -}
-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 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-
-{- function ~ScrolledContainer -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-
-{- function isContentPaneAutoSized -}
-isContentPaneAutoSized :: HG3DClass -> IO (Bool)
-isContentPaneAutoSized a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isContentPaneAutoSized'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-
-{- function setContentPaneAutoSized -}
-setContentPaneAutoSized :: HG3DClass -> Bool -> IO ()
-setContentPaneAutoSized a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setContentPaneAutoSized'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs.h cegui_scrlcnt_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs.h cegui_scrlcnt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs.h cegui_scrlcnt_isContentPaneAutoSized"
-  isContentPaneAutoSized'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledContainer.chs.h cegui_scrlcnt_setContentPaneAutoSized"
-  setContentPaneAutoSized'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassScrolledItemListBase.chs view
@@ -0,0 +1,87 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassScrolledItemListBase.chs
+
+-- abstrakte Klasse!+
+module HGamer3D.Bindings.CEGUI.ClassScrolledItemListBase where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassScrolledItemListBase.h"
+{- function isVertScrollbarAlwaysShown -}+{#fun cegui_scrlitmlstbs_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHorzScrollbarAlwaysShown -}+{#fun cegui_scrlitmlstbs_isHorzScrollbarAlwaysShown as isHorzScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getVertScrollbar -}+{#fun cegui_scrlitmlstbs_getVertScrollbar as getVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getHorzScrollbar -}+{#fun cegui_scrlitmlstbs_getHorzScrollbar as getHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_scrlitmlstbs_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowHorzScrollbar -}+{#fun cegui_scrlitmlstbs_setShowHorzScrollbar as setShowHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function ensureItemIsVisibleVert -}+{#fun cegui_scrlitmlstbs_ensureItemIsVisibleVert as ensureItemIsVisibleVert +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function ensureItemIsVisibleHorz -}+{#fun cegui_scrlitmlstbs_ensureItemIsVisibleHorz as ensureItemIsVisibleHorz +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_scrlitmlstbs_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassScrolledItemListBase.hs 
@@ -1,161 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassScrolledItemListBase.chs
-
--- abstrakte Klasse!
-
-module HGamer3D.Bindings.CEGUI.ClassScrolledItemListBase where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function isHorzScrollbarAlwaysShown -}
-isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isHorzScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function getVertScrollbar -}
-getVertScrollbar :: HG3DClass -> IO (HG3DClass)
-getVertScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function getHorzScrollbar -}
-getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
-getHorzScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorzScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function setShowHorzScrollbar -}
-setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
-setShowHorzScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowHorzScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function ensureItemIsVisibleVert -}
-ensureItemIsVisibleVert :: HG3DClass -> HG3DClass -> IO ()
-ensureItemIsVisibleVert a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  ensureItemIsVisibleVert'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function ensureItemIsVisibleHorz -}
-ensureItemIsVisibleHorz :: HG3DClass -> HG3DClass -> IO ()
-ensureItemIsVisibleHorz a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  ensureItemIsVisibleHorz'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_isHorzScrollbarAlwaysShown"
-  isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_getVertScrollbar"
-  getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_getHorzScrollbar"
-  getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_setShowHorzScrollbar"
-  setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_ensureItemIsVisibleVert"
-  ensureItemIsVisibleVert'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_ensureItemIsVisibleHorz"
-  ensureItemIsVisibleHorz'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScrolledItemListBase.chs.h cegui_scrlitmlstbs_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassSlider.chs view
@@ -0,0 +1,92 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassSlider.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassSlider where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassSlider.h"
+{- function getCurrentValue -}+{#fun cegui_sldr_getCurrentValue as getCurrentValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMaxValue -}+{#fun cegui_sldr_getMaxValue as getMaxValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getClickStep -}+{#fun cegui_sldr_getClickStep as getClickStep +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getThumb -}+{#fun cegui_sldr_getThumb as getThumb +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_sldr_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setMaxValue -}+{#fun cegui_sldr_setMaxValue as setMaxValue +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setCurrentValue -}+{#fun cegui_sldr_setCurrentValue as setCurrentValue +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setClickStep -}+{#fun cegui_sldr_setClickStep as setClickStep +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function Slider -}+{#fun cegui_sldr_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Slider -}+{#fun cegui_sldr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassSlider.hs 
@@ -1,174 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassSlider.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassSlider where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function getCurrentValue -}
-getCurrentValue :: HG3DClass -> IO (Float)
-getCurrentValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCurrentValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function getMaxValue -}
-getMaxValue :: HG3DClass -> IO (Float)
-getMaxValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function getClickStep -}
-getClickStep :: HG3DClass -> IO (Float)
-getClickStep a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getClickStep'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function getThumb -}
-getThumb :: HG3DClass -> IO (HG3DClass)
-getThumb a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getThumb'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function setMaxValue -}
-setMaxValue :: HG3DClass -> Float -> IO ()
-setMaxValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setMaxValue'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function setCurrentValue -}
-setCurrentValue :: HG3DClass -> Float -> IO ()
-setCurrentValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setCurrentValue'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function setClickStep -}
-setClickStep :: HG3DClass -> Float -> IO ()
-setClickStep a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setClickStep'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function Slider -}
-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 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-{- function ~Slider -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_getCurrentValue"
-  getCurrentValue'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_getMaxValue"
-  getMaxValue'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_getClickStep"
-  getClickStep'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_getThumb"
-  getThumb'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_setMaxValue"
-  setMaxValue'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_setCurrentValue"
-  setCurrentValue'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_setClickStep"
-  setClickStep'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSlider.chs.h cegui_sldr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassSpinner.chs view
@@ -0,0 +1,108 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassSpinner.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassSpinner where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumTextInputMode #}+
+#include "ClassSpinner.h"
+{- function Spinner -}+{#fun cegui_spnnr_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Spinner -}+{#fun cegui_spnnr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_spnnr_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getCurrentValue -}+{#fun cegui_spnnr_getCurrentValue as getCurrentValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Double' peekFloatConv*} -> `()'  #}++{- function getStepSize -}+{#fun cegui_spnnr_getStepSize as getStepSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Double' peekFloatConv*} -> `()'  #}++{- function getMaximumValue -}+{#fun cegui_spnnr_getMaximumValue as getMaximumValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Double' peekFloatConv*} -> `()'  #}++{- function getMinimumValue -}+{#fun cegui_spnnr_getMinimumValue as getMinimumValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Double' peekFloatConv*} -> `()'  #}++{- function getTextInputMode -}+{#fun cegui_spnnr_getTextInputMode as getTextInputMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumTextInputMode' peekEnumUtil*} -> `()'  #}++{- function setCurrentValue -}+{#fun cegui_spnnr_setCurrentValue as setCurrentValue +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Double' } -> `()'  #}++{- function setStepSize -}+{#fun cegui_spnnr_setStepSize as setStepSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Double' } -> `()'  #}++{- function setMaximumValue -}+{#fun cegui_spnnr_setMaximumValue as setMaximumValue +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Double' } -> `()'  #}++{- function setMinimumValue -}+{#fun cegui_spnnr_setMinimumValue as setMinimumValue +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Double' } -> `()'  #}++{- function setTextInputMode -}+{#fun cegui_spnnr_setTextInputMode as setTextInputMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumTextInputMode' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassSpinner.hs 
@@ -1,213 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassSpinner.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassSpinner where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumTextInputMode
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function Spinner -}
-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 50 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function ~Spinner -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 54 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function initialiseComponents -}
-initialiseComponents :: HG3DClass -> IO ()
-initialiseComponents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseComponents'_ a1' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function getCurrentValue -}
-getCurrentValue :: HG3DClass -> IO (Double)
-getCurrentValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCurrentValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function getStepSize -}
-getStepSize :: HG3DClass -> IO (Double)
-getStepSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getStepSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function getMaximumValue -}
-getMaximumValue :: HG3DClass -> IO (Double)
-getMaximumValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaximumValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function getMinimumValue -}
-getMinimumValue :: HG3DClass -> IO (Double)
-getMinimumValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMinimumValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function getTextInputMode -}
-getTextInputMode :: HG3DClass -> IO (EnumTextInputMode)
-getTextInputMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTextInputMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function setCurrentValue -}
-setCurrentValue :: HG3DClass -> Double -> IO ()
-setCurrentValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setCurrentValue'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function setStepSize -}
-setStepSize :: HG3DClass -> Double -> IO ()
-setStepSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setStepSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function setMaximumValue -}
-setMaximumValue :: HG3DClass -> Double -> IO ()
-setMaximumValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setMaximumValue'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function setMinimumValue -}
-setMinimumValue :: HG3DClass -> Double -> IO ()
-setMinimumValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setMinimumValue'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-{- function setTextInputMode -}
-setTextInputMode :: HG3DClass -> EnumTextInputMode -> IO ()
-setTextInputMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setTextInputMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_getCurrentValue"
-  getCurrentValue'_ :: ((HG3DClassPtr) -> ((Ptr CDouble) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_getStepSize"
-  getStepSize'_ :: ((HG3DClassPtr) -> ((Ptr CDouble) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_getMaximumValue"
-  getMaximumValue'_ :: ((HG3DClassPtr) -> ((Ptr CDouble) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_getMinimumValue"
-  getMinimumValue'_ :: ((HG3DClassPtr) -> ((Ptr CDouble) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_getTextInputMode"
-  getTextInputMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_setCurrentValue"
-  setCurrentValue'_ :: ((HG3DClassPtr) -> (CDouble -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_setStepSize"
-  setStepSize'_ :: ((HG3DClassPtr) -> (CDouble -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_setMaximumValue"
-  setMaximumValue'_ :: ((HG3DClassPtr) -> (CDouble -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_setMinimumValue"
-  setMinimumValue'_ :: ((HG3DClassPtr) -> (CDouble -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSpinner.chs.h cegui_spnnr_setTextInputMode"
-  setTextInputMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassSystem.chs view
@@ -0,0 +1,363 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassSystem.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassSystem where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumMouseButton #}+
+#include "ClassSystem.h"
+{- function create -}+{#fun cegui_sstm_create as create +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroy -}+{#fun cegui_sstm_destroy as destroy +{ } -> `()'  #}++{- function getSingleton -}+{#fun cegui_sstm_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun cegui_sstm_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setDefaultXMLParserName -}+{#fun cegui_sstm_setDefaultXMLParserName as setDefaultXMLParserName +{ withCString* `String' } -> `()'  #}++{- function getDefaultXMLParserName -}+{#fun cegui_sstm_getDefaultXMLParserName as getDefaultXMLParserName +{ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultImageCodecName -}+{#fun cegui_sstm_setDefaultImageCodecName as setDefaultImageCodecName +{ withCString* `String' } -> `()'  #}++{- function getDefaultImageCodecName -}+{#fun cegui_sstm_getDefaultImageCodecName as getDefaultImageCodecName +{ alloc64k- `String' peekCString*} -> `()'  #}++{- function getRenderer -}+{#fun cegui_sstm_getRenderer as getRenderer +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setDefaultFont -}+{#fun cegui_sstm_setDefaultFont as setDefaultFont +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setDefaultFont2 -}+{#fun cegui_sstm_setDefaultFont2 as setDefaultFont2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getDefaultFont -}+{#fun cegui_sstm_getDefaultFont as getDefaultFont +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function signalRedraw -}+{#fun cegui_sstm_signalRedraw as signalRedraw +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isRedrawRequested -}+{#fun cegui_sstm_isRedrawRequested as isRedrawRequested +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function renderGUI -}+{#fun cegui_sstm_renderGUI as renderGUI +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setGUISheet -}+{#fun cegui_sstm_setGUISheet as setGUISheet +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getGUISheet -}+{#fun cegui_sstm_getGUISheet as getGUISheet +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingleClickTimeout -}+{#fun cegui_sstm_getSingleClickTimeout as getSingleClickTimeout +{ withHG3DClass* `HG3DClass' ,+ alloca- `Double' peekFloatConv*} -> `()'  #}++{- function getMultiClickTimeout -}+{#fun cegui_sstm_getMultiClickTimeout as getMultiClickTimeout +{ withHG3DClass* `HG3DClass' ,+ alloca- `Double' peekFloatConv*} -> `()'  #}++{- function setSingleClickTimeout -}+{#fun cegui_sstm_setSingleClickTimeout as setSingleClickTimeout +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Double' } -> `()'  #}++{- function setMultiClickTimeout -}+{#fun cegui_sstm_setMultiClickTimeout as setMultiClickTimeout +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Double' } -> `()'  #}++{- function isMouseClickEventGenerationEnabled -}+{#fun cegui_sstm_isMouseClickEventGenerationEnabled as isMouseClickEventGenerationEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setMouseClickEventGenerationEnabled -}+{#fun cegui_sstm_setMouseClickEventGenerationEnabled as setMouseClickEventGenerationEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setDefaultMouseCursor3 -}+{#fun cegui_sstm_setDefaultMouseCursor3 as setDefaultMouseCursor3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function getWindowContainingMouse -}+{#fun cegui_sstm_getWindowContainingMouse as getWindowContainingMouse +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getScriptingModule -}+{#fun cegui_sstm_getScriptingModule as getScriptingModule +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setScriptingModule -}+{#fun cegui_sstm_setScriptingModule as setScriptingModule +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getResourceProvider -}+{#fun cegui_sstm_getResourceProvider as getResourceProvider +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function executeScriptFile -}+{#fun cegui_sstm_executeScriptFile as executeScriptFile +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function executeScriptGlobal -}+{#fun cegui_sstm_executeScriptGlobal as executeScriptGlobal +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function executeScriptString -}+{#fun cegui_sstm_executeScriptString as executeScriptString +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getMouseMoveScaling -}+{#fun cegui_sstm_getMouseMoveScaling as getMouseMoveScaling +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setMouseMoveScaling -}+{#fun cegui_sstm_setMouseMoveScaling as setMouseMoveScaling +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function notifyWindowDestroyed -}+{#fun cegui_sstm_notifyWindowDestroyed as notifyWindowDestroyed +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSystemKeys -}+{#fun cegui_sstm_getSystemKeys as getSystemKeys +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setXMLParser -}+{#fun cegui_sstm_setXMLParser as setXMLParser +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setXMLParser2 -}+{#fun cegui_sstm_setXMLParser2 as setXMLParser2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getXMLParser -}+{#fun cegui_sstm_getXMLParser as getXMLParser +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setDefaultTooltip -}+{#fun cegui_sstm_setDefaultTooltip as setDefaultTooltip +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDefaultTooltip2 -}+{#fun cegui_sstm_setDefaultTooltip2 as setDefaultTooltip2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getDefaultTooltip -}+{#fun cegui_sstm_getDefaultTooltip as getDefaultTooltip +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setModalTarget -}+{#fun cegui_sstm_setModalTarget as setModalTarget +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getModalTarget -}+{#fun cegui_sstm_getModalTarget as getModalTarget +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function updateWindowContainingMouse -}+{#fun cegui_sstm_updateWindowContainingMouse as updateWindowContainingMouse +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getImageCodec -}+{#fun cegui_sstm_getImageCodec as getImageCodec +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setImageCodec -}+{#fun cegui_sstm_setImageCodec as setImageCodec +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setImageCodec2 -}+{#fun cegui_sstm_setImageCodec2 as setImageCodec2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function invalidateAllCachedRendering -}+{#fun cegui_sstm_invalidateAllCachedRendering as invalidateAllCachedRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function injectMouseMove -}+{#fun cegui_sstm_injectMouseMove as injectMouseMove +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseLeaves -}+{#fun cegui_sstm_injectMouseLeaves as injectMouseLeaves +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseButtonDown -}+{#fun cegui_sstm_injectMouseButtonDown as injectMouseButtonDown +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumMouseButton' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseButtonUp -}+{#fun cegui_sstm_injectMouseButtonUp as injectMouseButtonUp +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumMouseButton' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectKeyDown -}+{#fun cegui_sstm_injectKeyDown as injectKeyDown +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectKeyUp -}+{#fun cegui_sstm_injectKeyUp as injectKeyUp +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectChar -}+{#fun cegui_sstm_injectChar as injectChar +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseWheelChange -}+{#fun cegui_sstm_injectMouseWheelChange as injectMouseWheelChange +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMousePosition -}+{#fun cegui_sstm_injectMousePosition as injectMousePosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectTimePulse -}+{#fun cegui_sstm_injectTimePulse as injectTimePulse +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseButtonClick -}+{#fun cegui_sstm_injectMouseButtonClick as injectMouseButtonClick +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumMouseButton' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseButtonDoubleClick -}+{#fun cegui_sstm_injectMouseButtonDoubleClick as injectMouseButtonDoubleClick +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumMouseButton' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMouseButtonTripleClick -}+{#fun cegui_sstm_injectMouseButtonTripleClick as injectMouseButtonTripleClick +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumMouseButton' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassSystem.hs 
@@ -1,834 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassSystem.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassSystem where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumMouseButton
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- 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' -> 
-  withHG3DClass a3 $ \a3' -> 
-  withHG3DClass a4 $ \a4' -> 
-  withHG3DClass a5 $ \a5' -> 
-  withCString a6 $ \a6' -> 
-  withCString a7 $ \a7' -> 
-  alloca $ \a8' -> 
-  create'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
-  peek  a8'>>= \a8'' -> 
-  return (a8'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function destroy -}
-destroy :: IO ()
-destroy =
-  destroy'_ >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultXMLParserName -}
-setDefaultXMLParserName :: String -> IO ()
-setDefaultXMLParserName a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultXMLParserName'_ a1' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getDefaultXMLParserName -}
-getDefaultXMLParserName :: IO (String)
-getDefaultXMLParserName =
-  alloc64k $ \a1' -> 
-  getDefaultXMLParserName'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 75 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultImageCodecName -}
-setDefaultImageCodecName :: String -> IO ()
-setDefaultImageCodecName a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultImageCodecName'_ a1' >>= \res ->
-  return ()
-{-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getDefaultImageCodecName -}
-getDefaultImageCodecName :: IO (String)
-getDefaultImageCodecName =
-  alloc64k $ \a1' -> 
-  getDefaultImageCodecName'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getRenderer -}
-getRenderer :: HG3DClass -> IO (HG3DClass)
-getRenderer a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRenderer'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultFont -}
-setDefaultFont :: HG3DClass -> String -> IO ()
-setDefaultFont a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setDefaultFont'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultFont2 -}
-setDefaultFont2 :: HG3DClass -> HG3DClass -> IO ()
-setDefaultFont2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setDefaultFont2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getDefaultFont -}
-getDefaultFont :: HG3DClass -> IO (HG3DClass)
-getDefaultFont a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultFont'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function signalRedraw -}
-signalRedraw :: HG3DClass -> IO ()
-signalRedraw a1 =
-  withHG3DClass a1 $ \a1' -> 
-  signalRedraw'_ a1' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function isRedrawRequested -}
-isRedrawRequested :: HG3DClass -> IO (Bool)
-isRedrawRequested a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isRedrawRequested'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 112 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function renderGUI -}
-renderGUI :: HG3DClass -> IO ()
-renderGUI a1 =
-  withHG3DClass a1 $ \a1' -> 
-  renderGUI'_ a1' >>= \res ->
-  return ()
-{-# LINE 116 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setGUISheet -}
-setGUISheet :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-setGUISheet a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  setGUISheet'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 122 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getGUISheet -}
-getGUISheet :: HG3DClass -> IO (HG3DClass)
-getGUISheet a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getGUISheet'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 127 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getSingleClickTimeout -}
-getSingleClickTimeout :: HG3DClass -> IO (Double)
-getSingleClickTimeout a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSingleClickTimeout'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getMultiClickTimeout -}
-getMultiClickTimeout :: HG3DClass -> IO (Double)
-getMultiClickTimeout a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMultiClickTimeout'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 137 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setSingleClickTimeout -}
-setSingleClickTimeout :: HG3DClass -> Double -> IO ()
-setSingleClickTimeout a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setSingleClickTimeout'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 142 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setMultiClickTimeout -}
-setMultiClickTimeout :: HG3DClass -> Double -> IO ()
-setMultiClickTimeout a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setMultiClickTimeout'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 147 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function isMouseClickEventGenerationEnabled -}
-isMouseClickEventGenerationEnabled :: HG3DClass -> IO (Bool)
-isMouseClickEventGenerationEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isMouseClickEventGenerationEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 152 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setMouseClickEventGenerationEnabled -}
-setMouseClickEventGenerationEnabled :: HG3DClass -> Bool -> IO ()
-setMouseClickEventGenerationEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setMouseClickEventGenerationEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 157 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultMouseCursor3 -}
-setDefaultMouseCursor3 :: HG3DClass -> String -> String -> IO ()
-setDefaultMouseCursor3 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setDefaultMouseCursor3'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 163 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getWindowContainingMouse -}
-getWindowContainingMouse :: HG3DClass -> IO (HG3DClass)
-getWindowContainingMouse a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWindowContainingMouse'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 168 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getScriptingModule -}
-getScriptingModule :: HG3DClass -> IO (HG3DClass)
-getScriptingModule a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getScriptingModule'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 173 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setScriptingModule -}
-setScriptingModule :: HG3DClass -> HG3DClass -> IO ()
-setScriptingModule a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setScriptingModule'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 178 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getResourceProvider -}
-getResourceProvider :: HG3DClass -> IO (HG3DClass)
-getResourceProvider a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getResourceProvider'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 183 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function executeScriptFile -}
-executeScriptFile :: HG3DClass -> String -> String -> IO ()
-executeScriptFile a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  executeScriptFile'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 189 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function executeScriptGlobal -}
-executeScriptGlobal :: HG3DClass -> String -> IO (Int)
-executeScriptGlobal a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  executeScriptGlobal'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 195 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function executeScriptString -}
-executeScriptString :: HG3DClass -> String -> IO ()
-executeScriptString a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  executeScriptString'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 200 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getMouseMoveScaling -}
-getMouseMoveScaling :: HG3DClass -> IO (Float)
-getMouseMoveScaling a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMouseMoveScaling'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 205 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setMouseMoveScaling -}
-setMouseMoveScaling :: HG3DClass -> Float -> IO ()
-setMouseMoveScaling a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setMouseMoveScaling'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 210 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function notifyWindowDestroyed -}
-notifyWindowDestroyed :: HG3DClass -> HG3DClass -> IO ()
-notifyWindowDestroyed a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  notifyWindowDestroyed'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 215 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getSystemKeys -}
-getSystemKeys :: HG3DClass -> IO (Int)
-getSystemKeys a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSystemKeys'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 220 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setXMLParser -}
-setXMLParser :: HG3DClass -> String -> IO ()
-setXMLParser a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setXMLParser'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 225 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setXMLParser2 -}
-setXMLParser2 :: HG3DClass -> HG3DClass -> IO ()
-setXMLParser2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setXMLParser2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 230 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getXMLParser -}
-getXMLParser :: HG3DClass -> IO (HG3DClass)
-getXMLParser a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getXMLParser'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 235 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultTooltip -}
-setDefaultTooltip :: HG3DClass -> HG3DClass -> IO ()
-setDefaultTooltip a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setDefaultTooltip'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 240 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setDefaultTooltip2 -}
-setDefaultTooltip2 :: HG3DClass -> String -> IO ()
-setDefaultTooltip2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setDefaultTooltip2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 245 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getDefaultTooltip -}
-getDefaultTooltip :: HG3DClass -> IO (HG3DClass)
-getDefaultTooltip a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultTooltip'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 250 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setModalTarget -}
-setModalTarget :: HG3DClass -> HG3DClass -> IO ()
-setModalTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setModalTarget'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 255 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getModalTarget -}
-getModalTarget :: HG3DClass -> IO (HG3DClass)
-getModalTarget a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getModalTarget'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 260 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function updateWindowContainingMouse -}
-updateWindowContainingMouse :: HG3DClass -> IO (Bool)
-updateWindowContainingMouse a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  updateWindowContainingMouse'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 265 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function getImageCodec -}
-getImageCodec :: HG3DClass -> IO (HG3DClass)
-getImageCodec a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getImageCodec'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 270 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setImageCodec -}
-setImageCodec :: HG3DClass -> String -> IO ()
-setImageCodec a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setImageCodec'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 275 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function setImageCodec2 -}
-setImageCodec2 :: HG3DClass -> HG3DClass -> IO ()
-setImageCodec2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setImageCodec2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 280 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function invalidateAllCachedRendering -}
-invalidateAllCachedRendering :: HG3DClass -> IO ()
-invalidateAllCachedRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  invalidateAllCachedRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 284 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseMove -}
-injectMouseMove :: HG3DClass -> Float -> Float -> IO (Bool)
-injectMouseMove a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  alloca $ \a4' -> 
-  injectMouseMove'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 291 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseLeaves -}
-injectMouseLeaves :: HG3DClass -> IO (Bool)
-injectMouseLeaves a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  injectMouseLeaves'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 296 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseButtonDown -}
-injectMouseButtonDown :: HG3DClass -> EnumMouseButton -> IO (Bool)
-injectMouseButtonDown a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  injectMouseButtonDown'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 302 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseButtonUp -}
-injectMouseButtonUp :: HG3DClass -> EnumMouseButton -> IO (Bool)
-injectMouseButtonUp a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  injectMouseButtonUp'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 308 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectKeyDown -}
-injectKeyDown :: HG3DClass -> Int -> IO (Bool)
-injectKeyDown a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  injectKeyDown'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 314 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectKeyUp -}
-injectKeyUp :: HG3DClass -> Int -> IO (Bool)
-injectKeyUp a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  injectKeyUp'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 320 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectChar -}
-injectChar :: HG3DClass -> Int -> IO (Bool)
-injectChar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  injectChar'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 326 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseWheelChange -}
-injectMouseWheelChange :: HG3DClass -> Float -> IO (Bool)
-injectMouseWheelChange a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  alloca $ \a3' -> 
-  injectMouseWheelChange'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 332 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMousePosition -}
-injectMousePosition :: HG3DClass -> Float -> Float -> IO (Bool)
-injectMousePosition a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  alloca $ \a4' -> 
-  injectMousePosition'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 339 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectTimePulse -}
-injectTimePulse :: HG3DClass -> Float -> IO (Bool)
-injectTimePulse a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  alloca $ \a3' -> 
-  injectTimePulse'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 345 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseButtonClick -}
-injectMouseButtonClick :: HG3DClass -> EnumMouseButton -> IO (Bool)
-injectMouseButtonClick a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  injectMouseButtonClick'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 351 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseButtonDoubleClick -}
-injectMouseButtonDoubleClick :: HG3DClass -> EnumMouseButton -> IO (Bool)
-injectMouseButtonDoubleClick a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  injectMouseButtonDoubleClick'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 357 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-{- function injectMouseButtonTripleClick -}
-injectMouseButtonTripleClick :: HG3DClass -> EnumMouseButton -> IO (Bool)
-injectMouseButtonTripleClick a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  injectMouseButtonTripleClick'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 363 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_create"
-  create'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_destroy"
-  destroy'_ :: (IO ())
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultXMLParserName"
-  setDefaultXMLParserName'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getDefaultXMLParserName"
-  getDefaultXMLParserName'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultImageCodecName"
-  setDefaultImageCodecName'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getDefaultImageCodecName"
-  getDefaultImageCodecName'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getRenderer"
-  getRenderer'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultFont"
-  setDefaultFont'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultFont2"
-  setDefaultFont2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getDefaultFont"
-  getDefaultFont'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_signalRedraw"
-  signalRedraw'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_isRedrawRequested"
-  isRedrawRequested'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_renderGUI"
-  renderGUI'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setGUISheet"
-  setGUISheet'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getGUISheet"
-  getGUISheet'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getSingleClickTimeout"
-  getSingleClickTimeout'_ :: ((HG3DClassPtr) -> ((Ptr CDouble) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getMultiClickTimeout"
-  getMultiClickTimeout'_ :: ((HG3DClassPtr) -> ((Ptr CDouble) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setSingleClickTimeout"
-  setSingleClickTimeout'_ :: ((HG3DClassPtr) -> (CDouble -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setMultiClickTimeout"
-  setMultiClickTimeout'_ :: ((HG3DClassPtr) -> (CDouble -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_isMouseClickEventGenerationEnabled"
-  isMouseClickEventGenerationEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setMouseClickEventGenerationEnabled"
-  setMouseClickEventGenerationEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultMouseCursor3"
-  setDefaultMouseCursor3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getWindowContainingMouse"
-  getWindowContainingMouse'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getScriptingModule"
-  getScriptingModule'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setScriptingModule"
-  setScriptingModule'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getResourceProvider"
-  getResourceProvider'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_executeScriptFile"
-  executeScriptFile'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_executeScriptGlobal"
-  executeScriptGlobal'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_executeScriptString"
-  executeScriptString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getMouseMoveScaling"
-  getMouseMoveScaling'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setMouseMoveScaling"
-  setMouseMoveScaling'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_notifyWindowDestroyed"
-  notifyWindowDestroyed'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getSystemKeys"
-  getSystemKeys'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setXMLParser"
-  setXMLParser'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setXMLParser2"
-  setXMLParser2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getXMLParser"
-  getXMLParser'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultTooltip"
-  setDefaultTooltip'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setDefaultTooltip2"
-  setDefaultTooltip2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getDefaultTooltip"
-  getDefaultTooltip'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setModalTarget"
-  setModalTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getModalTarget"
-  getModalTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_updateWindowContainingMouse"
-  updateWindowContainingMouse'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_getImageCodec"
-  getImageCodec'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setImageCodec"
-  setImageCodec'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_setImageCodec2"
-  setImageCodec2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_invalidateAllCachedRendering"
-  invalidateAllCachedRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseMove"
-  injectMouseMove'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseLeaves"
-  injectMouseLeaves'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseButtonDown"
-  injectMouseButtonDown'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseButtonUp"
-  injectMouseButtonUp'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectKeyDown"
-  injectKeyDown'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectKeyUp"
-  injectKeyUp'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectChar"
-  injectChar'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseWheelChange"
-  injectMouseWheelChange'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMousePosition"
-  injectMousePosition'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectTimePulse"
-  injectTimePulse'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseButtonClick"
-  injectMouseButtonClick'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseButtonDoubleClick"
-  injectMouseButtonDoubleClick'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystem.chs.h cegui_sstm_injectMouseButtonTripleClick"
-  injectMouseButtonTripleClick'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
+ HGamer3D/Bindings/CEGUI/ClassSystemHG3D.chs view
@@ -0,0 +1,74 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassSystemHG3D.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassSystemHG3D where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassSystemHG3D.h"
+{- function createNoLogger -}+{#fun cegui_sstm_hg3d_createNoLogger as createNoLogger +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getDefaultResourceProvider -}+{#fun cegui_sstm_hg3d_getDefaultResourceProvider as getDefaultResourceProvider +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSchemeManagerSingleton -}+{#fun cegui_sstm_hg3d_getSchemeManagerSingleton as getSchemeManagerSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function schemeManagerCreate -}+{#fun cegui_sstm_hg3d_schemeManagerCreate as schemeManagerCreate +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function fontManagerCreate -}+{#fun cegui_sstm_hg3d_fontManagerCreate as fontManagerCreate +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getFontManagerSingleton -}+{#fun cegui_sstm_hg3d_getFontManagerSingleton as getFontManagerSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getLoggerSingleton -}+{#fun cegui_sstm_hg3d_getLoggerSingleton as getLoggerSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassSystemHG3D.hs 
@@ -1,135 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassSystemHG3D.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassSystemHG3D where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function createNoLogger -}
-createNoLogger :: IO (HG3DClass)
-createNoLogger =
-  alloca $ \a1' -> 
-  createNoLogger'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function getDefaultResourceProvider -}
-getDefaultResourceProvider :: HG3DClass -> IO (HG3DClass)
-getDefaultResourceProvider a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultResourceProvider'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function getSchemeManagerSingleton -}
-getSchemeManagerSingleton :: IO (HG3DClass)
-getSchemeManagerSingleton =
-  alloca $ \a1' -> 
-  getSchemeManagerSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function schemeManagerCreate -}
-schemeManagerCreate :: HG3DClass -> String -> IO ()
-schemeManagerCreate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  schemeManagerCreate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function fontManagerCreate -}
-fontManagerCreate :: HG3DClass -> String -> IO ()
-fontManagerCreate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  fontManagerCreate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function getFontManagerSingleton -}
-getFontManagerSingleton :: IO (HG3DClass)
-getFontManagerSingleton =
-  alloca $ \a1' -> 
-  getFontManagerSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-{- function getLoggerSingleton -}
-getLoggerSingleton :: IO (HG3DClass)
-getLoggerSingleton =
-  alloca $ \a1' -> 
-  getLoggerSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 74 ".\\HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_createNoLogger"
-  createNoLogger'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_getDefaultResourceProvider"
-  getDefaultResourceProvider'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_getSchemeManagerSingleton"
-  getSchemeManagerSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_schemeManagerCreate"
-  schemeManagerCreate'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_fontManagerCreate"
-  fontManagerCreate'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_getFontManagerSingleton"
-  getFontManagerSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassSystemHG3D.chs.h cegui_sstm_hg3d_getLoggerSingleton"
-  getLoggerSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassTabButton.chs view
@@ -0,0 +1,73 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassTabButton.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassTabButton where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassTabButton.h"
+{- function TabButton -}+{#fun cegui_tbbtn_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~TabButton -}+{#fun cegui_tbbtn_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSelected -}+{#fun cegui_tbbtn_setSelected as setSelected +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isSelected -}+{#fun cegui_tbbtn_isSelected as isSelected +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setTargetWindow -}+{#fun cegui_tbbtn_setTargetWindow as setTargetWindow +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getTargetWindow -}+{#fun cegui_tbbtn_getTargetWindow as getTargetWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassTabButton.hs 
@@ -1,125 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassTabButton.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassTabButton where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-{- function TabButton -}
-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 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-{- function ~TabButton -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-{- function setSelected -}
-setSelected :: HG3DClass -> Bool -> IO ()
-setSelected a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSelected'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-{- function isSelected -}
-isSelected :: HG3DClass -> IO (Bool)
-isSelected a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSelected'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-{- function setTargetWindow -}
-setTargetWindow :: HG3DClass -> HG3DClass -> IO ()
-setTargetWindow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setTargetWindow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-{- function getTargetWindow -}
-getTargetWindow :: HG3DClass -> IO (HG3DClass)
-getTargetWindow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTargetWindow'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs.h cegui_tbbtn_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs.h cegui_tbbtn_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs.h cegui_tbbtn_setSelected"
-  setSelected'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs.h cegui_tbbtn_isSelected"
-  isSelected'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs.h cegui_tbbtn_setTargetWindow"
-  setTargetWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTabButton.chs.h cegui_tbbtn_getTargetWindow"
-  getTargetWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/ClassThumb.chs view
@@ -0,0 +1,95 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassThumb.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassThumb where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassThumb.h"
+{- function isHotTracked -}+{#fun cegui_thmb_isHotTracked as isHotTracked +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVertFree -}+{#fun cegui_thmb_isVertFree as isVertFree +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHorzFree -}+{#fun cegui_thmb_isHorzFree as isHorzFree +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setHotTracked -}+{#fun cegui_thmb_setHotTracked as setHotTracked +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setVertFree -}+{#fun cegui_thmb_setVertFree as setVertFree +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setHorzFree -}+{#fun cegui_thmb_setHorzFree as setHorzFree +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setVertRange -}+{#fun cegui_thmb_setVertRange as setVertRange +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setHorzRange -}+{#fun cegui_thmb_setHorzRange as setHorzRange +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function Thumb -}+{#fun cegui_thmb_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Thumb -}+{#fun cegui_thmb_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassThumb.hs 
@@ -1,176 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassThumb.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassThumb where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function isHotTracked -}
-isHotTracked :: HG3DClass -> IO (Bool)
-isHotTracked a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHotTracked'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 48 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function isVertFree -}
-isVertFree :: HG3DClass -> IO (Bool)
-isVertFree a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertFree'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function isHorzFree -}
-isHorzFree :: HG3DClass -> IO (Bool)
-isHorzFree a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzFree'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function setHotTracked -}
-setHotTracked :: HG3DClass -> Bool -> IO ()
-setHotTracked a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setHotTracked'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function setVertFree -}
-setVertFree :: HG3DClass -> Bool -> IO ()
-setVertFree a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setVertFree'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function setHorzFree -}
-setHorzFree :: HG3DClass -> Bool -> IO ()
-setHorzFree a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setHorzFree'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function setVertRange -}
-setVertRange :: HG3DClass -> Float -> Float -> IO ()
-setVertRange a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setVertRange'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 79 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function setHorzRange -}
-setHorzRange :: HG3DClass -> Float -> Float -> IO ()
-setHorzRange a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setHorzRange'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 85 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function Thumb -}
-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 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-{- function ~Thumb -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 95 ".\\HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_isHotTracked"
-  isHotTracked'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_isVertFree"
-  isVertFree'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_isHorzFree"
-  isHorzFree'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_setHotTracked"
-  setHotTracked'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_setVertFree"
-  setVertFree'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_setHorzFree"
-  setHorzFree'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_setVertRange"
-  setVertRange'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_setHorzRange"
-  setHorzRange'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassThumb.chs.h cegui_thmb_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassTooltip.chs view
@@ -0,0 +1,105 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassTooltip.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassTooltip where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassTooltip.h"
+{- function Tooltip -}+{#fun cegui_tltp_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Tooltip -}+{#fun cegui_tltp_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setTargetWindow -}+{#fun cegui_tltp_setTargetWindow as setTargetWindow +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getTargetWindow -}+{#fun cegui_tltp_getTargetWindow as getTargetWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function resetTimer -}+{#fun cegui_tltp_resetTimer as resetTimer +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getHoverTime -}+{#fun cegui_tltp_getHoverTime as getHoverTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setDisplayTime -}+{#fun cegui_tltp_setDisplayTime as setDisplayTime +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getFadeTime -}+{#fun cegui_tltp_getFadeTime as getFadeTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setHoverTime -}+{#fun cegui_tltp_setHoverTime as setHoverTime +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getDisplayTime -}+{#fun cegui_tltp_getDisplayTime as getDisplayTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setFadeTime -}+{#fun cegui_tltp_setFadeTime as setFadeTime +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function positionSelf -}+{#fun cegui_tltp_positionSelf as positionSelf +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function sizeSelf -}+{#fun cegui_tltp_sizeSelf as sizeSelf +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassTooltip.hs 
@@ -1,208 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassTooltip.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassTooltip where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function Tooltip -}
-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 49 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function ~Tooltip -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function setTargetWindow -}
-setTargetWindow :: HG3DClass -> HG3DClass -> IO ()
-setTargetWindow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setTargetWindow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function getTargetWindow -}
-getTargetWindow :: HG3DClass -> IO (HG3DClass)
-getTargetWindow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTargetWindow'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function resetTimer -}
-resetTimer :: HG3DClass -> IO ()
-resetTimer a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetTimer'_ a1' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function getHoverTime -}
-getHoverTime :: HG3DClass -> IO (Float)
-getHoverTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHoverTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function setDisplayTime -}
-setDisplayTime :: HG3DClass -> Float -> IO ()
-setDisplayTime a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDisplayTime'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function getFadeTime -}
-getFadeTime :: HG3DClass -> IO (Float)
-getFadeTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFadeTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function setHoverTime -}
-setHoverTime :: HG3DClass -> Float -> IO ()
-setHoverTime a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setHoverTime'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function getDisplayTime -}
-getDisplayTime :: HG3DClass -> IO (Float)
-getDisplayTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDisplayTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 92 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function setFadeTime -}
-setFadeTime :: HG3DClass -> Float -> IO ()
-setFadeTime a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setFadeTime'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function positionSelf -}
-positionSelf :: HG3DClass -> IO ()
-positionSelf a1 =
-  withHG3DClass a1 $ \a1' -> 
-  positionSelf'_ a1' >>= \res ->
-  return ()
-{-# LINE 101 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-{- function sizeSelf -}
-sizeSelf :: HG3DClass -> IO ()
-sizeSelf a1 =
-  withHG3DClass a1 $ \a1' -> 
-  sizeSelf'_ a1' >>= \res ->
-  return ()
-{-# LINE 105 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setTargetWindow"
-  setTargetWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getTargetWindow"
-  getTargetWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_resetTimer"
-  resetTimer'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getHoverTime"
-  getHoverTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setDisplayTime"
-  setDisplayTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getFadeTime"
-  getFadeTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setHoverTime"
-  setHoverTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_getDisplayTime"
-  getDisplayTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_setFadeTime"
-  setFadeTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_positionSelf"
-  positionSelf'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTooltip.chs.h cegui_tltp_sizeSelf"
-  sizeSelf'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassTree.chs view
@@ -0,0 +1,158 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassTree.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassTree where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassTree.h"
+{- function doTreeRender -}+{#fun cegui_tree_doTreeRender as doTreeRender +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function doScrollbars -}+{#fun cegui_tree_doScrollbars as doScrollbars +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getItemCount -}+{#fun cegui_tree_getItemCount as getItemCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSelectedCount -}+{#fun cegui_tree_getSelectedCount as getSelectedCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isSortEnabled -}+{#fun cegui_tree_isSortEnabled as isSortEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getVertScrollbar -}+{#fun cegui_tree_getVertScrollbar as getVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getHorzScrollbar -}+{#fun cegui_tree_getHorzScrollbar as getHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isMultiselectEnabled -}+{#fun cegui_tree_isMultiselectEnabled as isMultiselectEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isItemTooltipsEnabled -}+{#fun cegui_tree_isItemTooltipsEnabled as isItemTooltipsEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVertScrollbarAlwaysShown -}+{#fun cegui_tree_isVertScrollbarAlwaysShown as isVertScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHorzScrollbarAlwaysShown -}+{#fun cegui_tree_isHorzScrollbarAlwaysShown as isHorzScrollbarAlwaysShown +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function initialise -}+{#fun cegui_tree_initialise as initialise +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resetList -}+{#fun cegui_tree_resetList as resetList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearAllSelections -}+{#fun cegui_tree_clearAllSelections as clearAllSelections +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSortingEnabled -}+{#fun cegui_tree_setSortingEnabled as setSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setMultiselectEnabled -}+{#fun cegui_tree_setMultiselectEnabled as setMultiselectEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowVertScrollbar -}+{#fun cegui_tree_setShowVertScrollbar as setShowVertScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setShowHorzScrollbar -}+{#fun cegui_tree_setShowHorzScrollbar as setShowHorzScrollbar +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemTooltipsEnabled -}+{#fun cegui_tree_setItemTooltipsEnabled as setItemTooltipsEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setItemSelectState2 -}+{#fun cegui_tree_setItemSelectState2 as setItemSelectState2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromBool `Bool' } -> `()'  #}++{- function setLookNFeel -}+{#fun cegui_tree_setLookNFeel as setLookNFeel +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function handleUpdatedItemData -}+{#fun cegui_tree_handleUpdatedItemData as handleUpdatedItemData +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function Tree -}+{#fun cegui_tree_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Tree -}+{#fun cegui_tree_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassTree.hs 
@@ -1,343 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassTree.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassTree where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function doTreeRender -}
-doTreeRender :: HG3DClass -> IO ()
-doTreeRender a1 =
-  withHG3DClass a1 $ \a1' -> 
-  doTreeRender'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function doScrollbars -}
-doScrollbars :: HG3DClass -> IO ()
-doScrollbars a1 =
-  withHG3DClass a1 $ \a1' -> 
-  doScrollbars'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function getItemCount -}
-getItemCount :: HG3DClass -> IO (Int)
-getItemCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getItemCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function getSelectedCount -}
-getSelectedCount :: HG3DClass -> IO (Int)
-getSelectedCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSelectedCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function isSortEnabled -}
-isSortEnabled :: HG3DClass -> IO (Bool)
-isSortEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSortEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function getVertScrollbar -}
-getVertScrollbar :: HG3DClass -> IO (HG3DClass)
-getVertScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function getHorzScrollbar -}
-getHorzScrollbar :: HG3DClass -> IO (HG3DClass)
-getHorzScrollbar a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorzScrollbar'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function isMultiselectEnabled -}
-isMultiselectEnabled :: HG3DClass -> IO (Bool)
-isMultiselectEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isMultiselectEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function isItemTooltipsEnabled -}
-isItemTooltipsEnabled :: HG3DClass -> IO (Bool)
-isItemTooltipsEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isItemTooltipsEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function isVertScrollbarAlwaysShown -}
-isVertScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isVertScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function isHorzScrollbarAlwaysShown -}
-isHorzScrollbarAlwaysShown :: HG3DClass -> IO (Bool)
-isHorzScrollbarAlwaysShown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHorzScrollbarAlwaysShown'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 96 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function initialise -}
-initialise :: HG3DClass -> IO ()
-initialise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialise'_ a1' >>= \res ->
-  return ()
-{-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function resetList -}
-resetList :: HG3DClass -> IO ()
-resetList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetList'_ a1' >>= \res ->
-  return ()
-{-# LINE 104 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function clearAllSelections -}
-clearAllSelections :: HG3DClass -> IO ()
-clearAllSelections a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearAllSelections'_ a1' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setSortingEnabled -}
-setSortingEnabled :: HG3DClass -> Bool -> IO ()
-setSortingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSortingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setMultiselectEnabled -}
-setMultiselectEnabled :: HG3DClass -> Bool -> IO ()
-setMultiselectEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setMultiselectEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setShowVertScrollbar -}
-setShowVertScrollbar :: HG3DClass -> Bool -> IO ()
-setShowVertScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowVertScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setShowHorzScrollbar -}
-setShowHorzScrollbar :: HG3DClass -> Bool -> IO ()
-setShowHorzScrollbar a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowHorzScrollbar'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setItemTooltipsEnabled -}
-setItemTooltipsEnabled :: HG3DClass -> Bool -> IO ()
-setItemTooltipsEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setItemTooltipsEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 133 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setItemSelectState2 -}
-setItemSelectState2 :: HG3DClass -> Int -> Bool -> IO ()
-setItemSelectState2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromBool a3} in 
-  setItemSelectState2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 139 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function setLookNFeel -}
-setLookNFeel :: HG3DClass -> String -> IO ()
-setLookNFeel a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setLookNFeel'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function handleUpdatedItemData -}
-handleUpdatedItemData :: HG3DClass -> IO ()
-handleUpdatedItemData a1 =
-  withHG3DClass a1 $ \a1' -> 
-  handleUpdatedItemData'_ a1' >>= \res ->
-  return ()
-{-# LINE 148 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function Tree -}
-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 154 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-{- function ~Tree -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 158 ".\\HGamer3D\\Bindings\\CEGUI\\ClassTree.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_doTreeRender"
-  doTreeRender'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_doScrollbars"
-  doScrollbars'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_getItemCount"
-  getItemCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_getSelectedCount"
-  getSelectedCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_isSortEnabled"
-  isSortEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_getVertScrollbar"
-  getVertScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_getHorzScrollbar"
-  getHorzScrollbar'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_isMultiselectEnabled"
-  isMultiselectEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_isItemTooltipsEnabled"
-  isItemTooltipsEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_isVertScrollbarAlwaysShown"
-  isVertScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_isHorzScrollbarAlwaysShown"
-  isHorzScrollbarAlwaysShown'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_initialise"
-  initialise'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_resetList"
-  resetList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_clearAllSelections"
-  clearAllSelections'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setSortingEnabled"
-  setSortingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setMultiselectEnabled"
-  setMultiselectEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setShowVertScrollbar"
-  setShowVertScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setShowHorzScrollbar"
-  setShowHorzScrollbar'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setItemTooltipsEnabled"
-  setItemTooltipsEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setItemSelectState2"
-  setItemSelectState2'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_setLookNFeel"
-  setLookNFeel'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_handleUpdatedItemData"
-  handleUpdatedItemData'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassTree.chs.h cegui_tree_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassWidgetLookManager.chs view
@@ -0,0 +1,84 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassWidgetLookManager.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassWidgetLookManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassWidgetLookManager.h"
+{- function WidgetLookManager -}+{#fun cegui_wdgtlmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~WidgetLookManager -}+{#fun cegui_wdgtlmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function parseLookNFeelSpecification -}+{#fun cegui_wdgtlmgr_parseLookNFeelSpecification as parseLookNFeelSpecification +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function isWidgetLookAvailable -}+{#fun cegui_wdgtlmgr_isWidgetLookAvailable as isWidgetLookAvailable +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function eraseWidgetLook -}+{#fun cegui_wdgtlmgr_eraseWidgetLook as eraseWidgetLook +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getSingleton -}+{#fun cegui_wdgtlmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun cegui_wdgtlmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_wdgtlmgr_getDefaultResourceGroup as getDefaultResourceGroup +{ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_wdgtlmgr_setDefaultResourceGroup as setDefaultResourceGroup +{ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassWidgetLookManager.hs 
@@ -1,159 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassWidgetLookManager.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassWidgetLookManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function WidgetLookManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function ~WidgetLookManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function parseLookNFeelSpecification -}
-parseLookNFeelSpecification :: HG3DClass -> String -> String -> IO ()
-parseLookNFeelSpecification a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  parseLookNFeelSpecification'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function isWidgetLookAvailable -}
-isWidgetLookAvailable :: HG3DClass -> String -> IO (Bool)
-isWidgetLookAvailable a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isWidgetLookAvailable'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function eraseWidgetLook -}
-eraseWidgetLook :: HG3DClass -> String -> IO ()
-eraseWidgetLook a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  eraseWidgetLook'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: IO (String)
-getDefaultResourceGroup =
-  alloc64k $ \a1' -> 
-  getDefaultResourceGroup'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 80 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: String -> IO ()
-setDefaultResourceGroup a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultResourceGroup'_ a1' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_parseLookNFeelSpecification"
-  parseLookNFeelSpecification'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_isWidgetLookAvailable"
-  isWidgetLookAvailable'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_eraseWidgetLook"
-  eraseWidgetLook'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWidgetLookManager.chs.h cegui_wdgtlmgr_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassWindow.chs view
@@ -0,0 +1,809 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassWindow.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassWindow where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+{# import HGamer3D.Bindings.CEGUI.EnumVerticalAlignment #}+{# import HGamer3D.Bindings.CEGUI.EnumHorizontalAlignment #}+{# import HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode #}+
+#include "ClassWindow.h"
+{- function Window -}+{#fun cegui_wnd_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Window -}+{#fun cegui_wnd_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun cegui_wnd_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getName -}+{#fun cegui_wnd_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function isDestroyedByParent -}+{#fun cegui_wnd_isDestroyedByParent as isDestroyedByParent +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isAlwaysOnTop -}+{#fun cegui_wnd_isAlwaysOnTop as isAlwaysOnTop +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isDisabled -}+{#fun cegui_wnd_isDisabled as isDisabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVisible -}+{#fun cegui_wnd_isVisible as isVisible +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isActive -}+{#fun cegui_wnd_isActive as isActive +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isClippedByParent -}+{#fun cegui_wnd_isClippedByParent as isClippedByParent +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getID -}+{#fun cegui_wnd_getID as getID +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getChildCount -}+{#fun cegui_wnd_getChildCount as getChildCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isChild -}+{#fun cegui_wnd_isChild as isChild +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isChild2 -}+{#fun cegui_wnd_isChild2 as isChild2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isChildRecursive -}+{#fun cegui_wnd_isChildRecursive as isChildRecursive +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isChild3 -}+{#fun cegui_wnd_isChild3 as isChild3 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getChild -}+{#fun cegui_wnd_getChild as getChild +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getChild2 -}+{#fun cegui_wnd_getChild2 as getChild2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getChildRecursive -}+{#fun cegui_wnd_getChildRecursive as getChildRecursive +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getChildRecursive2 -}+{#fun cegui_wnd_getChildRecursive2 as getChildRecursive2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getChildAtIdx -}+{#fun cegui_wnd_getChildAtIdx as getChildAtIdx +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getActiveChild -}+{#fun cegui_wnd_getActiveChild as getActiveChild +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getActiveChild2 -}+{#fun cegui_wnd_getActiveChild2 as getActiveChild2 +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isAncestor -}+{#fun cegui_wnd_isAncestor as isAncestor +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isAncestor2 -}+{#fun cegui_wnd_isAncestor2 as isAncestor2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isAncestor3 -}+{#fun cegui_wnd_isAncestor3 as isAncestor3 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getFont -}+{#fun cegui_wnd_getFont as getFont +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getText -}+{#fun cegui_wnd_getText as getText +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getTextVisual -}+{#fun cegui_wnd_getTextVisual as getTextVisual +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function inheritsAlpha -}+{#fun cegui_wnd_inheritsAlpha as inheritsAlpha +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getAlpha -}+{#fun cegui_wnd_getAlpha as getAlpha +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getEffectiveAlpha -}+{#fun cegui_wnd_getEffectiveAlpha as getEffectiveAlpha +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function isCapturedByThis -}+{#fun cegui_wnd_isCapturedByThis as isCapturedByThis +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isCapturedByAncestor -}+{#fun cegui_wnd_isCapturedByAncestor as isCapturedByAncestor +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isCapturedByChild -}+{#fun cegui_wnd_isCapturedByChild as isCapturedByChild +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getParent -}+{#fun cegui_wnd_getParent as getParent +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function restoresOldCapture -}+{#fun cegui_wnd_restoresOldCapture as restoresOldCapture +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isZOrderingEnabled -}+{#fun cegui_wnd_isZOrderingEnabled as isZOrderingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function wantsMultiClickEvents -}+{#fun cegui_wnd_wantsMultiClickEvents as wantsMultiClickEvents +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isMouseAutoRepeatEnabled -}+{#fun cegui_wnd_isMouseAutoRepeatEnabled as isMouseAutoRepeatEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getAutoRepeatDelay -}+{#fun cegui_wnd_getAutoRepeatDelay as getAutoRepeatDelay +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getAutoRepeatRate -}+{#fun cegui_wnd_getAutoRepeatRate as getAutoRepeatRate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function distributesCapturedInputs -}+{#fun cegui_wnd_distributesCapturedInputs as distributesCapturedInputs +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isUsingDefaultTooltip -}+{#fun cegui_wnd_isUsingDefaultTooltip as isUsingDefaultTooltip +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTooltip -}+{#fun cegui_wnd_getTooltip as getTooltip +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getTooltipType -}+{#fun cegui_wnd_getTooltipType as getTooltipType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getTooltipText -}+{#fun cegui_wnd_getTooltipText as getTooltipText +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function inheritsTooltipText -}+{#fun cegui_wnd_inheritsTooltipText as inheritsTooltipText +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isRiseOnClickEnabled -}+{#fun cegui_wnd_isRiseOnClickEnabled as isRiseOnClickEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function testClassName -}+{#fun cegui_wnd_testClassName as testClassName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getVerticalAlignment -}+{#fun cegui_wnd_getVerticalAlignment as getVerticalAlignment +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumVerticalAlignment' peekEnumUtil*} -> `()'  #}++{- function getHorizontalAlignment -}+{#fun cegui_wnd_getHorizontalAlignment as getHorizontalAlignment +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumHorizontalAlignment' peekEnumUtil*} -> `()'  #}++{- function getLookNFeel -}+{#fun cegui_wnd_getLookNFeel as getLookNFeel +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getModalState -}+{#fun cegui_wnd_getModalState as getModalState +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getUserString -}+{#fun cegui_wnd_getUserString as getUserString +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function isUserStringDefined -}+{#fun cegui_wnd_isUserStringDefined as isUserStringDefined +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getActiveSibling -}+{#fun cegui_wnd_getActiveSibling as getActiveSibling +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getParentPixelWidth -}+{#fun cegui_wnd_getParentPixelWidth as getParentPixelWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getParentPixelHeight -}+{#fun cegui_wnd_getParentPixelHeight as getParentPixelHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function isMousePassThroughEnabled -}+{#fun cegui_wnd_isMousePassThroughEnabled as isMousePassThroughEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isAutoWindow -}+{#fun cegui_wnd_isAutoWindow as isAutoWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isWritingXMLAllowed -}+{#fun cegui_wnd_isWritingXMLAllowed as isWritingXMLAllowed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isDragDropTarget -}+{#fun cegui_wnd_isDragDropTarget as isDragDropTarget +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isUsingAutoRenderingSurface -}+{#fun cegui_wnd_isUsingAutoRenderingSurface as isUsingAutoRenderingSurface +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getRootWindow -}+{#fun cegui_wnd_getRootWindow as getRootWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getRootWindow2 -}+{#fun cegui_wnd_getRootWindow2 as getRootWindow2 +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isNonClientWindow -}+{#fun cegui_wnd_isNonClientWindow as isNonClientWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function rename -}+{#fun cegui_wnd_rename as rename +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function initialiseComponents -}+{#fun cegui_wnd_initialiseComponents as initialiseComponents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDestroyedByParent -}+{#fun cegui_wnd_setDestroyedByParent as setDestroyedByParent +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setAlwaysOnTop -}+{#fun cegui_wnd_setAlwaysOnTop as setAlwaysOnTop +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setEnabled -}+{#fun cegui_wnd_setEnabled as setEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function enable -}+{#fun cegui_wnd_enable as enable +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function disable -}+{#fun cegui_wnd_disable as disable +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setVisible -}+{#fun cegui_wnd_setVisible as setVisible +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function show -}+{#fun cegui_wnd_show as show +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hide -}+{#fun cegui_wnd_hide as hide +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function activate -}+{#fun cegui_wnd_activate as activate +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function deactivate -}+{#fun cegui_wnd_deactivate as deactivate +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setClippedByParent -}+{#fun cegui_wnd_setClippedByParent as setClippedByParent +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setID -}+{#fun cegui_wnd_setID as setID +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setText -}+{#fun cegui_wnd_setText as setText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function appendText -}+{#fun cegui_wnd_appendText as appendText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setFont -}+{#fun cegui_wnd_setFont as setFont +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setFont2 -}+{#fun cegui_wnd_setFont2 as setFont2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function addChildWindow -}+{#fun cegui_wnd_addChildWindow as addChildWindow +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function addChildWindow2 -}+{#fun cegui_wnd_addChildWindow2 as addChildWindow2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeChildWindow -}+{#fun cegui_wnd_removeChildWindow as removeChildWindow +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeChildWindow2 -}+{#fun cegui_wnd_removeChildWindow2 as removeChildWindow2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeChildWindow3 -}+{#fun cegui_wnd_removeChildWindow3 as removeChildWindow3 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function moveToFront -}+{#fun cegui_wnd_moveToFront as moveToFront +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function moveToBack -}+{#fun cegui_wnd_moveToBack as moveToBack +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function captureInput -}+{#fun cegui_wnd_captureInput as captureInput +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function releaseInput -}+{#fun cegui_wnd_releaseInput as releaseInput +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setRestoreCapture -}+{#fun cegui_wnd_setRestoreCapture as setRestoreCapture +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setAlpha -}+{#fun cegui_wnd_setAlpha as setAlpha +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setInheritsAlpha -}+{#fun cegui_wnd_setInheritsAlpha as setInheritsAlpha +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function invalidate -}+{#fun cegui_wnd_invalidate as invalidate +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function invalidate2 -}+{#fun cegui_wnd_invalidate2 as invalidate2 +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setMouseCursor3 -}+{#fun cegui_wnd_setMouseCursor3 as setMouseCursor3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setZOrderingEnabled -}+{#fun cegui_wnd_setZOrderingEnabled as setZOrderingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setWantsMultiClickEvents -}+{#fun cegui_wnd_setWantsMultiClickEvents as setWantsMultiClickEvents +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setMouseAutoRepeatEnabled -}+{#fun cegui_wnd_setMouseAutoRepeatEnabled as setMouseAutoRepeatEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setAutoRepeatDelay -}+{#fun cegui_wnd_setAutoRepeatDelay as setAutoRepeatDelay +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setAutoRepeatRate -}+{#fun cegui_wnd_setAutoRepeatRate as setAutoRepeatRate +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setDistributesCapturedInputs -}+{#fun cegui_wnd_setDistributesCapturedInputs as setDistributesCapturedInputs +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function notifyDragDropItemEnters -}+{#fun cegui_wnd_notifyDragDropItemEnters as notifyDragDropItemEnters +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function notifyDragDropItemLeaves -}+{#fun cegui_wnd_notifyDragDropItemLeaves as notifyDragDropItemLeaves +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function notifyDragDropItemDropped -}+{#fun cegui_wnd_notifyDragDropItemDropped as notifyDragDropItemDropped +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroy -}+{#fun cegui_wnd_destroy as destroy +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setTooltip -}+{#fun cegui_wnd_setTooltip as setTooltip +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setTooltipType -}+{#fun cegui_wnd_setTooltipType as setTooltipType +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setTooltipText -}+{#fun cegui_wnd_setTooltipText as setTooltipText +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setInheritsTooltipText -}+{#fun cegui_wnd_setInheritsTooltipText as setInheritsTooltipText +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setRiseOnClickEnabled -}+{#fun cegui_wnd_setRiseOnClickEnabled as setRiseOnClickEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setVerticalAlignment -}+{#fun cegui_wnd_setVerticalAlignment as setVerticalAlignment +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumVerticalAlignment' } -> `()'  #}++{- function setHorizontalAlignment -}+{#fun cegui_wnd_setHorizontalAlignment as setHorizontalAlignment +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumHorizontalAlignment' } -> `()'  #}++{- function setLookNFeel -}+{#fun cegui_wnd_setLookNFeel as setLookNFeel +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setModalState -}+{#fun cegui_wnd_setModalState as setModalState +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function performChildWindowLayout -}+{#fun cegui_wnd_performChildWindowLayout as performChildWindowLayout +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setUserString -}+{#fun cegui_wnd_setUserString as setUserString +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function render -}+{#fun cegui_wnd_render as render +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function update -}+{#fun cegui_wnd_update as update +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function beginInitialisation -}+{#fun cegui_wnd_beginInitialisation as beginInitialisation +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function endInitialisation -}+{#fun cegui_wnd_endInitialisation as endInitialisation +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setMousePassThroughEnabled -}+{#fun cegui_wnd_setMousePassThroughEnabled as setMousePassThroughEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setWindowRenderer -}+{#fun cegui_wnd_setWindowRenderer as setWindowRenderer +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getWindowRendererName -}+{#fun cegui_wnd_getWindowRendererName as getWindowRendererName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setWritingXMLAllowed -}+{#fun cegui_wnd_setWritingXMLAllowed as setWritingXMLAllowed +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function notifyScreenAreaChanged -}+{#fun cegui_wnd_notifyScreenAreaChanged as notifyScreenAreaChanged +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setFalagardType -}+{#fun cegui_wnd_setFalagardType as setFalagardType +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setDragDropTarget -}+{#fun cegui_wnd_setDragDropTarget as setDragDropTarget +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function invalidateRenderingSurface -}+{#fun cegui_wnd_invalidateRenderingSurface as invalidateRenderingSurface +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setUsingAutoRenderingSurface -}+{#fun cegui_wnd_setUsingAutoRenderingSurface as setUsingAutoRenderingSurface +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setNonClientWindow -}+{#fun cegui_wnd_setNonClientWindow as setNonClientWindow +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isTextParsingEnabled -}+{#fun cegui_wnd_isTextParsingEnabled as isTextParsingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setTextParsingEnabled -}+{#fun cegui_wnd_setTextParsingEnabled as setTextParsingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function banPropertyFromXML -}+{#fun cegui_wnd_banPropertyFromXML as banPropertyFromXML +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function unbanPropertyFromXML -}+{#fun cegui_wnd_unbanPropertyFromXML as unbanPropertyFromXML +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function isPropertyBannedFromXML -}+{#fun cegui_wnd_isPropertyBannedFromXML as isPropertyBannedFromXML +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setUpdateMode -}+{#fun cegui_wnd_setUpdateMode as setUpdateMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumWindowUpdateMode' } -> `()'  #}++{- function getUpdateMode -}+{#fun cegui_wnd_getUpdateMode as getUpdateMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumWindowUpdateMode' peekEnumUtil*} -> `()'  #}++{- function setMouseInputPropagationEnabled -}+{#fun cegui_wnd_setMouseInputPropagationEnabled as setMouseInputPropagationEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isMouseInputPropagationEnabled -}+{#fun cegui_wnd_isMouseInputPropagationEnabled as isMouseInputPropagationEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function clone -}+{#fun cegui_wnd_clone as clone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function clonePropertiesTo -}+{#fun cegui_wnd_clonePropertiesTo as clonePropertiesTo +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function cloneChildWidgetsTo -}+{#fun cegui_wnd_cloneChildWidgetsTo as cloneChildWidgetsTo +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getZIndex -}+{#fun cegui_wnd_getZIndex as getZIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isInFront -}+{#fun cegui_wnd_isInFront as isInFront +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isBehind -}+{#fun cegui_wnd_isBehind as isBehind +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getCaptureWindow -}+{#fun cegui_wnd_getCaptureWindow as getCaptureWindow +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassWindow.hs 
@@ -1,1953 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassWindow.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassWindow where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumVerticalAlignment
-{-# LINE 43 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumHorizontalAlignment
-{-# LINE 44 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-import HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode
-{-# LINE 45 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-
-{- 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 ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 809 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isDestroyedByParent"
-  isDestroyedByParent'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isAlwaysOnTop"
-  isAlwaysOnTop'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isDisabled"
-  isDisabled'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isVisible"
-  isVisible'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isActive"
-  isActive'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isClippedByParent"
-  isClippedByParent'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getID"
-  getID'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getChildCount"
-  getChildCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isChild"
-  isChild'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isChild2"
-  isChild2'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isChildRecursive"
-  isChildRecursive'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isChild3"
-  isChild3'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getChild"
-  getChild'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getChild2"
-  getChild2'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getChildRecursive"
-  getChildRecursive'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getChildRecursive2"
-  getChildRecursive2'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getChildAtIdx"
-  getChildAtIdx'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getActiveChild"
-  getActiveChild'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getActiveChild2"
-  getActiveChild2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isAncestor"
-  isAncestor'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isAncestor2"
-  isAncestor2'_ :: ((HG3DClassPtr) -> (CUInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isAncestor3"
-  isAncestor3'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getFont"
-  getFont'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getText"
-  getText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getTextVisual"
-  getTextVisual'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_inheritsAlpha"
-  inheritsAlpha'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getAlpha"
-  getAlpha'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getEffectiveAlpha"
-  getEffectiveAlpha'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isCapturedByThis"
-  isCapturedByThis'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isCapturedByAncestor"
-  isCapturedByAncestor'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isCapturedByChild"
-  isCapturedByChild'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getParent"
-  getParent'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_restoresOldCapture"
-  restoresOldCapture'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isZOrderingEnabled"
-  isZOrderingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_wantsMultiClickEvents"
-  wantsMultiClickEvents'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isMouseAutoRepeatEnabled"
-  isMouseAutoRepeatEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getAutoRepeatDelay"
-  getAutoRepeatDelay'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getAutoRepeatRate"
-  getAutoRepeatRate'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_distributesCapturedInputs"
-  distributesCapturedInputs'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isUsingDefaultTooltip"
-  isUsingDefaultTooltip'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getTooltip"
-  getTooltip'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getTooltipType"
-  getTooltipType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getTooltipText"
-  getTooltipText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_inheritsTooltipText"
-  inheritsTooltipText'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isRiseOnClickEnabled"
-  isRiseOnClickEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_testClassName"
-  testClassName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getVerticalAlignment"
-  getVerticalAlignment'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getHorizontalAlignment"
-  getHorizontalAlignment'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getLookNFeel"
-  getLookNFeel'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getModalState"
-  getModalState'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getUserString"
-  getUserString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isUserStringDefined"
-  isUserStringDefined'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getActiveSibling"
-  getActiveSibling'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getParentPixelWidth"
-  getParentPixelWidth'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getParentPixelHeight"
-  getParentPixelHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isMousePassThroughEnabled"
-  isMousePassThroughEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isAutoWindow"
-  isAutoWindow'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isWritingXMLAllowed"
-  isWritingXMLAllowed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isDragDropTarget"
-  isDragDropTarget'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isUsingAutoRenderingSurface"
-  isUsingAutoRenderingSurface'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getRootWindow"
-  getRootWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getRootWindow2"
-  getRootWindow2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isNonClientWindow"
-  isNonClientWindow'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_rename"
-  rename'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_initialiseComponents"
-  initialiseComponents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setDestroyedByParent"
-  setDestroyedByParent'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setAlwaysOnTop"
-  setAlwaysOnTop'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setEnabled"
-  setEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_enable"
-  enable'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_disable"
-  disable'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setVisible"
-  setVisible'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_show"
-  show'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_hide"
-  hide'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_activate"
-  activate'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_deactivate"
-  deactivate'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setClippedByParent"
-  setClippedByParent'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setID"
-  setID'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setText"
-  setText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_appendText"
-  appendText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setFont"
-  setFont'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setFont2"
-  setFont2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_addChildWindow"
-  addChildWindow'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_addChildWindow2"
-  addChildWindow2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_removeChildWindow"
-  removeChildWindow'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_removeChildWindow2"
-  removeChildWindow2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_removeChildWindow3"
-  removeChildWindow3'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_moveToFront"
-  moveToFront'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_moveToBack"
-  moveToBack'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_captureInput"
-  captureInput'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_releaseInput"
-  releaseInput'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setRestoreCapture"
-  setRestoreCapture'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setAlpha"
-  setAlpha'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setInheritsAlpha"
-  setInheritsAlpha'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_invalidate"
-  invalidate'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_invalidate2"
-  invalidate2'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setMouseCursor3"
-  setMouseCursor3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setZOrderingEnabled"
-  setZOrderingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setWantsMultiClickEvents"
-  setWantsMultiClickEvents'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setMouseAutoRepeatEnabled"
-  setMouseAutoRepeatEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setAutoRepeatDelay"
-  setAutoRepeatDelay'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setAutoRepeatRate"
-  setAutoRepeatRate'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setDistributesCapturedInputs"
-  setDistributesCapturedInputs'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_notifyDragDropItemEnters"
-  notifyDragDropItemEnters'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_notifyDragDropItemLeaves"
-  notifyDragDropItemLeaves'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_notifyDragDropItemDropped"
-  notifyDragDropItemDropped'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_destroy"
-  destroy'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setTooltip"
-  setTooltip'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setTooltipType"
-  setTooltipType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setTooltipText"
-  setTooltipText'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setInheritsTooltipText"
-  setInheritsTooltipText'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setRiseOnClickEnabled"
-  setRiseOnClickEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setVerticalAlignment"
-  setVerticalAlignment'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setHorizontalAlignment"
-  setHorizontalAlignment'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setLookNFeel"
-  setLookNFeel'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setModalState"
-  setModalState'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_performChildWindowLayout"
-  performChildWindowLayout'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setUserString"
-  setUserString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_render"
-  render'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_update"
-  update'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_beginInitialisation"
-  beginInitialisation'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_endInitialisation"
-  endInitialisation'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setMousePassThroughEnabled"
-  setMousePassThroughEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setWindowRenderer"
-  setWindowRenderer'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getWindowRendererName"
-  getWindowRendererName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setWritingXMLAllowed"
-  setWritingXMLAllowed'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_notifyScreenAreaChanged"
-  notifyScreenAreaChanged'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setFalagardType"
-  setFalagardType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setDragDropTarget"
-  setDragDropTarget'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_invalidateRenderingSurface"
-  invalidateRenderingSurface'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setUsingAutoRenderingSurface"
-  setUsingAutoRenderingSurface'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setNonClientWindow"
-  setNonClientWindow'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isTextParsingEnabled"
-  isTextParsingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setTextParsingEnabled"
-  setTextParsingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_banPropertyFromXML"
-  banPropertyFromXML'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_unbanPropertyFromXML"
-  unbanPropertyFromXML'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isPropertyBannedFromXML"
-  isPropertyBannedFromXML'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setUpdateMode"
-  setUpdateMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getUpdateMode"
-  getUpdateMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_setMouseInputPropagationEnabled"
-  setMouseInputPropagationEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isMouseInputPropagationEnabled"
-  isMouseInputPropagationEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_clone"
-  clone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_clonePropertiesTo"
-  clonePropertiesTo'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_cloneChildWidgetsTo"
-  cloneChildWidgetsTo'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getZIndex"
-  getZIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isInFront"
-  isInFront'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_isBehind"
-  isBehind'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindow.chs.h cegui_wnd_getCaptureWindow"
-  getCaptureWindow'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassWindowManager.chs view
@@ -0,0 +1,140 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassWindowManager.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassWindowManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassWindowManager.h"
+{- function WindowManager -}+{#fun cegui_wmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~WindowManager -}+{#fun cegui_wmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createWindow -}+{#fun cegui_wmgr_createWindow as createWindow +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroyWindow -}+{#fun cegui_wmgr_destroyWindow as destroyWindow +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyWindow2 -}+{#fun cegui_wmgr_destroyWindow2 as destroyWindow2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getWindow -}+{#fun cegui_wmgr_getWindow as getWindow +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isWindowPresent -}+{#fun cegui_wmgr_isWindowPresent as isWindowPresent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyAllWindows -}+{#fun cegui_wmgr_destroyAllWindows as destroyAllWindows +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isDeadPoolEmpty -}+{#fun cegui_wmgr_isDeadPoolEmpty as isDeadPoolEmpty +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function cleanDeadPool -}+{#fun cegui_wmgr_cleanDeadPool as cleanDeadPool +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function saveWindowLayout -}+{#fun cegui_wmgr_saveWindowLayout as saveWindowLayout +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function saveWindowLayout2 -}+{#fun cegui_wmgr_saveWindowLayout2 as saveWindowLayout2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function renameWindow -}+{#fun cegui_wmgr_renameWindow as renameWindow +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function renameWindow2 -}+{#fun cegui_wmgr_renameWindow2 as renameWindow2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function lock -}+{#fun cegui_wmgr_lock as lock +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unlock -}+{#fun cegui_wmgr_unlock as unlock +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isLocked -}+{#fun cegui_wmgr_isLocked as isLocked +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getDefaultResourceGroup -}+{#fun cegui_wmgr_getDefaultResourceGroup as getDefaultResourceGroup +{ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultResourceGroup -}+{#fun cegui_wmgr_setDefaultResourceGroup as setDefaultResourceGroup +{ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassWindowManager.hs 
@@ -1,287 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassWindowManager.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassWindowManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function WindowManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function ~WindowManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function createWindow -}
-createWindow :: HG3DClass -> String -> String -> IO (HG3DClass)
-createWindow a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createWindow'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function destroyWindow -}
-destroyWindow :: HG3DClass -> HG3DClass -> IO ()
-destroyWindow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyWindow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function destroyWindow2 -}
-destroyWindow2 :: HG3DClass -> String -> IO ()
-destroyWindow2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyWindow2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function getWindow -}
-getWindow :: HG3DClass -> String -> IO (HG3DClass)
-getWindow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getWindow'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 74 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function isWindowPresent -}
-isWindowPresent :: HG3DClass -> String -> IO (Bool)
-isWindowPresent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isWindowPresent'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 80 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function destroyAllWindows -}
-destroyAllWindows :: HG3DClass -> IO ()
-destroyAllWindows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllWindows'_ a1' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function isDeadPoolEmpty -}
-isDeadPoolEmpty :: HG3DClass -> IO (Bool)
-isDeadPoolEmpty a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDeadPoolEmpty'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 89 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function cleanDeadPool -}
-cleanDeadPool :: HG3DClass -> IO ()
-cleanDeadPool a1 =
-  withHG3DClass a1 $ \a1' -> 
-  cleanDeadPool'_ a1' >>= \res ->
-  return ()
-{-# LINE 93 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function saveWindowLayout -}
-saveWindowLayout :: HG3DClass -> String -> String -> Bool -> IO ()
-saveWindowLayout a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  let {a4' = fromBool a4} in 
-  saveWindowLayout'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 100 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function saveWindowLayout2 -}
-saveWindowLayout2 :: HG3DClass -> HG3DClass -> String -> Bool -> IO ()
-saveWindowLayout2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  let {a4' = fromBool a4} in 
-  saveWindowLayout2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function renameWindow -}
-renameWindow :: HG3DClass -> String -> String -> IO ()
-renameWindow a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  renameWindow'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function renameWindow2 -}
-renameWindow2 :: HG3DClass -> HG3DClass -> String -> IO ()
-renameWindow2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  renameWindow2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 119 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function lock -}
-lock :: HG3DClass -> IO ()
-lock a1 =
-  withHG3DClass a1 $ \a1' -> 
-  lock'_ a1' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function unlock -}
-unlock :: HG3DClass -> IO ()
-unlock a1 =
-  withHG3DClass a1 $ \a1' -> 
-  unlock'_ a1' >>= \res ->
-  return ()
-{-# LINE 127 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function isLocked -}
-isLocked :: HG3DClass -> IO (Bool)
-isLocked a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isLocked'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 132 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function getDefaultResourceGroup -}
-getDefaultResourceGroup :: IO (String)
-getDefaultResourceGroup =
-  alloc64k $ \a1' -> 
-  getDefaultResourceGroup'_ a1' >>= \res ->
-  peekCString  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 136 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-{- function setDefaultResourceGroup -}
-setDefaultResourceGroup :: String -> IO ()
-setDefaultResourceGroup a1 =
-  withCString a1 $ \a1' -> 
-  setDefaultResourceGroup'_ a1' >>= \res ->
-  return ()
-{-# LINE 140 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_createWindow"
-  createWindow'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_destroyWindow"
-  destroyWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_destroyWindow2"
-  destroyWindow2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_getWindow"
-  getWindow'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_isWindowPresent"
-  isWindowPresent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_destroyAllWindows"
-  destroyAllWindows'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_isDeadPoolEmpty"
-  isDeadPoolEmpty'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_cleanDeadPool"
-  cleanDeadPool'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_saveWindowLayout"
-  saveWindowLayout'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_saveWindowLayout2"
-  saveWindowLayout2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_renameWindow"
-  renameWindow'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_renameWindow2"
-  renameWindow2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_lock"
-  lock'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_unlock"
-  unlock'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_isLocked"
-  isLocked'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_getDefaultResourceGroup"
-  getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManager.chs.h cegui_wmgr_setDefaultResourceGroup"
-  setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassWindowManagerHG3D.chs view
@@ -0,0 +1,62 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassWindowManagerHG3D.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassWindowManagerHG3D where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassWindowManagerHG3D.h"
+{- function WindowManagerHG3D -}+{#fun cegui_wmgr_hg3d_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~WindowManagerHG3D -}+{#fun cegui_wmgr_hg3d_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function loadWindowLayoutHG3D -}+{#fun cegui_wmgr_hg3d_loadWindowLayoutHG3D as loadWindowLayoutHG3D +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingleton -}+{#fun cegui_wmgr_hg3d_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassWindowManagerHG3D.hs 
@@ -1,100 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassWindowManagerHG3D.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassWindowManagerHG3D where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-
-{- function WindowManagerHG3D -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-
-{- function ~WindowManagerHG3D -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-
-{- function loadWindowLayoutHG3D -}
-loadWindowLayoutHG3D :: HG3DClass -> String -> String -> IO (HG3DClass)
-loadWindowLayoutHG3D a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  loadWindowLayoutHG3D'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs.h cegui_wmgr_hg3d_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs.h cegui_wmgr_hg3d_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs.h cegui_wmgr_hg3d_loadWindowLayoutHG3D"
-  loadWindowLayoutHG3D'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassWindowManagerHG3D.chs.h cegui_wmgr_hg3d_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/CEGUI/ClassXMLParser.chs view
@@ -0,0 +1,61 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- ClassXMLParser.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.ClassXMLParser where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.CEGUI.Utils #}+{# import HGamer3D.Bindings.CEGUI.ClassPtr #}+{# import HGamer3D.Bindings.CEGUI.StructHG3DClass #}+
+#include "ClassXMLParser.h"
+{- function ~XMLParser -}+{#fun cegui_xmlprs_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function initialise -}+{#fun cegui_xmlprs_initialise as initialise +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function cleanup -}+{#fun cegui_xmlprs_cleanup as cleanup +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getIdentifierString -}+{#fun cegui_xmlprs_getIdentifierString as getIdentifierString +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/CEGUI/ClassXMLParser.hs 
@@ -1,98 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- ClassXMLParser.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.ClassXMLParser where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.CEGUI.Utils
-{-# LINE 40 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-import HGamer3D.Bindings.CEGUI.ClassPtr
-{-# LINE 41 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-import HGamer3D.Bindings.CEGUI.StructHG3DClass
-{-# LINE 42 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-
-{- function ~XMLParser -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 47 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-
-{- function initialise -}
-initialise :: HG3DClass -> IO (Bool)
-initialise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  initialise'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-
-{- function cleanup -}
-cleanup :: HG3DClass -> IO ()
-cleanup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  cleanup'_ a1' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-
-{- function getIdentifierString -}
-getIdentifierString :: HG3DClass -> IO (String)
-getIdentifierString a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getIdentifierString'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs.h cegui_xmlprs_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs.h cegui_xmlprs_initialise"
-  initialise'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs.h cegui_xmlprs_cleanup"
-  cleanup'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassXMLParser.chs.h cegui_xmlprs_getIdentifierString"
-  getIdentifierString'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/CEGUI/EnumBlendMode.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumBlendMode.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumBlendMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumBlendMode.h"
+{#enum EnumBlendMode {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumBlendMode.hs 
@@ -1,48 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumBlendMode.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumBlendMode.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumBlendMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumBlendMode = BM_INVALID
-                   | BM_NORMAL
-                   | BM_RTT_PREMULTIPLIED
-                   deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumFWSizingLocation.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumFWSizingLocation.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumFWSizingLocation where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumFWSizingLocation.h"
+{#enum EnumFWSizingLocation {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumFWSizingLocation.hs 
@@ -1,54 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumFWSizingLocation.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumFWSizingLocation.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumFWSizingLocation where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumFWSizingLocation = SizingNone
-                          | SizingTopLeft
-                          | SizingTopRight
-                          | SizingBottomLeft
-                          | SizingBottomRight
-                          | SizingTop
-                          | SizingLeft
-                          | SizingBottom
-                          | SizingRight
-                          deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumHorizontalAlignment.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumHorizontalAlignment.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumHorizontalAlignment where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumHorizontalAlignment.h"
+{#enum EnumHorizontalAlignment {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumHorizontalAlignment.hs 
@@ -1,48 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumHorizontalAlignment.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumHorizontalAlignment.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumHorizontalAlignment where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumHorizontalAlignment = HA_LEFT
-                             | HA_CENTRE
-                             | HA_RIGHT
-                             deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumKeyScan.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumKeyScan.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumKeyScan where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumKeyScan.h"
+{#enum EnumKeyScan {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumKeyScan.hs 
@@ -1,480 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumKeyScan.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumKeyScan.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumKeyScan where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-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
-  fromEnum KeyOne = 2
-  fromEnum KeyTwo = 3
-  fromEnum KeyThree = 4
-  fromEnum KeyFour = 5
-  fromEnum KeyFive = 6
-  fromEnum KeySix = 7
-  fromEnum KeySeven = 8
-  fromEnum KeyEight = 9
-  fromEnum KeyNine = 10
-  fromEnum KeyZero = 11
-  fromEnum KeyMinus = 12
-  fromEnum KeyEquals = 13
-  fromEnum KeyBackspace = 14
-  fromEnum KeyTab = 15
-  fromEnum KeyQ = 16
-  fromEnum KeyW = 17
-  fromEnum KeyE = 18
-  fromEnum KeyR = 19
-  fromEnum KeyT = 20
-  fromEnum KeyY = 21
-  fromEnum KeyU = 22
-  fromEnum KeyI = 23
-  fromEnum KeyO = 24
-  fromEnum KeyP = 25
-  fromEnum KeyLeftBracket = 26
-  fromEnum KeyRightBracket = 27
-  fromEnum KeyReturn = 28
-  fromEnum KeyLeftControl = 29
-  fromEnum KeyA = 30
-  fromEnum KeyS = 31
-  fromEnum KeyD = 32
-  fromEnum KeyF = 33
-  fromEnum KeyG = 34
-  fromEnum KeyH = 35
-  fromEnum KeyJ = 36
-  fromEnum KeyK = 37
-  fromEnum KeyL = 38
-  fromEnum KeySemicolon = 39
-  fromEnum KeyApostrophe = 40
-  fromEnum KeyGrave = 41
-  fromEnum KeyLeftShift = 42
-  fromEnum KeyBackslash = 43
-  fromEnum KeyZ = 44
-  fromEnum KeyX = 45
-  fromEnum KeyC = 46
-  fromEnum KeyV = 47
-  fromEnum KeyB = 48
-  fromEnum KeyN = 49
-  fromEnum KeyM = 50
-  fromEnum KeyComma = 51
-  fromEnum KeyPeriod = 52
-  fromEnum KeySlash = 53
-  fromEnum KeyRightShift = 54
-  fromEnum KeyMultiply = 55
-  fromEnum KeyLeftAlt = 56
-  fromEnum KeySpace = 57
-  fromEnum KeyCapital = 58
-  fromEnum KeyF1 = 59
-  fromEnum KeyF2 = 60
-  fromEnum KeyF3 = 61
-  fromEnum KeyF4 = 62
-  fromEnum KeyF5 = 63
-  fromEnum KeyF6 = 64
-  fromEnum KeyF7 = 65
-  fromEnum KeyF8 = 66
-  fromEnum KeyF9 = 67
-  fromEnum KeyF10 = 68
-  fromEnum KeyNumLock = 69
-  fromEnum KeyScrollLock = 70
-  fromEnum KeyNumpad7 = 71
-  fromEnum KeyNumpad8 = 72
-  fromEnum KeyNumpad9 = 73
-  fromEnum KeySubtract = 74
-  fromEnum KeyNumpad4 = 75
-  fromEnum KeyNumpad5 = 76
-  fromEnum KeyNumpad6 = 77
-  fromEnum KeyAdd = 78
-  fromEnum KeyNumpad1 = 79
-  fromEnum KeyNumpad2 = 80
-  fromEnum KeyNumpad3 = 81
-  fromEnum KeyNumpad0 = 82
-  fromEnum KeyDecimal = 83
-  fromEnum KeyOEM_102 = 86
-  fromEnum KeyF11 = 87
-  fromEnum KeyF12 = 88
-  fromEnum KeyF13 = 100
-  fromEnum KeyF14 = 101
-  fromEnum KeyF15 = 102
-  fromEnum KeyKana = 112
-  fromEnum KeyABNT_C1 = 115
-  fromEnum KeyConvert = 121
-  fromEnum KeyNoConvert = 123
-  fromEnum KeyYen = 125
-  fromEnum KeyABNT_C2 = 126
-  fromEnum KeyNumpadEquals = 141
-  fromEnum KeyPrevTrack = 144
-  fromEnum KeyAt = 145
-  fromEnum KeyColon = 146
-  fromEnum KeyUnderline = 147
-  fromEnum KeyKanji = 148
-  fromEnum KeyStop = 149
-  fromEnum KeyAX = 150
-  fromEnum KeyUnlabeled = 151
-  fromEnum KeyNextTrack = 153
-  fromEnum KeyNumpadEnter = 156
-  fromEnum KeyRightControl = 157
-  fromEnum KeyMute = 160
-  fromEnum KeyCalculator = 161
-  fromEnum KeyPlayPause = 162
-  fromEnum KeyMediaStop = 164
-  fromEnum KeyVolumeDown = 174
-  fromEnum KeyVolumeUp = 176
-  fromEnum KeyWebHome = 178
-  fromEnum KeyNumpadComma = 179
-  fromEnum KeyDivide = 181
-  fromEnum KeySysRq = 183
-  fromEnum KeyRightAlt = 184
-  fromEnum KeyPause = 197
-  fromEnum KeyHome = 199
-  fromEnum KeyArrowUp = 200
-  fromEnum KeyPageUp = 201
-  fromEnum KeyArrowLeft = 203
-  fromEnum KeyArrowRight = 205
-  fromEnum KeyEnd = 207
-  fromEnum KeyArrowDown = 208
-  fromEnum KeyPageDown = 209
-  fromEnum KeyInsert = 210
-  fromEnum KeyDelete = 211
-  fromEnum KeyLeftWindows = 219
-  fromEnum KeyRightWindows = 220
-  fromEnum KeyAppMenu = 221
-  fromEnum KeyPower = 222
-  fromEnum KeySleep = 223
-  fromEnum KeyWake = 227
-  fromEnum KeyWebSearch = 229
-  fromEnum KeyWebFavorites = 230
-  fromEnum KeyWebRefresh = 231
-  fromEnum KeyWebStop = 232
-  fromEnum KeyWebForward = 233
-  fromEnum KeyWebBack = 234
-  fromEnum KeyMyComputer = 235
-  fromEnum KeyMail = 236
-  fromEnum KeyMediaSelect = 237
-
-  toEnum 1 = KeyEscape
-  toEnum 2 = KeyOne
-  toEnum 3 = KeyTwo
-  toEnum 4 = KeyThree
-  toEnum 5 = KeyFour
-  toEnum 6 = KeyFive
-  toEnum 7 = KeySix
-  toEnum 8 = KeySeven
-  toEnum 9 = KeyEight
-  toEnum 10 = KeyNine
-  toEnum 11 = KeyZero
-  toEnum 12 = KeyMinus
-  toEnum 13 = KeyEquals
-  toEnum 14 = KeyBackspace
-  toEnum 15 = KeyTab
-  toEnum 16 = KeyQ
-  toEnum 17 = KeyW
-  toEnum 18 = KeyE
-  toEnum 19 = KeyR
-  toEnum 20 = KeyT
-  toEnum 21 = KeyY
-  toEnum 22 = KeyU
-  toEnum 23 = KeyI
-  toEnum 24 = KeyO
-  toEnum 25 = KeyP
-  toEnum 26 = KeyLeftBracket
-  toEnum 27 = KeyRightBracket
-  toEnum 28 = KeyReturn
-  toEnum 29 = KeyLeftControl
-  toEnum 30 = KeyA
-  toEnum 31 = KeyS
-  toEnum 32 = KeyD
-  toEnum 33 = KeyF
-  toEnum 34 = KeyG
-  toEnum 35 = KeyH
-  toEnum 36 = KeyJ
-  toEnum 37 = KeyK
-  toEnum 38 = KeyL
-  toEnum 39 = KeySemicolon
-  toEnum 40 = KeyApostrophe
-  toEnum 41 = KeyGrave
-  toEnum 42 = KeyLeftShift
-  toEnum 43 = KeyBackslash
-  toEnum 44 = KeyZ
-  toEnum 45 = KeyX
-  toEnum 46 = KeyC
-  toEnum 47 = KeyV
-  toEnum 48 = KeyB
-  toEnum 49 = KeyN
-  toEnum 50 = KeyM
-  toEnum 51 = KeyComma
-  toEnum 52 = KeyPeriod
-  toEnum 53 = KeySlash
-  toEnum 54 = KeyRightShift
-  toEnum 55 = KeyMultiply
-  toEnum 56 = KeyLeftAlt
-  toEnum 57 = KeySpace
-  toEnum 58 = KeyCapital
-  toEnum 59 = KeyF1
-  toEnum 60 = KeyF2
-  toEnum 61 = KeyF3
-  toEnum 62 = KeyF4
-  toEnum 63 = KeyF5
-  toEnum 64 = KeyF6
-  toEnum 65 = KeyF7
-  toEnum 66 = KeyF8
-  toEnum 67 = KeyF9
-  toEnum 68 = KeyF10
-  toEnum 69 = KeyNumLock
-  toEnum 70 = KeyScrollLock
-  toEnum 71 = KeyNumpad7
-  toEnum 72 = KeyNumpad8
-  toEnum 73 = KeyNumpad9
-  toEnum 74 = KeySubtract
-  toEnum 75 = KeyNumpad4
-  toEnum 76 = KeyNumpad5
-  toEnum 77 = KeyNumpad6
-  toEnum 78 = KeyAdd
-  toEnum 79 = KeyNumpad1
-  toEnum 80 = KeyNumpad2
-  toEnum 81 = KeyNumpad3
-  toEnum 82 = KeyNumpad0
-  toEnum 83 = KeyDecimal
-  toEnum 86 = KeyOEM_102
-  toEnum 87 = KeyF11
-  toEnum 88 = KeyF12
-  toEnum 100 = KeyF13
-  toEnum 101 = KeyF14
-  toEnum 102 = KeyF15
-  toEnum 112 = KeyKana
-  toEnum 115 = KeyABNT_C1
-  toEnum 121 = KeyConvert
-  toEnum 123 = KeyNoConvert
-  toEnum 125 = KeyYen
-  toEnum 126 = KeyABNT_C2
-  toEnum 141 = KeyNumpadEquals
-  toEnum 144 = KeyPrevTrack
-  toEnum 145 = KeyAt
-  toEnum 146 = KeyColon
-  toEnum 147 = KeyUnderline
-  toEnum 148 = KeyKanji
-  toEnum 149 = KeyStop
-  toEnum 150 = KeyAX
-  toEnum 151 = KeyUnlabeled
-  toEnum 153 = KeyNextTrack
-  toEnum 156 = KeyNumpadEnter
-  toEnum 157 = KeyRightControl
-  toEnum 160 = KeyMute
-  toEnum 161 = KeyCalculator
-  toEnum 162 = KeyPlayPause
-  toEnum 164 = KeyMediaStop
-  toEnum 174 = KeyVolumeDown
-  toEnum 176 = KeyVolumeUp
-  toEnum 178 = KeyWebHome
-  toEnum 179 = KeyNumpadComma
-  toEnum 181 = KeyDivide
-  toEnum 183 = KeySysRq
-  toEnum 184 = KeyRightAlt
-  toEnum 197 = KeyPause
-  toEnum 199 = KeyHome
-  toEnum 200 = KeyArrowUp
-  toEnum 201 = KeyPageUp
-  toEnum 203 = KeyArrowLeft
-  toEnum 205 = KeyArrowRight
-  toEnum 207 = KeyEnd
-  toEnum 208 = KeyArrowDown
-  toEnum 209 = KeyPageDown
-  toEnum 210 = KeyInsert
-  toEnum 211 = KeyDelete
-  toEnum 219 = KeyLeftWindows
-  toEnum 220 = KeyRightWindows
-  toEnum 221 = KeyAppMenu
-  toEnum 222 = KeyPower
-  toEnum 223 = KeySleep
-  toEnum 227 = KeyWake
-  toEnum 229 = KeyWebSearch
-  toEnum 230 = KeyWebFavorites
-  toEnum 231 = KeyWebRefresh
-  toEnum 232 = KeyWebStop
-  toEnum 233 = KeyWebForward
-  toEnum 234 = KeyWebBack
-  toEnum 235 = KeyMyComputer
-  toEnum 236 = KeyMail
-  toEnum 237 = KeyMediaSelect
-  toEnum unmatched = error ("EnumKeyScan.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/CEGUI/EnumLoggingLevel.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumLoggingLevel.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumLoggingLevel where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumLoggingLevel.h"
+{#enum EnumLoggingLevel {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumLoggingLevel.hs 
@@ -1,50 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumLoggingLevel.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumLoggingLevel.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumLoggingLevel where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumLoggingLevel = LoggingLevelErrors
-                      | LoggingLevelWarnings
-                      | LoggingLevelStandard
-                      | LoggingLevelInformative
-                      | LoggingLevelInsane
-                      deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumMouseButton.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumMouseButton.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumMouseButton where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumMouseButton.h"
+{#enum EnumMouseButton {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumMouseButton.hs 
@@ -1,52 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumMouseButton.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumMouseButton.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumMouseButton where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumMouseButton = MouseLeftButton
-                     | MouseRightButton
-                     | MouseMiddleButton
-                     | MouseX1Button
-                     | MouseX2Button
-                     | MouseMouseButtonCount
-                     | MouseNoButton
-                     deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumQuadSplitMode.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumQuadSplitMode.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumQuadSplitMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumQuadSplitMode.h"
+{#enum EnumQuadSplitMode {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumQuadSplitMode.hs 
@@ -1,47 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumQuadSplitMode.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumQuadSplitMode.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumQuadSplitMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumQuadSplitMode = TopLeftToBottomRight
-                       | BottomLeftToTopRight
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumSelectionMode.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumSelectionMode.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumSelectionMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSelectionMode.h"
+{#enum EnumSelectionMode {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumSelectionMode.hs 
@@ -1,55 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumSelectionMode.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumSelectionMode.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumSelectionMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSelectionMode = SelectionModeRowSingle
-                       | SelectionModeRowMultiple
-                       | SelectionModeCellSingle
-                       | SelectionModeCellMultiple
-                       | SelectionModeNominatedColumnSingle
-                       | SelectionModeNominatedColumnMultiple
-                       | SelectionModeColumnSingle
-                       | SelectionModeColumnMultiple
-                       | SelectionModeNominatedRowSingle
-                       | SelectionModeNominatedRowMultiple
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumSortDirection.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumSortDirection.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumSortDirection where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSortDirection.h"
+{#enum EnumSortDirection {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumSortDirection.hs 
@@ -1,48 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumSortDirection.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumSortDirection.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumSortDirection where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSortDirection = SortDirectionNone
-                       | SortDirectionAscending
-                       | SortDirectionDescending
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumSystemKey.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumSystemKey.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumSystemKey where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSystemKey.h"
+{#enum EnumSystemKey {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumSystemKey.hs 
@@ -1,72 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumSystemKey.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumSystemKey.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumSystemKey where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSystemKey = SystemKeyLeftMouse
-                   | SystemKeyRightMouse
-                   | SystemKeyShift
-                   | SystemKeyControl
-                   | SystemKeyMiddleMouse
-                   | SystemKeyX1Mouse
-                   | SystemKeyX2Mouse
-                   | SystemKeyAlt
-                   deriving (Eq)
-instance Enum EnumSystemKey where
-  fromEnum SystemKeyLeftMouse = 1
-  fromEnum SystemKeyRightMouse = 2
-  fromEnum SystemKeyShift = 4
-  fromEnum SystemKeyControl = 8
-  fromEnum SystemKeyMiddleMouse = 16
-  fromEnum SystemKeyX1Mouse = 32
-  fromEnum SystemKeyX2Mouse = 64
-  fromEnum SystemKeyAlt = 128
-
-  toEnum 1 = SystemKeyLeftMouse
-  toEnum 2 = SystemKeyRightMouse
-  toEnum 4 = SystemKeyShift
-  toEnum 8 = SystemKeyControl
-  toEnum 16 = SystemKeyMiddleMouse
-  toEnum 32 = SystemKeyX1Mouse
-  toEnum 64 = SystemKeyX2Mouse
-  toEnum 128 = SystemKeyAlt
-  toEnum unmatched = error ("EnumSystemKey.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/CEGUI/EnumTabPanePosition.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumTabPanePosition.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumTabPanePosition where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumTabPanePosition.h"
+{#enum EnumTabPanePosition {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumTabPanePosition.hs 
@@ -1,47 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumTabPanePosition.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumTabPanePosition.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumTabPanePosition where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumTabPanePosition = TabPanePositionTop
-                         | TabPanePositionBottom
-                         deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumTextInputMode.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumTextInputMode.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumTextInputMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumTextInputMode.h"
+{#enum EnumTextInputMode {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumTextInputMode.hs 
@@ -1,49 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumTextInputMode.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumTextInputMode.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumTextInputMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumTextInputMode = TextInputModeFloatingPoint
-                       | TextInputModeInteger
-                       | TextInputModeHexadecimal
-                       | TextInputModeOctal
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumTipState.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumTipState.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumTipState where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumTipState.h"
+{#enum EnumTipState {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumTipState.hs 
@@ -1,49 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumTipState.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumTipState.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumTipState where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumTipState = TipStateInactive
-                  | TipStateActive
-                  | TipStateFadeIn
-                  | TipStateFadeOut
-                  deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumVerticalAlignment.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumVerticalAlignment.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumVerticalAlignment where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumVerticalAlignment.h"
+{#enum EnumVerticalAlignment {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumVerticalAlignment.hs 
@@ -1,48 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumVerticalAlignment.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumVerticalAlignment.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumVerticalAlignment where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumVerticalAlignment = VA_TOP
-                           | VA_CENTRE
-                           | VA_BOTTOM
-                           deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/EnumWindowUpdateMode.chs view
@@ -0,0 +1,41 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- EnumWindowUpdateMode.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumWindowUpdateMode.h"
+{#enum EnumWindowUpdateMode {} deriving (Eq)#}
− HGamer3D/Bindings/CEGUI/EnumWindowUpdateMode.hs 
@@ -1,48 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\EnumWindowUpdateMode.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- EnumWindowUpdateMode.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.EnumWindowUpdateMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumWindowUpdateMode = WUM_ALWAYS
-                          | WUM_NEVER
-                          | WUM_VISIBLE
-                          deriving (Enum,Eq)
+ HGamer3D/Bindings/CEGUI/StructHG3DClass.chs view
@@ -0,0 +1,54 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- StructHG3DClass.chs
+
+-- +
+module HGamer3D.Bindings.CEGUI.StructHG3DClass where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructHG3DClass.h"
++import Data.Bits+import HGamer3D.Data.HG3DClass++{#pointer *hg3dclass_struct as HG3DClassPtr -> HG3DClass #}++withHG3DClass :: HG3DClass -> (HG3DClassPtr -> IO b) -> IO b+withHG3DClass = with++peekHG3DClass :: HG3DClassPtr -> IO HG3DClass+peekHG3DClass = peek+++
− HGamer3D/Bindings/CEGUI/StructHG3DClass.hs 
@@ -1,59 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\StructHG3DClass.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- StructHG3DClass.chs
-
--- 
-
-module HGamer3D.Bindings.CEGUI.StructHG3DClass where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.HG3DClass
-
-type HG3DClassPtr = Ptr (HG3DClass)
-{-# LINE 46 ".\\HGamer3D\\Bindings\\CEGUI\\StructHG3DClass.chs" #-}
-
-withHG3DClass :: HG3DClass -> (HG3DClassPtr -> IO b) -> IO b
-withHG3DClass = with
-
-peekHG3DClass :: HG3DClassPtr -> IO HG3DClass
-peekHG3DClass = peek
-
-
-
+ HGamer3D/Bindings/CEGUI/Utils.chs view
@@ -0,0 +1,132 @@+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +
+-- (c) 2011-2014 Peter Althainz
+-- 
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+-- 
+--     http://www.apache.org/licenses/LICENSE-2.0
+-- 
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- +
+
+-- Utils.hs
+
+-- Marshalling Utilities+
+module HGamer3D.Bindings.CEGUI.Utils where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructHG3DClass.h"
++import Control.Monad (liftM)++-- Strings with explicit length+--+withCStringLenIntConv :: Num n => String -> ((CString, n) -> IO a) -> IO a+withCStringLenIntConv s f    = withCStringLen s $ \(p, n) -> f (p, fromIntegral n)++peekCStringLenIntConv :: Integral n => (CString, n) -> IO String+peekCStringLenIntConv (s, n) = peekCStringLen (s, fromIntegral n)++-- Marshalling of numerals+--++withIntConv   :: (Storable b, Integral a, Integral b) +              => a -> (Ptr b -> IO c) -> IO c+withIntConv    = with . fromIntegral++withFloatConv :: (Storable b, RealFloat a, RealFloat b) +              => a -> (Ptr b -> IO c) -> IO c+withFloatConv  = with . realToFrac++peekIntConv   :: (Storable a, Integral a, Integral b) +              => Ptr a -> IO b+peekIntConv    = liftM fromIntegral . peek++peekFloatConv :: (Storable a, RealFloat a, RealFloat b) +              => Ptr a -> IO b+peekFloatConv  = liftM realToFrac . peek+++-- String Conversion functions+--++withCUString b f = withCWString b (f . castPtr)+peekCUString = peekCWString . castPtr+alloc64k = allocaBytes (1024 * 64)++-- c2hs replacements of utility functions, to get rid of annoying c2hs+-- deprecated messages++-- Passing Enums++cIntFromEnum :: Enum a => a -> CInt+cIntFromEnum = cIntConv . fromEnum++cIntToEnum :: Enum a => CInt -> a+cIntToEnum = toEnum . cIntConv+++-- Passing Booleans by reference+--++withBoolUtil :: (Integral a, Storable a) => Bool -> (Ptr a -> IO b) -> IO b+withBoolUtil  = with . fromBool++peekBoolUtil :: (Integral a, Storable a) => Ptr a -> IO Bool+peekBoolUtil  = liftM toBool . peek+++-- Passing enums by reference+--++withEnumUtil :: (Enum a, Integral b, Storable b) => a -> (Ptr b -> IO c) -> IO c+withEnumUtil  = with . cFromEnum++peekEnumUtil :: (Enum a, Integral b, Storable b) => Ptr b -> IO a+peekEnumUtil  = liftM cToEnum . peek++-- Conversion routines+-- -------------------++-- |Integral conversion+--+cIntConv :: (Integral a, Integral b) => a -> b+cIntConv  = fromIntegral++-- |Floating conversion+--+cFloatConv :: (RealFloat a, RealFloat b) => a -> b+cFloatConv  = realToFrac++-- |Convert a C enumeration to Haskell.+--+cToEnum :: (Integral i, Enum e) => i -> e+cToEnum  = toEnum . fromIntegral++-- |Convert a Haskell enumeration to C.+--+cFromEnum :: (Enum e, Integral i) => e -> i+cFromEnum  = fromIntegral . fromEnum+
− HGamer3D/Bindings/CEGUI/Utils.hs 
@@ -1,136 +0,0 @@--- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
--- Edit the ORIGNAL .chs file instead!
-
-
-{-# LINE 1 ".\\HGamer3D\\Bindings\\CEGUI\\Utils.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE TypeSynonymInstances #-}
-
--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
-
--- (c) 2011, 2012 Peter Althainz
--- 
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
--- 
---     http://www.apache.org/licenses/LICENSE-2.0
--- 
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
--- 
-
-
--- Utils.hs
-
--- Marshalling Utilities
-
-module HGamer3D.Bindings.CEGUI.Utils where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Control.Monad (liftM)
-
--- Strings with explicit length
---
-withCStringLenIntConv :: Num n => String -> ((CString, n) -> IO a) -> IO a
-withCStringLenIntConv s f    = withCStringLen s $ \(p, n) -> f (p, fromIntegral n)
-
-peekCStringLenIntConv :: Integral n => (CString, n) -> IO String
-peekCStringLenIntConv (s, n) = peekCStringLen (s, fromIntegral n)
-
--- Marshalling of numerals
---
-
-withIntConv   :: (Storable b, Integral a, Integral b) 
-              => a -> (Ptr b -> IO c) -> IO c
-withIntConv    = with . fromIntegral
-
-withFloatConv :: (Storable b, RealFloat a, RealFloat b) 
-              => a -> (Ptr b -> IO c) -> IO c
-withFloatConv  = with . realToFrac
-
-peekIntConv   :: (Storable a, Integral a, Integral b) 
-              => Ptr a -> IO b
-peekIntConv    = liftM fromIntegral . peek
-
-peekFloatConv :: (Storable a, RealFloat a, RealFloat b) 
-              => Ptr a -> IO b
-peekFloatConv  = liftM realToFrac . peek
-
-
--- String Conversion functions
---
-
-withCUString b f = withCWString b (f . castPtr)
-peekCUString = peekCWString . castPtr
-alloc64k = allocaBytes (1024 * 64)
-
--- c2hs replacements of utility functions, to get rid of annoying c2hs
--- deprecated messages
-
--- Passing Enums
-
-cIntFromEnum :: Enum a => a -> CInt
-cIntFromEnum = cIntConv . fromEnum
-
-cIntToEnum :: Enum a => CInt -> a
-cIntToEnum = toEnum . cIntConv
-
-
--- Passing Booleans by reference
---
-
-withBoolUtil :: (Integral a, Storable a) => Bool -> (Ptr a -> IO b) -> IO b
-withBoolUtil  = with . fromBool
-
-peekBoolUtil :: (Integral a, Storable a) => Ptr a -> IO Bool
-peekBoolUtil  = liftM toBool . peek
-
-
--- Passing enums by reference
---
-
-withEnumUtil :: (Enum a, Integral b, Storable b) => a -> (Ptr b -> IO c) -> IO c
-withEnumUtil  = with . cFromEnum
-
-peekEnumUtil :: (Enum a, Integral b, Storable b) => Ptr b -> IO a
-peekEnumUtil  = liftM cToEnum . peek
-
--- Conversion routines
--- -------------------
-
--- |Integral conversion
---
-cIntConv :: (Integral a, Integral b) => a -> b
-cIntConv  = fromIntegral
-
--- |Floating conversion
---
-cFloatConv :: (RealFloat a, RealFloat b) => a -> b
-cFloatConv  = realToFrac
-
--- |Convert a C enumeration to Haskell.
---
-cToEnum :: (Integral i, Enum e) => i -> e
-cToEnum  = toEnum . fromIntegral
-
--- |Convert a Haskell enumeration to C.
---
-cFromEnum :: (Enum e, Integral i) => e -> i
-cFromEnum  = fromIntegral . fromEnum
-
LICENSE view
@@ -1,4 +1,4 @@-(c) 2011, 2012 Peter Althainz
+(c) 2011-2014 Peter Althainz
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.
Setup.hs view
@@ -1,8 +1,7 @@--- This source file is part of HGamer3D
--- (A project to enable 3D game development in Haskell)
--- For the latest info, see http://www.althainz.de/HGamer3D.html
--- 
--- (c) 2011, 2012 Peter Althainz
+-- This source file is part of HGamer3D, a project to enable 3D game development 
+-- in Haskell. For the latest info, see http://www.hgamer3d.org .
+-- +-- (c) 2011-2014 Peter Althainz
 -- 
 -- Licensed under the Apache License, Version 2.0 (the "License");
 -- you may not use this file except in compliance with the License.
@@ -15,7 +14,7 @@ -- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 -- See the License for the specific language governing permissions and
 -- limitations under the License.
--- 
+--  -- Setup.hs
 
 import Distribution.Simple
− include/CEGUIDllDefines.h 
@@ -1,41 +0,0 @@-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-
-// CEGUIDllDefines.h
-
-#ifndef _HGamer3DCEGUI021_DLLDEFINES_H_
-#define _HGamer3DCEGUI021_DLLDEFINES_H_
-
-/* Cmake will define HGamer3DCEGUI021_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
-building a DLL on windows.
-*/
-
-// We are using the Visual Studio Compiler and building Shared libraries
-
-#if (defined (_WIN32)) && !(defined (__GNUC__)) 
-  #if defined(HGamer3DCEGUI021_EXPORTS)
-    #define  CEGUI_LIB_EXPORT __declspec(dllexport)
-  #else
-    #define  CEGUI_LIB_EXPORT __declspec(dllimport)
-  #endif /* HGamer3DCEGUI021_EXPORTS */
-#else /* defined (_WIN32) */
- #define CEGUI_LIB_EXPORT
-#endif
-
-#endif /* _HGamer3DCEGUI021_DLLDEFINES_H_ */
− include/ClassCheckbox.h 
@@ -1,44 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassCheckbox.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassCheckbox
-#define _DEFINED_HG3D_ClassCheckbox
-
-#include "ClassPtr.h"
-
-
-
-// return true if the check-box is selected (has the checkmark) 
-void cegui_chkbx_isSelected(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// set whether the check-box is selected or not 
-void cegui_chkbx_setSelected(struct hg3dclass_struct * thisclass_c, int select_c);
-
-// Constructor for Checkbox
-void cegui_chkbx_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Checkbox
-void cegui_chkbx_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassComboDropList.h 
@@ -1,53 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassComboDropList.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassComboDropList
-#define _DEFINED_HG3D_ClassComboDropList
-
-#include "ClassPtr.h"
-
-
-
-// Initialise the Window
-void cegui_cmbdrplst_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Set whether the drop-list is 'armed' for selection. 
-void cegui_cmbdrplst_setArmed(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Return the 'armed' state of the ComboDropList
-void cegui_cmbdrplst_isArmed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set the mode of operation for the ComboDropList
-void cegui_cmbdrplst_setAutoArmEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// returns the mode of operation for the drop-list 
-void cegui_cmbdrplst_isAutoArmEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Constructor for ComboDropList
-void cegui_cmbdrplst_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for ComboDropList
-void cegui_cmbdrplst_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassCombobox.h 
@@ -1,177 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassCombobox.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassCombobox
-#define _DEFINED_HG3D_ClassCombobox
-
-#include "ClassPtr.h"
-#include "ClassEditbox.h"
-#include "ClassPushButton.h"
-#include "ClassComboDropList.h"
-#include "ClassListboxItem.h"
-
-
-
-// returns the mode of operation for the combo box. 
-void cegui_cmbbx_getSingleClickEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// returns true if the drop down list is visible. 
-void cegui_cmbbx_isDropDownListVisible(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the EditboxCombobox
-void cegui_cmbbx_getEditbox(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the PushButtonCombobox
-void cegui_cmbbx_getPushButton(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the ComboDropListCombobox
-void cegui_cmbbx_getDropList(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// return true if the Editbox
-void cegui_cmbbx_hasInputFocus(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if the Editbox
-void cegui_cmbbx_isReadOnly(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if the Editbox
-void cegui_cmbbx_isTextValid(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the currently set validation string 
-void cegui_cmbbx_getValidationString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return the current position of the carat. 
-void cegui_cmbbx_getCaratIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current selection start point. 
-void cegui_cmbbx_getSelectionStartIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current selection end point. 
-void cegui_cmbbx_getSelectionEndIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the length of the current selection (in code points / characters). 
-void cegui_cmbbx_getSelectionLength(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the maximum text length set for this Editbox
-void cegui_cmbbx_getMaxTextLength(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return number of items attached to the list box. 
-void cegui_cmbbx_getItemCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the currently selected item. 
-void cegui_cmbbx_getSelectedItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the item at index position index
-void cegui_cmbbx_getListboxItemFromIndex(struct hg3dclass_struct * thisclass_c, int index_c, struct hg3dclass_struct * result_c);
-
-// Return the index of ListboxItemitem
-void cegui_cmbbx_getItemIndex(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int * result_c);
-
-// return whether list sorting is enabled 
-void cegui_cmbbx_isSortEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether the string at index position index
-void cegui_cmbbx_isItemSelected(struct hg3dclass_struct * thisclass_c, int index_c, int * result_c);
-
-// Search the list for an item with the specified text. 
-void cegui_cmbbx_findItemWithText(struct hg3dclass_struct * thisclass_c, char * text_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return whether the specified ListboxItem
-void cegui_cmbbx_isListboxItemInList(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int * result_c);
-
-// Return whether the vertical scroll bar is always shown. 
-void cegui_cmbbx_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the horizontal scroll bar is always shown. 
-void cegui_cmbbx_isHorzScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Initialise the Window
-void cegui_cmbbx_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Show the drop-down list. 
-void cegui_cmbbx_showDropList(struct hg3dclass_struct * thisclass_c);
-
-// Hide the drop-down list. 
-void cegui_cmbbx_hideDropList(struct hg3dclass_struct * thisclass_c);
-
-// Set the mode of operation for the combo box. 
-void cegui_cmbbx_setSingleClickEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Specify whether the Editbox
-void cegui_cmbbx_setReadOnly(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the text validation string. 
-void cegui_cmbbx_setValidationString(struct hg3dclass_struct * thisclass_c, char * validation_string_c);
-
-// Set the current position of the carat. 
-void cegui_cmbbx_setCaratIndex(struct hg3dclass_struct * thisclass_c, int carat_pos_c);
-
-// Define the current selection for the Editbox
-void cegui_cmbbx_setSelection(struct hg3dclass_struct * thisclass_c, int start_pos_c, int end_pos_c);
-
-// set the maximum text length for this Editbox
-void cegui_cmbbx_setMaxTextLength(struct hg3dclass_struct * thisclass_c, int max_len_c);
-
-// Activate the edit box component of the Combobox
-void cegui_cmbbx_activateEditbox(struct hg3dclass_struct * thisclass_c);
-
-// Remove all items from the list. 
-void cegui_cmbbx_resetList(struct hg3dclass_struct * thisclass_c);
-
-// Add the given ListboxItem
-void cegui_cmbbx_addItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Insert an item into the list box after a specified item already in the list. 
-void cegui_cmbbx_insertItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, struct hg3dclass_struct * position_c);
-
-// Removes the given item from the list box. 
-void cegui_cmbbx_removeItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Clear the selected state for all items. 
-void cegui_cmbbx_clearAllSelections(struct hg3dclass_struct * thisclass_c);
-
-// Set whether the list should be sorted. 
-void cegui_cmbbx_setSortingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the vertical scroll bar should always be shown. 
-void cegui_cmbbx_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the horizontal scroll bar should always be shown. 
-void cegui_cmbbx_setShowHorzScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the select state of an attached ListboxItem
-void cegui_cmbbx_setItemSelectState(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int state_c);
-
-// Set the select state of an attached ListboxItem
-void cegui_cmbbx_setItemSelectState2(struct hg3dclass_struct * thisclass_c, int item_index_c, int state_c);
-
-// Causes the list box to update it's internal state after changes have been made to one or more attached ListboxItem
-void cegui_cmbbx_handleUpdatedListItemData(struct hg3dclass_struct * thisclass_c);
-
-// Constructor for Combobox
-void cegui_cmbbx_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Combobox
-void cegui_cmbbx_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassDefaultLogger.h 
@@ -1,45 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassDefaultLogger.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassDefaultLogger
-#define _DEFINED_HG3D_ClassDefaultLogger
-
-#include "ClassPtr.h"
-#include "EnumLoggingLevel.h"
-
-
-
-// Constructor for DefaultLogger
-void cegui_dfltlgr_construct(struct hg3dclass_struct * result_c);
-
-// Destructor for DefaultLogger
-void cegui_dfltlgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Add an event to the log. 
-void cegui_dfltlgr_logEvent(struct hg3dclass_struct * thisclass_c, char * message_c, enum EnumLoggingLevel level_c);
-
-// Set the name of the log file where all subsequent log entries should be written. 
-void cegui_dfltlgr_setLogFilename(struct hg3dclass_struct * thisclass_c, char * filename_c, int append_c);
-
-#endif
− include/ClassDefaultResourceProvider.h 
@@ -1,47 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassDefaultResourceProvider.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassDefaultResourceProvider
-#define _DEFINED_HG3D_ClassDefaultResourceProvider
-
-#include "ClassPtr.h"
-
-
-
-// 
-void cegui_drpr_construct(struct hg3dclass_struct * result_c);
-
-// 
-void cegui_drpr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Set the directory associated with a given resource group identifier. 
-void cegui_drpr_setResourceGroupDirectory(struct hg3dclass_struct * thisclass_c, char * resourceGroup_c, char * directory_c);
-
-// Return the directory associated with the specified resource group identifier. 
-void cegui_drpr_getResourceGroupDirectory(struct hg3dclass_struct * thisclass_c, char * resourceGroup_c, char * result_c);
-
-// clears any currently set directory for the specified resource group identifier. 
-void cegui_drpr_clearResourceGroupDirectory(struct hg3dclass_struct * thisclass_c, char * resourceGroup_c);
-
-#endif
− include/ClassDragContainer.h 
@@ -1,81 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassDragContainer.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassDragContainer
-#define _DEFINED_HG3D_ClassDragContainer
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-
-
-
-// Constructor for DragContainer
-void cegui_drgcnt_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for DragContainer
-void cegui_drgcnt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return whether dragging is currently enabled for this DragContainer
-void cegui_drgcnt_isDraggingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether dragging is currently enabled for this DragContainer
-void cegui_drgcnt_setDraggingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Return whether the DragContainer
-void cegui_drgcnt_isBeingDragged(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the current drag threshold in pixels. 
-void cegui_drgcnt_getPixelDragThreshold(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Set the current drag threshold in pixels. 
-void cegui_drgcnt_setPixelDragThreshold(struct hg3dclass_struct * thisclass_c, float pixels_c);
-
-// Return the alpha value that will be set on the DragContainer
-void cegui_drgcnt_getDragAlpha(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Set the alpha value to be set on the DragContainer
-void cegui_drgcnt_setDragAlpha(struct hg3dclass_struct * thisclass_c, float alpha_c);
-
-// Set the Image to be used for the mouse cursor when a drag operation is in progress. 
-void cegui_drgcnt_setDragCursorImage3(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// Return the WindowDragContainer
-void cegui_drgcnt_getCurrentDropTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return whether sticky mode is enable or disabled. 
-void cegui_drgcnt_isStickyModeEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Enable or disable sticky mode. 
-void cegui_drgcnt_setStickyModeEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Immediately pick up the DragContainer
-void cegui_drgcnt_pickUp(struct hg3dclass_struct * thisclass_c, const int force_sticky_c, int * result_c);
-
-// Set whether the fixed dragging offset - as set with the setFixedDragOffset - function will be used, or whether the built-in positioning will be used. 
-void cegui_drgcnt_setUsingFixedDragOffset(struct hg3dclass_struct * thisclass_c, const int enable_c);
-
-// Return whether the fixed dragging offset - as set with the setFixedDragOffset function - will be used, or whether the built-in positioning will be used. 
-void cegui_drgcnt_isUsingFixedDragOffset(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassEditbox.h 
@@ -1,92 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassEditbox.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassEditbox
-#define _DEFINED_HG3D_ClassEditbox
-
-#include "ClassPtr.h"
-
-
-
-// return true if the Editbox
-void cegui_edtbx_hasInputFocus(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if the Editbox
-void cegui_edtbx_isReadOnly(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if the text for the Editbox
-void cegui_edtbx_isTextMasked(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if the Editbox
-void cegui_edtbx_isTextValid(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the currently set validation string 
-void cegui_edtbx_getValidationString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return the current position of the carat. 
-void cegui_edtbx_getCaratIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current selection start point. 
-void cegui_edtbx_getSelectionStartIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current selection end point. 
-void cegui_edtbx_getSelectionEndIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the length of the current selection (in code points / characters). 
-void cegui_edtbx_getSelectionLength(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the utf32 code point used when rendering masked text. 
-void cegui_edtbx_getMaskCodePoint(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the maximum text length set for this Editbox
-void cegui_edtbx_getMaxTextLength(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Specify whether the Editbox
-void cegui_edtbx_setReadOnly(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Specify whether the text for the Editbox
-void cegui_edtbx_setTextMasked(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the text validation string. 
-void cegui_edtbx_setValidationString(struct hg3dclass_struct * thisclass_c, char * validation_string_c);
-
-// Set the current position of the carat. 
-void cegui_edtbx_setCaratIndex(struct hg3dclass_struct * thisclass_c, int carat_pos_c);
-
-// Define the current selection for the Editbox
-void cegui_edtbx_setSelection(struct hg3dclass_struct * thisclass_c, int start_pos_c, int end_pos_c);
-
-// set the utf32 code point used when rendering masked text. 
-void cegui_edtbx_setMaskCodePoint(struct hg3dclass_struct * thisclass_c, int code_point_c);
-
-// set the maximum text length for this Editbox
-void cegui_edtbx_setMaxTextLength(struct hg3dclass_struct * thisclass_c, int max_len_c);
-
-// Constructor for Editbox
-void cegui_edtbx_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Editbox
-void cegui_edtbx_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassEventArgs.h 
@@ -1,38 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassEventArgs.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassEventArgs
-#define _DEFINED_HG3D_ClassEventArgs
-
-#include "ClassPtr.h"
-
-
-
-// 
-void cegui_evntargs_construct(struct hg3dclass_struct * result_c);
-
-// 
-void cegui_evntargs_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassEventSet.h 
@@ -1,60 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassEventSet.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassEventSet
-#define _DEFINED_HG3D_ClassEventSet
-
-#include "ClassPtr.h"
-#include "ClassEventArgs.h"
-
-
-
-// Constructor for EventSet
-void cegui_evtst_construct(struct hg3dclass_struct * result_c);
-
-// Destructor for EventSet
-void cegui_evtst_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Add a new EventEventSet
-void cegui_evtst_addEvent(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Removes the Event
-void cegui_evtst_removeEvent(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Remove all EventEventSet
-void cegui_evtst_removeAllEvents(struct hg3dclass_struct * thisclass_c);
-
-// Checks to see if an EventEventSet
-void cegui_evtst_isEventPresent(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// Fires the named event passing the given EventArgs
-void cegui_evtst_fireEvent(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * args_c, char * eventNamespace_c);
-
-// Return whether the EventSet
-void cegui_evtst_isMuted(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set the mute state for this EventSet
-void cegui_evtst_setMutedState(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-#endif
− include/ClassFont.h 
@@ -1,74 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassFont.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassFont
-#define _DEFINED_HG3D_ClassFont
-
-#include "ClassPtr.h"
-
-
-
-// Destructor. 
-void cegui_fnt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return the string holding the font name. 
-void cegui_fnt_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Return the type of the font. 
-void cegui_fnt_getTypeName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Return whether this Font
-void cegui_fnt_isCodepointAvailable(struct hg3dclass_struct * thisclass_c, int cp_c, int * result_c);
-
-// Enable or disable auto-scaling for this Font
-void cegui_fnt_setAutoScaled(struct hg3dclass_struct * thisclass_c, const int auto_scaled_c);
-
-// Return whether this Font
-void cegui_fnt_isAutoScaled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the pixel line spacing value for. 
-void cegui_fnt_getLineSpacing(struct hg3dclass_struct * thisclass_c, float y_scale_c, float * result_c);
-
-// return the exact pixel height of the font. 
-void cegui_fnt_getFontHeight(struct hg3dclass_struct * thisclass_c, float y_scale_c, float * result_c);
-
-// Return the number of pixels from the top of the highest glyph to the baseline. 
-void cegui_fnt_getBaseline(struct hg3dclass_struct * thisclass_c, float y_scale_c, float * result_c);
-
-// Return the pixel width of the specified text if rendered with this Font
-void cegui_fnt_getTextExtent(struct hg3dclass_struct * thisclass_c, char * text_c, float x_scale_c, float * result_c);
-
-// Return the index of the closest text character in String textpixel
-void cegui_fnt_getCharAtPixel(struct hg3dclass_struct * thisclass_c, char * text_c, float pixel_c, float x_scale_c, int * result_c);
-
-// Return the index of the closest text character in String textstart_charpixel
-void cegui_fnt_getCharAtPixel2(struct hg3dclass_struct * thisclass_c, char * text_c, int start_char_c, float pixel_c, float x_scale_c, int * result_c);
-
-// Sets the default resource group to be used when loading font data. 
-void cegui_fnt_setDefaultResourceGroup(char * resourceGroup_c);
-
-// Returns the default resource group currently set for Fonts. 
-void cegui_fnt_getDefaultResourceGroup(char * result_c);
-
-#endif
− include/ClassFontManager.h 
@@ -1,38 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassFontManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassFontManager
-#define _DEFINED_HG3D_ClassFontManager
-
-#include "ClassPtr.h"
-
-
-
-// Constructor. 
-void cegui_fntmgr_construct(struct hg3dclass_struct * result_c);
-
-// Destructor. 
-void cegui_fntmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassFrameWindow.h 
@@ -1,105 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassFrameWindow.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassFrameWindow
-#define _DEFINED_HG3D_ClassFrameWindow
-
-#include "ClassPtr.h"
-#include "ClassPushButton.h"
-
-
-
-// Initialises the Window
-void cegui_frmwndw_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Return whether this window is sizable. Note that this requires that the window have an enabled frame and that sizing itself is enabled. 
-void cegui_frmwndw_isSizingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the frame for this window is enabled. 
-void cegui_frmwndw_isFrameEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the title bar for this window is enabled. 
-void cegui_frmwndw_isTitleBarEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether this close button for this window is enabled. 
-void cegui_frmwndw_isCloseButtonEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether roll up (a.k.a shading) is enabled for this window. 
-void cegui_frmwndw_isRollupEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the window is currently rolled up (a.k.a shaded). 
-void cegui_frmwndw_isRolledup(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the thickness of the sizing border. 
-void cegui_frmwndw_getSizingBorderThickness(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Enables or disables sizing for this window. 
-void cegui_frmwndw_setSizingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Enables or disables the frame for this window. 
-void cegui_frmwndw_setFrameEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Enables or disables the title bar for the frame window. 
-void cegui_frmwndw_setTitleBarEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Enables or disables the close button for the frame window. 
-void cegui_frmwndw_setCloseButtonEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Enables or disables roll-up (shading) for this window. 
-void cegui_frmwndw_setRollupEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Toggles the state of the window between rolled-up (shaded) and normal sizes. This requires roll-up to be enabled. 
-void cegui_frmwndw_toggleRollup(struct hg3dclass_struct * thisclass_c);
-
-// Set the size of the sizing border for this window. 
-void cegui_frmwndw_setSizingBorderThickness(struct hg3dclass_struct * thisclass_c, float pixels_c);
-
-// Return whether this FrameWindow
-void cegui_frmwndw_isDragMovingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether this FrameWindow
-void cegui_frmwndw_setDragMovingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the image to be used for the north-south sizing mouse cursor. 
-void cegui_frmwndw_setNSSizingCursorImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// Set the image to be used for the east-west sizing mouse cursor. 
-void cegui_frmwndw_setEWSizingCursorImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// Set the image to be used for the northwest-southeast sizing mouse cursor. 
-void cegui_frmwndw_setNWSESizingCursorImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// Set the image to be used for the northeast-southwest sizing mouse cursor. 
-void cegui_frmwndw_setNESWSizingCursorImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// Return a pointer to the close button component widget for this FrameWindow
-void cegui_frmwndw_getCloseButton(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Constructor for FrameWindow
-void cegui_frmwndw_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for FramwWindow objects. 
-void cegui_frmwndw_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassHG3DEventController.h 
@@ -1,48 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassHG3DEventController.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassHG3DEventController
-#define _DEFINED_HG3D_ClassHG3DEventController
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-
-
-
-// 
-void construct(struct hg3dclass_struct * result_c);
-
-// 
-void destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void pushEvent(struct hg3dclass_struct * thisclass_c, char * name_c, char * sender_c, struct hg3dclass_struct * window_c);
-
-// 
-void eventsAvailable(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void popEvent(struct hg3dclass_struct * thisclass_c, char * name_c, char * sender_c, struct hg3dclass_struct * window_c);
-
-#endif
− include/ClassHG3DEventStaticFunctions.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassHG3DEventStaticFunctions.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassHG3DEventStaticFunctions
-#define _DEFINED_HG3D_ClassHG3DEventStaticFunctions
-
-#include "ClassPtr.h"
-#include "ClassEventSet.h"
-
-
-
-// 
-void cegui_hg3devtsf_subscribeScriptedEvent(struct hg3dclass_struct * window_c, char * name_c, char * subscriber_name_c);
-
-#endif
− include/ClassHG3DListboxStaticFunctions.h 
@@ -1,40 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassHG3DListboxStaticFunctions.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassHG3DListboxStaticFunctions
-#define _DEFINED_HG3D_ClassHG3DListboxStaticFunctions
-
-#include "ClassPtr.h"
-#include "ClassListbox.h"
-#include "ClassCombobox.h"
-
-
-
-// 
-void cegui_hg3dlstbxsf_listboxAddItem(struct hg3dclass_struct * listbox_c, char * itemString_c);
-
-// 
-void cegui_hg3dlstbxsf_comboboxAddItem(struct hg3dclass_struct * combobox_c, char * itemString_c);
-
-#endif
− include/ClassHG3DWindowStaticFunctions.h 
@@ -1,81 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassHG3DWindowStaticFunctions.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassHG3DWindowStaticFunctions
-#define _DEFINED_HG3D_ClassHG3DWindowStaticFunctions
-
-#include "ClassPtr.h"
-#include "ClassPushButton.h"
-#include "ClassWindow.h"
-#include "ClassListbox.h"
-#include "ClassCombobox.h"
-#include "ClassCheckbox.h"
-#include "ClassRadioButton.h"
-#include "ClassEditbox.h"
-#include "ClassMultiLineEditbox.h"
-#include "ClassFrameWindow.h"
-#include "ClassProgressBar.h"
-#include "ClassSlider.h"
-#include "ClassSpinner.h"
-#include "ClassMultiColumnList.h"
-
-
-
-// 
-void cegui_hg3dwsfs_castWindowToPushButton(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToListbox(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToCombobox(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToCheckbox(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToRadioButton(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToEditbox(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToMultiLineEditbox(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToFrameWindow(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToProgressBar(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToSlider(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToSpinner(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_hg3dwsfs_castWindowToMultiColumnList(struct hg3dclass_struct * window_c, struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassImageCodec.h 
@@ -1,41 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassImageCodec.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassImageCodec
-#define _DEFINED_HG3D_ClassImageCodec
-
-#include "ClassPtr.h"
-
-
-
-// Destructor. 
-void cegui_imgcdc_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return the name of the image codec object. 
-void cegui_imgcdc_getIdentifierString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Return the list of image file format supported. 
-void cegui_imgcdc_getSupportedFormat(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-#endif
− include/ClassImageset.h 
@@ -1,77 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassImageset.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassImageset
-#define _DEFINED_HG3D_ClassImageset
-
-#include "ClassPtr.h"
-
-
-
-// Construct a new Imageset
-void cegui_imgst_construct(char * name_c, char * filename_c, char * resourceGroup_c, struct hg3dclass_struct * result_c);
-
-// Destroys Imageset
-void cegui_imgst_destruct(struct hg3dclass_struct * thisclass_c);
-
-// return String object holding the name of the Imageset
-void cegui_imgst_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return number of images defined for this Imageset
-void cegui_imgst_getImageCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// return true if an Image with the specified name exists. 
-void cegui_imgst_isImageDefined(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// remove the definition for the Image with the specified name. If no such Image exists, nothing happens. 
-void cegui_imgst_undefineImage(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Removes the definitions for all Image objects currently defined in the Imageset
-void cegui_imgst_undefineAllImages(struct hg3dclass_struct * thisclass_c);
-
-// return the width of the named image. 
-void cegui_imgst_getImageWidth(struct hg3dclass_struct * thisclass_c, char * name_c, float * result_c);
-
-// return the height of the named image. 
-void cegui_imgst_getImageHeight(struct hg3dclass_struct * thisclass_c, char * name_c, float * result_c);
-
-// return the x rendering offset for the named image. 
-void cegui_imgst_getImageOffsetX(struct hg3dclass_struct * thisclass_c, char * name_c, float * result_c);
-
-// return the y rendering offset for the named image. 
-void cegui_imgst_getImageOffsetY(struct hg3dclass_struct * thisclass_c, char * name_c, float * result_c);
-
-// Return whether this Imageset
-void cegui_imgst_isAutoScaled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Enable or disable auto-scaling for this Imageset
-void cegui_imgst_setAutoScalingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Sets the default resource group to be used when loading imageset data. 
-void cegui_imgst_setDefaultResourceGroup(char * resourceGroup_c);
-
-// Returns the default resource group currently set for Imagesets. 
-void cegui_imgst_getDefaultResourceGroup(char * result_c);
-
-#endif
− include/ClassItemEntry.h 
@@ -1,59 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassItemEntry.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassItemEntry
-#define _DEFINED_HG3D_ClassItemEntry
-
-#include "ClassPtr.h"
-
-
-
-// Returns whether this item is selected or not. 
-void cegui_itmentr_isSelected(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether this item is selectable or not. 
-void cegui_itmentr_isSelectable(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Sets the selection state of this item (on/off). If this item is not selectable this function does nothing. 
-void cegui_itmentr_setSelected(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Selects the item. 
-void cegui_itmentr_select(struct hg3dclass_struct * thisclass_c);
-
-// Deselects the item. 
-void cegui_itmentr_deselect(struct hg3dclass_struct * thisclass_c);
-
-// Set the selection state for this ListItem. Internal version. Should NOT be used by client code. 
-void cegui_itmentr_setSelected_impl(struct hg3dclass_struct * thisclass_c, int state_c, int notify_c);
-
-// Sets whether this item will be selectable. 
-void cegui_itmentr_setSelectable(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Constructor for ItemEntry
-void cegui_itmentr_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for ItemEntry
-void cegui_itmentr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassItemListbox.h 
@@ -1,87 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassItemListbox.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassItemListbox
-#define _DEFINED_HG3D_ClassItemListbox
-
-#include "ClassPtr.h"
-#include "ClassItemEntry.h"
-
-
-
-// Returns the number of selected items in this ItemListbox
-void cegui_itmlstbx_getSelectedCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns a pointer to the last selected item. 
-void cegui_itmlstbx_getLastSelectedItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Returns a pointer to the first selected item. 
-void cegui_itmlstbx_getFirstSelectedItem(struct hg3dclass_struct * thisclass_c, int start_index_c, struct hg3dclass_struct * result_c);
-
-// Returns a pointer to the next seleced item relative to a previous call to getFirstSelectedItem or getNextSelectedItem. 
-void cegui_itmlstbx_getNextSelectedItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Returns a pointer to the next selected item after the item 'start_item' given. 
-void cegui_itmlstbx_getNextSelectedItemAfter(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Returns 'true' if multiple selections are allowed. 'false' if not. 
-void cegui_itmlstbx_isMultiSelectEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns 'true' if the item at the given index is selectable and currently selected. 
-void cegui_itmlstbx_isItemSelected(struct hg3dclass_struct * thisclass_c, int index_c, int * result_c);
-
-// 
-void cegui_itmlstbx_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Set whether or not multiple selections should be allowed. 
-void cegui_itmlstbx_setMultiSelectEnabled(struct hg3dclass_struct * thisclass_c, int state_c);
-
-// Clears all selections. 
-void cegui_itmlstbx_clearAllSelections(struct hg3dclass_struct * thisclass_c);
-
-// Select a range of items. 
-void cegui_itmlstbx_selectRange(struct hg3dclass_struct * thisclass_c, int a_c, int z_c);
-
-// Select all items. Does nothing if multiselect is disabled. 
-void cegui_itmlstbx_selectAllItems(struct hg3dclass_struct * thisclass_c);
-
-// Constructor for the ItemListbox
-void cegui_itmlstbx_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for the ItemListbox
-void cegui_itmlstbx_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Setup size and position for the item widgets attached to this ItemListbox
-void cegui_itmlstbx_layoutItemWidgets(struct hg3dclass_struct * thisclass_c);
-
-// Return whether this window was inherited from the given class name at some point in the inheritance hierarchy. 
-void cegui_itmlstbx_testClassName_impl(struct hg3dclass_struct * thisclass_c, char * class_name_c, int * result_c);
-
-// Notify this ItemListbox
-void cegui_itmlstbx_notifyItemClicked(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * li_c);
-
-// Notify this ItemListbox
-void cegui_itmlstbx_notifyItemSelectState(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * li_c, int state_c);
-
-#endif
− include/ClassListHeader.h 
@@ -1,130 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassListHeader.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassListHeader
-#define _DEFINED_HG3D_ClassListHeader
-
-#include "ClassPtr.h"
-#include "ClassListHeaderSegment.h"
-#include "EnumSortDirection.h"
-
-
-
-// Return the number of columns or segments attached to the header. 
-void cegui_lsthdr_getColumnCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the ListHeaderSegment
-void cegui_lsthdr_getSegmentFromColumn(struct hg3dclass_struct * thisclass_c, unsigned int column_c, struct hg3dclass_struct * result_c);
-
-// Return the ListHeaderSegment
-void cegui_lsthdr_getSegmentFromID(struct hg3dclass_struct * thisclass_c, unsigned int id_c, struct hg3dclass_struct * result_c);
-
-// Return the ListHeaderSegment
-void cegui_lsthdr_getSortSegment(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the zero based column index of the specified segment. 
-void cegui_lsthdr_getColumnFromSegment(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * segment_c, unsigned int * result_c);
-
-// Return the zero based column index of the segment with the specified ID. 
-void cegui_lsthdr_getColumnFromID(struct hg3dclass_struct * thisclass_c, unsigned int id_c, unsigned int * result_c);
-
-// Return the zero based index of the current sort column. There must be at least one segment/column to successfully call this method. 
-void cegui_lsthdr_getSortColumn(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the zero based column index of the segment with the specified text. 
-void cegui_lsthdr_getColumnWithText(struct hg3dclass_struct * thisclass_c, char * text_c, unsigned int * result_c);
-
-// Return the pixel offset to the given ListHeaderSegment
-void cegui_lsthdr_getPixelOffsetToSegment(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * segment_c, float * result_c);
-
-// Return the pixel offset to the ListHeaderSegment
-void cegui_lsthdr_getPixelOffsetToColumn(struct hg3dclass_struct * thisclass_c, unsigned int column_c, float * result_c);
-
-// Return the total pixel width of all attached segments. 
-void cegui_lsthdr_getTotalSegmentsPixelExtent(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the currently set sort direction. 
-void cegui_lsthdr_getSortDirection(struct hg3dclass_struct * thisclass_c, enum EnumSortDirection * result_c);
-
-// Return whether user manipulation of the sort column & direction are enabled. 
-void cegui_lsthdr_isSortingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the user may size column segments. 
-void cegui_lsthdr_isColumnSizingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the user may modify the order of the segments. 
-void cegui_lsthdr_isColumnDraggingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the current segment offset value. This value is used to implement scrolling of the header segments within the ListHeader
-void cegui_lsthdr_getSegmentOffset(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Set whether user manipulation of the sort column and direction is enabled. 
-void cegui_lsthdr_setSortingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the current sort direction. 
-void cegui_lsthdr_setSortDirection(struct hg3dclass_struct * thisclass_c, enum EnumSortDirection direction_c);
-
-// Set the column segment to be used as the sort column. 
-void cegui_lsthdr_setSortSegment(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * segment_c);
-
-// Set the column to be used as the sort column. 
-void cegui_lsthdr_setSortColumn(struct hg3dclass_struct * thisclass_c, unsigned int column_c);
-
-// Set the column to to be used for sorting via its ID code. 
-void cegui_lsthdr_setSortColumnFromID(struct hg3dclass_struct * thisclass_c, unsigned int id_c);
-
-// Set whether columns may be sized by the user. 
-void cegui_lsthdr_setColumnSizingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether columns may be reordered by the user via drag and drop. 
-void cegui_lsthdr_setColumnDraggingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Removes a column segment from the ListHeader
-void cegui_lsthdr_removeColumn(struct hg3dclass_struct * thisclass_c, unsigned int column_c);
-
-// Remove the specified segment from the ListHeader
-void cegui_lsthdr_removeSegment(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * segment_c);
-
-// Moves a column segment into a new position. 
-void cegui_lsthdr_moveColumn(struct hg3dclass_struct * thisclass_c, unsigned int column_c, unsigned int position_c);
-
-// Move a column segment to a new position. 
-void cegui_lsthdr_moveColumn2(struct hg3dclass_struct * thisclass_c, unsigned int column_c, struct hg3dclass_struct * position_c);
-
-// Moves a segment into a new position. 
-void cegui_lsthdr_moveSegment(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * segment_c, unsigned int position_c);
-
-// Move a segment to a new position. 
-void cegui_lsthdr_moveSegment2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * segment_c, struct hg3dclass_struct * position_c);
-
-// Set the current base segment offset. (This implements scrolling of the header segments within the header area). 
-void cegui_lsthdr_setSegmentOffset(struct hg3dclass_struct * thisclass_c, float offset_c);
-
-// Constructor for the list header base class. 
-void cegui_lsthdr_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for the list header base class. 
-void cegui_lsthdr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassListHeaderSegment.h 
@@ -1,84 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassListHeaderSegment.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassListHeaderSegment
-#define _DEFINED_HG3D_ClassListHeaderSegment
-
-#include "ClassPtr.h"
-#include "EnumSortDirection.h"
-
-
-
-// Return whether this segment can be sized. 
-void cegui_lsthdrsgm_isSizingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the current sort direction set for this segment. 
-void cegui_lsthdrsgm_getSortDirection(struct hg3dclass_struct * thisclass_c, enum EnumSortDirection * result_c);
-
-// Return whether drag moving is enabled for this segment. 
-void cegui_lsthdrsgm_isDragMovingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the segment is clickable. 
-void cegui_lsthdrsgm_isClickable(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the segment is currently in its hovering state. 
-void cegui_lsthdrsgm_isSegmentHovering(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the segment is currently in its pushed state. 
-void cegui_lsthdrsgm_isSegmentPushed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the splitter is currently in its hovering state. 
-void cegui_lsthdrsgm_isSplitterHovering(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the segment is currently being drag-moved. 
-void cegui_lsthdrsgm_isBeingDragMoved(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the segment is currently being drag-moved. 
-void cegui_lsthdrsgm_isBeingDragSized(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether this segment can be sized. 
-void cegui_lsthdrsgm_setSizingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the current sort direction set for this segment. 
-void cegui_lsthdrsgm_setSortDirection(struct hg3dclass_struct * thisclass_c, enum EnumSortDirection sort_dir_c);
-
-// Set whether drag moving is allowed for this segment. 
-void cegui_lsthdrsgm_setDragMovingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the segment is clickable. 
-void cegui_lsthdrsgm_setClickable(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// 
-void cegui_lsthdrsgm_setSizingCursorImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// 
-void cegui_lsthdrsgm_setMovingCursorImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-// Constructor for list header segment base class. 
-void cegui_lsthdrsgm_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for list header segment base class. 
-void cegui_lsthdrsgm_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassListbox.h 
@@ -1,142 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassListbox.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassListbox
-#define _DEFINED_HG3D_ClassListbox
-
-#include "ClassPtr.h"
-#include "ClassListboxItem.h"
-#include "ClassScrollbar.h"
-
-
-
-// Return number of items attached to the list box. 
-void cegui_lstbx_getItemCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the number of selected items in the list box. 
-void cegui_lstbx_getSelectedCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the first selected item. 
-void cegui_lstbx_getFirstSelectedItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the next selected item after item start_item
-void cegui_lstbx_getNextSelected(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return the item at index position index
-void cegui_lstbx_getListboxItemFromIndex(struct hg3dclass_struct * thisclass_c, int index_c, struct hg3dclass_struct * result_c);
-
-// Return the index of ListboxItemitem
-void cegui_lstbx_getItemIndex(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int * result_c);
-
-// return whether list sorting is enabled 
-void cegui_lstbx_isSortEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether multi-select is enabled 
-void cegui_lstbx_isMultiselectEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void cegui_lstbx_isItemTooltipsEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether the string at index position index
-void cegui_lstbx_isItemSelected(struct hg3dclass_struct * thisclass_c, int index_c, int * result_c);
-
-// Search the list for an item with the specified text. 
-void cegui_lstbx_findItemWithText(struct hg3dclass_struct * thisclass_c, char * text_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return whether the specified ListboxItem
-void cegui_lstbx_isListboxItemInList(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int * result_c);
-
-// Return whether the vertical scroll bar is always shown. 
-void cegui_lstbx_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the horizontal scroll bar is always shown. 
-void cegui_lstbx_isHorzScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Initialise the Window
-void cegui_lstbx_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Remove all items from the list. 
-void cegui_lstbx_resetList(struct hg3dclass_struct * thisclass_c);
-
-// Add the given ListboxItem
-void cegui_lstbx_addItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Insert an item into the list box before a specified item already in the list. 
-void cegui_lstbx_insertItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, struct hg3dclass_struct * position_c);
-
-// Removes the given item from the list box. If the item is has the auto delete state set, the item will be deleted. 
-void cegui_lstbx_removeItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Clear the selected state for all items. 
-void cegui_lstbx_clearAllSelections(struct hg3dclass_struct * thisclass_c);
-
-// Set whether the list should be sorted. 
-void cegui_lstbx_setSortingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the list should allow multiple selections or just a single selection. 
-void cegui_lstbx_setMultiselectEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the vertical scroll bar should always be shown. 
-void cegui_lstbx_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the horizontal scroll bar should always be shown. 
-void cegui_lstbx_setShowHorzScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// 
-void cegui_lstbx_setItemTooltipsEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the select state of an attached ListboxItem
-void cegui_lstbx_setItemSelectState(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int state_c);
-
-// Set the select state of an attached ListboxItem
-void cegui_lstbx_setItemSelectState2(struct hg3dclass_struct * thisclass_c, int item_index_c, int state_c);
-
-// Causes the list box to update it's internal state after changes have been made to one or more attached ListboxItem
-void cegui_lstbx_handleUpdatedItemData(struct hg3dclass_struct * thisclass_c);
-
-// Ensure the item at the specified index is visible within the list box. 
-void cegui_lstbx_ensureItemIsVisible(struct hg3dclass_struct * thisclass_c, int item_index_c);
-
-// Ensure the item at the specified index is visible within the list box. 
-void cegui_lstbx_ensureItemIsVisible2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Return a pointer to the vertical scrollbar component widget for this Listbox
-void cegui_lstbx_getVertScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the horizontal scrollbar component widget for this Listbox
-void cegui_lstbx_getHorzScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the sum of all item heights. 
-void cegui_lstbx_getTotalItemsHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the width of the widest item. 
-void cegui_lstbx_getWidestItemWidth(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Constructor for Listbox
-void cegui_lstbx_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Listbox
-void cegui_lstbx_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassListboxItem.h 
@@ -1,84 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassListboxItem.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassListboxItem
-#define _DEFINED_HG3D_ClassListboxItem
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-
-
-
-// base class destructor 
-void cegui_lstbxitm_destruct(struct hg3dclass_struct * thisclass_c);
-
-// return the text string set for this list box item. 
-void cegui_lstbxitm_getTooltipText(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void cegui_lstbxitm_getText(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return text string with visual
-void cegui_lstbxitm_getTextVisual(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Return the current ID assigned to this list box item. 
-void cegui_lstbxitm_getID(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// return whether this item is selected. 
-void cegui_lstbxitm_isSelected(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether this item is disabled. 
-void cegui_lstbxitm_isDisabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 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. 
-void cegui_lstbxitm_isAutoDeleted(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Get the owner window for this ListboxItem
-void cegui_lstbxitm_getOwnerWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// set the text string for this list box item. 
-void cegui_lstbxitm_setText(struct hg3dclass_struct * thisclass_c, char * text_c);
-
-// 
-void cegui_lstbxitm_setTooltipText(struct hg3dclass_struct * thisclass_c, char * text_c);
-
-// Set the ID assigned to this list box item. 
-void cegui_lstbxitm_setID(struct hg3dclass_struct * thisclass_c, unsigned int item_id_c);
-
-// set whether this item is selected. 
-void cegui_lstbxitm_setSelected(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// set whether this item is disabled. 
-void cegui_lstbxitm_setDisabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// 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. 
-void cegui_lstbxitm_setAutoDeleted(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the owner window for this ListboxItem
-void cegui_lstbxitm_setOwnerWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * owner_c);
-
-// Set the selection highlighting brush image. 
-void cegui_lstbxitm_setSelectionBrushImage2(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_c);
-
-#endif
− include/ClassListboxTextItem.h 
@@ -1,54 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassListboxTextItem.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassListboxTextItem
-#define _DEFINED_HG3D_ClassListboxTextItem
-
-#include "ClassPtr.h"
-#include "ClassFont.h"
-
-
-
-// base class destructor 
-void cegui_lstbxti_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return a pointer to the font being used by this ListboxTextItem
-void cegui_lstbxti_getFont(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Set the font to be used by this ListboxTextItem
-void cegui_lstbxti_setFont(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * font_c);
-
-// Set the font to be used by this ListboxTextItem
-void cegui_lstbxti_setFont2(struct hg3dclass_struct * thisclass_c, char * font_name_c);
-
-// Set whether the the ListboxTextItem
-void cegui_lstbxti_setTextParsingEnabled(struct hg3dclass_struct * thisclass_c, const int enable_c);
-
-// return whether text parsing is enabled for this ListboxTextItem
-void cegui_lstbxti_isTextParsingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// set the text string for this list box item. 
-void cegui_lstbxti_setText(struct hg3dclass_struct * thisclass_c, char * text_c);
-
-#endif
− include/ClassLogger.h 
@@ -1,48 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassLogger.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassLogger
-#define _DEFINED_HG3D_ClassLogger
-
-#include "ClassPtr.h"
-#include "EnumLoggingLevel.h"
-
-
-
-// Destructor for Logger
-void cegui_lggr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Set the level of logging information that will get out to the log file. 
-void cegui_lggr_setLoggingLevel(struct hg3dclass_struct * thisclass_c, enum EnumLoggingLevel level_c);
-
-// return the current logging level setting 
-void cegui_lggr_getLoggingLevel(struct hg3dclass_struct * thisclass_c, enum EnumLoggingLevel * result_c);
-
-// Add an event to the log. 
-void cegui_lggr_logEvent(struct hg3dclass_struct * thisclass_c, char * message_c, enum EnumLoggingLevel level_c);
-
-// 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. 
-void cegui_lggr_setLogFilename(struct hg3dclass_struct * thisclass_c, char * filename_c, int append_c);
-
-#endif
− include/ClassMenuBase.h 
@@ -1,60 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassMenuBase.h
-
-// abstrakte Klasse!
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMenuBase
-#define _DEFINED_HG3D_ClassMenuBase
-
-#include "ClassPtr.h"
-#include "ClassMenuItem.h"
-
-
-
-// Get the item spacing for this menu. 
-void cegui_mnbs_getItemSpacing(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return whether this menu allows multiple popup menus to open at the same time. 
-void cegui_mnbs_isMultiplePopupsAllowed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether this menu should close all its open child popups, when it gets hidden. 
-void cegui_mnbs_getAutoCloseNestedPopups(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Get currently opened MenuItem
-void cegui_mnbs_getPopupMenuItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Set the item spacing for this menu. 
-void cegui_mnbs_setItemSpacing(struct hg3dclass_struct * thisclass_c, float spacing_c);
-
-// Change the currently open MenuItem
-void cegui_mnbs_changePopupMenuItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Set whether this menu allows multiple popup menus to be opened simultaneously. 
-void cegui_mnbs_setAllowMultiplePopups(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the menu should close all its open child popups, when it gets hidden. 
-void cegui_mnbs_setAutoCloseNestedPopups(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// tells the current popup that it should start its closing timer. 
-void cegui_mnbs_setPopupMenuItemClosing(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassMenuItem.h 
@@ -1,74 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassMenuItem.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMenuItem
-#define _DEFINED_HG3D_ClassMenuItem
-
-#include "ClassPtr.h"
-
-
-
-// return true if user is hovering over this widget (or it's pushed and user is not over it for highlight) 
-void cegui_mnitm_isHovering(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return true if the button widget is in the pushed state. 
-void cegui_mnitm_isPushed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns true if the popup menu attached to the menu item is open. 
-void cegui_mnitm_isOpened(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns true if the menu item popup is closing or not. 
-void cegui_mnitm_isPopupClosing(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns true if the menu item popup is closed or opened automatically if hovering with the mouse. 
-void cegui_mnitm_hasAutoPopup(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns the time, which has to elapse before the popup window is opened/closed if the hovering state changes. 
-void cegui_mnitm_getAutoPopupTimeout(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the time, which has to elapse before the popup window is opened/closed if the hovering state changes. 
-void cegui_mnitm_setAutoPopupTimeout(struct hg3dclass_struct * thisclass_c, float time_c);
-
-// Opens the PopupMenu. 
-void cegui_mnitm_openPopupMenu(struct hg3dclass_struct * thisclass_c, int notify_c);
-
-// Closes the PopupMenu. 
-void cegui_mnitm_closePopupMenu(struct hg3dclass_struct * thisclass_c, int notify_c);
-
-// Toggles the PopupMenu. 
-void cegui_mnitm_togglePopupMenu(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// starts the closing timer for the popup, which will close it if the timer is enabled. 
-void cegui_mnitm_startPopupClosing(struct hg3dclass_struct * thisclass_c);
-
-// starts the opening timer for the popup, which will open it if the timer is enabled. 
-void cegui_mnitm_startPopupOpening(struct hg3dclass_struct * thisclass_c);
-
-// Constructor for MenuItem
-void cegui_mnitm_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for MenuItem
-void cegui_mnitm_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassMultiColumnList.h 
@@ -1,239 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassMultiColumnList.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMultiColumnList
-#define _DEFINED_HG3D_ClassMultiColumnList
-
-#include "ClassPtr.h"
-#include "EnumSortDirection.h"
-#include "ClassListHeaderSegment.h"
-#include "ClassListboxItem.h"
-#include "EnumSelectionMode.h"
-#include "ClassScrollbar.h"
-#include "ClassListHeader.h"
-
-
-
-// Return whether user manipulation of the sort column and direction are enabled. 
-void cegui_mltclmlst_isUserSortControlEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the user may size column segments. 
-void cegui_mltclmlst_isUserColumnSizingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the user may modify the order of the columns. 
-void cegui_mltclmlst_isUserColumnDraggingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the number of columns in the multi-column list. 
-void cegui_mltclmlst_getColumnCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the number of rows in the multi-column list. 
-void cegui_mltclmlst_getRowCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the zero based index of the current sort column. There must be at least one column to successfully call this method. 
-void cegui_mltclmlst_getSortColumn(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the zero based column index of the column with the specified ID. 
-void cegui_mltclmlst_getColumnWithID(struct hg3dclass_struct * thisclass_c, unsigned int col_id_c, unsigned int * result_c);
-
-// Return the zero based index of the column whos header text matches the specified text. 
-void cegui_mltclmlst_getColumnWithHeaderText(struct hg3dclass_struct * thisclass_c, char * text_c, unsigned int * result_c);
-
-// Return the currently set sort direction. 
-void cegui_mltclmlst_getSortDirection(struct hg3dclass_struct * thisclass_c, enum EnumSortDirection * result_c);
-
-// Return the ListHeaderSegment
-void cegui_mltclmlst_getHeaderSegmentForColumn(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c, struct hg3dclass_struct * result_c);
-
-// Return the zero based index of the Row that contains item
-void cegui_mltclmlst_getItemRowIndex(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int * result_c);
-
-// Return the current zero based index of the column that contains item
-void cegui_mltclmlst_getItemColumnIndex(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int * result_c);
-
-// return whether ListboxItemitemcol_idx
-void cegui_mltclmlst_isListboxItemInColumn(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int col_idx_c, int * result_c);
-
-// return whether ListboxItemitemrow_idx
-void cegui_mltclmlst_isListboxItemInRow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int row_idx_c, int * result_c);
-
-// return whether ListboxItemitem
-void cegui_mltclmlst_isListboxItemInList(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int * result_c);
-
-// Return the ListboxItemcol_idxtext
-void cegui_mltclmlst_findColumnItemWithText(struct hg3dclass_struct * thisclass_c, char * text_c, unsigned int col_idx_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return the ListboxItemrow_idxtext
-void cegui_mltclmlst_findRowItemWithText(struct hg3dclass_struct * thisclass_c, char * text_c, unsigned int row_idx_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return the ListboxItemtext
-void cegui_mltclmlst_findListItemWithText(struct hg3dclass_struct * thisclass_c, char * text_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the first selected ListboxItem
-void cegui_mltclmlst_getFirstSelectedItem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the next selected ListboxItemstart_item
-void cegui_mltclmlst_getNextSelected(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * start_item_c, struct hg3dclass_struct * result_c);
-
-// Return the number of selected ListboxItems attached to this list box. 
-void cegui_mltclmlst_getSelectedCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 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. 
-void cegui_mltclmlst_getNominatedSelectionColumnID(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the index of the currently set nominated selection column to be used when in one of the NominatedColumn* selection modes. 
-void cegui_mltclmlst_getNominatedSelectionColumn(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the index of the currently set nominated selection row to be used when in one of the NominatedRow* selection modes. 
-void cegui_mltclmlst_getNominatedSelectionRow(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return the currently set selection mode. 
-void cegui_mltclmlst_getSelectionMode(struct hg3dclass_struct * thisclass_c, enum EnumSelectionMode * result_c);
-
-// Return whether the vertical scroll bar is always shown. 
-void cegui_mltclmlst_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the horizontal scroll bar is always shown. 
-void cegui_mltclmlst_isHorzScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the ID code assigned to the requested column. 
-void cegui_mltclmlst_getColumnID(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c, unsigned int * result_c);
-
-// Return the ID code assigned to the requested row. 
-void cegui_mltclmlst_getRowID(struct hg3dclass_struct * thisclass_c, unsigned int row_idx_c, unsigned int * result_c);
-
-// Return the zero based row index of the row with the specified ID. 
-void cegui_mltclmlst_getRowWithID(struct hg3dclass_struct * thisclass_c, unsigned int row_id_c, unsigned int * result_c);
-
-// Return a pointer to the vertical scrollbar component widget for this MultiColumnList
-void cegui_mltclmlst_getVertScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the horizontal scrollbar component widget for this MultiColumnList
-void cegui_mltclmlst_getHorzScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the list header component widget for this MultiColumnList
-void cegui_mltclmlst_getListHeader(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the sum of all row heights in pixels. 
-void cegui_mltclmlst_getTotalRowsHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the pixel width of the widest item in the given column. 
-void cegui_mltclmlst_getWidestColumnItemWidth(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c, float * result_c);
-
-// Return, in pixels, the height of the highest item in the given row. 
-void cegui_mltclmlst_getHighestRowItemHeight(struct hg3dclass_struct * thisclass_c, unsigned int row_idx_c, float * result_c);
-
-// Initialise the Window
-void cegui_mltclmlst_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Remove all items from the list. 
-void cegui_mltclmlst_resetList(struct hg3dclass_struct * thisclass_c);
-
-// Removes a column from the list box. This will cause any ListboxItem
-void cegui_mltclmlst_removeColumn(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c);
-
-// Removes a column from the list box. This will cause any ListboxItem
-void cegui_mltclmlst_removeColumnWithID(struct hg3dclass_struct * thisclass_c, unsigned int col_id_c);
-
-// Move the column at index col_idxposition
-void cegui_mltclmlst_moveColumn(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c, unsigned int position_c);
-
-// Move the column with ID col_idposition
-void cegui_mltclmlst_moveColumnWithID(struct hg3dclass_struct * thisclass_c, unsigned int col_id_c, unsigned int position_c);
-
-// Add an empty row to the list box. 
-void cegui_mltclmlst_addRow(struct hg3dclass_struct * thisclass_c, unsigned int row_id_c, unsigned int * result_c);
-
-// Add a row to the list box, and set the item in the column with ID col_iditem
-void cegui_mltclmlst_addRow2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int col_id_c, unsigned int row_id_c, unsigned int * result_c);
-
-// Insert an empty row into the list box. 
-void cegui_mltclmlst_insertRow(struct hg3dclass_struct * thisclass_c, unsigned int row_idx_c, unsigned int row_id_c, unsigned int * result_c);
-
-// Insert a row into the list box, and set the item in the column with ID col_iditem
-void cegui_mltclmlst_insertRow2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int col_id_c, unsigned int row_idx_c, unsigned int row_id_c, unsigned int * result_c);
-
-// Remove the list box row with index row_idxListboxItemrow_idx
-void cegui_mltclmlst_removeRow(struct hg3dclass_struct * thisclass_c, unsigned int row_idx_c);
-
-// Set the ListboxItemcol_idrow_idx
-void cegui_mltclmlst_setItem2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, unsigned int col_id_c, unsigned int row_idx_c);
-
-// Set the selection mode for the list box. 
-void cegui_mltclmlst_setSelectionMode(struct hg3dclass_struct * thisclass_c, enum EnumSelectionMode sel_mode_c);
-
-// Set the column to be used for the NominatedColumn* selection modes. 
-void cegui_mltclmlst_setNominatedSelectionColumnID(struct hg3dclass_struct * thisclass_c, unsigned int col_id_c);
-
-// Set the column to be used for the NominatedColumn* selection modes. 
-void cegui_mltclmlst_setNominatedSelectionColumn(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c);
-
-// Set the row to be used for the NominatedRow* selection modes. 
-void cegui_mltclmlst_setNominatedSelectionRow(struct hg3dclass_struct * thisclass_c, unsigned int row_idx_c);
-
-// Set the sort direction to be used. 
-void cegui_mltclmlst_setSortDirection(struct hg3dclass_struct * thisclass_c, enum EnumSortDirection direction_c);
-
-// Set the column to be used as the sort key. 
-void cegui_mltclmlst_setSortColumn(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c);
-
-// Set the column to be used as the sort key. 
-void cegui_mltclmlst_setSortColumnByID(struct hg3dclass_struct * thisclass_c, unsigned int col_id_c);
-
-// Set whether the vertical scroll bar should always be shown, or just when needed. 
-void cegui_mltclmlst_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the horizontal scroll bar should always be shown, or just when needed. 
-void cegui_mltclmlst_setShowHorzScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Removed the selected state from any currently selected ListboxItem
-void cegui_mltclmlst_clearAllSelections(struct hg3dclass_struct * thisclass_c);
-
-// Sets or clears the selected state of the given ListboxItem
-void cegui_mltclmlst_setItemSelectState(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c, int state_c);
-
-// 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. 
-void cegui_mltclmlst_handleUpdatedItemData(struct hg3dclass_struct * thisclass_c);
-
-// Set whether user manipulation of the sort column and direction are enabled. 
-void cegui_mltclmlst_setUserSortControlEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the user may size column segments. 
-void cegui_mltclmlst_setUserColumnSizingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the user may modify the order of the columns. 
-void cegui_mltclmlst_setUserColumnDraggingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Automatically determines the "best fit" size for the specified column and sets the column width to the same. 
-void cegui_mltclmlst_autoSizeColumnHeader(struct hg3dclass_struct * thisclass_c, unsigned int col_idx_c);
-
-// Set the ID code assigned to a given row. 
-void cegui_mltclmlst_setRowID(struct hg3dclass_struct * thisclass_c, unsigned int row_idx_c, unsigned int row_id_c);
-
-// Constructor for the Multi-column list base class. 
-void cegui_mltclmlst_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for the multi-column list base class. 
-void cegui_mltclmlst_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassMultiLineEditbox.h 
@@ -1,99 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassMultiLineEditbox.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMultiLineEditbox
-#define _DEFINED_HG3D_ClassMultiLineEditbox
-
-#include "ClassPtr.h"
-#include "ClassScrollbar.h"
-
-
-
-// return true if the edit box has input focus. 
-void cegui_mltlnedtbx_hasInputFocus(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if the edit box is read-only. 
-void cegui_mltlnedtbx_isReadOnly(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current position of the carat. 
-void cegui_mltlnedtbx_getCaratIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current selection start point. 
-void cegui_mltlnedtbx_getSelectionStartIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current selection end point. 
-void cegui_mltlnedtbx_getSelectionEndIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the length of the current selection (in code points / characters). 
-void cegui_mltlnedtbx_getSelectionLength(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the maximum text length set for this edit box. 
-void cegui_mltlnedtbx_getMaxTextLength(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the text in the edit box will be word-wrapped. 
-void cegui_mltlnedtbx_isWordWrapped(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the vertical scrollbar component widget for this MultiLineEditbox
-void cegui_mltlnedtbx_getVertScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return whether the vertical scroll bar is always shown. 
-void cegui_mltlnedtbx_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the horizontal scrollbar component widget for this MultiLineEditbox
-void cegui_mltlnedtbx_getHorzScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the line number a given index falls on with the current formatting. Will return last line if index is out of range. 
-void cegui_mltlnedtbx_getLineNumberFromIndex(struct hg3dclass_struct * thisclass_c, int index_c, int * result_c);
-
-// Initialise the Window
-void cegui_mltlnedtbx_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Specify whether the edit box is read-only. 
-void cegui_mltlnedtbx_setReadOnly(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the current position of the carat. 
-void cegui_mltlnedtbx_setCaratIndex(struct hg3dclass_struct * thisclass_c, int carat_pos_c);
-
-// Define the current selection for the edit box. 
-void cegui_mltlnedtbx_setSelection(struct hg3dclass_struct * thisclass_c, int start_pos_c, int end_pos_c);
-
-// set the maximum text length for this edit box. 
-void cegui_mltlnedtbx_setMaxTextLength(struct hg3dclass_struct * thisclass_c, int max_len_c);
-
-// Scroll the view so that the current carat position is visible. 
-void cegui_mltlnedtbx_ensureCaratIsVisible(struct hg3dclass_struct * thisclass_c);
-
-// Set whether the text will be word wrapped or not. 
-void cegui_mltlnedtbx_setWordWrapping(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the vertical scroll bar should always be shown. 
-void cegui_mltlnedtbx_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Constructor for the MultiLineEditbox
-void cegui_mltlnedtbx_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for the MultiLineEditbox
-void cegui_mltlnedtbx_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassOgreRenderer.h 
@@ -1,91 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassOgreRenderer.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassOgreRenderer
-#define _DEFINED_HG3D_ClassOgreRenderer
-
-#include "ClassPtr.h"
-#include "ClassOgreResourceProvider.h"
-#include "EnumBlendMode.h"
-
-
-
-// Convenience function that creates all the OgreCEGUI
-void cegui_ogrrndr_bootstrapSystem(struct hg3dclass_struct * result_c);
-
-// Convenience function to cleanup the CEGUI
-void cegui_ogrrndr_destroySystem();
-
-// Create an OgreRendererOgre
-void cegui_ogrrndr_create(struct hg3dclass_struct * result_c);
-
-// destory an OgreRenderer
-void cegui_ogrrndr_destroy(struct hg3dclass_struct * renderer_c);
-
-// function to create a CEGUI::OgreResourceProvider
-void cegui_ogrrndr_createOgreResourceProvider(struct hg3dclass_struct * result_c);
-
-// function to destroy a CEGUI::OgreResourceProvider
-void cegui_ogrrndr_destroyOgreResourceProvider(struct hg3dclass_struct * rp_c);
-
-// set whether CEGUI
-void cegui_ogrrndr_setRenderingEnabled(struct hg3dclass_struct * thisclass_c, const int enabled_c);
-
-// return whether CEGUI
-void cegui_ogrrndr_isRenderingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// set the render states for the specified BlendMode. 
-void cegui_ogrrndr_setupRenderingBlendMode(struct hg3dclass_struct * thisclass_c, const enum EnumBlendMode mode_c, const int force_c);
-
-// Controls whether rendering done by CEGUI
-void cegui_ogrrndr_setFrameControlExecutionEnabled(struct hg3dclass_struct * thisclass_c, const int enabled_c);
-
-// Returns whether rendering done by CEGUI
-void cegui_ogrrndr_isFrameControlExecutionEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Sets all the required render states needed for CEGUI
-void cegui_ogrrndr_initialiseRenderStateSettings(struct hg3dclass_struct * thisclass_c);
-
-// Destroy all GeometryBuffer objects created by this Renderer
-void cegui_ogrrndr_destroyAllGeometryBuffers(struct hg3dclass_struct * thisclass_c);
-
-// Destory all TextureTarget objects created by this Renderer
-void cegui_ogrrndr_destroyAllTextureTargets(struct hg3dclass_struct * thisclass_c);
-
-// Destroy all Texture objects created by this Renderer
-void cegui_ogrrndr_destroyAllTextures(struct hg3dclass_struct * thisclass_c);
-
-// Perform any operations required to put the system into a state ready for rendering operations to begin. 
-void cegui_ogrrndr_beginRendering(struct hg3dclass_struct * thisclass_c);
-
-// Perform any operations required to finalise rendering. 
-void cegui_ogrrndr_endRendering(struct hg3dclass_struct * thisclass_c);
-
-// Return the pixel size of the maximum supported texture. 
-void cegui_ogrrndr_getMaxTextureSize(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return identification string for the renderer module. 
-void cegui_ogrrndr_getIdentifierString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-#endif
− include/ClassOgreResourceProvider.h 
@@ -1,32 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassOgreResourceProvider.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassOgreResourceProvider
-#define _DEFINED_HG3D_ClassOgreResourceProvider
-
-#include "ClassPtr.h"
-
-
-
-#endif
− include/ClassProgressBar.h 
@@ -1,56 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassProgressBar.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassProgressBar
-#define _DEFINED_HG3D_ClassProgressBar
-
-#include "ClassPtr.h"
-
-
-
-// return the current progress value 
-void cegui_prgbr_getProgress(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// return the current step size 
-void cegui_prgbr_getStep(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// set the current progress. 
-void cegui_prgbr_setProgress(struct hg3dclass_struct * thisclass_c, float progress_c);
-
-// set the size of the 'step' in percentage points (default is 0.01f or 1%). 
-void cegui_prgbr_setStepSize(struct hg3dclass_struct * thisclass_c, float step_val_c);
-
-// cause the progress to step 
-void cegui_prgbr_step(struct hg3dclass_struct * thisclass_c);
-
-// Modify the progress level by a specified delta. 
-void cegui_prgbr_adjustProgress(struct hg3dclass_struct * thisclass_c, float delta_c);
-
-// Constructor for ProgressBar
-void cegui_prgbr_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for ProgressBar
-void cegui_prgbr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassPropertySet.h 
@@ -1,62 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassPropertySet.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassPropertySet
-#define _DEFINED_HG3D_ClassPropertySet
-
-#include "ClassPtr.h"
-
-
-
-// Constructs a new PropertySet
-void cegui_prpst_construct(struct hg3dclass_struct * result_c);
-
-// Destructor for PropertySet
-void cegui_prpst_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Removes a Property from the PropertySet
-void cegui_prpst_removeProperty(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Removes all Property objects from the PropertySet
-void cegui_prpst_clearProperties(struct hg3dclass_struct * thisclass_c);
-
-// Checks to see if a Property with the given name is in the PropertySet
-void cegui_prpst_isPropertyPresent(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// Return the help text for the specified Property. 
-void cegui_prpst_getPropertyHelp(struct hg3dclass_struct * thisclass_c, char * name_c, char * result_c);
-
-// Gets the current value of the specified Property. 
-void cegui_prpst_getProperty(struct hg3dclass_struct * thisclass_c, char * name_c, char * result_c);
-
-// Sets the current value of a Property. 
-void cegui_prpst_setProperty(struct hg3dclass_struct * thisclass_c, char * name_c, char * value_c);
-
-// Returns whether a Property is at it's default value. 
-void cegui_prpst_isPropertyDefault(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// Returns the default value of a Property as a String. 
-void cegui_prpst_getPropertyDefault(struct hg3dclass_struct * thisclass_c, char * name_c, char * result_c);
-
-#endif
− include/ClassPtr.h 
@@ -1,217 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassPtr.h
-
-// Here are the methods defined, which do the class pointer
-// marshalling and the casting of subclasses to higher classes
-
-#include "wchar.h"
-
-
-
-#ifndef CLASSPTR_INCLUDE_H
-#define CLASSPTR_INCLUDE_H
-
-typedef struct hg3dclass_struct {
-	void *ptr;
-	void *fptr;
-} hg3dclass_struct;
-
-void *getHG3DClassPtr(hg3dclass_struct inSt, const char* className);
-
-
-typedef void ClassCheckbox; 
-hg3dclass_struct getHG3DClass_Checkbox(void *ptrIn);
-
-typedef void ClassCombobox; 
-hg3dclass_struct getHG3DClass_Combobox(void *ptrIn);
-
-typedef void ClassComboDropList; 
-hg3dclass_struct getHG3DClass_ComboDropList(void *ptrIn);
-
-typedef void ClassDefaultLogger; 
-hg3dclass_struct getHG3DClass_DefaultLogger(void *ptrIn);
-
-typedef void ClassDefaultResourceProvider; 
-hg3dclass_struct getHG3DClass_DefaultResourceProvider(void *ptrIn);
-
-typedef void ClassDragContainer; 
-hg3dclass_struct getHG3DClass_DragContainer(void *ptrIn);
-
-typedef void ClassEditbox; 
-hg3dclass_struct getHG3DClass_Editbox(void *ptrIn);
-
-typedef void ClassEventArgs; 
-hg3dclass_struct getHG3DClass_EventArgs(void *ptrIn);
-
-typedef void ClassEventSet; 
-hg3dclass_struct getHG3DClass_EventSet(void *ptrIn);
-
-typedef void ClassFont; 
-hg3dclass_struct getHG3DClass_Font(void *ptrIn);
-
-typedef void ClassFontManager; 
-hg3dclass_struct getHG3DClass_FontManager(void *ptrIn);
-
-typedef void ClassFrameWindow; 
-hg3dclass_struct getHG3DClass_FrameWindow(void *ptrIn);
-
-typedef void ClassImageCodec; 
-hg3dclass_struct getHG3DClass_ImageCodec(void *ptrIn);
-
-typedef void ClassImageset; 
-hg3dclass_struct getHG3DClass_Imageset(void *ptrIn);
-
-typedef void ClassItemEntry; 
-hg3dclass_struct getHG3DClass_ItemEntry(void *ptrIn);
-
-typedef void ClassItemListbox; 
-hg3dclass_struct getHG3DClass_ItemListbox(void *ptrIn);
-
-typedef void ClassListbox; 
-hg3dclass_struct getHG3DClass_Listbox(void *ptrIn);
-
-typedef void ClassListboxItem; 
-hg3dclass_struct getHG3DClass_ListboxItem(void *ptrIn);
-
-typedef void ClassListboxTextItem; 
-hg3dclass_struct getHG3DClass_ListboxTextItem(void *ptrIn);
-
-typedef void ClassListHeader; 
-hg3dclass_struct getHG3DClass_ListHeader(void *ptrIn);
-
-typedef void ClassListHeaderSegment; 
-hg3dclass_struct getHG3DClass_ListHeaderSegment(void *ptrIn);
-
-typedef void ClassLogger; 
-hg3dclass_struct getHG3DClass_Logger(void *ptrIn);
-
-typedef void ClassMenuBase; 
-hg3dclass_struct getHG3DClass_MenuBase(void *ptrIn);
-
-typedef void ClassMenuItem; 
-hg3dclass_struct getHG3DClass_MenuItem(void *ptrIn);
-
-typedef void ClassMultiColumnList; 
-hg3dclass_struct getHG3DClass_MultiColumnList(void *ptrIn);
-
-typedef void ClassMultiLineEditbox; 
-hg3dclass_struct getHG3DClass_MultiLineEditbox(void *ptrIn);
-
-typedef void ClassOgreRenderer; 
-hg3dclass_struct getHG3DClass_OgreRenderer(void *ptrIn);
-
-typedef void ClassOgreResourceProvider; 
-hg3dclass_struct getHG3DClass_OgreResourceProvider(void *ptrIn);
-
-typedef void ClassProgressBar; 
-hg3dclass_struct getHG3DClass_ProgressBar(void *ptrIn);
-
-typedef void ClassPropertySet; 
-hg3dclass_struct getHG3DClass_PropertySet(void *ptrIn);
-
-typedef void ClassPushButton; 
-hg3dclass_struct getHG3DClass_PushButton(void *ptrIn);
-
-typedef void ClassRadioButton; 
-hg3dclass_struct getHG3DClass_RadioButton(void *ptrIn);
-
-typedef void ClassRenderer; 
-hg3dclass_struct getHG3DClass_Renderer(void *ptrIn);
-
-typedef void ClassResourceProvider; 
-hg3dclass_struct getHG3DClass_ResourceProvider(void *ptrIn);
-
-typedef void ClassScheme; 
-hg3dclass_struct getHG3DClass_Scheme(void *ptrIn);
-
-typedef void ClassSchemeManager; 
-hg3dclass_struct getHG3DClass_SchemeManager(void *ptrIn);
-
-typedef void ClassScriptFunctor; 
-hg3dclass_struct getHG3DClass_ScriptFunctor(void *ptrIn);
-
-typedef void ClassScriptModule; 
-hg3dclass_struct getHG3DClass_ScriptModule(void *ptrIn);
-
-typedef void ClassScrollablePane; 
-hg3dclass_struct getHG3DClass_ScrollablePane(void *ptrIn);
-
-typedef void ClassScrollbar; 
-hg3dclass_struct getHG3DClass_Scrollbar(void *ptrIn);
-
-typedef void ClassScrolledContainer; 
-hg3dclass_struct getHG3DClass_ScrolledContainer(void *ptrIn);
-
-typedef void ClassScrolledItemListBase; 
-hg3dclass_struct getHG3DClass_ScrolledItemListBase(void *ptrIn);
-
-typedef void ClassSlider; 
-hg3dclass_struct getHG3DClass_Slider(void *ptrIn);
-
-typedef void ClassSpinner; 
-hg3dclass_struct getHG3DClass_Spinner(void *ptrIn);
-
-typedef void ClassSystem; 
-hg3dclass_struct getHG3DClass_System(void *ptrIn);
-
-typedef void ClassTabButton; 
-hg3dclass_struct getHG3DClass_TabButton(void *ptrIn);
-
-typedef void ClassThumb; 
-hg3dclass_struct getHG3DClass_Thumb(void *ptrIn);
-
-typedef void ClassTooltip; 
-hg3dclass_struct getHG3DClass_Tooltip(void *ptrIn);
-
-typedef void ClassTree; 
-hg3dclass_struct getHG3DClass_Tree(void *ptrIn);
-
-typedef void ClassWidgetLookManager; 
-hg3dclass_struct getHG3DClass_WidgetLookManager(void *ptrIn);
-
-typedef void ClassWindow; 
-hg3dclass_struct getHG3DClass_Window(void *ptrIn);
-
-typedef void ClassWindowManager; 
-hg3dclass_struct getHG3DClass_WindowManager(void *ptrIn);
-
-typedef void ClassXMLParser; 
-hg3dclass_struct getHG3DClass_XMLParser(void *ptrIn);
-
-typedef void ClassHG3DEventController; 
-hg3dclass_struct getHG3DClass_HG3DEventController(void *ptrIn);
-
-typedef void ClassHG3DEventStaticFunctions; 
-hg3dclass_struct getHG3DClass_HG3DEventStaticFunctions(void *ptrIn);
-
-typedef void ClassHG3DListboxStaticFunctions; 
-hg3dclass_struct getHG3DClass_HG3DListboxStaticFunctions(void *ptrIn);
-
-typedef void ClassHG3DWindowStaticFunctions; 
-hg3dclass_struct getHG3DClass_HG3DWindowStaticFunctions(void *ptrIn);
-
-typedef void ClassSystemHG3D; 
-hg3dclass_struct getHG3DClass_SystemHG3D(void *ptrIn);
-
-typedef void ClassWindowManagerHG3D; 
-hg3dclass_struct getHG3DClass_WindowManagerHG3D(void *ptrIn);
-
-#endif
− include/ClassPushButton.h 
@@ -1,38 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassPushButton.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassPushButton
-#define _DEFINED_HG3D_ClassPushButton
-
-#include "ClassPtr.h"
-
-
-
-// Constructor for base PushButton
-void cegui_pshbttn_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for PushButton
-void cegui_pshbttn_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassRadioButton.h 
@@ -1,47 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassRadioButton.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRadioButton
-#define _DEFINED_HG3D_ClassRadioButton
-
-#include "ClassPtr.h"
-
-
-
-// return true if the radio button is selected (has the checkmark) 
-void cegui_rdbttn_isSelected(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the RadioButtonRadioButton
-void cegui_rdbttn_getSelectedButtonInGroup(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// set whether the radio button is selected or not 
-void cegui_rdbttn_setSelected(struct hg3dclass_struct * thisclass_c, int select_c);
-
-// 
-void cegui_rdbttn_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_rdbttn_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassRenderer.h 
@@ -1,56 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassRenderer.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRenderer
-#define _DEFINED_HG3D_ClassRenderer
-
-#include "ClassPtr.h"
-
-
-
-// Destroy all GeometryBuffer objects created by this Renderer
-void cegui_rndr_destroyAllGeometryBuffers(struct hg3dclass_struct * thisclass_c);
-
-// Destory all TextureTarget objects created by this Renderer
-void cegui_rndr_destroyAllTextureTargets(struct hg3dclass_struct * thisclass_c);
-
-// Destroy all Texture objects created by this Renderer
-void cegui_rndr_destroyAllTextures(struct hg3dclass_struct * thisclass_c);
-
-// Perform any operations required to put the system into a state ready for rendering operations to begin. 
-void cegui_rndr_beginRendering(struct hg3dclass_struct * thisclass_c);
-
-// Perform any operations required to finalise rendering. 
-void cegui_rndr_endRendering(struct hg3dclass_struct * thisclass_c);
-
-// Return the pixel size of the maximum supported texture. 
-void cegui_rndr_getMaxTextureSize(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Return identification string for the renderer module. 
-void cegui_rndr_getIdentifierString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Destructor. 
-void cegui_rndr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassResourceProvider.h 
@@ -1,41 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassResourceProvider.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassResourceProvider
-#define _DEFINED_HG3D_ClassResourceProvider
-
-#include "ClassPtr.h"
-
-
-
-// Destructor for the ResourceProvider
-void cegui_rsrcpr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return the current default resource group identifier. 
-void cegui_rsrcpr_getDefaultResourceGroup(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Set the default resource group identifier. 
-void cegui_rsrcpr_setDefaultResourceGroup(struct hg3dclass_struct * thisclass_c, char * resourceGroup_c);
-
-#endif
− include/ClassScheme.h 
@@ -1,53 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScheme.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScheme
-#define _DEFINED_HG3D_ClassScheme
-
-#include "ClassPtr.h"
-
-
-
-// Loads all resources for this scheme. 
-void cegui_schm_loadResources(struct hg3dclass_struct * thisclass_c);
-
-// Unloads all resources for this scheme. This should be used very carefully. 
-void cegui_schm_unloadResources(struct hg3dclass_struct * thisclass_c);
-
-// Return whether the resources for this Scheme
-void cegui_schm_resourcesLoaded(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the name of this Scheme
-void cegui_schm_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Destroys a Scheme
-void cegui_schm_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Returns the default resource group currently set for Schemes. 
-void cegui_schm_getDefaultResourceGroup(char * result_c);
-
-// Sets the default resource group to be used when loading scheme xml data. 
-void cegui_schm_setDefaultResourceGroup(char * resourceGroup_c);
-
-#endif
− include/ClassSchemeManager.h 
@@ -1,38 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassSchemeManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSchemeManager
-#define _DEFINED_HG3D_ClassSchemeManager
-
-#include "ClassPtr.h"
-
-
-
-// Constructor. 
-void cegui_schmmgr_construct(struct hg3dclass_struct * result_c);
-
-// Destructor. 
-void cegui_schmmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassScriptFunctor.h 
@@ -1,35 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScriptFunctor.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScriptFunctor
-#define _DEFINED_HG3D_ClassScriptFunctor
-
-#include "ClassPtr.h"
-
-
-
-// 
-void cegui_scrfnct_construct(char * functionName_c, struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassScriptModule.h 
@@ -1,63 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScriptModule.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScriptModule
-#define _DEFINED_HG3D_ClassScriptModule
-
-#include "ClassPtr.h"
-#include "ClassEventArgs.h"
-
-
-
-// Destructor for ScriptModule
-void cegui_scrmd_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Execute a script file. 
-void cegui_scrmd_executeScriptFile(struct hg3dclass_struct * thisclass_c, char * filename_c, char * resourceGroup_c);
-
-// Execute a scripted global function. The function should not take any parameters and should return an integer. 
-void cegui_scrmd_executeScriptGlobal(struct hg3dclass_struct * thisclass_c, char * function_name_c, int * result_c);
-
-// Execute a scripted global 'event handler' function. The function should take some kind of EventArgsEventArgs
-void cegui_scrmd_executeScriptedEventHandler(struct hg3dclass_struct * thisclass_c, char * handler_name_c, struct hg3dclass_struct * e_c, int * result_c);
-
-// Execute script code contained in the given CEGUI::String object. 
-void cegui_scrmd_executeString(struct hg3dclass_struct * thisclass_c, char * str_c);
-
-// Method called during system initialisation, prior to running any scripts via the ScriptModuleScriptModule
-void cegui_scrmd_createBindings(struct hg3dclass_struct * thisclass_c);
-
-// Method called during system destruction, after all scripts have been run via the ScriptModuleScriptModule
-void cegui_scrmd_destroyBindings(struct hg3dclass_struct * thisclass_c);
-
-// Return identification string for the ScriptModuleScriptModule
-void cegui_scrmd_getIdentifierString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Sets the default resource group to be used when loading script files. 
-void cegui_scrmd_setDefaultResourceGroup(char * resourceGroup_c);
-
-// Returns the default resource group used when loading script files. 
-void cegui_scrmd_getDefaultResourceGroup(char * result_c);
-
-#endif
− include/ClassScrollablePane.h 
@@ -1,109 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScrollablePane.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScrollablePane
-#define _DEFINED_HG3D_ClassScrollablePane
-
-#include "ClassPtr.h"
-#include "ClassScrolledContainer.h"
-#include "ClassScrollbar.h"
-
-
-
-// Constructor for the ScrollablePane
-void cegui_scrlpn_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for the ScrollablePane
-void cegui_scrlpn_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Returns a pointer to the window holding the pane contents. 
-void cegui_scrlpn_getContentPane(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return whether the vertical scroll bar is always shown. 
-void cegui_scrlpn_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether the vertical scroll bar should always be shown. 
-void cegui_scrlpn_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Return whether the horizontal scroll bar is always shown. 
-void cegui_scrlpn_isHorzScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether the horizontal scroll bar should always be shown. 
-void cegui_scrlpn_setShowHorzScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Return whether the content pane is auto sized. 
-void cegui_scrlpn_isContentPaneAutoSized(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether the content pane should be auto-sized. 
-void cegui_scrlpn_setContentPaneAutoSized(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Returns the horizontal scrollbar step size as a fraction of one complete view page. 
-void cegui_scrlpn_getHorizontalStepSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the horizontal scrollbar step size as a fraction of one complete view page. 
-void cegui_scrlpn_setHorizontalStepSize(struct hg3dclass_struct * thisclass_c, float step_c);
-
-// Returns the horizontal scrollbar overlap size as a fraction of one complete view page. 
-void cegui_scrlpn_getHorizontalOverlapSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the horizontal scrollbar overlap size as a fraction of one complete view page. 
-void cegui_scrlpn_setHorizontalOverlapSize(struct hg3dclass_struct * thisclass_c, float overlap_c);
-
-// Returns the horizontal scroll position as a fraction of the complete scrollable width. 
-void cegui_scrlpn_getHorizontalScrollPosition(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the horizontal scroll position as a fraction of the complete scrollable width. 
-void cegui_scrlpn_setHorizontalScrollPosition(struct hg3dclass_struct * thisclass_c, float position_c);
-
-// Returns the vertical scrollbar step size as a fraction of one complete view page. 
-void cegui_scrlpn_getVerticalStepSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the vertical scrollbar step size as a fraction of one complete view page. 
-void cegui_scrlpn_setVerticalStepSize(struct hg3dclass_struct * thisclass_c, float step_c);
-
-// Returns the vertical scrollbar overlap size as a fraction of one complete view page. 
-void cegui_scrlpn_getVerticalOverlapSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the vertical scrollbar overlap size as a fraction of one complete view page. 
-void cegui_scrlpn_setVerticalOverlapSize(struct hg3dclass_struct * thisclass_c, float overlap_c);
-
-// Returns the vertical scroll position as a fraction of the complete scrollable height. 
-void cegui_scrlpn_getVerticalScrollPosition(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the vertical scroll position as a fraction of the complete scrollable height. 
-void cegui_scrlpn_setVerticalScrollPosition(struct hg3dclass_struct * thisclass_c, float position_c);
-
-// Return a pointer to the vertical scrollbar component widget for this ScrollablePane
-void cegui_scrlpn_getVertScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the horizontal scrollbar component widget for this ScrollablePane
-void cegui_scrlpn_getHorzScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Initialises the Window
-void cegui_scrlpn_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Internal destroy method which actually just adds the window and any parent destructed child windows to the dead pool. 
-void cegui_scrlpn_destroy(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassScrollbar.h 
@@ -1,88 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScrollbar.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScrollbar
-#define _DEFINED_HG3D_ClassScrollbar
-
-#include "ClassPtr.h"
-#include "ClassPushButton.h"
-#include "ClassThumb.h"
-
-
-
-// Return the size of the document or data. 
-void cegui_scrlbr_getDocumentSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the page size for this scroll bar. 
-void cegui_scrlbr_getPageSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the step size for this scroll bar. 
-void cegui_scrlbr_getStepSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the overlap size for this scroll bar. 
-void cegui_scrlbr_getOverlapSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the current position of scroll bar within the document. 
-void cegui_scrlbr_getScrollPosition(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return a pointer to the 'increase' PushButtoncomponent widget for this Scrollbar
-void cegui_scrlbr_getIncreaseButton(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the 'decrease' PushButtonScrollbar
-void cegui_scrlbr_getDecreaseButton(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the ThumbScrollbar
-void cegui_scrlbr_getThumb(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Initialises the Scrollbar
-void cegui_scrlbr_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Set the size of the document or data. 
-void cegui_scrlbr_setDocumentSize(struct hg3dclass_struct * thisclass_c, float document_size_c);
-
-// Set the page size for this scroll bar. 
-void cegui_scrlbr_setPageSize(struct hg3dclass_struct * thisclass_c, float page_size_c);
-
-// Set the step size for this scroll bar. 
-void cegui_scrlbr_setStepSize(struct hg3dclass_struct * thisclass_c, float step_size_c);
-
-// Set the overlap size for this scroll bar. 
-void cegui_scrlbr_setOverlapSize(struct hg3dclass_struct * thisclass_c, float overlap_size_c);
-
-// Set the current position of scroll bar within the document. 
-void cegui_scrlbr_setScrollPosition(struct hg3dclass_struct * thisclass_c, float position_c);
-
-// Enable or disable the 'end lock' mode for the scrollbar. 
-void cegui_scrlbr_setEndLockEnabled(struct hg3dclass_struct * thisclass_c, const int enabled_c);
-
-// Returns whether the 'end lock'mode for the scrollbar is enabled. 
-void cegui_scrlbr_isEndLockEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Constructor for Scrollbar
-void cegui_scrlbr_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Scrollbar
-void cegui_scrlbr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassScrolledContainer.h 
@@ -1,44 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScrolledContainer.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScrolledContainer
-#define _DEFINED_HG3D_ClassScrolledContainer
-
-#include "ClassPtr.h"
-
-
-
-// Constructor for ScrolledContainer
-void cegui_scrlcnt_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for ScrolledContainer
-void cegui_scrlcnt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return whether the content pane is auto sized. 
-void cegui_scrlcnt_isContentPaneAutoSized(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether the content pane should be auto-sized. 
-void cegui_scrlcnt_setContentPaneAutoSized(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-#endif
− include/ClassScrolledItemListBase.h 
@@ -1,61 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassScrolledItemListBase.h
-
-// abstrakte Klasse!
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassScrolledItemListBase
-#define _DEFINED_HG3D_ClassScrolledItemListBase
-
-#include "ClassPtr.h"
-#include "ClassScrollbar.h"
-#include "ClassItemEntry.h"
-
-
-
-// Returns whether the vertical scrollbar is being forced visible. Despite content size. 
-void cegui_scrlitmlstbs_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether the horizontal scrollbar is being forced visible. Despite content size. 
-void cegui_scrlitmlstbs_isHorzScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Get the vertical scrollbar component attached to this window. 
-void cegui_scrlitmlstbs_getVertScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Get the horizontal scrollbar component attached to this window. 
-void cegui_scrlitmlstbs_getHorzScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Sets whether the vertical scrollbar should be forced visible. Despite content size. 
-void cegui_scrlitmlstbs_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int mode_c);
-
-// Sets whether the horizontal scrollbar should be forced visible. Despite content size. 
-void cegui_scrlitmlstbs_setShowHorzScrollbar(struct hg3dclass_struct * thisclass_c, int mode_c);
-
-// Scroll the vertical list position if needed to ensure that the ItemEntryitemScrolledItemListBase
-void cegui_scrlitmlstbs_ensureItemIsVisibleVert(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Scroll the horizontal list position if needed to ensure that the ItemEntryitemScrolledItemListBase
-void cegui_scrlitmlstbs_ensureItemIsVisibleHorz(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// 
-void cegui_scrlitmlstbs_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassSlider.h 
@@ -1,63 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassSlider.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSlider
-#define _DEFINED_HG3D_ClassSlider
-
-#include "ClassPtr.h"
-#include "ClassThumb.h"
-
-
-
-// return the current slider value. 
-void cegui_sldr_getCurrentValue(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// return the maximum value set for this widget 
-void cegui_sldr_getMaxValue(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// return the current click step setting for the slider. 
-void cegui_sldr_getClickStep(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return a pointer to the ThumbSlider
-void cegui_sldr_getThumb(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Initialises the Window
-void cegui_sldr_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// set the maximum value for the slider. Note that the minimum value is fixed at 0. 
-void cegui_sldr_setMaxValue(struct hg3dclass_struct * thisclass_c, float maxVal_c);
-
-// set the current slider value. 
-void cegui_sldr_setCurrentValue(struct hg3dclass_struct * thisclass_c, float value_c);
-
-// set the current click step setting for the slider. 
-void cegui_sldr_setClickStep(struct hg3dclass_struct * thisclass_c, float step_c);
-
-// Slider
-void cegui_sldr_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Slider
-void cegui_sldr_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassSpinner.h 
@@ -1,72 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassSpinner.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSpinner
-#define _DEFINED_HG3D_ClassSpinner
-
-#include "ClassPtr.h"
-#include "EnumTextInputMode.h"
-
-
-
-// Constructor for Spinner
-void cegui_spnnr_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Spinner
-void cegui_spnnr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Initialises the Window
-void cegui_spnnr_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Return the current spinner value. 
-void cegui_spnnr_getCurrentValue(struct hg3dclass_struct * thisclass_c, double * result_c);
-
-// Return the current step value. 
-void cegui_spnnr_getStepSize(struct hg3dclass_struct * thisclass_c, double * result_c);
-
-// Return the current maximum limit value for the Spinner
-void cegui_spnnr_getMaximumValue(struct hg3dclass_struct * thisclass_c, double * result_c);
-
-// Return the current minimum limit value for the Spinner
-void cegui_spnnr_getMinimumValue(struct hg3dclass_struct * thisclass_c, double * result_c);
-
-// Return the current text input / display mode setting. 
-void cegui_spnnr_getTextInputMode(struct hg3dclass_struct * thisclass_c, enum EnumTextInputMode * result_c);
-
-// Set the current spinner value. 
-void cegui_spnnr_setCurrentValue(struct hg3dclass_struct * thisclass_c, double value_c);
-
-// Set the current step value. 
-void cegui_spnnr_setStepSize(struct hg3dclass_struct * thisclass_c, double step_c);
-
-// Set the spinner maximum value. 
-void cegui_spnnr_setMaximumValue(struct hg3dclass_struct * thisclass_c, double maxValue_c);
-
-// Set the spinner minimum value. 
-void cegui_spnnr_setMinimumValue(struct hg3dclass_struct * thisclass_c, double minVaue_c);
-
-// Set the spinner input / display mode. 
-void cegui_spnnr_setTextInputMode(struct hg3dclass_struct * thisclass_c, enum EnumTextInputMode mode_c);
-
-#endif
− include/ClassSystem.h 
@@ -1,224 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassSystem.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSystem
-#define _DEFINED_HG3D_ClassSystem
-
-#include "ClassPtr.h"
-#include "ClassRenderer.h"
-#include "ClassResourceProvider.h"
-#include "ClassXMLParser.h"
-#include "ClassImageCodec.h"
-#include "ClassScriptModule.h"
-#include "ClassFont.h"
-#include "ClassWindow.h"
-#include "ClassTooltip.h"
-#include "EnumMouseButton.h"
-
-
-
-// Create the System
-void cegui_sstm_create(struct hg3dclass_struct * renderer_c, struct hg3dclass_struct * resourceProvider_c, struct hg3dclass_struct * xmlParser_c, struct hg3dclass_struct * imageCodec_c, struct hg3dclass_struct * scriptModule_c, char * configFile_c, char * logFile_c, struct hg3dclass_struct * result_c);
-
-// Destroy the System
-void cegui_sstm_destroy();
-
-// Return singleton System
-void cegui_sstm_getSingleton(struct hg3dclass_struct * result_c);
-
-// Return pointer to singleton System
-void cegui_sstm_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-// Static member to set the name of the default XML parser module that should be used. 
-void cegui_sstm_setDefaultXMLParserName(char * parserName_c);
-
-// Return the name of the currently set default xml parser module. 
-void cegui_sstm_getDefaultXMLParserName(char * result_c);
-
-// Set the name of the default image codec to be used. 
-void cegui_sstm_setDefaultImageCodecName(char * codecName_c);
-
-// Get the name of the default image codec. 
-void cegui_sstm_getDefaultImageCodecName(char * result_c);
-
-// Return a pointer to the Renderer
-void cegui_sstm_getRenderer(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Set the default font to be used by the system. 
-void cegui_sstm_setDefaultFont(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Set the default font to be used by the system. 
-void cegui_sstm_setDefaultFont2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * font_c);
-
-// Return a pointer to the default Font
-void cegui_sstm_getDefaultFont(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Causes a full re-draw next time renderGUI()
-void cegui_sstm_signalRedraw(struct hg3dclass_struct * thisclass_c);
-
-// Return a boolean value to indicate whether a full re-draw is requested next time renderGUI()
-void cegui_sstm_isRedrawRequested(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Render the GUI. 
-void cegui_sstm_renderGUI(struct hg3dclass_struct * thisclass_c);
-
-// Set the active GUI sheet (root) window. 
-void cegui_sstm_setGUISheet(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * sheet_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the active GUI sheet (root) window. 
-void cegui_sstm_getGUISheet(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the current timeout for generation of single-click events. 
-void cegui_sstm_getSingleClickTimeout(struct hg3dclass_struct * thisclass_c, double * result_c);
-
-// Return the current timeout for generation of multi-click events. 
-void cegui_sstm_getMultiClickTimeout(struct hg3dclass_struct * thisclass_c, double * result_c);
-
-// Set the timeout used for generation of single-click events. 
-void cegui_sstm_setSingleClickTimeout(struct hg3dclass_struct * thisclass_c, double timeout_c);
-
-// Set the timeout to be used for the generation of multi-click events. 
-void cegui_sstm_setMultiClickTimeout(struct hg3dclass_struct * thisclass_c, double timeout_c);
-
-// Return whether automatic mouse button click and multi-click (i.e. double-click and treble-click) event generation is enabled. 
-void cegui_sstm_isMouseClickEventGenerationEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set whether automatic mouse button click and multi-click (i.e. double-click and treble-click) event generation will occur. 
-void cegui_sstm_setMouseClickEventGenerationEnabled(struct hg3dclass_struct * thisclass_c, const int enable_c);
-
-// Set the image to be used as the default mouse cursor. 
-void cegui_sstm_setDefaultMouseCursor3(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_name_c);
-
-// Return the Window
-void cegui_sstm_getWindowContainingMouse(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return a pointer to the ScriptModule
-void cegui_sstm_getScriptingModule(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Set the ScriptModule
-void cegui_sstm_setScriptingModule(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * scriptModule_c);
-
-// Return a pointer to the ResourceProvider
-void cegui_sstm_getResourceProvider(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Execute a script file if possible. 
-void cegui_sstm_executeScriptFile(struct hg3dclass_struct * thisclass_c, char * filename_c, char * resourceGroup_c);
-
-// Execute a scripted global function if possible. The function should not take any parameters and should return an integer. 
-void cegui_sstm_executeScriptGlobal(struct hg3dclass_struct * thisclass_c, char * function_name_c, int * result_c);
-
-// If possible, execute script code contained in the given CEGUI::String object. 
-void cegui_sstm_executeScriptString(struct hg3dclass_struct * thisclass_c, char * str_c);
-
-// return the current mouse movement scaling factor. 
-void cegui_sstm_getMouseMoveScaling(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Set the current mouse movement scaling factor. 
-void cegui_sstm_setMouseMoveScaling(struct hg3dclass_struct * thisclass_c, float scaling_c);
-
-// Internal method used to inform the SystemSystem
-void cegui_sstm_notifyWindowDestroyed(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c);
-
-// Return the current system keys value. 
-void cegui_sstm_getSystemKeys(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// Set a new XML parser module to be used. 
-void cegui_sstm_setXMLParser(struct hg3dclass_struct * thisclass_c, char * parserName_c);
-
-// Sets the XMLParser
-void cegui_sstm_setXMLParser2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * parser_c);
-
-// Return the XMLParser
-void cegui_sstm_getXMLParser(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Set the system default TooltipTooltip
-void cegui_sstm_setDefaultTooltip(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * tooltip_c);
-
-// Set the system default TooltipWindow
-void cegui_sstm_setDefaultTooltip2(struct hg3dclass_struct * thisclass_c, char * tooltipType_c);
-
-// return a poiter to the system default tooltip. May return 0. 
-void cegui_sstm_getDefaultTooltip(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Internal method to directly set the current modal target. 
-void cegui_sstm_setModalTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * target_c);
-
-// Return a pointer to the Window
-void cegui_sstm_getModalTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Perform updates with regards to the window that contains the mouse cursor, firing any required MouseEnters / MouseLeaves events. 
-void cegui_sstm_updateWindowContainingMouse(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Retrieve the image codec to be used by the system. 
-void cegui_sstm_getImageCodec(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Set the image codec to be used by the system. 
-void cegui_sstm_setImageCodec(struct hg3dclass_struct * thisclass_c, char * codecName_c);
-
-// Set the image codec to use from an existing image codec. 
-void cegui_sstm_setImageCodec2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * codec_c);
-
-// Invalidate all imagery and geometry caches for CEGUI
-void cegui_sstm_invalidateAllCachedRendering(struct hg3dclass_struct * thisclass_c);
-
-// Method that injects a mouse movement event into the system. 
-void cegui_sstm_injectMouseMove(struct hg3dclass_struct * thisclass_c, float delta_x_c, float delta_y_c, int * result_c);
-
-// Method that injects that the mouse has left the application window. 
-void cegui_sstm_injectMouseLeaves(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Method that injects a mouse button down event into the system. 
-void cegui_sstm_injectMouseButtonDown(struct hg3dclass_struct * thisclass_c, enum EnumMouseButton button_c, int * result_c);
-
-// Method that injects a mouse button up event into the system. 
-void cegui_sstm_injectMouseButtonUp(struct hg3dclass_struct * thisclass_c, enum EnumMouseButton button_c, int * result_c);
-
-// Method that injects a key down event into the system. 
-void cegui_sstm_injectKeyDown(struct hg3dclass_struct * thisclass_c, unsigned int key_code_c, int * result_c);
-
-// Method that injects a key up event into the system. 
-void cegui_sstm_injectKeyUp(struct hg3dclass_struct * thisclass_c, unsigned int key_code_c, int * result_c);
-
-// Method that injects a typed character event into the system. 
-void cegui_sstm_injectChar(struct hg3dclass_struct * thisclass_c, int code_point_c, int * result_c);
-
-// Method that injects a mouse-wheel / scroll-wheel event into the system. 
-void cegui_sstm_injectMouseWheelChange(struct hg3dclass_struct * thisclass_c, float delta_c, int * result_c);
-
-// Method that injects a new position for the mouse cursor. 
-void cegui_sstm_injectMousePosition(struct hg3dclass_struct * thisclass_c, float x_pos_c, float y_pos_c, int * result_c);
-
-// Method to inject time pulses into the system. 
-void cegui_sstm_injectTimePulse(struct hg3dclass_struct * thisclass_c, float timeElapsed_c, int * result_c);
-
-// Function to directly inject a mouse button click event. 
-void cegui_sstm_injectMouseButtonClick(struct hg3dclass_struct * thisclass_c, const enum EnumMouseButton button_c, int * result_c);
-
-// Function to directly inject a mouse button double-click event. 
-void cegui_sstm_injectMouseButtonDoubleClick(struct hg3dclass_struct * thisclass_c, const enum EnumMouseButton button_c, int * result_c);
-
-// Function to directly inject a mouse button triple-click event. 
-void cegui_sstm_injectMouseButtonTripleClick(struct hg3dclass_struct * thisclass_c, const enum EnumMouseButton button_c, int * result_c);
-
-#endif
− include/ClassSystemHG3D.h 
@@ -1,58 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassSystemHG3D.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSystemHG3D
-#define _DEFINED_HG3D_ClassSystemHG3D
-
-#include "ClassPtr.h"
-#include "ClassLogger.h"
-#include "ClassDefaultResourceProvider.h"
-#include "ClassSystem.h"
-#include "ClassSchemeManager.h"
-#include "ClassFontManager.h"
-
-
-
-// 
-void cegui_sstm_hg3d_createNoLogger(struct hg3dclass_struct * result_c);
-
-// 
-void cegui_sstm_hg3d_getDefaultResourceProvider(struct hg3dclass_struct * system_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_sstm_hg3d_getSchemeManagerSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void cegui_sstm_hg3d_schemeManagerCreate(struct hg3dclass_struct * smgr_c, char * scheme_c);
-
-// 
-void cegui_sstm_hg3d_fontManagerCreate(struct hg3dclass_struct * fmgr_c, char * font_c);
-
-// 
-void cegui_sstm_hg3d_getFontManagerSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void cegui_sstm_hg3d_getLoggerSingleton(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassTabButton.h 
@@ -1,51 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassTabButton.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassTabButton
-#define _DEFINED_HG3D_ClassTabButton
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-
-
-
-// Constructor for base TabButton
-void cegui_tbbtn_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for TabButton
-void cegui_tbbtn_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Set whether this tab button is selected or not. 
-void cegui_tbbtn_setSelected(struct hg3dclass_struct * thisclass_c, int selected_c);
-
-// Return whether this tab button is selected or not. 
-void cegui_tbbtn_isSelected(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set the target window which is the content pane which this button is covering. 
-void cegui_tbbtn_setTargetWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * wnd_c);
-
-// Get the target window which is the content pane which this button is covering. 
-void cegui_tbbtn_getTargetWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassThumb.h 
@@ -1,62 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassThumb.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassThumb
-#define _DEFINED_HG3D_ClassThumb
-
-#include "ClassPtr.h"
-
-
-
-// return whether hot-tracking is enabled or not. 
-void cegui_thmb_isHotTracked(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether the thumb is movable on the vertical axis. 
-void cegui_thmb_isVertFree(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether the thumb is movable on the horizontal axis. 
-void cegui_thmb_isHorzFree(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// set whether the thumb uses hot-tracking. 
-void cegui_thmb_setHotTracked(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// set whether thumb is movable on the vertical axis. 
-void cegui_thmb_setVertFree(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// set whether thumb is movable on the horizontal axis. 
-void cegui_thmb_setHorzFree(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// set the movement range of the thumb for the vertical axis. 
-void cegui_thmb_setVertRange(struct hg3dclass_struct * thisclass_c, float min_c, float max_c);
-
-// set the movement range of the thumb for the horizontal axis. 
-void cegui_thmb_setHorzRange(struct hg3dclass_struct * thisclass_c, float min_c, float max_c);
-
-// Constructor for Thumb
-void cegui_thmb_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Thumb
-void cegui_thmb_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassTooltip.h 
@@ -1,72 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassTooltip.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassTooltip
-#define _DEFINED_HG3D_ClassTooltip
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-
-
-
-// Constructor for the Tooltip
-void cegui_tltp_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for the Tooltip
-void cegui_tltp_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Sets the target window for the tooltip. This used internally to manage tooltips, you should not have to call this yourself. 
-void cegui_tltp_setTargetWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * wnd_c);
-
-// return the current target window for this Tooltip
-void cegui_tltp_getTargetWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 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. 
-void cegui_tltp_resetTimer(struct hg3dclass_struct * thisclass_c);
-
-// Return the number of seconds the mouse should hover stationary over the target window before the tooltip gets activated. 
-void cegui_tltp_getHoverTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 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. 
-void cegui_tltp_setDisplayTime(struct hg3dclass_struct * thisclass_c, float seconds_c);
-
-// Return the number of seconds that should be taken to fade the tooltip into and out of visibility. 
-void cegui_tltp_getFadeTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Set the number of seconds the mouse should hover stationary over the target window before the tooltip gets activated. 
-void cegui_tltp_setHoverTime(struct hg3dclass_struct * thisclass_c, float seconds_c);
-
-// 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. 
-void cegui_tltp_getDisplayTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Set the number of seconds that should be taken to fade the tooltip into and out of visibility. 
-void cegui_tltp_setFadeTime(struct hg3dclass_struct * thisclass_c, float seconds_c);
-
-// Causes the tooltip to position itself appropriately. 
-void cegui_tltp_positionSelf(struct hg3dclass_struct * thisclass_c);
-
-// Causes the tooltip to resize itself appropriately. 
-void cegui_tltp_sizeSelf(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassTree.h 
@@ -1,105 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassTree.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassTree
-#define _DEFINED_HG3D_ClassTree
-
-#include "ClassPtr.h"
-#include "ClassScrollbar.h"
-
-
-
-// 
-void cegui_tree_doTreeRender(struct hg3dclass_struct * thisclass_c);
-
-// 
-void cegui_tree_doScrollbars(struct hg3dclass_struct * thisclass_c);
-
-// Return number of items attached to the tree. 
-void cegui_tree_getItemCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the number of selected items in the tree. 
-void cegui_tree_getSelectedCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether tree sorting is enabled 
-void cegui_tree_isSortEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void cegui_tree_getVertScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_tree_getHorzScrollbar(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// return whether multi-select is enabled 
-void cegui_tree_isMultiselectEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void cegui_tree_isItemTooltipsEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the vertical scroll bar is always shown. 
-void cegui_tree_isVertScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether the horizontal scroll bar is always shown. 
-void cegui_tree_isHorzScrollbarAlwaysShown(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Initialise the Window
-void cegui_tree_initialise(struct hg3dclass_struct * thisclass_c);
-
-// Remove all items from the tree. 
-void cegui_tree_resetList(struct hg3dclass_struct * thisclass_c);
-
-// Clear the selected state for all items. 
-void cegui_tree_clearAllSelections(struct hg3dclass_struct * thisclass_c);
-
-// Set whether the tree should be sorted. 
-void cegui_tree_setSortingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the tree should allow multiple selections or just a single selection. 
-void cegui_tree_setMultiselectEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the vertical scroll bar should always be shown. 
-void cegui_tree_setShowVertScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the horizontal scroll bar should always be shown. 
-void cegui_tree_setShowHorzScrollbar(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// 
-void cegui_tree_setItemTooltipsEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the select state of an attached TreeItem. 
-void cegui_tree_setItemSelectState2(struct hg3dclass_struct * thisclass_c, int item_index_c, int state_c);
-
-// Set the LookNFeel that shoule be used for this window. 
-void cegui_tree_setLookNFeel(struct hg3dclass_struct * thisclass_c, char * look_c);
-
-// Causes the tree to update it's internal state after changes have been made to one or more attached TreeItem objects. 
-void cegui_tree_handleUpdatedItemData(struct hg3dclass_struct * thisclass_c);
-
-// Constructor for Tree
-void cegui_tree_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Tree
-void cegui_tree_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassWidgetLookManager.h 
@@ -1,59 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassWidgetLookManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassWidgetLookManager
-#define _DEFINED_HG3D_ClassWidgetLookManager
-
-#include "ClassPtr.h"
-
-
-
-// Constructor. 
-void cegui_wdgtlmgr_construct(struct hg3dclass_struct * result_c);
-
-// Destructor. 
-void cegui_wdgtlmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Parses a file containing window look & feel specifications (in the form of XML). 
-void cegui_wdgtlmgr_parseLookNFeelSpecification(struct hg3dclass_struct * thisclass_c, char * filename_c, char * resourceGroup_c);
-
-// Return whether a WidgetLookFeel has been created with the specified name. 
-void cegui_wdgtlmgr_isWidgetLookAvailable(struct hg3dclass_struct * thisclass_c, char * widget_c, int * result_c);
-
-// Erase the WidgetLookFeel that has the specified name. 
-void cegui_wdgtlmgr_eraseWidgetLook(struct hg3dclass_struct * thisclass_c, char * widget_c);
-
-// Return singleton WidgetLookManager
-void cegui_wdgtlmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// Return pointer to singleton WidgetLookManager
-void cegui_wdgtlmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-// Returns the default resource group currently set for LookNFeels. 
-void cegui_wdgtlmgr_getDefaultResourceGroup(char * result_c);
-
-// Sets the default resource group to be used when loading LookNFeel data. 
-void cegui_wdgtlmgr_setDefaultResourceGroup(char * resourceGroup_c);
-
-#endif
− include/ClassWindow.h 
@@ -1,491 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassWindow.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassWindow
-#define _DEFINED_HG3D_ClassWindow
-
-#include "ClassPtr.h"
-#include "ClassFont.h"
-#include "ClassTooltip.h"
-#include "EnumVerticalAlignment.h"
-#include "EnumHorizontalAlignment.h"
-#include "ClassDragContainer.h"
-#include "EnumWindowUpdateMode.h"
-
-
-
-// Constructor for Window
-void cegui_wnd_construct(char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destructor for Window
-void cegui_wnd_destruct(struct hg3dclass_struct * thisclass_c);
-
-// return a String object holding the type name for this Window
-void cegui_wnd_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return a String object holding the name of this Window
-void cegui_wnd_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// returns whether or not this Window
-void cegui_wnd_isDestroyedByParent(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// returns whether or not this WindowWindow
-void cegui_wnd_isAlwaysOnTop(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return whether the Window
-void cegui_wnd_isDisabled(struct hg3dclass_struct * thisclass_c, int localOnly_c, int * result_c);
-
-// return true if the Window
-void cegui_wnd_isVisible(struct hg3dclass_struct * thisclass_c, int localOnly_c, int * result_c);
-
-// return true if this is the active Window
-void cegui_wnd_isActive(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if this WindowWindow
-void cegui_wnd_isClippedByParent(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the ID code currently assigned to this Window
-void cegui_wnd_getID(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// return the number of child WindowWindow
-void cegui_wnd_getChildCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// returns whether a WindowWindow
-void cegui_wnd_isChild(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// returns whether at least one window with the given ID code is attached to this Window
-void cegui_wnd_isChild2(struct hg3dclass_struct * thisclass_c, unsigned int ID_c, int * result_c);
-
-// returns whether at least one window with the given ID code is attached to this Window
-void cegui_wnd_isChildRecursive(struct hg3dclass_struct * thisclass_c, unsigned int ID_c, int * result_c);
-
-// return true if the given Window
-void cegui_wnd_isChild3(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c, int * result_c);
-
-// return a pointer to the child window with the specified name. 
-void cegui_wnd_getChild(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// return a pointer to the first attached child window with the specified ID value. 
-void cegui_wnd_getChild2(struct hg3dclass_struct * thisclass_c, unsigned int ID_c, struct hg3dclass_struct * result_c);
-
-// return a pointer to the first attached child window with the specified name. Children are traversed recursively. 
-void cegui_wnd_getChildRecursive(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// return a pointer to the first attached child window with the specified ID value. Children are traversed recursively. 
-void cegui_wnd_getChildRecursive2(struct hg3dclass_struct * thisclass_c, unsigned int ID_c, struct hg3dclass_struct * result_c);
-
-// return a pointer to the child window that is attached to 'this' at the given index. 
-void cegui_wnd_getChildAtIdx(struct hg3dclass_struct * thisclass_c, int idx_c, struct hg3dclass_struct * result_c);
-
-// return a pointer to the WindowWindow
-void cegui_wnd_getActiveChild(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_wnd_getActiveChild2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// return true if the specified WindowWindow
-void cegui_wnd_isAncestor(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// return true if any WindowWindow
-void cegui_wnd_isAncestor2(struct hg3dclass_struct * thisclass_c, unsigned int ID_c, int * result_c);
-
-// return true if the specified WindowWindow
-void cegui_wnd_isAncestor3(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c, int * result_c);
-
-// return the active FontWindow
-void cegui_wnd_getFont(struct hg3dclass_struct * thisclass_c, int useDefault_c, struct hg3dclass_struct * result_c);
-
-// return the current text for the Window
-void cegui_wnd_getText(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return text string with visual
-void cegui_wnd_getTextVisual(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// return true if the Window
-void cegui_wnd_inheritsAlpha(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the current alpha value set for this Window
-void cegui_wnd_getAlpha(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// return the effective alpha value that will be used when rendering this window, taking into account inheritance of parent window(s) alpha. 
-void cegui_wnd_getEffectiveAlpha(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// return true if this Window
-void cegui_wnd_isCapturedByThis(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if an ancestor window has captured inputs. 
-void cegui_wnd_isCapturedByAncestor(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return true if a child window has captured inputs. 
-void cegui_wnd_isCapturedByChild(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// return the parent of this Window
-void cegui_wnd_getParent(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return whether this window is set to restore old input capture when it loses input capture. 
-void cegui_wnd_restoresOldCapture(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether z-order changes are enabled or disabled for this Window
-void cegui_wnd_isZOrderingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether this window will receive multi-click events or multiple 'down' events instead. 
-void cegui_wnd_wantsMultiClickEvents(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether mouse button down event autorepeat is enabled for this window. 
-void cegui_wnd_isMouseAutoRepeatEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return the current auto-repeat delay setting for this window. 
-void cegui_wnd_getAutoRepeatDelay(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the current auto-repeat rate setting for this window. 
-void cegui_wnd_getAutoRepeatRate(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return whether the window wants inputs passed to its attached child windows when the window has inputs captured. 
-void cegui_wnd_distributesCapturedInputs(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether this WindowTooltipTooltip
-void cegui_wnd_isUsingDefaultTooltip(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return a pointer to the TooltipWindowTooltipWindowTooltip
-void cegui_wnd_getTooltip(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the custom tooltip type. 
-void cegui_wnd_getTooltipType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Return the current tooltip text set for this Window
-void cegui_wnd_getTooltipText(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Return whether this window inherits Tooltip
-void cegui_wnd_inheritsTooltipText(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether this window will rise to the top of the z-order when clicked with the left mouse button. 
-void cegui_wnd_isRiseOnClickEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether this window was inherited from the given class name at some point in the inheritance hierarchy. 
-void cegui_wnd_testClassName(struct hg3dclass_struct * thisclass_c, char * class_name_c, int * result_c);
-
-// Get the vertical alignment. 
-void cegui_wnd_getVerticalAlignment(struct hg3dclass_struct * thisclass_c, enum EnumVerticalAlignment * result_c);
-
-// Get the horizontal alignment. 
-void cegui_wnd_getHorizontalAlignment(struct hg3dclass_struct * thisclass_c, enum EnumHorizontalAlignment * result_c);
-
-// Get the name of the LookNFeel assigned to this window. 
-void cegui_wnd_getLookNFeel(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Get whether or not this Window
-void cegui_wnd_getModalState(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns a named user string. 
-void cegui_wnd_getUserString(struct hg3dclass_struct * thisclass_c, char * name_c, char * result_c);
-
-// Return whether a user string with the specified name exists. 
-void cegui_wnd_isUserStringDefined(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// Returns the active sibling window. 
-void cegui_wnd_getActiveSibling(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return the pixel Width of the parent element. This always returns a valid number. 
-void cegui_wnd_getParentPixelWidth(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Return the pixel Height of the parent element. This always returns a valid number. 
-void cegui_wnd_getParentPixelHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 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. 
-void cegui_wnd_isMousePassThroughEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether this window is an auto-child window. All auto-child windows have "__auto_" in their name, but this is faster. 
-void cegui_wnd_isAutoWindow(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether this window is allowed to write XML. 
-void cegui_wnd_isWritingXMLAllowed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether this Window
-void cegui_wnd_isDragDropTarget(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether automatic
-void cegui_wnd_isUsingAutoRenderingSurface(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns the window at the root of the hierarchy starting at this Window
-void cegui_wnd_getRootWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_wnd_getRootWindow2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Return whether the Window
-void cegui_wnd_isNonClientWindow(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Renames the window. 
-void cegui_wnd_rename(struct hg3dclass_struct * thisclass_c, char * new_name_c);
-
-// Initialises the Window
-void cegui_wnd_initialiseComponents(struct hg3dclass_struct * thisclass_c);
-
-// Set whether or not this WindowWindow
-void cegui_wnd_setDestroyedByParent(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether this window is always on top, or not. 
-void cegui_wnd_setAlwaysOnTop(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether this window is enabled or disabled. A disabled window normally can not be interacted with, and may have different rendering. 
-void cegui_wnd_setEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// enable the Window
-void cegui_wnd_enable(struct hg3dclass_struct * thisclass_c);
-
-// disable the Window
-void cegui_wnd_disable(struct hg3dclass_struct * thisclass_c);
-
-// Set whether the Window
-void cegui_wnd_setVisible(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// show the Window
-void cegui_wnd_show(struct hg3dclass_struct * thisclass_c);
-
-// hide the Window
-void cegui_wnd_hide(struct hg3dclass_struct * thisclass_c);
-
-// Activate the WindowWindow
-void cegui_wnd_activate(struct hg3dclass_struct * thisclass_c);
-
-// 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. 
-void cegui_wnd_deactivate(struct hg3dclass_struct * thisclass_c);
-
-// Set whether this Window
-void cegui_wnd_setClippedByParent(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the current ID for the Window
-void cegui_wnd_setID(struct hg3dclass_struct * thisclass_c, unsigned int ID_c);
-
-// Set the current text string for the Window
-void cegui_wnd_setText(struct hg3dclass_struct * thisclass_c, char * text_c);
-
-// Append the string textWindow
-void cegui_wnd_appendText(struct hg3dclass_struct * thisclass_c, char * text_c);
-
-// Set the font used by this Window
-void cegui_wnd_setFont(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * font_c);
-
-// Set the font used by this Window
-void cegui_wnd_setFont2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Add the named WindowWindowWindownameWindowWindow
-void cegui_wnd_addChildWindow(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Add the specified WindowWindowWindowwindowWindowWindow
-void cegui_wnd_addChildWindow2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c);
-
-// Remove the named Window
-void cegui_wnd_removeChildWindow(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Remove the specified Window
-void cegui_wnd_removeChildWindow2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c);
-
-// Remove the first child WindowWindow
-void cegui_wnd_removeChildWindow3(struct hg3dclass_struct * thisclass_c, unsigned int ID_c);
-
-// Move the Window
-void cegui_wnd_moveToFront(struct hg3dclass_struct * thisclass_c);
-
-// Move the Window
-void cegui_wnd_moveToBack(struct hg3dclass_struct * thisclass_c);
-
-// Captures input to this window. 
-void cegui_wnd_captureInput(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Releases input capture from this WindowWindow
-void cegui_wnd_releaseInput(struct hg3dclass_struct * thisclass_c);
-
-// Set whether this window will remember and restore the previous window that had inputs captured. 
-void cegui_wnd_setRestoreCapture(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the current alpha value for this window. 
-void cegui_wnd_setAlpha(struct hg3dclass_struct * thisclass_c, float alpha_c);
-
-// Sets whether this Window
-void cegui_wnd_setInheritsAlpha(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Invalidate this window causing at least this window to be redrawn during the next rendering pass. 
-void cegui_wnd_invalidate(struct hg3dclass_struct * thisclass_c);
-
-// Invalidate this window and - dependant upon recursive
-void cegui_wnd_invalidate2(struct hg3dclass_struct * thisclass_c, const int recursive_c);
-
-// Set the mouse cursor image to be used when the mouse enters this window. 
-void cegui_wnd_setMouseCursor3(struct hg3dclass_struct * thisclass_c, char * imageset_c, char * image_name_c);
-
-// Set whether z-order changes are enabled or disabled for this Window
-void cegui_wnd_setZOrderingEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether this window will receive multi-click events or multiple 'down' events instead. 
-void cegui_wnd_setWantsMultiClickEvents(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether mouse button down event autorepeat is enabled for this window. 
-void cegui_wnd_setMouseAutoRepeatEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the current auto-repeat delay setting for this window. 
-void cegui_wnd_setAutoRepeatDelay(struct hg3dclass_struct * thisclass_c, float delay_c);
-
-// Set the current auto-repeat rate setting for this window. 
-void cegui_wnd_setAutoRepeatRate(struct hg3dclass_struct * thisclass_c, float rate_c);
-
-// Set whether the window wants inputs passed to its attached child windows when the window has inputs captured. 
-void cegui_wnd_setDistributesCapturedInputs(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Internal support method for drag & drop. You do not normally call this directly from client code. See the DragContainer
-void cegui_wnd_notifyDragDropItemEnters(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Internal support method for drag & drop. You do not normally call this directly from client code. See the DragContainer
-void cegui_wnd_notifyDragDropItemLeaves(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Internal support method for drag & drop. You do not normally call this directly from client code. See the DragContainer
-void cegui_wnd_notifyDragDropItemDropped(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * item_c);
-
-// Internal destroy method which actually just adds the window and any parent destructed child windows to the dead pool. 
-void cegui_wnd_destroy(struct hg3dclass_struct * thisclass_c);
-
-// Set the custom TooltipWindowWindowTooltip
-void cegui_wnd_setTooltip(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * tooltip_c);
-
-// Set the custom TooltipWindowWindow
-void cegui_wnd_setTooltipType(struct hg3dclass_struct * thisclass_c, char * tooltipType_c);
-
-// Set the tooltip text for this window. 
-void cegui_wnd_setTooltipText(struct hg3dclass_struct * thisclass_c, char * tip_c);
-
-// Set whether this window inherits Tooltip
-void cegui_wnd_setInheritsTooltipText(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether this window will rise to the top of the z-order when clicked with the left mouse button. 
-void cegui_wnd_setRiseOnClickEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set the vertical alignment. 
-void cegui_wnd_setVerticalAlignment(struct hg3dclass_struct * thisclass_c, const enum EnumVerticalAlignment alignment_c);
-
-// Set the horizontal alignment. 
-void cegui_wnd_setHorizontalAlignment(struct hg3dclass_struct * thisclass_c, const enum EnumHorizontalAlignment alignment_c);
-
-// Set the LookNFeel that shoule be used for this window. 
-void cegui_wnd_setLookNFeel(struct hg3dclass_struct * thisclass_c, char * look_c);
-
-// Set the modal state for this Window
-void cegui_wnd_setModalState(struct hg3dclass_struct * thisclass_c, int state_c);
-
-// method called to perform extended laying out of attached child windows. 
-void cegui_wnd_performChildWindowLayout(struct hg3dclass_struct * thisclass_c);
-
-// Sets the value a named user string, creating it as required. 
-void cegui_wnd_setUserString(struct hg3dclass_struct * thisclass_c, char * name_c, char * value_c);
-
-// Causes the Window
-void cegui_wnd_render(struct hg3dclass_struct * thisclass_c);
-
-// 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
-void cegui_wnd_update(struct hg3dclass_struct * thisclass_c, float elapsed_c);
-
-// 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. 
-void cegui_wnd_beginInitialisation(struct hg3dclass_struct * thisclass_c);
-
-// 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. 
-void cegui_wnd_endInitialisation(struct hg3dclass_struct * thisclass_c);
-
-// 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. 
-void cegui_wnd_setMousePassThroughEnabled(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Assign the WindowRenderer to specify the Look'N'Feel specification to be used. 
-void cegui_wnd_setWindowRenderer(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Get the factory name of the currently assigned WindowRenderer. (Look'N'Feel specification). 
-void cegui_wnd_getWindowRendererName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Sets whether this window is allowed to write XML. 
-void cegui_wnd_setWritingXMLAllowed(struct hg3dclass_struct * thisclass_c, int allow_c);
-
-// Inform the window, and optionally all children, that screen area rectangles have changed. 
-void cegui_wnd_notifyScreenAreaChanged(struct hg3dclass_struct * thisclass_c, int recursive_c);
-
-// Changes the widget's falagard type, thus changing its look'n'feel and optionally its renderer in the process. 
-void cegui_wnd_setFalagardType(struct hg3dclass_struct * thisclass_c, char * type_c, char * rendererType_c);
-
-// Specifies whether this Window
-void cegui_wnd_setDragDropTarget(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// 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. 
-void cegui_wnd_invalidateRenderingSurface(struct hg3dclass_struct * thisclass_c);
-
-// Sets whether automatic
-void cegui_wnd_setUsingAutoRenderingSurface(struct hg3dclass_struct * thisclass_c, int setting_c);
-
-// Set whether the Window
-void cegui_wnd_setNonClientWindow(struct hg3dclass_struct * thisclass_c, const int setting_c);
-
-// return whether text parsing is enabled for this window. 
-void cegui_wnd_isTextParsingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// set whether text parsing is enabled for this window. 
-void cegui_wnd_setTextParsingEnabled(struct hg3dclass_struct * thisclass_c, const int setting_c);
-
-// Add the named property to the XML ban list for this window. 
-void cegui_wnd_banPropertyFromXML(struct hg3dclass_struct * thisclass_c, char * property_name_c);
-
-// Remove the named property from the XML ban list for this window. 
-void cegui_wnd_unbanPropertyFromXML(struct hg3dclass_struct * thisclass_c, char * property_name_c);
-
-// Return whether the named property is banned from XML. 
-void cegui_wnd_isPropertyBannedFromXML(struct hg3dclass_struct * thisclass_c, char * property_name_c, int * result_c);
-
-// Set the window update mode. This mode controls the behaviour of the Window::update
-void cegui_wnd_setUpdateMode(struct hg3dclass_struct * thisclass_c, const enum EnumWindowUpdateMode mode_c);
-
-// Return the current window update mode that is set for this WindowWindow::update
-void cegui_wnd_getUpdateMode(struct hg3dclass_struct * thisclass_c, enum EnumWindowUpdateMode * result_c);
-
-// Set whether mouse input that is not directly handled by this WindowWindow
-void cegui_wnd_setMouseInputPropagationEnabled(struct hg3dclass_struct * thisclass_c, const int enabled_c);
-
-// Return whether mouse input that is not directly handled by this WindowWindow
-void cegui_wnd_isMouseInputPropagationEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Clones this Window
-void cegui_wnd_clone(struct hg3dclass_struct * thisclass_c, char * newName_c, const int deepCopy_c, struct hg3dclass_struct * result_c);
-
-// copies this widget's properties to given target widget 
-void cegui_wnd_clonePropertiesTo(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * target_c);
-
-// copies this widget's child widgets to given target widget 
-void cegui_wnd_cloneChildWidgetsTo(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * target_c);
-
-// Return the (visual) z index of the window on it's parent. 
-void cegui_wnd_getZIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Return whether /a this Window
-void cegui_wnd_isInFront(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * wnd_c, int * result_c);
-
-// Return whether /a this Window
-void cegui_wnd_isBehind(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * wnd_c, int * result_c);
-
-// return the Window
-void cegui_wnd_getCaptureWindow(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassWindowManager.h 
@@ -1,90 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassWindowManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassWindowManager
-#define _DEFINED_HG3D_ClassWindowManager
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-
-
-
-// Constructs a new WindowManager
-void cegui_wmgr_construct(struct hg3dclass_struct * result_c);
-
-// Destructor for WindowManager
-void cegui_wmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Creates a new Window
-void cegui_wmgr_createWindow(struct hg3dclass_struct * thisclass_c, char * type_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Destroy the specified Window
-void cegui_wmgr_destroyWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c);
-
-// Destroy the specified Window
-void cegui_wmgr_destroyWindow2(struct hg3dclass_struct * thisclass_c, char * window_c);
-
-// Return a pointer to the specified Window
-void cegui_wmgr_getWindow(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Examines the list of Window
-void cegui_wmgr_isWindowPresent(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// Destroys all Window
-void cegui_wmgr_destroyAllWindows(struct hg3dclass_struct * thisclass_c);
-
-// Return whether the window dead pool is empty. 
-void cegui_wmgr_isDeadPoolEmpty(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Permanently destroys any windows placed in the dead pool. 
-void cegui_wmgr_cleanDeadPool(struct hg3dclass_struct * thisclass_c);
-
-// Save a full XML window layout, starting at the given Window
-void cegui_wmgr_saveWindowLayout(struct hg3dclass_struct * thisclass_c, char * window_c, char * filename_c, const int writeParent_c);
-
-// Save a full XML window layout, starting at the given Window
-void cegui_wmgr_saveWindowLayout2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c, char * filename_c, const int writeParent_c);
-
-// Rename a window. 
-void cegui_wmgr_renameWindow(struct hg3dclass_struct * thisclass_c, char * window_c, char * new_name_c);
-
-// Rename a window. 
-void cegui_wmgr_renameWindow2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * window_c, char * new_name_c);
-
-// Put WindowManager
-void cegui_wmgr_lock(struct hg3dclass_struct * thisclass_c);
-
-// Put WindowManager
-void cegui_wmgr_unlock(struct hg3dclass_struct * thisclass_c);
-
-// Returns whether WindowManager
-void cegui_wmgr_isLocked(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns the default resource group currently set for layouts. 
-void cegui_wmgr_getDefaultResourceGroup(char * result_c);
-
-// Sets the default resource group to be used when loading layouts. 
-void cegui_wmgr_setDefaultResourceGroup(char * resourceGroup_c);
-
-#endif
− include/ClassWindowManagerHG3D.h 
@@ -1,46 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassWindowManagerHG3D.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassWindowManagerHG3D
-#define _DEFINED_HG3D_ClassWindowManagerHG3D
-
-#include "ClassPtr.h"
-#include "ClassWindow.h"
-#include "ClassWindowManager.h"
-
-
-
-// 
-void cegui_wmgr_hg3d_construct(struct hg3dclass_struct * result_c);
-
-// 
-void cegui_wmgr_hg3d_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void cegui_wmgr_hg3d_loadWindowLayoutHG3D(struct hg3dclass_struct * thisclass_c, char * filename_c, char * name_prefix_c, struct hg3dclass_struct * result_c);
-
-// 
-void cegui_wmgr_hg3d_getSingleton(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassXMLParser.h 
@@ -1,44 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// ClassXMLParser.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassXMLParser
-#define _DEFINED_HG3D_ClassXMLParser
-
-#include "ClassPtr.h"
-
-
-
-// XMLParser
-void cegui_xmlprs_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Initialises the XMLParser
-void cegui_xmlprs_initialise(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Cleans up the XMLParser
-void cegui_xmlprs_cleanup(struct hg3dclass_struct * thisclass_c);
-
-// 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. 
-void cegui_xmlprs_getIdentifierString(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-#endif
− include/EnumBlendMode.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumBlendMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumBlendMode
-#define _DEFINED_HG3D_EnumBlendMode
-
-
-
-enum EnumBlendMode
-{
-  BM_INVALID, // Invalid mode indicator. 
-  BM_NORMAL, // Use normal blending mode. 
-  BM_RTT_PREMULTIPLIED // Use blending mode suitable for textures with premultiplied colours. 
-};
-#endif
− include/EnumFWSizingLocation.h 
@@ -1,42 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumFWSizingLocation.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumFWSizingLocation
-#define _DEFINED_HG3D_EnumFWSizingLocation
-
-
-
-enum EnumFWSizingLocation
-{
-  SizingNone, // Position is not a sizing location. 
-  SizingTopLeft, // Position will size from the top-left. 
-  SizingTopRight, // Position will size from the top-right. 
-  SizingBottomLeft, // Position will size from the bottom left. 
-  SizingBottomRight, // Position will size from the bottom right. 
-  SizingTop, // Position will size from the top. 
-  SizingLeft, // Position will size from the left. 
-  SizingBottom, // Position will size from the bottom. 
-  SizingRight // Position will size from the right. 
-};
-#endif
− include/EnumHorizontalAlignment.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumHorizontalAlignment.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumHorizontalAlignment
-#define _DEFINED_HG3D_EnumHorizontalAlignment
-
-
-
-enum EnumHorizontalAlignment
-{
-  HA_LEFT, // 
-  HA_CENTRE, // 
-  HA_RIGHT // 
-};
-#endif
− include/EnumKeyScan.h 
@@ -1,177 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumKeyScan.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumKeyScan
-#define _DEFINED_HG3D_EnumKeyScan
-
-
-
-enum EnumKeyScan
-{
-  KeyEscape =0x01, // 
-  KeyOne =0x02, // 
-  KeyTwo =0x03, // 
-  KeyThree =0x04, // 
-  KeyFour =0x05, // 
-  KeyFive =0x06, // 
-  KeySix =0x07, // 
-  KeySeven =0x08, // 
-  KeyEight =0x09, // 
-  KeyNine =0x0A, // 
-  KeyZero =0x0B, // 
-  KeyMinus =0x0C, // 
-  KeyEquals =0x0D, // 
-  KeyBackspace =0x0E, // 
-  KeyTab =0x0F, // 
-  KeyQ =0x10, // 
-  KeyW =0x11, // 
-  KeyE =0x12, // 
-  KeyR =0x13, // 
-  KeyT =0x14, // 
-  KeyY =0x15, // 
-  KeyU =0x16, // 
-  KeyI =0x17, // 
-  KeyO =0x18, // 
-  KeyP =0x19, // 
-  KeyLeftBracket =0x1A, // 
-  KeyRightBracket =0x1B, // 
-  KeyReturn =0x1C, // 
-  KeyLeftControl =0x1D, // 
-  KeyA =0x1E, // 
-  KeyS =0x1F, // 
-  KeyD =0x20, // 
-  KeyF =0x21, // 
-  KeyG =0x22, // 
-  KeyH =0x23, // 
-  KeyJ =0x24, // 
-  KeyK =0x25, // 
-  KeyL =0x26, // 
-  KeySemicolon =0x27, // 
-  KeyApostrophe =0x28, // 
-  KeyGrave =0x29, // 
-  KeyLeftShift =0x2A, // 
-  KeyBackslash =0x2B, // 
-  KeyZ =0x2C, // 
-  KeyX =0x2D, // 
-  KeyC =0x2E, // 
-  KeyV =0x2F, // 
-  KeyB =0x30, // 
-  KeyN =0x31, // 
-  KeyM =0x32, // 
-  KeyComma =0x33, // 
-  KeyPeriod =0x34, // 
-  KeySlash =0x35, // 
-  KeyRightShift =0x36, // 
-  KeyMultiply =0x37, // 
-  KeyLeftAlt =0x38, // 
-  KeySpace =0x39, // 
-  KeyCapital =0x3A, // 
-  KeyF1 =0x3B, // 
-  KeyF2 =0x3C, // 
-  KeyF3 =0x3D, // 
-  KeyF4 =0x3E, // 
-  KeyF5 =0x3F, // 
-  KeyF6 =0x40, // 
-  KeyF7 =0x41, // 
-  KeyF8 =0x42, // 
-  KeyF9 =0x43, // 
-  KeyF10 =0x44, // 
-  KeyNumLock =0x45, // 
-  KeyScrollLock =0x46, // 
-  KeyNumpad7 =0x47, // 
-  KeyNumpad8 =0x48, // 
-  KeyNumpad9 =0x49, // 
-  KeySubtract =0x4A, // 
-  KeyNumpad4 =0x4B, // 
-  KeyNumpad5 =0x4C, // 
-  KeyNumpad6 =0x4D, // 
-  KeyAdd =0x4E, // 
-  KeyNumpad1 =0x4F, // 
-  KeyNumpad2 =0x50, // 
-  KeyNumpad3 =0x51, // 
-  KeyNumpad0 =0x52, // 
-  KeyDecimal =0x53, // 
-  KeyOEM_102 =0x56, // 
-  KeyF11 =0x57, // 
-  KeyF12 =0x58, // 
-  KeyF13 =0x64, // 
-  KeyF14 =0x65, // 
-  KeyF15 =0x66, // 
-  KeyKana =0x70, // 
-  KeyABNT_C1 =0x73, // 
-  KeyConvert =0x79, // 
-  KeyNoConvert =0x7B, // 
-  KeyYen =0x7D, // 
-  KeyABNT_C2 =0x7E, // 
-  KeyNumpadEquals =0x8D, // 
-  KeyPrevTrack =0x90, // 
-  KeyAt =0x91, // 
-  KeyColon =0x92, // 
-  KeyUnderline =0x93, // 
-  KeyKanji =0x94, // 
-  KeyStop =0x95, // 
-  KeyAX =0x96, // 
-  KeyUnlabeled =0x97, // 
-  KeyNextTrack =0x99, // 
-  KeyNumpadEnter =0x9C, // 
-  KeyRightControl =0x9D, // 
-  KeyMute =0xA0, // 
-  KeyCalculator =0xA1, // 
-  KeyPlayPause =0xA2, // 
-  KeyMediaStop =0xA4, // 
-  KeyVolumeDown =0xAE, // 
-  KeyVolumeUp =0xB0, // 
-  KeyWebHome =0xB2, // 
-  KeyNumpadComma =0xB3, // 
-  KeyDivide =0xB5, // 
-  KeySysRq =0xB7, // 
-  KeyRightAlt =0xB8, // 
-  KeyPause =0xC5, // 
-  KeyHome =0xC7, // 
-  KeyArrowUp =0xC8, // 
-  KeyPageUp =0xC9, // 
-  KeyArrowLeft =0xCB, // 
-  KeyArrowRight =0xCD, // 
-  KeyEnd =0xCF, // 
-  KeyArrowDown =0xD0, // 
-  KeyPageDown =0xD1, // 
-  KeyInsert =0xD2, // 
-  KeyDelete =0xD3, // 
-  KeyLeftWindows =0xDB, // 
-  KeyRightWindows =0xDC, // 
-  KeyAppMenu =0xDD, // 
-  KeyPower =0xDE, // 
-  KeySleep =0xDF, // 
-  KeyWake =0xE3, // 
-  KeyWebSearch =0xE5, // 
-  KeyWebFavorites =0xE6, // 
-  KeyWebRefresh =0xE7, // 
-  KeyWebStop =0xE8, // 
-  KeyWebForward =0xE9, // 
-  KeyWebBack =0xEA, // 
-  KeyMyComputer =0xEB, // 
-  KeyMail =0xEC, // 
-  KeyMediaSelect =0xED // 
-};
-#endif
− include/EnumLoggingLevel.h 
@@ -1,38 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumLoggingLevel.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumLoggingLevel
-#define _DEFINED_HG3D_EnumLoggingLevel
-
-
-
-enum EnumLoggingLevel
-{
-  LoggingLevelErrors, // Only actual error conditions will be logged. 
-  LoggingLevelWarnings, // Warnings will be logged as well. 
-  LoggingLevelStandard, // Basic events will be logged (default level). 
-  LoggingLevelInformative, // Useful tracing (object creations etc) information will be logged. 
-  LoggingLevelInsane // Mostly everything gets logged (use for heavy tracing only, log WILL be big). 
-};
-#endif
− include/EnumMouseButton.h 
@@ -1,40 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumMouseButton.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumMouseButton
-#define _DEFINED_HG3D_EnumMouseButton
-
-
-
-enum EnumMouseButton
-{
-  MouseLeftButton, // The left mouse button. 
-  MouseRightButton, // The right mouse button. 
-  MouseMiddleButton, // The middle mouse button. 
-  MouseX1Button, // The first 'extra' mouse button. 
-  MouseX2Button, // The second 'extra' mouse button. 
-  MouseMouseButtonCount, // Value that equals the number of mouse buttons supported by CEGUI
-  MouseNoButton // Value set for no mouse button. NB: This is not 0, do not assume! 
-};
-#endif
− include/EnumQuadSplitMode.h 
@@ -1,35 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumQuadSplitMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumQuadSplitMode
-#define _DEFINED_HG3D_EnumQuadSplitMode
-
-
-
-enum EnumQuadSplitMode
-{
-  TopLeftToBottomRight, // Diagonal split goes from top-left to bottom-right. 
-  BottomLeftToTopRight // Diagonal split goes from bottom-left to top-right. 
-};
-#endif
− include/EnumSelectionMode.h 
@@ -1,43 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumSelectionMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSelectionMode
-#define _DEFINED_HG3D_EnumSelectionMode
-
-
-
-enum EnumSelectionMode
-{
-  SelectionModeRowSingle, // 
-  SelectionModeRowMultiple, // 
-  SelectionModeCellSingle, // 
-  SelectionModeCellMultiple, // 
-  SelectionModeNominatedColumnSingle, // 
-  SelectionModeNominatedColumnMultiple, // 
-  SelectionModeColumnSingle, // 
-  SelectionModeColumnMultiple, // 
-  SelectionModeNominatedRowSingle, // 
-  SelectionModeNominatedRowMultiple // 
-};
-#endif
− include/EnumSortDirection.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumSortDirection.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSortDirection
-#define _DEFINED_HG3D_EnumSortDirection
-
-
-
-enum EnumSortDirection
-{
-  SortDirectionNone, // Items under this segment should not be sorted. 
-  SortDirectionAscending, // Items under this segment should be sorted in ascending order. 
-  SortDirectionDescending // Items under this segment should be sorted in descending order. 
-};
-#endif
− include/EnumSystemKey.h 
@@ -1,41 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumSystemKey.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSystemKey
-#define _DEFINED_HG3D_EnumSystemKey
-
-
-
-enum EnumSystemKey
-{
-  SystemKeyLeftMouse = 0x0001, // The left mouse button. 
-  SystemKeyRightMouse = 0x0002, // The right mouse button. 
-  SystemKeyShift = 0x0004, // Either shift key. 
-  SystemKeyControl = 0x0008, // Either control key. 
-  SystemKeyMiddleMouse = 0x0010, // The middle mouse button. 
-  SystemKeyX1Mouse = 0x0020, // The first 'extra' mouse button. 
-  SystemKeyX2Mouse = 0x0040, // The second 'extra' mouse button. 
-  SystemKeyAlt = 0x0080 // Either alt key. 
-};
-#endif
− include/EnumTabPanePosition.h 
@@ -1,35 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumTabPanePosition.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumTabPanePosition
-#define _DEFINED_HG3D_EnumTabPanePosition
-
-
-
-enum EnumTabPanePosition
-{
-  TabPanePositionTop, // 
-  TabPanePositionBottom // 
-};
-#endif
− include/EnumTextInputMode.h 
@@ -1,37 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumTextInputMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumTextInputMode
-#define _DEFINED_HG3D_EnumTextInputMode
-
-
-
-enum EnumTextInputMode
-{
-  TextInputModeFloatingPoint, // Floating point decimal. 
-  TextInputModeInteger, // Integer decimal. 
-  TextInputModeHexadecimal, // Hexadecimal. 
-  TextInputModeOctal // Octal. 
-};
-#endif
− include/EnumTipState.h 
@@ -1,37 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumTipState.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumTipState
-#define _DEFINED_HG3D_EnumTipState
-
-
-
-enum EnumTipState
-{
-  TipStateInactive, // Tooltip
-  TipStateActive, // Tooltip
-  TipStateFadeIn, // Tooltip
-  TipStateFadeOut // Tooltip
-};
-#endif
− include/EnumVerticalAlignment.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumVerticalAlignment.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumVerticalAlignment
-#define _DEFINED_HG3D_EnumVerticalAlignment
-
-
-
-enum EnumVerticalAlignment
-{
-  VA_TOP, // 
-  VA_CENTRE, // 
-  VA_BOTTOM // 
-};
-#endif
− include/EnumWindowUpdateMode.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// EnumWindowUpdateMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumWindowUpdateMode
-#define _DEFINED_HG3D_EnumWindowUpdateMode
-
-
-
-enum EnumWindowUpdateMode
-{
-  WUM_ALWAYS, // Always call the Window::update
-  WUM_NEVER, // Never call the Window::update
-  WUM_VISIBLE // Only call the Window::update
-};
-#endif
− include/StructHG3DClass.h 
@@ -1,36 +0,0 @@-// This source file is part of HGamer3D
-// (A project to enable 3D game development in Haskell)
-// For the latest info, see http://www.althainz.de/HGamer3D.html
-// 
-// (c) 2011, 2012 Peter Althainz
-// 
-// Licensed under the Apache License, Version 2.0 (the "License");
-// you may not use this file except in compliance with the License.
-// You may obtain a copy of the License at
-// 
-//     http://www.apache.org/licenses/LICENSE-2.0
-// 
-// Unless required by applicable law or agreed to in writing, software
-// distributed under the License is distributed on an "AS IS" BASIS,
-// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-// See the License for the specific language governing permissions and
-// limitations under the License.
-// 
-
-// StructHG3DClass.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_HG3DCLASS
-#define _INC_STRUCT_HG3DCLASS
-
-typedef struct hg3dclass_struct {
-	void *ptr;
-	void *fptr;
-} hg3dclass_struct;
-
-#endif
+ include/SystemHG3D.h view
@@ -0,0 +1,49 @@+// WindowManagerHG3D - special wm class to get the singleton without templates++#include <CEGUI/CEGUI.h>+++class NoLogger : public CEGUI::Logger+{+	   void logEvent (const CEGUI::String&, CEGUI::LoggingLevel)+	   {++	   }+	   void setLogFilename(const CEGUI::String&, bool)+	   {      ++	   }+};+++class SystemHG3D {+	++	public:+	+		static CEGUI::Logger* createNoLogger() {+			return new NoLogger();+		}+		+		static CEGUI::DefaultResourceProvider* getDefaultResourceProvider(CEGUI::System* system) {+			return static_cast<CEGUI::DefaultResourceProvider*> (system->getResourceProvider());+		};+		static CEGUI::SchemeManager* getSchemeManagerSingleton() {+			return static_cast<CEGUI::SchemeManager*> (CEGUI::SchemeManager::getSingletonPtr());+		};+		static void schemeManagerCreate(CEGUI::SchemeManager* smgr, const char* scheme) {+			smgr->create(scheme);+		};+		static void fontManagerCreate(CEGUI::FontManager* fmgr, const char* font) {+			fmgr->create(font);+		};+		static CEGUI::FontManager* getFontManagerSingleton() {+			return static_cast<CEGUI::FontManager*> (CEGUI::FontManager::getSingletonPtr());+		};+		static CEGUI::Logger* getLoggerSingleton() {+			return static_cast<CEGUI::Logger*> (CEGUI::Logger::getSingletonPtr());+		};+	+};++
+ include/WindowManagerHG3D.h view
@@ -0,0 +1,26 @@+// WindowManagerHG3D - special wm class to get the singleton without templates++#include <CEGUI/CEGUI.h>+++class WindowManagerHG3D {+	+	public:+		CEGUI::WindowManager* pWmgr;+		+		WindowManagerHG3D() {pWmgr = CEGUI::WindowManager::getSingletonPtr();};+		~WindowManagerHG3D() {};+		+		static CEGUI::WindowManager* getSingleton() +		{+			return CEGUI::WindowManager::getSingletonPtr();+		}+		+		CEGUI::Window* loadWindowLayoutHG3D(const CEGUI::String& filename, const CEGUI::String& name_prefix)+		{+			return pWmgr->loadWindowLayout(filename, name_prefix);+		};+	+};++
+ include/colorvalue_struct.h view
@@ -0,0 +1,6 @@+typedef struct colourvalue_struct {
+	float r;
+	float g;
+	float b;
+	float a;
+} colourvalue_struct;
+ include/degree_struct.h view
@@ -0,0 +1,3 @@+typedef struct degree_struct {
+	float d;
+} degree_struct;
+ include/hg3dstruct.h view
@@ -0,0 +1,4 @@+typedef struct hg3dclass_struct {+	void *ptr;+	void *fptr;+} hg3dclass_struct;
+ include/quaternion_struct.h view
@@ -0,0 +1,6 @@+typedef struct quaternion_struct {
+	float fw;
+	float fx;
+	float fy;
+	float fz;
+} quaternion_struct;
+ include/radian_struct.h view
@@ -0,0 +1,3 @@+typedef struct radian_struct {
+	float r;
+} radian_struct;
+ include/sharedptr_struct.h view
@@ -0,0 +1,5 @@+typedef struct sharedptr_struct {
+	void* pT;
+	void* pCount;
+	void* pFreeFunc;
+} sharedptr_struct;
+ include/vector2_struct.h view
@@ -0,0 +1,4 @@+typedef struct vector2_struct {
+	float x;
+	float y;
+} vector2_struct;
+ include/vector3_struct.h view
@@ -0,0 +1,5 @@+typedef struct vector3_struct {
+	float x;
+	float y;
+	float z;
+} vector3_struct;
+ include/vector4_struct.h view
@@ -0,0 +1,6 @@+typedef struct vector4_struct {
+	float x;
+	float y;
+	float z;
+	float w;
+} vector4_struct;