{-# LINE 1 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Graphics.UI.FLTK.LowLevel.Table
(
TableCoordinate(..),
Row(..),
Column(..),
CustomTableFuncs(..),
mkSetInt,
mkDrawCell,
toSetIntPrim,
toDrawCellPrim,
fillCustomTableFunctionStruct,
defaultCustomTableFuncs,
tableCustom,
tableCustomFunctionStruct
)
where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import qualified Foreign.Storable as C2HSImp
import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)
import Graphics.UI.FLTK.LowLevel.Fl_Enumerations
import Graphics.UI.FLTK.LowLevel.Widget
import Graphics.UI.FLTK.LowLevel.Fl_Types
import Graphics.UI.FLTK.LowLevel.Utils
import Graphics.UI.FLTK.LowLevel.Hierarchy
import Graphics.UI.FLTK.LowLevel.Dispatch
import qualified Data.Text as T
data Row = Row Int
data Column = Column Int
data TableCoordinate = TableCoordinate Row Column
foreign import ccall "wrapper"
mkSetInt :: (Ptr () -> CInt -> IO ())-> IO (FunPtr (Ptr () -> CInt -> IO ()))
foreign import ccall "wrapper"
mkDrawCell :: (Ptr () ->
CInt ->
CInt -> CInt ->
CInt -> CInt -> CInt -> CInt ->
IO ())
->
IO (FunPtr (Ptr () ->
CInt ->
CInt -> CInt ->
CInt -> CInt -> CInt -> CInt ->
IO ()))
toSetIntPrim :: (Ref a -> Int -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))
toSetIntPrim f =
mkSetInt
(
\ptr num' -> do
pp <- wrapNonNull ptr "Null pointer. toSetIntPrim"
f (wrapInRef pp) (fromIntegral num')
)
toDrawCellPrim :: (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->
IO (FunPtr (Ptr () ->
CInt ->
CInt -> CInt ->
CInt -> CInt -> CInt -> CInt ->
IO ()))
toDrawCellPrim f =
mkDrawCell
(
\ptr context' row' col' x_pos y_pos width height ->
let rectangle = toRectangle (fromIntegral x_pos,
fromIntegral y_pos,
fromIntegral width,
fromIntegral height)
in
do
pp <- wrapNonNull ptr "Null pointer. toDrawCellPrim"
f (wrapInRef pp) (toEnum $ fromIntegral context') (TableCoordinate (Row (fromIntegral row')) (Column (fromIntegral col'))) rectangle
)
data CustomTableFuncs a =
CustomTableFuncs
{
clearCustom :: Maybe (Ref a -> IO ())
,setRowsCustom :: Maybe (Ref a -> Int -> IO ())
,setColsCustom :: Maybe (Ref a -> Int -> IO ())
}
fillCustomTableFunctionStruct :: forall a. (Parent a Table) =>
Ptr () ->
Maybe (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->
CustomTableFuncs a ->
IO ()
fillCustomTableFunctionStruct structPtr _drawCell' (CustomTableFuncs _clear' _setRows' _setCols') = do
toDrawCellPrim `orNullFunPtr` _drawCell' >>= (\ptr val -> do {C2HSImp.pokeByteOff ptr 64 (val :: (C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))))))}) structPtr
toCallbackPrim `orNullFunPtr` _clear' >>= (\ptr val -> do {C2HSImp.pokeByteOff ptr 72 (val :: (C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> (IO ()))))}) structPtr
toSetIntPrim `orNullFunPtr` _setRows' >>= (\ptr val -> do {C2HSImp.pokeByteOff ptr 80 (val :: (C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))))}) structPtr
toSetIntPrim `orNullFunPtr` _setCols' >>= (\ptr val -> do {C2HSImp.pokeByteOff ptr 88 (val :: (C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))))}) structPtr
defaultCustomTableFuncs :: forall a. (Parent a Table) => CustomTableFuncs a
defaultCustomTableFuncs = CustomTableFuncs Nothing Nothing Nothing
virtualFuncs' :: IO ((Ptr ()))
virtualFuncs' =
virtualFuncs''_ >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 107 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
tableCustomFunctionStruct :: (Parent a Widget,
Parent b Table) =>
Maybe (Ref a -> IO ()) ->
Maybe (Ref b -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->
CustomWidgetFuncs a ->
CustomTableFuncs b ->
IO (Ptr ())
tableCustomFunctionStruct draw'' drawCell' customWidgetFuncs' customTableFuncs' =
do
ptr <- virtualFuncs'
fillCustomWidgetFunctionStruct ptr draw'' customWidgetFuncs'
fillCustomTableFunctionStruct ptr drawCell' customTableFuncs'
return ptr
tableNew' :: (Int) -> (Int) -> (Int) -> (Int) -> (Ptr ()) -> IO ((Ptr ()))
tableNew' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
tableNew''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 122 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
tableNewWithLabel' :: (Int) -> (Int) -> (Int) -> (Int) -> (T.Text) -> (Ptr ()) -> IO ((Ptr ()))
tableNewWithLabel' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = unsafeToCString a5} in
let {a6' = id a6} in
tableNewWithLabel''_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 123 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
tableCustom :: Rectangle
-> Maybe T.Text
-> Maybe (Ref Table -> IO ())
-> (Ref Table -> TableContext -> TableCoordinate -> Rectangle -> IO ())
-> CustomWidgetFuncs Table
-> CustomTableFuncs Table
-> IO (Ref Table)
tableCustom rectangle label' draw'' drawCell' customWidgetFuncs' customTableFuncs' =
do
let (x_pos, y_pos, width, height) = fromRectangle rectangle
ptr <- tableCustomFunctionStruct draw'' (Just drawCell') customWidgetFuncs' customTableFuncs'
case label' of
(Just l') -> tableNewWithLabel' x_pos y_pos width height l' ptr >>= toRef
Nothing -> tableNew' x_pos y_pos width height ptr >>= toRef
tableDestroy' :: (Ptr ()) -> IO ((()))
tableDestroy' a1 =
let {a1' = id a1} in
tableDestroy''_ a1' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 139 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (Destroy ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> tableDestroy' tablePtr
setTableBox' :: (Ptr ()) -> (Boxtype) -> IO ()
setTableBox' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setTableBox''_ a1' a2' >>
return ()
{-# LINE 142 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Boxtype -> IO ())) => Op (SetTableBox ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setTableBox' tablePtr val
tableBox' :: (Ptr ()) -> IO ((Boxtype))
tableBox' a1 =
let {a1' = id a1} in
tableBox''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 145 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Boxtype))) => Op (GetTableBox ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> tableBox' tablePtr
setRows' :: (Ptr ()) -> (Int) -> IO ()
setRows' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRows''_ a1' a2' >>
return ()
{-# LINE 148 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetRows ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setRows' tablePtr val
rows' :: (Ptr ()) -> IO ((Int))
rows' a1 =
let {a1' = id a1} in
rows''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 151 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetRows ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rows' tablePtr
setCols' :: (Ptr ()) -> (Int) -> IO ()
setCols' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setCols''_ a1' a2' >>
return ()
{-# LINE 154 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetCols ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setCols' tablePtr val
cols' :: (Ptr ()) -> IO ((Int))
cols' a1 =
let {a1' = id a1} in
cols''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 157 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetCols ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> cols' tablePtr
visibleCells' :: (Ptr ()) -> IO ((Int), (Int), (Int), (Int))
visibleCells' a1 =
let {a1' = id a1} in
alloca $ \a2' ->
alloca $ \a3' ->
alloca $ \a4' ->
alloca $ \a5' ->
visibleCells''_ a1' a2' a3' a4' a5' >>
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
peekIntConv a4'>>= \a4'' ->
peekIntConv a5'>>= \a5'' ->
return (a2'', a3'', a4'', a5'')
{-# LINE 160 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ (IO (TableCoordinate,TableCoordinate))) => Op (GetVisibleCells ()) Table orig impl where
runOp _ _ table =
withRef table $ \tablePtr ->
visibleCells' tablePtr >>= \(r1', r2', c1', c2') ->
return ((TableCoordinate (Row r1') (Column c1')), (TableCoordinate (Row r2') (Column c2')))
isInteractiveResize' :: (Ptr ()) -> IO ((Bool))
isInteractiveResize' a1 =
let {a1' = id a1} in
isInteractiveResize''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 166 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Bool))) => Op (IsInteractiveResize ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> isInteractiveResize' tablePtr
rowResize' :: (Ptr ()) -> IO ((Bool))
rowResize' a1 =
let {a1' = id a1} in
rowResize''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 169 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Bool))) => Op (GetRowResize ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rowResize' tablePtr
setRowResize' :: (Ptr ()) -> (Int) -> IO ()
setRowResize' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowResize''_ a1' a2' >>
return ()
{-# LINE 172 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Bool -> IO ())) => Op (SetRowResize ()) Table orig impl where
runOp _ _ table flag = withRef table $ \tablePtr -> setRowResize' tablePtr (cFromBool flag)
colResize' :: (Ptr ()) -> IO ((Bool))
colResize' a1 =
let {a1' = id a1} in
colResize''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 175 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Bool))) => Op (GetColResize ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> colResize' tablePtr
setColResize' :: (Ptr ()) -> (Int) -> IO ()
setColResize' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColResize''_ a1' a2' >>
return ()
{-# LINE 178 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Bool -> IO ())) => Op (SetColResize ()) Table orig impl where
runOp _ _ table flag = withRef table $ \tablePtr -> setColResize' tablePtr (cFromBool flag)
colResizeMin' :: (Ptr ()) -> IO ((Int))
colResizeMin' a1 =
let {a1' = id a1} in
colResizeMin''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 181 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetColResizeMin ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> colResizeMin' tablePtr
setColResizeMin' :: (Ptr ()) -> (Int) -> IO ()
setColResizeMin' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColResizeMin''_ a1' a2' >>
return ()
{-# LINE 184 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetColResizeMin ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setColResizeMin' tablePtr val
rowResizeMin' :: (Ptr ()) -> IO ((Int))
rowResizeMin' a1 =
let {a1' = id a1} in
rowResizeMin''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 187 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetRowResizeMin ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rowResizeMin' tablePtr
setRowResizeMin' :: (Ptr ()) -> (Int) -> IO ()
setRowResizeMin' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowResizeMin''_ a1' a2' >>
return ()
{-# LINE 190 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetRowResizeMin ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setRowResizeMin' tablePtr val
rowHeader' :: (Ptr ()) -> IO ((Int))
rowHeader' a1 =
let {a1' = id a1} in
rowHeader''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 193 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO Bool)) => Op (GetRowHeader ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rowHeader' tablePtr >>= return . cToBool
setRowHeader' :: (Ptr ()) -> (Int) -> IO ()
setRowHeader' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowHeader''_ a1' a2' >>
return ()
{-# LINE 196 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Bool -> IO ())) => Op (SetRowHeader ()) Table orig impl where
runOp _ _ table flag = withRef table $ \tablePtr -> setRowHeader' tablePtr (cFromBool flag)
colHeader' :: (Ptr ()) -> IO ((Bool))
colHeader' a1 =
let {a1' = id a1} in
colHeader''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 199 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Bool))) => Op (GetColHeader ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> colHeader' tablePtr
setColHeader' :: (Ptr ()) -> (Int) -> IO ()
setColHeader' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColHeader''_ a1' a2' >>
return ()
{-# LINE 202 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Bool -> IO ())) => Op (SetColHeader ()) Table orig impl where
runOp _ _ table flag = withRef table $ \tablePtr -> setColHeader' tablePtr (cFromBool flag)
setColHeaderHeight' :: (Ptr ()) -> (Int) -> IO ()
setColHeaderHeight' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColHeaderHeight''_ a1' a2' >>
return ()
{-# LINE 205 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetColHeaderHeight ()) Table orig impl where
runOp _ _ table height = withRef table $ \tablePtr -> setColHeaderHeight' tablePtr height
colHeaderHeight' :: (Ptr ()) -> IO ((Int))
colHeaderHeight' a1 =
let {a1' = id a1} in
colHeaderHeight''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 208 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetColHeaderHeight ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> colHeaderHeight' tablePtr
setRowHeaderWidth' :: (Ptr ()) -> (Int) -> IO ()
setRowHeaderWidth' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowHeaderWidth''_ a1' a2' >>
return ()
{-# LINE 211 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetRowHeaderWidth ()) Table orig impl where
runOp _ _ table width = withRef table $ \tablePtr -> setRowHeaderWidth' tablePtr width
rowHeaderWidth' :: (Ptr ()) -> IO ((Int))
rowHeaderWidth' a1 =
let {a1' = id a1} in
rowHeaderWidth''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 214 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetRowHeaderWidth ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rowHeaderWidth' tablePtr
setRowHeaderColor' :: (Ptr ()) -> (Color) -> IO ()
setRowHeaderColor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setRowHeaderColor''_ a1' a2' >>
return ()
{-# LINE 217 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Color -> IO ())) => Op (SetRowHeaderColor ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setRowHeaderColor' tablePtr val
rowHeaderColor' :: (Ptr ()) -> IO ((Color))
rowHeaderColor' a1 =
let {a1' = id a1} in
rowHeaderColor''_ a1' >>= \res ->
let {res' = cToColor res} in
return (res')
{-# LINE 220 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Color))) => Op (GetRowHeaderColor ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rowHeaderColor' tablePtr
setColHeaderColor' :: (Ptr ()) -> (Color) -> IO ()
setColHeaderColor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setColHeaderColor''_ a1' a2' >>
return ()
{-# LINE 223 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Color -> IO ())) => Op (SetColHeaderColor ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setColHeaderColor' tablePtr val
colHeaderColor' :: (Ptr ()) -> IO ((Color))
colHeaderColor' a1 =
let {a1' = id a1} in
colHeaderColor''_ a1' >>= \res ->
let {res' = cToColor res} in
return (res')
{-# LINE 226 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Color))) => Op (GetColHeaderColor ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> colHeaderColor' tablePtr
setRowHeight' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
setRowHeight' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
setRowHeight''_ a1' a2' a3' >>
return ()
{-# LINE 229 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Row -> Int -> IO ())) => Op (SetRowHeight ()) Table orig impl where
runOp _ _ table (Row row) height = withRef table $ \tablePtr -> setRowHeight' tablePtr row height
rowHeight' :: (Ptr ()) -> (Int) -> IO ((Int))
rowHeight' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
rowHeight''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 232 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Row -> IO (Int))) => Op (GetRowHeight ()) Table orig impl where
runOp _ _ table (Row row) = withRef table $ \tablePtr -> rowHeight' tablePtr row
setColWidth' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
setColWidth' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
setColWidth''_ a1' a2' a3' >>
return ()
{-# LINE 235 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Column -> Int -> IO ())) => Op (SetColWidth ()) Table orig impl where
runOp _ _ table (Column col) width = withRef table $ \tablePtr -> setColWidth' tablePtr col width
colWidth' :: (Ptr ()) -> (Int) -> IO ((Int))
colWidth' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
colWidth''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 238 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Column -> IO (Int))) => Op (GetColWidth ()) Table orig impl where
runOp _ _ table (Column col) = withRef table $ \tablePtr -> colWidth' tablePtr col
setRowHeightAll' :: (Ptr ()) -> (Int) -> IO ()
setRowHeightAll' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowHeightAll''_ a1' a2' >>
return ()
{-# LINE 241 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetRowHeightAll ()) Table orig impl where
runOp _ _ table height = withRef table $ \tablePtr -> setRowHeightAll' tablePtr height
setColWidthAll' :: (Ptr ()) -> (Int) -> IO ()
setColWidthAll' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColWidthAll''_ a1' a2' >>
return ()
{-# LINE 244 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetColWidthAll ()) Table orig impl where
runOp _ _ table width = withRef table $ \tablePtr -> setColWidthAll' tablePtr width
setRowPosition' :: (Ptr ()) -> (Int) -> IO ()
setRowPosition' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowPosition''_ a1' a2' >>
return ()
{-# LINE 247 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Row -> IO ())) => Op (SetRowPosition ()) Table orig impl where
runOp _ _ table (Row row) = withRef table $ \tablePtr -> setRowPosition' tablePtr row
setColPosition' :: (Ptr ()) -> (Int) -> IO ()
setColPosition' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColPosition''_ a1' a2' >>
return ()
{-# LINE 250 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Column -> IO ())) => Op (SetColPosition ()) Table orig impl where
runOp _ _ table (Column col) = withRef table $ \tablePtr -> setColPosition' tablePtr col
rowPosition' :: (Ptr ()) -> IO ((Int))
rowPosition' a1 =
let {a1' = id a1} in
rowPosition''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 253 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Row))) => Op (GetRowPosition ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> rowPosition' tablePtr >>= return . Row
colPosition' :: (Ptr ()) -> IO ((Int))
colPosition' a1 =
let {a1' = id a1} in
colPosition''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 256 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Column))) => Op (GetColPosition ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> colPosition' tablePtr >>= return . Column
setTopRow' :: (Ptr ()) -> (Int) -> IO ()
setTopRow' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setTopRow''_ a1' a2' >>
return ()
{-# LINE 259 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Row -> IO ())) => Op (SetTopRow ()) Table orig impl where
runOp _ _ table (Row row) = withRef table $ \tablePtr -> setTopRow' tablePtr row
topRow' :: (Ptr ()) -> IO ((Int))
topRow' a1 =
let {a1' = id a1} in
topRow''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 262 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Row))) => Op (GetTopRow ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> topRow' tablePtr >>= return . Row
isSelected' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Bool))
isSelected' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
isSelected''_ a1' a2' a3' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 265 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ (TableCoordinate -> IO Bool)) => Op (IsSelected ()) Table orig impl where
runOp _ _ table (TableCoordinate (Row r) (Column c)) = withRef table $ \tablePtr -> isSelected' tablePtr r c
getSelection' :: (Ptr ()) -> IO ((Int), (Int), (Int), (Int))
getSelection' a1 =
let {a1' = id a1} in
alloca $ \a2' ->
alloca $ \a3' ->
alloca $ \a4' ->
alloca $ \a5' ->
getSelection''_ a1' a2' a3' a4' a5' >>
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
peekIntConv a4'>>= \a4'' ->
peekIntConv a5'>>= \a5'' ->
return (a2'', a3'', a4'', a5'')
{-# LINE 268 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ IO (TableCoordinate, TableCoordinate)) => Op (GetSelection ()) Table orig impl where
runOp _ _ table =
withRef table $ \tablePtr ->
getSelection' tablePtr >>= \(top', left',bottom',right') ->
return ((TableCoordinate (Row top') (Column left')), (TableCoordinate (Row bottom') (Column right')))
setSelection' :: (Ptr ()) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
setSelection' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
setSelection''_ a1' a2' a3' a4' a5' >>
return ()
{-# LINE 274 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> Int -> Int -> Int -> IO ())) => Op (SetSelection ()) Table orig impl where
runOp _ _ table row_top col_left row_bot col_right = withRef table $ \tablePtr -> setSelection' tablePtr row_top col_left row_bot col_right
moveCursor' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Int))
moveCursor' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
moveCursor''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 277 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( TableCoordinate -> IO (Int))) => Op (MoveCursor ()) Table orig impl where
runOp _ _ table (TableCoordinate (Row r) (Column c)) = withRef table $ \tablePtr -> moveCursor' tablePtr r c
initSizes' :: (Ptr ()) -> IO ()
initSizes' a1 =
let {a1' = id a1} in
initSizes''_ a1' >>
return ()
{-# LINE 280 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (InitSizes ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> initSizes' tablePtr
add' :: (Ptr ()) -> (Ptr ()) -> IO ()
add' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
add''_ a1' a2' >>
return ()
{-# LINE 283 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (Parent a Widget, impl ~ (Ref a -> IO ())) => Op (Add ()) Table orig impl where
runOp _ _ table wgt = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> add' tablePtr wgtPtr
insert' :: (Ptr ()) -> (Ptr ()) -> (Int) -> IO ()
insert' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
insert''_ a1' a2' a3' >>
return ()
{-# LINE 286 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (Parent a Widget, impl ~ (Ref a -> Int -> IO ())) => Op (Insert ()) Table orig impl where
runOp _ _ table wgt n = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> insert' tablePtr wgtPtr n
insertWithWidget' :: (Ptr ()) -> (Ptr ()) -> (Ptr ()) -> IO ()
insertWithWidget' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
insertWithWidget''_ a1' a2' a3' >>
return ()
{-# LINE 289 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (Parent a Widget, Parent b Widget, impl ~ (Ref a -> Ref b -> IO ())) => Op (InsertWithBefore ()) Table orig impl where
runOp _ _ self w before = withRef self $ \selfPtr -> withRef w $ \wPtr -> withRef before $ \beforePtr -> insertWithWidget' selfPtr wPtr beforePtr
begin' :: (Ptr ()) -> IO ()
begin' a1 =
let {a1' = id a1} in
begin''_ a1' >>
return ()
{-# LINE 292 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (Begin ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> begin' tablePtr
end' :: (Ptr ()) -> IO ()
end' a1 =
let {a1' = id a1} in
end''_ a1' >>
return ()
{-# LINE 295 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (End ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> end' tablePtr
array' :: (Ptr ()) -> IO ((Ptr (Ptr ())))
array' a1 =
let {a1' = id a1} in
array''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 298 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO [Ref Widget])) => Op (GetArray ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> do
childArrayPtr <- array' tablePtr
numChildren <- children table
arrayToRefs childArrayPtr numChildren
child' :: (Ptr ()) -> (Int) -> IO ((Ptr ()))
child' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
child''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 304 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO (Maybe (Ref Widget)))) => Op (GetChild ()) Table orig impl where
runOp _ _ table n = withRef table $ \tablePtr -> child' tablePtr n >>= toMaybeRef
children' :: (Ptr ()) -> IO ((Int))
children' a1 =
let {a1' = id a1} in
children''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 307 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Int))) => Op (Children ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> children' tablePtr
find' :: (Ptr ()) -> (Ptr ()) -> IO ((Int))
find' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
find''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 310 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (Parent a Widget, impl ~ (Ref a -> IO (Int))) => Op (Find ()) Table orig impl where
runOp _ _ table wgt = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> find' tablePtr wgtPtr
callbackRow' :: (Ptr ()) -> IO ((Int))
callbackRow' a1 =
let {a1' = id a1} in
callbackRow''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 313 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Row))) => Op (CallbackRow ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> callbackRow' tablePtr >>= return . Row
callbackCol' :: (Ptr ()) -> IO ((Int))
callbackCol' a1 =
let {a1' = id a1} in
callbackCol''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 316 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (Column))) => Op (CallbackCol ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> callbackCol' tablePtr >>= return . Column
callbackContext' :: (Ptr ()) -> IO ((TableContext))
callbackContext' a1 =
let {a1' = id a1} in
callbackContext''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 319 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO (TableContext))) => Op (CallbackContext ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> callbackContext' tablePtr
doCallback' :: (Ptr ()) -> (TableContext) -> (Int) -> (Int) -> IO ()
doCallback' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
doCallback''_ a1' a2' a3' a4' >>
return ()
{-# LINE 322 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( TableContext -> TableCoordinate -> IO ())) => Op (DoCallback ()) Table orig impl where
runOp _ _ table tablecontext (TableCoordinate (Row row) (Column col)) = withRef table $ \tablePtr -> doCallback' tablePtr tablecontext row col
findCell' :: (Ptr ()) -> (TableContext) -> (Int) -> (Int) -> IO ((CInt), (Int), (Int), (Int), (Int))
findCell' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
alloca $ \a5' ->
alloca $ \a6' ->
alloca $ \a7' ->
alloca $ \a8' ->
findCell''_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
peekIntConv a5'>>= \a5'' ->
peekIntConv a6'>>= \a6'' ->
peekIntConv a7'>>= \a7'' ->
peekIntConv a8'>>= \a8'' ->
return (res', a5'', a6'', a7'', a8'')
{-# LINE 325 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( TableContext -> TableCoordinate -> IO (Maybe Rectangle))) => Op (FindCell ()) Table orig impl where
runOp _ _ table context (TableCoordinate (Row r) (Column c)) =
withRef table $ \tablePtr ->
findCell' tablePtr context r c >>= \(result, x_pos', y_pos', width', height') -> do
if (result /= -1)
then return $ Just $ toRectangle (x_pos', y_pos', width', height')
else return $ Nothing
drawSuper' :: (Ptr ()) -> IO ()
drawSuper' a1 =
let {a1' = id a1} in
drawSuper''_ a1' >>
return ()
{-# LINE 333 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (DrawSuper ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> drawSuper' tablePtr
draw' :: (Ptr ()) -> IO ()
draw' a1 =
let {a1' = id a1} in
draw''_ a1' >>
return ()
{-# LINE 336 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (Draw ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> draw' tablePtr
handle' :: (Ptr ()) -> (Event) -> IO ((Int))
handle' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
handle''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 339 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Event -> IO(Either UnknownEvent ()))) => Op (Handle ()) Table orig impl where
runOp _ _ table event = withRef table $ \tablePtr -> handle' tablePtr event >>= return . successOrUnknownEvent
resizeSuper' :: (Ptr ()) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
resizeSuper' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
resizeSuper''_ a1' a2' a3' a4' a5' >>
return ()
{-# LINE 342 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Rectangle -> IO ())) => Op (ResizeSuper ()) Table orig impl where
runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resizeSuper' tablePtr x_pos' y_pos' width' height'
resize' :: (Ptr ()) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
resize' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
resize''_ a1' a2' a3' a4' a5' >>
return ()
{-# LINE 345 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) Table orig impl where
runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'
clearSuper' :: (Ptr ()) -> IO ()
clearSuper' a1 =
let {a1' = id a1} in
clearSuper''_ a1' >>
return ()
{-# LINE 348 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (ClearSuper ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> clearSuper' tablePtr
clear' :: (Ptr ()) -> IO ()
clear' a1 =
let {a1' = id a1} in
clear''_ a1' >>
return ()
{-# LINE 351 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (Clear ()) Table orig impl where
runOp _ _ table = withRef table $ \tablePtr -> clear' tablePtr
setRowsSuper' :: (Ptr ()) -> (Int) -> IO ()
setRowsSuper' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setRowsSuper''_ a1' a2' >>
return ()
{-# LINE 354 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetRowsSuper ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setRowsSuper' tablePtr val
setColsSuper' :: (Ptr ()) -> (Int) -> IO ()
setColsSuper' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setColsSuper''_ a1' a2' >>
return ()
{-# LINE 357 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( Int -> IO ())) => Op (SetColsSuper ()) Table orig impl where
runOp _ _ table val = withRef table $ \tablePtr -> setColsSuper' tablePtr val
showSuper' :: (Ptr ()) -> IO ((()))
showSuper' a1 =
let {a1' = id a1} in
showSuper''_ a1' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 360 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Table orig impl where
runOp _ _ widget = withRef widget $ \widgetPtr -> showSuper' widgetPtr
show' :: (Ptr ()) -> IO ((()))
show' a1 =
let {a1' = id a1} in
show''_ a1' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 363 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (ShowWidget ()) Table orig impl where
runOp _ _ widget = withRef widget $ \widgetPtr -> show' widgetPtr
hideSuper' :: (Ptr ()) -> IO ((()))
hideSuper' a1 =
let {a1' = id a1} in
hideSuper''_ a1' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 366 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (HideSuper ()) Table orig impl where
runOp _ _ widget = withRef widget $ \widgetPtr -> hideSuper' widgetPtr
hide' :: (Ptr ()) -> IO ((()))
hide' a1 =
let {a1' = id a1} in
hide''_ a1' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 369 "src/Graphics/UI/FLTK/LowLevel/Table.chs" #-}
instance (impl ~ ( IO ())) => Op (Hide ()) Table orig impl where
runOp _ _ widget = withRef widget $ \widgetPtr -> hide' widgetPtr
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_default_virtual_funcs"
virtualFuncs''_ :: (IO (C2HSImp.Ptr ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_New"
tableNew''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_New_WithLabel"
tableNewWithLabel''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ()))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_Destroy"
tableDestroy''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_table_box"
setTableBox''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_table_box"
tableBox''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_rows"
setRows''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_rows"
rows''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_cols"
setCols''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_cols"
cols''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_visible_cells"
visibleCells''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_is_interactive_resize"
isInteractiveResize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_resize"
rowResize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_resize"
setRowResize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_resize"
colResize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_resize"
setColResize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_resize_min"
colResizeMin''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_resize_min"
setColResizeMin''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_resize_min"
rowResizeMin''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_resize_min"
setRowResizeMin''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_header"
rowHeader''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_header"
setRowHeader''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_header"
colHeader''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_header"
setColHeader''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_header_height"
setColHeaderHeight''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_header_height"
colHeaderHeight''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_header_width"
setRowHeaderWidth''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_header_width"
rowHeaderWidth''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_header_color"
setRowHeaderColor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_header_color"
rowHeaderColor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_header_color"
setColHeaderColor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_header_color"
colHeaderColor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_height"
setRowHeight''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_height"
rowHeight''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_width"
setColWidth''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_width"
colWidth''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_height_all"
setRowHeightAll''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_width_all"
setColWidthAll''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_row_position"
setRowPosition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_col_position"
setColPosition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_row_position"
rowPosition''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_col_position"
colPosition''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_top_row"
setTopRow''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_top_row"
topRow''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_is_selected"
isSelected''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_get_selection"
getSelection''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_selection"
setSelection''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_move_cursor"
moveCursor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_init_sizes"
initSizes''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_add"
add''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_insert"
insert''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_insert_with_widget"
insertWithWidget''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_begin"
begin''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_end"
end''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_array"
array''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_child"
child''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_children"
children''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_find"
find''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_callback_row"
callbackRow''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_callback_col"
callbackCol''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_callback_context"
callbackContext''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_do_callback"
doCallback''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_find_cell"
findCell''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt)))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_draw_super"
drawSuper''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_draw"
draw''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_handle"
handle''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_resize_super"
resizeSuper''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_resize"
resize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_clear_super"
clearSuper''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_clear"
clear''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_rows_super"
setRowsSuper''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_set_cols_super"
setColsSuper''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_show_super"
showSuper''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_show"
show''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_hide_super"
hideSuper''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Table.chs.h Fl_Table_hide"
hide''_ :: ((C2HSImp.Ptr ()) -> (IO ()))