{-# LINE 1 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Graphics.UI.FLTK.LowLevel.TextBuffer
(
textBufferNew
)
where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Marshal.Utils as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)
import Graphics.UI.FLTK.LowLevel.Fl_Types
import Graphics.UI.FLTK.LowLevel.Utils
import Graphics.UI.FLTK.LowLevel.Base.Widget(defaultDestroyCallbacks)
import Graphics.UI.FLTK.LowLevel.Hierarchy
import Graphics.UI.FLTK.LowLevel.Dispatch
import qualified Data.Text as T
new' :: (FunPtr DestroyCallbacksPrim) -> IO ((Ptr ()))
new' a1 =
let {a1' = id a1} in
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
new''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 26 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
newRequestedSize' :: (Int) -> (FunPtr DestroyCallbacksPrim) -> IO ((Ptr ()))
newRequestedSize' a1 a2 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
newRequestedSize''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 27 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
newPreferredGapSize' :: (Int) -> (FunPtr DestroyCallbacksPrim) -> IO ((Ptr ()))
newPreferredGapSize' a1 a2 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
newPreferredGapSize''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 28 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
newRequestedSizePreferredGapSize' :: (Int) -> (Int) -> (FunPtr DestroyCallbacksPrim) -> IO ((Ptr ()))
newRequestedSizePreferredGapSize' a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = id a3} in
newRequestedSizePreferredGapSize''_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 29 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
textBufferNew :: Maybe PreferredSize -> Maybe GapSize -> IO (Ref TextBuffer)
textBufferNew req' pref' = do
destroyFptr <- toDestroyCallbacksPrim (defaultDestroyCallbacks :: (Ref TextBuffer -> [Maybe (FunPtr (IO ()))] -> IO ()))
case (req',pref') of
(Just (PreferredSize r'), Just (GapSize p')) -> newRequestedSizePreferredGapSize' r' p' destroyFptr >>= toRef
(Just (PreferredSize r'), Nothing) -> newRequestedSize' r' destroyFptr >>= toRef
(Nothing, Just (GapSize p')) -> newPreferredGapSize' p' destroyFptr >>= toRef
(Nothing, Nothing) -> new' destroyFptr >>= toRef
textbufferDestroy' :: (Ptr ()) -> IO ((()))
textbufferDestroy' :: Ptr () -> IO ()
textbufferDestroy' a1 =
let {a1' = id a1} in
textbufferDestroy''_ a1' >>= \res ->
let {res' = () -> ()
forall a. a -> ()
supressWarningAboutRes ()
res} in
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return (()
res')
{-# LINE 40 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance (impl ~ (IO ())) => Op (Destroy ()) TextBuffer orig impl where
runOp _ _ textBuffer' = swapRef textBuffer' $ \textBuffer'Ptr -> do
textbufferDestroy' textBuffer'Ptr
return nullPtr
inputFileWasTranscoded' :: (Ptr ()) -> IO ((Bool))
inputFileWasTranscoded' a1 =
let {a1' = id a1} in
inputFileWasTranscoded''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 45 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Bool))) => Op (InputFileWasTranscoded ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> inputFileWasTranscoded' text_bufferPtr
fileEncodingWarningMessage' :: (Ptr ()) -> IO ((CString))
fileEncodingWarningMessage' a1 =
let {a1' = id a1} in
fileEncodingWarningMessage''_ a1' >>= \res ->
return res >>= \res' ->
return (res')
{-# LINE 48 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO T.Text)) => Op (FileEncodingWarningMessage ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> fileEncodingWarningMessage' text_bufferPtr >>= cStringToText
length' :: (Ptr ()) -> IO ((Int))
length' a1 =
let {a1' = id a1} in
length''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
setText' :: Ptr () -> CString -> IO ()
{-# LINE 51 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Int))) => Op (GetLength ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> length' text_bufferPtr
text' :: (Ptr ()) -> IO ((CString))
text' a1 =
let {a1' = id a1} in
text''_ a1' >>= \res ->
return res >>= \res' ->
return (res')
instance ( impl ~ ( IO T.Text)) => Op (GetText ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> text' text_bufferPtr >>= cStringToText
setText' :: (Ptr ()) -> (CString) -> IO ()
setText' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
setText''_ a1' a2' >>
return ()
{-# LINE 57 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO ())) => Op (SetText ()) TextBuffer orig impl where
runOp _ _ text_buffer text = withRef text_buffer $ \text_bufferPtr -> copyTextToCString text >>= setText' text_bufferPtr
textRange' :: (Ptr ()) -> (Int) -> (Int) -> IO ((CString))
textRange' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
textRange''_ a1' a2' a3' >>= \res ->
return res >>= \res' ->
return (res')
{-# LINE 60 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IndexRange -> IO T.Text)) => Op (TextRange ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex start') (AtIndex end')) = withRef text_buffer $ \text_bufferPtr -> textRange' text_bufferPtr start' end' >>= cStringToText
charAt' :: (Ptr ()) -> (Int) -> IO ((Int))
charAt' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
charAt''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 63 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( AtIndex -> IO (Char))) => Op (CharAt ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex pos) = withRef text_buffer $ \text_bufferPtr -> charAt' text_bufferPtr pos >>= return . toEnum
byteAt' :: (Ptr ()) -> (Int) -> IO ((Char))
byteAt' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
byteAt''_ a1' a2' >>= \res ->
let {res' = castCCharToChar res} in
return (res')
{-# LINE 66 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( AtIndex -> IO Char)) => Op (ByteAt ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex pos) = withRef text_buffer $ \text_bufferPtr -> byteAt' text_bufferPtr pos
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 69 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( AtIndex -> T.Text -> IO ())) => Op (Insert ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex pos) text = withRef text_buffer $ \text_bufferPtr -> copyTextToCString text >>= insert' text_bufferPtr pos
append' :: (Ptr ()) -> (CString) -> IO ()
append' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
append''_ a1' a2' >>
return ()
replace' :: Ptr () -> Int -> Int -> CString -> IO ()
{-# LINE 72 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO ())) => Op (AppendToBuffer ()) TextBuffer orig impl where
runOp _ _ text_buffer t = withRef text_buffer $ \text_bufferPtr -> copyTextToCString t >>= append' text_bufferPtr
remove' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
remove' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
remove''_ a1' a2' a3' >>
return ()
{-# LINE 75 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IndexRange -> IO ())) => Op (Remove ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex start') (AtIndex end')) = withRef text_buffer $ \text_bufferPtr -> remove' text_bufferPtr start' end'
replace' :: (Ptr ()) -> (Int) -> (Int) -> (CString) -> IO ()
replace' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
(flip ($)) a4 $ \a4' ->
replace''_ a1' a2' a3' a4' >>
return ()
{-# LINE 78 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IndexRange -> T.Text -> IO ())) => Op (Replace ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex start') (AtIndex end')) text = withRef text_buffer $ \text_bufferPtr -> copyTextToCString text >>= replace' text_bufferPtr start' end'
copy' :: (Ptr ()) -> (Ptr ()) -> (Int) -> (Int) -> (Int) -> IO ()
copy' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
copy''_ a1' a2' a3' a4' a5' >>
return ()
{-# LINE 81 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( Parent a TextBuffer, impl ~ ( Ref a -> IndexRange -> AtIndex -> IO ())) => Op (Copy ()) TextBuffer orig impl where
runOp _ _ text_buffer frombuf (IndexRange (AtIndex fromstart) (AtIndex fromend)) (AtIndex topos) = withRef text_buffer $ \text_bufferPtr -> withRef frombuf $ \frombufPtr -> copy' text_bufferPtr frombufPtr fromstart fromend topos
undo' :: (Ptr ()) -> (Ptr CInt) -> IO ((Int))
undo' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
undo''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 84 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Either NoChange AtIndex))) => Op (Undo ()) TextBuffer orig impl where
runOp _ _ text_buffer =
withRef text_buffer $ \text_bufferPtr ->
alloca $ \prevAtIndexPtr ->
undo' text_bufferPtr prevAtIndexPtr >>= \status' ->
if (status' == 0)
then return (Left NoChange)
else peekIntConv prevAtIndexPtr >>= return . Right . AtIndex
canUndoWithFlag' :: (Ptr ()) -> (Bool) -> IO ()
canUndoWithFlag' :: Ptr () -> Bool -> IO ()
canUndoWithFlag' a1 :: Ptr ()
a1 a2 :: Bool
a2 =
let {a1' = id a1} in
let {a2' :: CChar
a2' = Bool -> CChar
forall a. (Eq a, Num a) => Bool -> a
cFromBool Bool
a2} in
Ptr () -> CChar -> IO ()
canUndoWithFlag''_ Ptr ()
a1' CChar
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 93 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (Bool -> IO ())) => Op (CanUndo ()) TextBuffer orig impl where
runOp _ _ text_buffer flag = withRef text_buffer $ \text_bufferPtr -> canUndoWithFlag' text_bufferPtr flag
insertfile' :: (Ptr ()) -> (CString) -> (Int) -> IO ((Int))
insertfile' a1 a2 a3 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
insertfile''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 97 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> AtIndex -> IO (Either DataProcessingError ()))) => Op (Insertfile ()) TextBuffer orig impl where
runOp _ _ text_buffer file (AtIndex pos) =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> insertfile' text_bufferPtr fs pos) >>= return . successOrDataProcessingError
insertfileWithBuflen' :: (Ptr ()) -> (CString) -> (Int) -> (Int) -> IO ((Int))
insertfileWithBuflen' a1 a2 a3 a4 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
insertfileWithBuflen''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 102 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> AtIndex -> Int -> IO (Either DataProcessingError ()))) => Op (InsertfileWithBuflen ()) TextBuffer orig impl where
runOp _ _ text_buffer file (AtIndex pos) buflen =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> insertfileWithBuflen' text_bufferPtr fs pos buflen) >>= return . successOrDataProcessingError
appendfile' :: (Ptr ()) -> (CString) -> IO ((Int))
appendfile' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
appendfile''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 107 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO (Either DataProcessingError ()))) => Op (Appendfile ()) TextBuffer orig impl where
runOp _ _ text_buffer file =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> appendfile' text_bufferPtr fs) >>= return . successOrDataProcessingError
appendfileWithBuflen' :: (Ptr ()) -> (CString) -> (Int) -> IO ((Int))
appendfileWithBuflen' a1 a2 a3 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
appendfileWithBuflen''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 112 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> Int -> IO (Either DataProcessingError ()))) => Op (AppendfileWithBuflen ()) TextBuffer orig impl where
runOp _ _ text_buffer file buflen =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> appendfileWithBuflen' text_bufferPtr fs buflen) >>= return . successOrDataProcessingError
loadfile' :: (Ptr ()) -> (CString) -> IO ((Int))
loadfile' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
loadfile''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 117 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO (Either DataProcessingError ()))) => Op (Loadfile ()) TextBuffer orig impl where
runOp _ _ text_buffer file =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> loadfile' text_bufferPtr fs) >>= return . successOrDataProcessingError
loadfileWithBuflen' :: (Ptr ()) -> (CString) -> (Int) -> IO ((Int))
loadfileWithBuflen' a1 a2 a3 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
loadfileWithBuflen''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 122 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> Int -> IO (Either DataProcessingError ()))) => Op (LoadfileWithBuflen ()) TextBuffer orig impl where
runOp _ _ text_buffer file buflen =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> loadfileWithBuflen' text_bufferPtr fs buflen) >>= return . successOrDataProcessingError
outputfile' :: (Ptr ()) -> (CString) -> (Int) -> (Int) -> IO ((Int))
outputfile' a1 a2 a3 a4 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
outputfile''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 127 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IndexRange -> IO (Either DataProcessingError ()))) => Op (Outputfile ()) TextBuffer orig impl where
runOp _ _ text_buffer file (IndexRange (AtIndex start') (AtIndex end')) =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> outputfile' text_bufferPtr fs start' end') >>= return . successOrDataProcessingError
outputfileWithBuflen' :: (Ptr ()) -> (CString) -> (Int) -> (Int) -> (Int) -> IO ((Int))
outputfileWithBuflen' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
outputfileWithBuflen''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 132 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IndexRange -> Int -> IO (Either DataProcessingError ()))) => Op (OutputfileWithBuflen ()) TextBuffer orig impl where
runOp _ _ text_buffer file (IndexRange (AtIndex start') (AtIndex end')) buflen =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> outputfileWithBuflen' text_bufferPtr fs start' end' buflen) >>= return . successOrDataProcessingError
savefile' :: (Ptr ()) -> (CString) -> IO ((Int))
savefile' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
savefile''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 137 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO (Either DataProcessingError ()))) => Op (Savefile ()) TextBuffer orig impl where
runOp _ _ text_buffer file =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> savefile' text_bufferPtr fs) >>= return . successOrDataProcessingError
savefileWithBuflen' :: (Ptr ()) -> (CString) -> (Int) -> IO ((Int))
savefileWithBuflen' a1 a2 a3 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
let {a3' = fromIntegral a3} in
savefileWithBuflen''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 142 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> Int -> IO (Either DataProcessingError ()))) => Op (SavefileWithBuflen ()) TextBuffer orig impl where
runOp _ _ text_buffer file buflen =
withRef text_buffer $ \text_bufferPtr -> do
withText file (\fs -> savefileWithBuflen' text_bufferPtr fs buflen) >>= return . successOrDataProcessingError
tabDistance' :: (Ptr ()) -> IO ((Int))
tabDistance' a1 =
let {a1' = id a1} in
tabDistance''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 147 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Int))) => Op (GetTabDistance ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> tabDistance' text_bufferPtr
setTabDistance' :: (Ptr ()) -> (Int) -> IO ()
setTabDistance' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setTabDistance''_ a1' a2' >>
return ()
{-# LINE 150 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( Int -> IO ())) => Op (SetTabDistance ()) TextBuffer orig impl where
runOp _ _ text_buffer tabdist = withRef text_buffer $ \text_bufferPtr -> setTabDistance' text_bufferPtr tabdist
select' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
select' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
select''_ a1' a2' a3' >>
return ()
{-# LINE 153 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IndexRange -> IO ())) => Op (Select ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex start') (AtIndex end')) = withRef text_buffer $ \text_bufferPtr -> select' text_bufferPtr start' end'
selected' :: (Ptr ()) -> IO ((Bool))
selected' a1 =
let {a1' = id a1} in
selected''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 156 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Bool))) => Op (Selected ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> selected' text_bufferPtr
unselect' :: (Ptr ()) -> IO ()
unselect' a1 =
let {a1' = id a1} in
unselect''_ a1' >>
return ()
{-# LINE 159 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (Unselect ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> unselect' text_bufferPtr
selectionPosition' :: (Ptr ()) -> IO ((Int), (Int))
selectionPosition' a1 =
let {a1' = id a1} in
alloca $ \a2' ->
alloca $ \a3' ->
selectionPosition''_ a1' a2' a3' >>
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
return (a2'', a3'')
{-# LINE 162 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ IO (IndexRange)) => Op (SelectionPosition ()) TextBuffer orig impl where
runOp _ _ text_buffer =
withRef text_buffer $ \text_bufferPtr ->
selectionPosition' text_bufferPtr >>= \(start',end') ->
return (IndexRange (AtIndex start') (AtIndex end'))
selectionText' :: (Ptr ()) -> IO ((CString))
selectionText' a1 =
let {a1' = id a1} in
selectionText''_ a1' >>= \res ->
return res >>= \res' ->
return (res')
{-# LINE 168 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO T.Text)) => Op (SelectionText ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> selectionText' text_bufferPtr >>= cStringToText
removeSelection' :: (Ptr ()) -> IO ()
removeSelection' a1 =
let {a1' = id a1} in
removeSelection''_ a1' >>
return ()
{-# LINE 171 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (RemoveSelection ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> removeSelection' text_bufferPtr
replaceSelection' :: (Ptr ()) -> (CString) -> IO ()
replaceSelection' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
replaceSelection''_ a1' a2' >>
return ()
{-# LINE 174 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO ())) => Op (ReplaceSelection ()) TextBuffer orig impl where
runOp _ _ text_buffer text = withRef text_buffer $ \text_bufferPtr -> copyTextToCString text >>= replaceSelection' text_bufferPtr
secondarySelect' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
secondarySelect' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
secondarySelect''_ a1' a2' a3' >>
return ()
{-# LINE 177 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IndexRange -> IO ())) => Op (SecondarySelect ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex start') (AtIndex end')) = withRef text_buffer $ \text_bufferPtr -> secondarySelect' text_bufferPtr start' end'
secondarySelected' :: (Ptr ()) -> IO ((Bool))
secondarySelected' a1 =
let {a1' = id a1} in
secondarySelected''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 180 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Bool))) => Op (SecondarySelected ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> secondarySelected' text_bufferPtr
setSecondaryUnselect' :: (Ptr ()) -> IO ()
setSecondaryUnselect' a1 =
let {a1' = id a1} in
setSecondaryUnselect''_ a1' >>
return ()
{-# LINE 183 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (SecondaryUnselect ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> setSecondaryUnselect' text_bufferPtr
secondarySelectionPosition' :: (Ptr ()) -> IO ((Int), (Int))
secondarySelectionPosition' a1 =
let {a1' = id a1} in
alloca $ \a2' ->
alloca $ \a3' ->
secondarySelectionPosition''_ a1' a2' a3' >>
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
return (a2'', a3'')
{-# LINE 186 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ IO IndexRange) => Op (SecondarySelectionPosition ()) TextBuffer orig impl where
runOp _ _ text_buffer =
withRef text_buffer $ \text_bufferPtr ->
secondarySelectionPosition' text_bufferPtr >>= \(start',end') ->
return (IndexRange (AtIndex start') (AtIndex end'))
secondarySelectionText' :: (Ptr ()) -> IO ((CString))
secondarySelectionText' a1 =
let {a1' = id a1} in
secondarySelectionText''_ a1' >>= \res ->
return res >>= \res' ->
return (res')
{-# LINE 192 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO T.Text)) => Op (SecondarySelectionText ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> secondarySelectionText' text_bufferPtr >>= cStringToText
removeSecondarySelection' :: (Ptr ()) -> IO ()
removeSecondarySelection' a1 =
let {a1' = id a1} in
removeSecondarySelection''_ a1' >>
return ()
{-# LINE 195 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (RemoveSecondarySelection ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> removeSecondarySelection' text_bufferPtr
replaceSecondarySelection' :: (Ptr ()) -> (CString) -> IO ()
replaceSecondarySelection' a1 a2 =
let {a1' = id a1} in
(flip ($)) a2 $ \a2' ->
replaceSecondarySelection''_ a1' a2' >>
return ()
{-# LINE 198 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( T.Text -> IO ())) => Op (ReplaceSecondarySelection ()) TextBuffer orig impl where
runOp _ _ text_buffer text = withRef text_buffer $ \text_bufferPtr -> copyTextToCString text >>= replaceSecondarySelection' text_bufferPtr
setHighlight' :: (Ptr ()) -> (Int) -> (Int) -> IO ()
setHighlight' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
setHighlight''_ a1' a2' a3' >>
return ()
{-# LINE 201 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IndexRange -> IO ())) => Op (SetHighlight ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex start') (AtIndex end')) = withRef text_buffer $ \text_bufferPtr -> setHighlight' text_bufferPtr start' end'
highlight' :: (Ptr ()) -> IO ((Bool))
highlight' a1 =
let {a1' = id a1} in
highlight''_ a1' >>= \res ->
let {res' = C2HSImp.toBool res} in
return (res')
{-# LINE 204 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Bool))) => Op (GetHighlight ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> highlight' text_bufferPtr
unhighlight' :: (Ptr ()) -> IO ()
unhighlight' a1 =
let {a1' = id a1} in
unhighlight''_ a1' >>
return ()
{-# LINE 207 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (Unhighlight ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> unhighlight' text_bufferPtr
highlightPosition' :: (Ptr ()) -> (Ptr CInt) -> (Ptr CInt) -> IO ((Int))
highlightPosition' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
highlightPosition''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 210 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ IO (Maybe IndexRange)) => Op (HighlightPosition ()) TextBuffer orig impl where
runOp _ _ text_buffer =
withRef text_buffer $ \text_bufferPtr ->
statusToIndexRange (highlightPosition' text_bufferPtr)
highlightText' :: (Ptr ()) -> IO ((CString))
highlightText' a1 =
let {a1' = id a1} in
highlightText''_ a1' >>= \res ->
return res >>= \res' ->
return (res')
{-# LINE 215 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO T.Text)) => Op (HighlightText ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> highlightText' text_bufferPtr >>= cStringToText
addModifyCallback' :: (Ptr ()) -> (FunPtr TextModifyCbPrim) -> (Ptr ()) -> IO ()
addModifyCallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
addModifyCallback''_ a1' a2' a3' >>
return ()
{-# LINE 218 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance (impl ~ (TextModifyCb -> IO (FunPtr ()))) => Op (AddModifyCallback ()) TextBuffer orig impl where
runOp _ _ text_buffer bufmodifiedcb =
withRef text_buffer $ \text_bufferPtr -> do
funPtr' <- toTextModifyCbPrim bufmodifiedcb
addModifyCallback' text_bufferPtr funPtr' nullPtr
return (castFunPtr funPtr')
removeModifyCallback' :: (Ptr ()) -> (FunPtr TextModifyCbPrim) -> (Ptr ()) -> IO ()
removeModifyCallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
removeModifyCallback''_ a1' a2' a3' >>
return ()
{-# LINE 225 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (FunPtr () -> IO ())) => Op (RemoveModifyCallback ()) TextBuffer orig impl where
runOp _ _ text_buffer bufmodifiedcb =
withRef text_buffer $ \text_bufferPtr ->
removeModifyCallback' text_bufferPtr (castFunPtr bufmodifiedcb) nullPtr
callModifyCallbacks' :: (Ptr ()) -> IO ()
callModifyCallbacks' a1 =
let {a1' = id a1} in
callModifyCallbacks''_ a1' >>
return ()
{-# LINE 230 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (CallModifyCallbacks ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> callModifyCallbacks' text_bufferPtr
addPredeleteCallback' :: (Ptr ()) -> (FunPtr TextPredeleteCbPrim) -> (Ptr ()) -> IO ()
addPredeleteCallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
addPredeleteCallback''_ a1' a2' a3' >>
return ()
{-# LINE 233 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( TextPredeleteCb -> IO (FunPtr ()))) => Op (AddPredeleteCallback ()) TextBuffer orig impl where
runOp _ _ text_buffer bufpredelcb =
withRef text_buffer $ \text_bufferPtr -> do
funPtr' <- toTextPredeleteCbPrim bufpredelcb
addPredeleteCallback' text_bufferPtr funPtr' nullPtr
return (castFunPtr funPtr')
removePredeleteCallback' :: (Ptr ()) -> (FunPtr TextPredeleteCbPrim) -> (Ptr ()) -> IO ()
removePredeleteCallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
removePredeleteCallback''_ a1' a2' a3' >>
return ()
{-# LINE 240 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (FunPtr () -> IO ())) => Op (RemovePredeleteCallback ()) TextBuffer orig impl where
runOp _ _ text_buffer predelcb =
withRef text_buffer $ \text_bufferPtr ->
removePredeleteCallback' text_bufferPtr (castFunPtr predelcb) nullPtr
callPredeleteCallbacks' :: (Ptr ()) -> IO ()
callPredeleteCallbacks' a1 =
let {a1' = id a1} in
callPredeleteCallbacks''_ a1' >>
return ()
{-# LINE 245 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO ())) => Op (CallPredeleteCallbacks ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> callPredeleteCallbacks' text_bufferPtr
lineText' :: (Ptr ()) -> (Int) -> IO ((Ptr CChar))
lineText' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
lineText''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 248 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( LineNumber -> IO (Either OutOfRange String))) => Op (LineText ()) TextBuffer orig impl where
runOp _ _ text_buffer (LineNumber pos) =
withRef text_buffer $ \text_bufferPtr -> do
r <- lineText' text_bufferPtr pos
successOrOutOfRange r (r == nullPtr) peekCString
lineStart' :: (Ptr ()) -> (Int) -> IO ((Int))
lineStart' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
lineStart''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 254 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( LineNumber -> IO (Either OutOfRange AtIndex))) => Op (LineStart ()) TextBuffer orig impl where
runOp _ _ text_buffer (LineNumber pos) =
withRef text_buffer $ \text_bufferPtr -> do
bp <- lineStart' text_bufferPtr pos
successOrOutOfRange bp (bp == 0) (return . AtIndex)
lineEnd' :: (Ptr ()) -> (Int) -> IO ((Int))
lineEnd' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
lineEnd''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 260 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( LineNumber -> IO (Either OutOfRange AtIndex))) => Op (LineEnd ()) TextBuffer orig impl where
runOp _ _ text_buffer (LineNumber pos) =
withRef text_buffer $ \text_bufferPtr -> do
bp <- lineEnd' text_bufferPtr pos
successOrOutOfRange bp (bp == 0) (return . AtIndex)
wordStart' :: (Ptr ()) -> (Int) -> IO ((Int))
wordStart' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
wordStart''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 266 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> IO (Either OutOfRange AtIndex))) => Op (WordStart ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex pos) = withRef text_buffer $ \text_bufferPtr -> do
bp <- wordStart' text_bufferPtr pos
successOrOutOfRange bp (bp == 0) (return . AtIndex)
wordEnd' :: (Ptr ()) -> (Int) -> IO ((Int))
wordEnd' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
wordEnd''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 271 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> IO (Either OutOfRange AtIndex))) => Op (WordEnd ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex pos) = withRef text_buffer $ \text_bufferPtr -> do
bp <- wordEnd' text_bufferPtr pos
successOrOutOfRange bp (bp == 0) (return . AtIndex)
countDisplayedCharacters' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Int))
countDisplayedCharacters' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
countDisplayedCharacters''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 276 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (IndexRange -> IO (Int))) => Op (CountDisplayedCharacters ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex linestartpos) (AtIndex targetpos)) = withRef text_buffer $ \text_bufferPtr -> countDisplayedCharacters' text_bufferPtr linestartpos targetpos
skipDisplayedCharacters' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Int))
skipDisplayedCharacters' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
skipDisplayedCharacters''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 279 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex-> Int -> IO (AtIndex))) => Op (SkipDisplayedCharacters ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex linestartpos) nchars =
withRef text_buffer $ \text_bufferPtr -> skipDisplayedCharacters' text_bufferPtr linestartpos nchars >>= return . AtIndex
countLines' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Int))
countLines' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
countLines''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 283 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (IndexRange -> IO (Lines))) => Op (CountLines ()) TextBuffer orig impl where
runOp _ _ text_buffer (IndexRange (AtIndex startpos)(AtIndex endpos)) = withRef text_buffer $ \text_bufferPtr -> countLines' text_bufferPtr startpos endpos >>= return . Lines
skipLines' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Int))
skipLines' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
skipLines''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 286 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> Lines -> IO (AtIndex))) => Op (SkipLines ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex startpos) (Lines nlines) = withRef text_buffer $ \text_bufferPtr -> skipLines' text_bufferPtr startpos nlines >>= return . AtIndex
rewindLines' :: (Ptr ()) -> (Int) -> (Int) -> IO ((Int))
rewindLines' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
rewindLines''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 289 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> Lines -> IO (AtIndex))) => Op (RewindLines ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex startpos) (Lines nlines) = withRef text_buffer $ \text_bufferPtr -> rewindLines' text_bufferPtr startpos nlines >>= return . AtIndex
findcharForward' :: (Ptr ()) -> (Int) -> (Int) -> (Ptr CInt) -> IO ((Int))
findcharForward' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
findcharForward''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 292 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> Char -> IO (Either NotFound AtIndex))) => Op (FindcharForward ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex startpos) searchchar =
withRef text_buffer $ \text_bufferPtr ->
alloca $ \intPtr -> do
status' <- findcharForward' text_bufferPtr startpos (fromIntegral $ castCharToCChar searchchar) intPtr
if (status' == 0)
then return (Left NotFound)
else peekIntConv intPtr >>= return . Right . AtIndex
findcharBackward' :: (Ptr ()) -> (Int) -> (Int) -> (Ptr CInt) -> IO ((Int))
findcharBackward' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
findcharBackward''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 301 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> Char -> IO (Either NotFound AtIndex))) => Op (FindcharBackward ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex startpos) searchchar =
withRef text_buffer $ \text_bufferPtr ->
alloca $ \intPtr -> do
status' <- findcharBackward' text_bufferPtr startpos (fromIntegral $ castCharToCChar searchchar) intPtr
if (status' == 0)
then return (Left NotFound)
else peekIntConv intPtr >>= return . Right . AtIndex
searchForwardWithMatchcase' :: (Ptr ()) -> (Int) -> (CString) -> (Ptr CInt) -> (Bool) -> IO ((Int))
searchForwardWithMatchcase' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
(flip ($)) a3 $ \a3' ->
let {a4' = id a4} in
let {a5' = cFromBool a5} in
searchForwardWithMatchcase''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 310 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> T.Text -> Bool -> IO (Either NotFound AtIndex))) => Op (SearchForwardWithMatchcase ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex startpos) searchstring matchcase =
withRef text_buffer $ \text_bufferPtr ->
alloca $ \intPtr -> do
status' <- withText searchstring (\s -> searchForwardWithMatchcase' text_bufferPtr startpos s intPtr matchcase)
if (status' == 0)
then return (Left NotFound)
else peekIntConv intPtr >>= return . Right . AtIndex
searchBackwardWithMatchcase' :: (Ptr ()) -> (Int) -> (CString) -> (Ptr CInt) -> (Bool) -> IO ((Int))
searchBackwardWithMatchcase' a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
(flip ($)) a3 $ \a3' ->
let {a4' = id a4} in
let {a5' = cFromBool a5} in
searchBackwardWithMatchcase''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 319 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> T.Text -> Bool -> IO (Either NotFound AtIndex))) => Op (SearchBackwardWithMatchcase ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex startpos) searchstring matchcase =
withRef text_buffer $ \text_bufferPtr ->
alloca $ \intPtr -> do
status' <- withText searchstring (\s -> searchBackwardWithMatchcase' text_bufferPtr startpos s intPtr matchcase)
if (status' == 0)
then return (Left NotFound)
else peekIntConv intPtr >>= return . Right . AtIndex
primarySelection' :: (Ptr ()) -> IO ((Ptr ()))
primarySelection' a1 =
let {a1' = id a1} in
primarySelection''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 328 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Maybe (Ref TextSelection)))) => Op (PrimarySelection ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> primarySelection' text_bufferPtr >>= toMaybeRef
secondarySelection' :: (Ptr ()) -> IO ((Ptr ()))
secondarySelection' a1 =
let {a1' = id a1} in
secondarySelection''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 331 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Maybe (Ref TextSelection)))) => Op (SecondarySelection ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> secondarySelection' text_bufferPtr >>= toMaybeRef
highlightSelection' :: (Ptr ()) -> IO ((Ptr ()))
highlightSelection' a1 =
let {a1' = id a1} in
highlightSelection''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 334 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( IO (Maybe (Ref TextSelection)))) => Op (HighlightSelection ()) TextBuffer orig impl where
runOp _ _ text_buffer = withRef text_buffer $ \text_bufferPtr -> highlightSelection' text_bufferPtr >>= toMaybeRef
prevChar' :: (Ptr ()) -> (Int) -> IO ((Int))
prevChar' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
prevChar''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 337 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ ( AtIndex -> IO (Either OutOfRange AtIndex))) => Op (PrevChar ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex ix) =
withRef text_buffer $ \text_bufferPtr -> do
p' <- prevChar' text_bufferPtr ix
successOrOutOfRange p' (p' == 0) (return . AtIndex)
prevCharClipped' :: (Ptr ()) -> (Int) -> IO ((Int))
prevCharClipped' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
prevCharClipped''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 343 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> IO (Either OutOfRange AtIndex))) => Op (PrevCharClipped ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex ix) =
withRef text_buffer $ \text_bufferPtr -> do
p' <- prevCharClipped' text_bufferPtr ix
successOrOutOfRange p' (p' == 0) (return . AtIndex)
nextChar' :: (Ptr ()) -> (Int) -> IO ((Int))
nextChar' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
nextChar''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 349 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> IO AtIndex)) => Op (NextChar ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex ix) = withRef text_buffer $ \text_bufferPtr -> nextChar' text_bufferPtr ix >>= return . AtIndex
nextCharClipped' :: (Ptr ()) -> (Int) -> IO ((Int))
nextCharClipped' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
nextCharClipped''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 352 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> IO (AtIndex))) => Op (NextCharClipped ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex ix) = withRef text_buffer $ \text_bufferPtr -> nextCharClipped' text_bufferPtr ix >>= return . AtIndex
utf8Align' :: (Ptr ()) -> (Int) -> IO ((Int))
utf8Align' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
utf8Align''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 355 "src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs" #-}
instance ( impl ~ (AtIndex -> IO (Either OutOfRange AtIndex))) => Op (Utf8Align ()) TextBuffer orig impl where
runOp _ _ text_buffer (AtIndex align) =
withRef text_buffer $ \text_bufferPtr -> do
p' <- utf8Align' text_bufferPtr align
successOrOutOfRange p' (p' == 0) (return . AtIndex)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_New"
new''_ :: ((C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_New_With_RequestedSize"
newRequestedSize''_ :: (C2HSImp.CInt -> ((C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))) -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_New_With_PreferredGapSize"
newPreferredGapSize''_ :: (C2HSImp.CInt -> ((C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))) -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize"
newRequestedSizePreferredGapSize''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))) -> (IO (C2HSImp.Ptr ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_Destroy"
textbufferDestroy''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_input_file_was_transcoded"
inputFileWasTranscoded''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_file_encoding_warning_message"
fileEncodingWarningMessage''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_length"
length''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_text"
text''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_set_text"
setText''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_text_range"
:: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_char_at"
charAt''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CUInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_byte_at"
byteAt''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_insert"
insert''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_append"
append''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_remove"
remove''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_replace"
replace''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_copy"
copy''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_undo_with_cp"
undo''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_canUndo_with_flag"
canUndoWithFlag''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CChar -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_insertfile"
insertfile''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_insertfile_with_buflen"
insertfileWithBuflen''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_appendfile"
appendfile''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_appendfile_with_buflen"
appendfileWithBuflen''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_loadfile"
loadfile''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_loadfile_with_buflen"
loadfileWithBuflen''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_outputfile"
outputfile''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_outputfile_with_buflen"
outputfileWithBuflen''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_savefile"
savefile''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_savefile_with_buflen"
savefileWithBuflen''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_tab_distance"
tabDistance''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_set_tab_distance"
setTabDistance''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_select"
select''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_selected"
selected''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_unselect"
unselect''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_selection_position"
selectionPosition''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_selection_text"
selectionText''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_remove_selection"
removeSelection''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_replace_selection"
replaceSelection''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_secondary_select"
secondarySelect''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_secondary_selected"
secondarySelected''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_set_secondary_unselect"
setSecondaryUnselect''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_secondary_selection_position"
secondarySelectionPosition''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_secondary_selection_text"
secondarySelectionText''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_remove_secondary_selection"
removeSecondarySelection''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_replace_secondary_selection"
replaceSecondarySelection''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_set_highlight"
setHighlight''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_highlight"
highlight''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_unhighlight"
unhighlight''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_highlight_position"
highlightPosition''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_highlight_text"
highlightText''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_add_modify_callback"
addModifyCallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.FunPtr (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr ()) -> (IO ())))))))) -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_remove_modify_callback"
removeModifyCallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.FunPtr (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr ()) -> (IO ())))))))) -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_call_modify_callbacks"
callModifyCallbacks''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_add_predelete_callback"
addPredeleteCallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.FunPtr (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO ()))))) -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_remove_predelete_callback"
removePredeleteCallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.FunPtr (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO ()))))) -> ((C2HSImp.Ptr ()) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_call_predelete_callbacks"
callPredeleteCallbacks''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_line_text"
lineText''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_line_start"
lineStart''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_line_end"
lineEnd''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_word_start"
wordStart''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_word_end"
wordEnd''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_count_displayed_characters"
countDisplayedCharacters''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_skip_displayed_characters"
skipDisplayedCharacters''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_count_lines"
countLines''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_skip_lines"
skipLines''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_rewind_lines"
rewindLines''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_findchar_forward"
findcharForward''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CUInt -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_findchar_backward"
findcharBackward''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CUInt -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_search_forward_with_matchcase"
searchForwardWithMatchcase''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_search_backward_with_matchcase"
searchBackwardWithMatchcase''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_primary_selection"
primarySelection''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_secondary_selection"
secondarySelection''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_highlight_selection"
highlightSelection''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_prev_char"
prevChar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_prev_char_clipped"
prevCharClipped''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_next_char"
nextChar''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_next_char_clipped"
nextCharClipped''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/TextBuffer.chs.h Fl_Text_Buffer_utf8_align"
utf8Align''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))