{-# LINE 1 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Graphics.UI.FLTK.LowLevel.Browser
(
browserNew,
browserCustom
)
where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)
import Graphics.UI.FLTK.LowLevel.Fl_Enumerations
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
import Graphics.UI.FLTK.LowLevel.Widget
browserNew' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ((Ptr ()))
browserNew' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
browserNew''_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 31 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
browserNewWithLabel' :: (Int) -> (Int) -> (Int) -> (Int) -> (T.Text) -> IO ((Ptr ()))
browserNewWithLabel' 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' = unsafeToCString a5} in
browserNewWithLabel''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 32 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
overriddenBrowserNewWithLabel' :: (Int) -> (Int) -> (Int) -> (Int) -> (T.Text) -> (Ptr ()) -> IO ((Ptr ()))
overriddenBrowserNewWithLabel' 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
overriddenBrowserNewWithLabel''_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 33 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
overriddenBrowserNew' :: (Int) -> (Int) -> (Int) -> (Int) -> (Ptr ()) -> IO ((Ptr ()))
overriddenBrowserNew' 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
overriddenBrowserNew''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 34 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
browserCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Browser -> IO ()) -> Maybe (CustomWidgetFuncs Browser) -> IO (Ref Browser)
browserCustom rectangle l' draw' funcs' =
widgetMaker
rectangle
l'
draw'
funcs'
overriddenBrowserNew'
overriddenBrowserNewWithLabel'
browserNew :: Rectangle -> Maybe T.Text -> IO (Ref Browser)
browserNew rectangle l' =
let (x_pos, y_pos, width, height) = fromRectangle rectangle
in case l' of
Nothing -> browserNew' x_pos y_pos width height >>=
toRef
Just l -> browserNewWithLabel' x_pos y_pos width height l >>=
toRef
browserHandle' :: (Ptr ()) -> (CInt) -> IO ((Int))
browserHandle' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
browserHandle''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 55 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Browser orig impl where
runOp _ _ browser event = withRef browser (\p -> browserHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent
browserDestroy' :: (Ptr ()) -> IO ()
browserDestroy' a1 =
let {a1' = id a1} in
browserDestroy''_ a1' >>
return ()
{-# LINE 58 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (IO ())) => Op (Destroy ()) Browser orig impl where
runOp _ _ browser = swapRef browser $ \browserPtr -> do
browserDestroy' browserPtr
return nullPtr
remove' :: (Ptr ()) -> (Int) -> IO ()
remove' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
remove''_ a1' a2' >>
return ()
{-# LINE 63 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Int -> IO ())) => Op (Remove ()) Browser orig impl where
runOp _ _ browser line = withRef browser $ \browserPtr -> remove' browserPtr line
add' :: (Ptr ()) -> (T.Text) -> IO ()
add' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
add''_ a1' a2' >>
return ()
{-# LINE 66 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (T.Text -> IO ())) => Op (Add ()) Browser orig impl where
runOp _ _ browser newtext = withRef browser $ \browserPtr -> add' browserPtr newtext
insert' :: (Ptr ()) -> (Int) -> (T.Text) -> IO ()
insert' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = unsafeToCString a3} in
insert''_ a1' a2' a3' >>
return ()
{-# LINE 69 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Int -> T.Text -> IO ())) => Op (Insert ()) Browser orig impl where
runOp _ _ browser line newtext = withRef browser $ \browserPtr -> insert' browserPtr line newtext
move' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
move' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
move''_ a1' a2' a3' >>
return ()
{-# LINE 72 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> LineNumber -> IO ())) => Op (Move ()) Browser orig impl where
runOp _ _ browser (LineNumber to) (LineNumber from) = withRef browser $ \browserPtr -> move' browserPtr to from
load' :: (Ptr ()) -> (T.Text) -> IO ((Int))
load' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
load''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 75 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (T.Text -> IO (Int))) => Op (Load ()) Browser orig impl where
runOp _ _ browser filename = withRef browser $ \browserPtr -> load' browserPtr filename
swap' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
swap' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
swap''_ a1' a2' a3' >>
return ()
{-# LINE 78 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> LineNumber -> IO ())) => Op (Swap ()) Browser orig impl where
runOp _ _ browser (LineNumber a) (LineNumber b) = withRef browser $ \browserPtr -> swap' browserPtr a b
clear' :: (Ptr ()) -> IO ()
clear' a1 =
let {a1' = id a1} in
clear''_ a1' >>
return ()
{-# LINE 81 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (Clear ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> clear' browserPtr
size' :: (Ptr ()) -> IO ((Int))
size' a1 =
let {a1' = id a1} in
size''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 84 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetSize ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> size' browserPtr
setSize' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
setSize' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
setSize''_ a1' a2' a3' >>
return ()
{-# LINE 87 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Int -> Int -> IO ())) => Op (SetSize ()) Browser orig impl where
runOp _ _ browser w h = withRef browser $ \browserPtr -> setSize' browserPtr w h
topline' :: (Ptr ()) -> IO ((Int))
topline' a1 =
let {a1' = id a1} in
topline''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 90 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (LineNumber))) => Op (GetTopline ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> topline' browserPtr >>= return . LineNumber
lineposition' :: (Ptr ()) -> (Int) -> (LinePosition) -> IO ()
lineposition' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = cFromEnum a3} in
lineposition''_ a1' a2' a3' >>
return ()
{-# LINE 93 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Int -> LinePosition -> IO ())) => Op (Lineposition ()) Browser orig impl where
runOp _ _ browser line pos = withRef browser $ \browserPtr -> lineposition' browserPtr line pos
setTopline' :: (Ptr ()) -> (Int) -> IO ()
setTopline' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setTopline''_ a1' a2' >>
return ()
{-# LINE 96 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetTopline ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setTopline' browserPtr line
bottomline' :: (Ptr ()) -> (Int) -> IO ()
bottomline' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
bottomline''_ a1' a2' >>
return ()
{-# LINE 99 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetBottomline ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> bottomline' browserPtr line
middleline' :: (Ptr ()) -> (Int) -> IO ()
middleline' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
middleline''_ a1' a2' >>
return ()
{-# LINE 102 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetMiddleline ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> middleline' browserPtr line
select' :: (Ptr ()) -> (Int) -> (Bool) -> IO ((Int))
select' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = cFromBool a3} in
select''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 105 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> Bool -> IO (Either NoChange ()))) => Op (Select ()) Browser orig impl where
runOp _ _ browser (LineNumber line) selectType = withRef browser $ \browserPtr -> select' browserPtr line selectType >>= return . successOrNoChange
selected' :: (Ptr ()) -> (Int) -> IO ((Bool))
selected' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
selected''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 108 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Bool))) => Op (Selected ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> selected' browserPtr line
showWithLine' :: (Ptr ()) -> (Int) -> IO ()
showWithLine' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
showWithLine''_ a1' a2' >>
return ()
{-# LINE 111 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (ShowWidgetLine ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> showWithLine' browserPtr line
show' :: (Ptr ()) -> IO ()
show' a1 =
let {a1' = id a1} in
show''_ a1' >>
return ()
{-# LINE 114 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (ShowWidget ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> show' browserPtr
hideWithLine' :: (Ptr ()) -> (Int) -> IO ()
hideWithLine' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
hideWithLine''_ a1' a2' >>
return ()
{-# LINE 117 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (HideLine ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> hideWithLine' browserPtr line
hide' :: (Ptr ()) -> IO ()
hide' a1 =
let {a1' = id a1} in
hide''_ a1' >>
return ()
{-# LINE 120 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (Hide ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> hide' browserPtr
visible' :: (Ptr ()) -> (Int) -> IO ((Bool))
visible' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
visible''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 123 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Bool))) => Op (Visible ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> visible' browserPtr line
value' :: (Ptr ()) -> IO ((Int))
value' a1 =
let {a1' = id a1} in
value''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 126 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (LineNumber))) => Op (GetValue ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> value' browserPtr >>= return . LineNumber
setValue' :: (Ptr ()) -> (Int) -> IO ()
setValue' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setValue''_ a1' a2' >>
return ()
{-# LINE 129 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetValue ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setValue' browserPtr line
text' :: (Ptr ()) -> (Int) -> IO ((T.Text))
text' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
text''_ a1' a2' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
{-# LINE 132 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO T.Text)) => Op (GetText ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> text' browserPtr line
setText' :: (Ptr ()) -> (Int) -> (T.Text) -> IO ()
setText' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = unsafeToCString a3} in
setText''_ a1' a2' a3' >>
return ()
{-# LINE 135 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> T.Text -> IO ())) => Op (SetText ()) Browser orig impl where
runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> setText' browserPtr line newtext
formatChar' :: (Ptr ()) -> IO ((CChar))
formatChar' a1 =
let {a1' = id a1} in
formatChar''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 138 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Char))) => Op (GetFormatChar ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> formatChar' browserPtr >>= return . castCCharToChar
setFormatChar' :: (Ptr ()) -> (CChar) -> IO ()
setFormatChar' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setFormatChar''_ a1' a2' >>
return ()
{-# LINE 141 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Char -> IO ())) => Op (SetFormatChar ()) Browser orig impl where
runOp _ _ browser c = withRef browser $ \browserPtr -> setFormatChar' browserPtr (castCharToCChar c)
columnChar' :: (Ptr ()) -> IO ((CChar))
columnChar' a1 =
let {a1' = id a1} in
columnChar''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 144 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Char))) => Op (GetColumnChar ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> columnChar' browserPtr >>= return . castCCharToChar
setColumnChar' :: (Ptr ()) -> (CChar) -> IO ()
setColumnChar' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setColumnChar''_ a1' a2' >>
return ()
{-# LINE 147 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Char -> IO ())) => Op (SetColumnChar ()) Browser orig impl where
runOp _ _ browser c = withRef browser $ \browserPtr -> setColumnChar' browserPtr (castCharToCChar c)
columnWidths' :: (Ptr ()) -> IO ((Ptr CInt))
columnWidths' a1 =
let {a1' = id a1} in
columnWidths''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 150 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO [Int])) => Op (GetColumnWidths ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> do
ptr <- columnWidths' browserPtr
if (ptr == nullPtr)
then return []
else go ptr []
where
go ptr accum = do
curr <- peek ptr
if (curr == 0)
then return accum
else go (ptr `plusPtr` (sizeOf (undefined :: CInt))) (accum ++ [fromIntegral curr])
setColumnWidths' :: (Ptr ()) -> (Ptr CInt) -> IO ()
setColumnWidths' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setColumnWidths''_ a1' a2' >>
return ()
{-# LINE 164 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ([Int] -> IO ())) => Op (SetColumnWidths ()) Browser orig impl where
runOp _ _ browser arr =
withRef browser $ \browserPtr -> do
ptr <- newArray ((map fromIntegral arr) :: [CInt])
setColumnWidths' browserPtr (castPtr ptr)
displayed' :: (Ptr ()) -> (Int) -> IO ((Bool))
displayed' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
displayed''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 170 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Bool))) => Op (Displayed ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> displayed' browserPtr line
makeVisible' :: (Ptr ()) -> (Int) -> IO ()
makeVisible' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
makeVisible''_ a1' a2' >>
return ()
{-# LINE 173 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (MakeVisible ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> makeVisible' browserPtr line
setIcon' :: (Ptr ()) -> (Int) -> (Ptr ()) -> IO ()
setIcon' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = id a3} in
setIcon''_ a1' a2' a3' >>
return ()
{-# LINE 176 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> Ref Image -> IO ())) => Op (SetIcon ()) Browser orig impl where
runOp _ _ browser (LineNumber line) icon = withRef browser $ \browserPtr -> withRef icon $ \iconPtr -> setIcon' browserPtr line iconPtr
icon' :: (Ptr ()) -> (Int) -> IO ((Ptr ()))
icon' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
icon''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 179 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Maybe (Ref Image)))) => Op (GetIcon ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> icon' browserPtr line >>= toMaybeRef
removeIcon' :: (Ptr ()) -> (Int) -> IO ()
removeIcon' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
removeIcon''_ a1' a2' >>
return ()
{-# LINE 182 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (RemoveIcon ()) Browser orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> removeIcon' browserPtr line
deselect' :: (Ptr ()) -> IO ((Int))
deselect' a1 =
let {a1' = id a1} in
deselect''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 185 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Either NoChange ()))) => Op (Deselect ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> deselect' browserPtr >>= return . successOrNoChange
deselectWithDocallbacks' :: (Ptr ()) -> (Int) -> IO ((Int))
deselectWithDocallbacks' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
deselectWithDocallbacks''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 188 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (IO (Either NoChange ()))) => Op (DeselectAndCallback ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> deselectWithDocallbacks' browserPtr 1 >>= return . successOrNoChange
position' :: (Ptr ()) -> IO ((Int))
position' a1 =
let {a1' = id a1} in
position''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 191 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (PixelPosition))) => Op (GetPosition ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> position' browserPtr >>= return . PixelPosition
setPosition' :: (Ptr ()) -> (Int) -> IO ()
setPosition' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setPosition''_ a1' a2' >>
return ()
{-# LINE 194 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (PixelPosition -> IO ())) => Op (SetPosition ()) Browser orig impl where
runOp _ _ browser (PixelPosition pos) = withRef browser $ \browserPtr -> setPosition' browserPtr pos
hposition' :: (Ptr ()) -> IO ((Int))
hposition' a1 =
let {a1' = id a1} in
hposition''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 197 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (PixelPosition))) => Op (GetHposition ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> hposition' browserPtr >>= return . PixelPosition
setHposition' :: (Ptr ()) -> (Int) -> IO ()
setHposition' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setHposition''_ a1' a2' >>
return ()
{-# LINE 200 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (PixelPosition -> IO ())) => Op (SetHposition ()) Browser orig impl where
runOp _ _ browser (PixelPosition int) = withRef browser $ \browserPtr -> setHposition' browserPtr int
hasScrollbar' :: (Ptr ()) -> IO ((ScrollbarMode))
hasScrollbar' a1 =
let {a1' = id a1} in
hasScrollbar''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 203 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (ScrollbarMode))) => Op (GetHasScrollbar ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> hasScrollbar' browserPtr
setHasScrollbar' :: (Ptr ()) -> (ScrollbarMode) -> IO ()
setHasScrollbar' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setHasScrollbar''_ a1' a2' >>
return ()
{-# LINE 206 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (ScrollbarMode -> IO ())) => Op (SetHasScrollbar ()) Browser orig impl where
runOp _ _ browser mode = withRef browser $ \browserPtr -> setHasScrollbar' browserPtr mode
textfont' :: (Ptr ()) -> IO ((Font))
textfont' a1 =
let {a1' = id a1} in
textfont''_ a1' >>= \res ->
let {res' = cToFont res} in
return (res')
{-# LINE 209 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> textfont' browserPtr
setTextfont' :: (Ptr ()) -> (Font) -> IO ()
setTextfont' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromFont a2} in
setTextfont''_ a1' a2' >>
return ()
{-# LINE 212 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Font -> IO ())) => Op (SetTextfont ()) Browser orig impl where
runOp _ _ browser font = withRef browser $ \browserPtr -> setTextfont' browserPtr font
textsize' :: (Ptr ()) -> IO ((CInt))
textsize' a1 =
let {a1' = id a1} in
textsize''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 215 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> textsize' browserPtr >>= return . FontSize
setTextsize' :: (Ptr ()) -> (CInt) -> IO ()
setTextsize' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setTextsize''_ a1' a2' >>
return ()
{-# LINE 218 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (FontSize -> IO ())) => Op (SetTextsize ()) Browser orig impl where
runOp _ _ browser (FontSize newsize) = withRef browser $ \browserPtr -> setTextsize' browserPtr newsize
textcolor' :: (Ptr ()) -> IO ((Color))
textcolor' a1 =
let {a1' = id a1} in
textcolor''_ a1' >>= \res ->
let {res' = cToColor res} in
return (res')
{-# LINE 221 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> textcolor' browserPtr
setTextcolor' :: (Ptr ()) -> (Color) -> IO ()
setTextcolor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setTextcolor''_ a1' a2' >>
return ()
{-# LINE 224 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Color -> IO ())) => Op (SetTextcolor ()) Browser orig impl where
runOp _ _ browser col = withRef browser $ \browserPtr -> setTextcolor' browserPtr col
scrollbarSize' :: (Ptr ()) -> IO ((Int))
scrollbarSize' a1 =
let {a1' = id a1} in
scrollbarSize''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 227 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetScrollbarSize ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> scrollbarSize' browserPtr
setScrollbarSize' :: (Ptr ()) -> (Int) -> IO ()
setScrollbarSize' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setScrollbarSize''_ a1' a2' >>
return ()
{-# LINE 230 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Int -> IO ())) => Op (SetScrollbarSize ()) Browser orig impl where
runOp _ _ browser newsize = withRef browser $ \browserPtr -> setScrollbarSize' browserPtr newsize
scrollbarWidth' :: (Ptr ()) -> IO ((Int))
scrollbarWidth' a1 =
let {a1' = id a1} in
scrollbarWidth''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 233 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetScrollbarWidth ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> scrollbarWidth' browserPtr
setScrollbarWidth' :: (Ptr ()) -> (Int) -> IO ()
setScrollbarWidth' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setScrollbarWidth''_ a1' a2' >>
return ()
{-# LINE 236 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (Int -> IO ())) => Op (SetScrollbarWidth ()) Browser orig impl where
runOp _ _ browser width = withRef browser $ \browserPtr -> setScrollbarWidth' browserPtr width
sortWithFlags' :: (Ptr ()) -> (SortType) -> IO ()
sortWithFlags' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
sortWithFlags''_ a1' a2' >>
return ()
{-# LINE 239 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (SortType -> IO ())) => Op (SortWithSortType ()) Browser orig impl where
runOp _ _ browser sorttype' = withRef browser $ \browserPtr -> sortWithFlags' browserPtr sorttype'
sort' :: (Ptr ()) -> IO ()
sort' a1 =
let {a1' = id a1} in
sort''_ a1' >>
return ()
{-# LINE 242 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ IO ()) => Op (Sort ()) Browser orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> sort' browserPtr
setType' :: (Ptr ()) -> (Word8) -> IO ((()))
setType' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setType''_ a1' a2' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 245 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ (BrowserType -> IO ())) => Op (SetType ()) Browser orig impl where
runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)
type' :: (Ptr ()) -> IO ((Word8))
type' a1 =
let {a1' = id a1} in
type''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 248 "src/Graphics/UI/FLTK/LowLevel/Browser.chs" #-}
instance (impl ~ IO (BrowserType)) => Op (GetType_ ()) Browser orig impl where
runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_New"
browserNew''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_New_WithLabel"
browserNewWithLabel''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_OverriddenBrowser_New_WithLabel"
overriddenBrowserNewWithLabel''_ :: (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/Browser.chs.h Fl_OverriddenBrowser_New"
overriddenBrowserNew''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_handle"
browserHandle''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_Destroy"
browserDestroy''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_remove"
remove''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_add"
add''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_insert"
insert''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_move"
move''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_load"
load''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_swap"
swap''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_clear"
clear''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_size"
size''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_size"
setSize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_topline"
topline''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_lineposition"
lineposition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_topline"
setTopline''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_bottomline"
bottomline''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_middleline"
middleline''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_select_with_val"
select''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_selected"
selected''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_show_with_line"
showWithLine''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_show"
show''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_hide_with_line"
hideWithLine''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_hide"
hide''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_visible"
visible''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_value"
value''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_value"
setValue''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_text"
text''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_text"
setText''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_format_char"
formatChar''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_format_char"
setFormatChar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_column_char"
columnChar''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_column_char"
setColumnChar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_column_widths"
columnWidths''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_column_widths"
setColumnWidths''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_displayed"
displayed''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_make_visible"
makeVisible''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_icon"
setIcon''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_icon"
icon''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_remove_icon"
removeIcon''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_deselect"
deselect''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_deselect_with_docallbacks"
deselectWithDocallbacks''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_position"
position''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_position"
setPosition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_hposition"
hposition''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_hposition"
setHposition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_has_scrollbar"
hasScrollbar''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_has_scrollbar"
setHasScrollbar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_textfont"
textfont''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_textfont"
setTextfont''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_textsize"
textsize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_textsize"
setTextsize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_textcolor"
textcolor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_textcolor"
setTextcolor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_scrollbar_size"
scrollbarSize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_scrollbar_size"
setScrollbarSize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_scrollbar_width"
scrollbarWidth''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_set_scrollbar_width"
setScrollbarWidth''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_sort_with_flags"
sortWithFlags''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Browser_sort"
sort''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Widget_set_type"
setType''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Browser.chs.h Fl_Widget_type"
type''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUChar))