             if (cToBool result)
             then return $ Just $ toRectangle (x_pos', y_pos', width', height')
             else return $ Nothing
+{# fun unsafe Fl_Table_draw_super as drawSuper' { id `Ptr ()' } -> `()' #}
+tableDrawSuper :: Table a  ->  IO ()
+tableDrawSuper table = withObject table $ \tablePtr -> drawSuper' tablePtr
+{# fun unsafe Fl_Table_draw as draw' { id `Ptr ()' } -> `()' #}
+tableDraw :: Table a  ->  IO ()
+tableDraw table = withObject table $ \tablePtr -> draw' tablePtr                       
+{# fun unsafe Fl_Table_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}
+tableHandleSuper :: Table a  -> Int ->  IO (Int)
+tableHandleSuper table event = withObject table $ \tablePtr -> handleSuper' tablePtr event                  
+{# fun unsafe Fl_Table_handle as handle' { id `Ptr ()',`Int' } -> `Int' #}
+tableHandle :: Table a  -> Int ->  IO (Int)
+tableHandle table event = withObject table $ \tablePtr -> handle' tablePtr event                               
+{# fun unsafe Fl_Table_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}
+tableResizeSuper :: Table a  -> Rectangle ->  IO ()
+tableResizeSuper table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withObject table $ \tablePtr -> resizeSuper' tablePtr x_pos' y_pos' width' height'                          
+{# fun unsafe Fl_Table_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}
+tableResize :: Table a  -> Rectangle ->  IO ()
+tableResize table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withObject table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'                                                                           
+{# fun unsafe Fl_Table_clear_super as clearSuper' { id `Ptr ()' } -> `()' #}
+tableClearSuper :: Table a  ->  IO ()
+tableClearSuper table = withObject table $ \tablePtr -> clearSuper' tablePtr                                                                      
+{# fun unsafe Fl_Table_clear as clear' { id `Ptr ()' } -> `()' #}
+tableClear :: Table a  ->  IO ()
+tableClear table = withObject table $ \tablePtr -> clear' tablePtr                        
+{# fun unsafe Fl_Table_as_window_super as asWindowSuper' { id `Ptr ()' } -> `Ptr ()' id #}
+tableAsWindowSuper :: Table a  ->  IO (Window ())
+tableAsWindowSuper table = withObject table $ \tablePtr -> asWindowSuper' tablePtr >>= toObject                   
+{# fun unsafe Fl_Table_as_window as asWindow' { id `Ptr ()' } -> `Ptr ()' id #}
+tableAsWindow :: Table a  ->  IO (Window ())
+tableAsWindow table = withObject table $ \tablePtr -> asWindow' tablePtr >>= toObject                           
+{# fun unsafe Fl_Table_as_group_super as asGroupSuper' { id `Ptr ()' } -> `Ptr ()' id #}
+tableAsGroupSuper :: Table a  ->  IO (Group ())
+tableAsGroupSuper table = withObject table $ \tablePtr -> asGroupSuper' tablePtr >>= toObject                      
+{# fun unsafe Fl_Table_as_group as asGroup' { id `Ptr ()' } -> `Ptr ()' id #}
+tableAsGroup :: Table a  ->  IO (Group ())
+tableAsGroup table = withObject table $ \tablePtr -> asGroup' tablePtr >>= toObject                          
+{# fun unsafe Fl_Table_as_gl_window_super as asGlWindowSuper' { id `Ptr ()' } -> `Ptr ()' id #}
+tableAsGlWindowSuper :: Table a  ->  IO (GlWindow ())
+tableAsGlWindowSuper table = withObject table $ \tablePtr -> asGlWindowSuper' tablePtr >>= toObject                     
+{# fun unsafe Fl_Table_as_gl_window as asGlWindow' { id `Ptr ()' } -> `Ptr ()' id #}
+tableAsGlWindow :: Table a  ->  IO (GlWindow ())
+tableAsGlWindow table = withObject table $ \tablePtr -> asGlWindow' tablePtr >>= toObject                             
+{# fun unsafe Fl_Table_set_rows_super as setRowsSuper' { id `Ptr ()',`Int' } -> `()' #}
+tableSetRowsSuper :: Table a  -> Int ->  IO ()
+tableSetRowsSuper table val = withObject table $ \tablePtr -> setRowsSuper' tablePtr val                        
+{# fun unsafe Fl_Table_set_cols_super as setColsSuper' { id `Ptr ()',`Int' } -> `()' #}
+tableSetColsSuper :: Table a  -> Int ->  IO ()
+tableSetColsSuper table val = withObject table $ \tablePtr -> setColsSuper' tablePtr val                         
+                              

     tableSetSelection,
     tableMoveCursor,
     tableDraw,
     tableInsertWithWidget,
     tableCallbackRow,
     tableCallbackCol,
     tableCallbackContext,
     tableDoCallback,
     tableFindCell
    )
where
#include "Fl_ExportMacros.h"

     tableRemoveIndex,
     tableRemoveWidget,
     tableClear,
     tableClearSuper,
     tableSetResizable,
     tableResizable,
     tableAddResizable,
