{-# LINE 1 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Graphics.UI.FLTK.LowLevel.Base.Browser
(
browserNew,
browserCustom
, handleBrowserBase
, drawBrowserBase
, hideBrowserBase
, resizeBrowserBase
)
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.Base.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 35 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
browserNewWithLabel' :: (Int) -> (Int) -> (Int) -> (Int) -> (CString) -> 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
(flip ($)) a5 $ \a5' ->
browserNewWithLabel''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 36 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
overriddenBrowserNewWithLabel' :: (Int) -> (Int) -> (Int) -> (Int) -> (CString) -> (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
(flip ($)) a5 $ \a5' ->
let {a6' = id a6} in
overriddenBrowserNewWithLabel''_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 37 "src/Graphics/UI/FLTK/LowLevel/Base/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 38 "src/Graphics/UI/FLTK/LowLevel/Base/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 -> Maybe Text -> IO (Ref Browser)
browserNew rectangle :: Rectangle
rectangle l' :: Maybe Text
l' =
Rectangle
-> Maybe Text
-> Maybe (Ref Browser -> IO ())
-> Maybe (CustomWidgetFuncs Browser)
-> (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ()))
-> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ()))
-> IO (Ref Browser)
forall a.
Parent a WidgetBase =>
Rectangle
-> Maybe Text
-> Maybe (Ref a -> IO ())
-> Maybe (CustomWidgetFuncs a)
-> (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ()))
-> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ()))
-> IO (Ref a)
widgetMaker
Rectangle
rectangle
Maybe Text
l'
Maybe (Ref Browser -> IO ())
forall a. Maybe a
Nothing
Maybe (CustomWidgetFuncs Browser)
forall a. Maybe a
Nothing
Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())
overriddenBrowserNew'
Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())
overriddenBrowserNewWithLabel'
browserDestroy' :: (Ptr ()) -> IO ()
browserDestroy' :: Ptr () -> IO ()
browserDestroy' a1 :: Ptr ()
a1 =
let {a1' :: Ptr ()
a1' = Ptr () -> Ptr ()
forall a. a -> a
id Ptr ()
a1} in
Ptr () -> IO ()
browserDestroy''_ Ptr ()
a1' IO () -> IO () -> IO ()
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
{-# LINE 60 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (IO ())) => Op (Destroy ()) BrowserBase 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 65 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (Remove ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> remove' browserPtr line
add' :: (Ptr ()) -> (CString) -> IO ()
add' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
add''_ a1' a2' >>
return ()
{-# LINE 68 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (T.Text -> IO ())) => Op (Add ()) BrowserBase orig impl where
runOp _ _ browser newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= add' browserPtr
insert' :: (Ptr ()) -> (Int) -> (CString) -> IO ()
insert' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
(flip ($)) a3 $ \a3' ->
insert''_ a1' a2' a3' >>
return ()
{-# LINE 71 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> T.Text -> IO ())) => Op (Insert ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= insert' browserPtr line
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 74 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> LineNumber -> IO ())) => Op (Move ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber to) (LineNumber from) = withRef browser $ \browserPtr -> move' browserPtr to from
load' :: (Ptr ()) -> (CString) -> IO ((Int))
load' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
load''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 77 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (T.Text -> IO (Either UnknownError ()))) => Op (Load ()) BrowserBase orig impl where
runOp _ _ browser filename = do
res <- withRef browser $ \browserPtr -> withText filename (\f -> load' browserPtr f)
if (res == 0) then return (Left UnknownError) else return (Right ())
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 82 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> LineNumber -> IO ())) => Op (Swap ()) BrowserBase 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 85 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (Clear ()) BrowserBase 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')
topline' :: Ptr () -> IO Int
{-# LINE 88 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetSize ()) BrowserBase 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 91 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Size -> IO ())) => Op (SetSize ()) BrowserBase orig impl where
runOp _ _ browser (Size (Width w) (Height 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 94 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (LineNumber))) => Op (GetTopline ()) BrowserBase 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 97 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> LinePosition -> IO ())) => Op (Lineposition ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber 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 100 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetTopline ()) BrowserBase 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 103 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetBottomline ()) BrowserBase 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 106 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetMiddleline ()) BrowserBase 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 109 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> Bool -> IO (Either NoChange ()))) => Op (Select ()) BrowserBase 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 112 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Bool))) => Op (Selected ()) BrowserBase 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 ()
visible' :: Ptr () -> Int -> IO Bool
{-# LINE 115 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (ShowWidgetLine ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> showWithLine' browserPtr line
hideWithLine' :: (Ptr ()) -> (Int) -> IO ()
hideWithLine' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
hideWithLine''_ a1' a2' >>
return ()
{-# LINE 118 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (HideLine ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> hideWithLine' browserPtr line
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 121 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Bool))) => Op (Visible ()) BrowserBase 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 124 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (LineNumber))) => Op (GetValue ()) BrowserBase 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 ()
setText' :: Ptr () -> Int -> CString -> IO ()
{-# LINE 127 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (SetValue ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setValue' browserPtr line
text' :: (Ptr ()) -> (Int) -> IO ((CString))
text' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
text''_ a1' a2' >>= \res ->
return res >>= \res' ->
return (res')
{-# LINE 130 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO T.Text)) => Op (GetText ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> text' browserPtr line >>= cStringToText
setText' :: (Ptr ()) -> (Int) -> (CString) -> IO ()
setText' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
(flip ($)) a3 $ \a3' ->
setText''_ a1' a2' a3' >>
return ()
{-# LINE 133 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> T.Text -> IO ())) => Op (SetText ()) BrowserBase orig impl where
runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= setText' browserPtr line
formatChar' :: (Ptr ()) -> IO ((CChar))
formatChar' a1 =
let {a1' = id a1} in
formatChar''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 136 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Char))) => Op (GetFormatChar ()) BrowserBase 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 139 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Char -> IO ())) => Op (SetFormatChar ()) BrowserBase 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 142 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Char))) => Op (GetColumnChar ()) BrowserBase 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 145 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Char -> IO ())) => Op (SetColumnChar ()) BrowserBase 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 148 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO [Int])) => Op (GetColumnWidths ()) BrowserBase 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' :: Ptr () -> Ptr CInt -> IO ()
setColumnWidths' a1 :: Ptr ()
a1 a2 :: Ptr CInt
a2 =
let {a1' :: Ptr ()
a1' = Ptr () -> Ptr ()
forall a. a -> a
id Ptr ()
a1} in
let {a2' :: Ptr CInt
a2' = Ptr CInt -> Ptr CInt
forall a. a -> a
id Ptr CInt
a2} in
Ptr () -> Ptr CInt -> IO ()
setColumnWidths''_ Ptr ()
a1' Ptr CInt
a2' IO () -> IO () -> IO ()
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
{-# LINE 162 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ([Int] -> IO ())) => Op (SetColumnWidths ()) BrowserBase 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 168 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Bool))) => Op (Displayed ()) BrowserBase 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 171 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (MakeVisible ()) BrowserBase 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 174 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> Ref Image -> IO ())) => Op (SetIcon ()) BrowserBase 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 177 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO (Maybe (Ref Image)))) => Op (GetIcon ()) BrowserBase 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 180 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (LineNumber -> IO ())) => Op (RemoveIcon ()) BrowserBase 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 183 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Either NoChange ()))) => Op (Deselect ()) BrowserBase 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 186 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (IO (Either NoChange ()))) => Op (DeselectAndCallback ()) BrowserBase 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 189 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (PixelPosition))) => Op (GetPosition ()) BrowserBase 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 192 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (PixelPosition -> IO ())) => Op (SetPosition ()) BrowserBase 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 195 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (PixelPosition))) => Op (GetHposition ()) BrowserBase 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 198 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (PixelPosition -> IO ())) => Op (SetHposition ()) BrowserBase 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 201 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (ScrollbarMode))) => Op (GetHasScrollbar ()) BrowserBase 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 204 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (ScrollbarMode -> IO ())) => Op (SetHasScrollbar ()) BrowserBase 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 207 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) BrowserBase 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 210 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Font -> IO ())) => Op (SetTextfont ()) BrowserBase 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 213 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) BrowserBase 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 216 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (FontSize -> IO ())) => Op (SetTextsize ()) BrowserBase 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 219 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) BrowserBase 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 222 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Color -> IO ())) => Op (SetTextcolor ()) BrowserBase orig impl where
runOp _ _ browser col = withRef browser $ \browserPtr -> setTextcolor' browserPtr col
setScrollbarColor' :: (Ptr ()) -> (Color) -> IO ()
setScrollbarColor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setScrollbarColor''_ a1' a2' >>
return ()
{-# LINE 225 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Color -> IO ())) => Op (SetScrollbarColor ()) BrowserBase orig impl where
runOp _ _ browser col = withRef browser $ \browserPtr -> setScrollbarColor' browserPtr col
setScrollbarSelectionColor' :: (Ptr ()) -> (Color) -> IO ()
setScrollbarSelectionColor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setScrollbarSelectionColor''_ a1' a2' >>
return ()
{-# LINE 228 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Color -> IO ())) => Op (SetScrollbarSelectionColor ()) BrowserBase orig impl where
runOp _ _ browser col = withRef browser $ \browserPtr -> setScrollbarSelectionColor' browserPtr col
scrollbarSize' :: (Ptr ()) -> IO ((Int))
scrollbarSize' a1 =
let {a1' = id a1} in
scrollbarSize''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 231 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetScrollbarSize ()) BrowserBase 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 234 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Int -> IO ())) => Op (SetScrollbarSize ()) BrowserBase 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 237 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO (Int))) => Op (GetScrollbarWidth ()) BrowserBase 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 240 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Int -> IO ())) => Op (SetScrollbarWidth ()) BrowserBase 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 243 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (SortType -> IO ())) => Op (SortWithSortType ()) BrowserBase 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 246 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ IO ()) => Op (Sort ()) BrowserBase 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 249 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (BrowserType -> IO ())) => Op (SetType ()) BrowserBase 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 252 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ IO (BrowserType)) => Op (GetType_ ()) BrowserBase orig impl where
runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger
draw'' :: (Ptr ()) -> IO ()
draw'' a1 =
let {a1' = id a1} in
draw'''_ a1' >>
return ()
{-# LINE 256 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (Draw ()) BrowserBase orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> draw'' browserPtr
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 259 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) BrowserBase orig impl where
runOp _ _ browser event = withRef browser (\p -> browserHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent
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' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 262 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) BrowserBase orig impl where
runOp _ _ browser rectangle = withRef browser $ \browserPtr -> do
let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle
resize' browserPtr x_pos y_pos w_pos h_pos
hide' :: (Ptr ()) -> IO ()
hide' a1 =
let {a1' = id a1} in
hide''_ a1' >>
return ()
{-# LINE 267 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (Hide ()) BrowserBase orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> hide' browserPtr
show' :: (Ptr ()) -> IO ()
show' a1 =
let {a1' = id a1} in
show''_ a1' >>
return ()
{-# LINE 270 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
instance (impl ~ ( IO ())) => Op (ShowWidget ()) BrowserBase orig impl where
runOp _ _ browser = withRef browser $ \browserPtr -> show' browserPtr
handleSuper' :: (Ptr ()) -> (CInt) -> IO ((Int))
handleSuper' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
handleSuper''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 274 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
handleBrowserBase :: Ref BrowserBase -> Event -> IO (Either UnknownEvent ())
handleBrowserBase browser event = withRef browser (\p -> handleSuper' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent
drawSuper' :: (Ptr ()) -> IO ()
drawSuper' a1 =
let {a1' = id a1} in
drawSuper''_ a1' >>
return ()
{-# LINE 277 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
drawBrowserBase :: Ref BrowserBase -> IO ()
drawBrowserBase browser = withRef browser (\p -> drawSuper' p)
hideSuper' :: (Ptr ()) -> IO ()
hideSuper' a1 =
let {a1' = id a1} in
hideSuper''_ a1' >>
return ()
{-# LINE 280 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
hideBrowserBase :: Ref BrowserBase -> IO ()
hideBrowserBase browser = withRef browser (\p -> hideSuper' p)
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' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 283 "src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs" #-}
resizeBrowserBase :: Ref BrowserBase -> Rectangle -> IO ()
resizeBrowserBase browser rectangle =
let (x_pos, y_pos, width, height) = fromRectangle rectangle
in withRef browser $ \browserPtr -> resizeSuper' browserPtr x_pos y_pos width height
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/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/Base/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/Base/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/Base/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/Base/Browser.chs.h Fl_Browser_Destroy"
browserDestroy''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_remove"
remove''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_add"
add''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_insert"
insert''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_move"
move''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_load"
load''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_swap"
swap''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_clear"
clear''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_size"
size''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_size"
setSize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_topline"
topline''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_lineposition"
lineposition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_topline"
setTopline''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_bottomline"
bottomline''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_middleline"
middleline''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/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/Base/Browser.chs.h Fl_Browser_selected"
selected''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_show_with_line"
showWithLine''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_hide_with_line"
hideWithLine''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_visible"
visible''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_value"
value''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_value"
setValue''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_text"
text''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/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/Base/Browser.chs.h Fl_Browser_format_char"
formatChar''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_format_char"
setFormatChar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_column_char"
columnChar''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_column_char"
setColumnChar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_column_widths"
columnWidths''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_column_widths"
setColumnWidths''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_displayed"
displayed''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_make_visible"
makeVisible''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_icon"
setIcon''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_icon"
icon''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_remove_icon"
removeIcon''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_deselect"
deselect''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_deselect_with_docallbacks"
deselectWithDocallbacks''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_position"
position''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_position"
setPosition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_hposition"
hposition''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_hposition"
setHposition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_has_scrollbar"
hasScrollbar''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_has_scrollbar"
setHasScrollbar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_textfont"
textfont''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_textfont"
setTextfont''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_textsize"
textsize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_textsize"
setTextsize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_textcolor"
textcolor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_textcolor"
setTextcolor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_scrollbar_color"
setScrollbarColor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_scrollbar_selection_color"
setScrollbarSelectionColor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_scrollbar_size"
scrollbarSize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_scrollbar_size"
setScrollbarSize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_scrollbar_width"
scrollbarWidth''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_set_scrollbar_width"
setScrollbarWidth''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_sort_with_flags"
sortWithFlags''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_sort"
sort''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Widget_set_type"
setType''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Widget_type"
type''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUChar))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_draw"
draw'''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_handle"
browserHandle''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_resize"
resize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_hide"
hide''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_show"
show''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_handle_super"
handleSuper''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_draw_super"
drawSuper''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_hide_super"
hideSuper''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Base/Browser.chs.h Fl_Browser_resize_super"
resizeSuper''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))