{-# LINE 1 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Graphics.UI.FLTK.LowLevel.Tree
(
treeNew
)
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.TreeItem
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
treeNew' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ((Ptr ()))
treeNew' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
treeNew''_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 27 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
treeNewWithLabel' :: (Int) -> (Int) -> (Int) -> (Int) -> (T.Text) -> IO ((Ptr ()))
treeNewWithLabel' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = unsafeToCString a5} in
treeNewWithLabel''_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 28 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
treeNew :: Rectangle -> Maybe T.Text -> IO (Ref Tree)
treeNew rectangle l' =
let (x_pos, y_pos, width, height) = fromRectangle rectangle
in case l' of
Nothing -> treeNew' x_pos y_pos width height >>=
toRef
Just l -> treeNewWithLabel' x_pos y_pos width height l >>=
toRef
treeDestroy' :: (Ptr ()) -> IO ((()))
treeDestroy' a1 =
let {a1' = id a1} in
treeDestroy''_ a1' >>= \res ->
let {res' = supressWarningAboutRes res} in
return (res')
{-# LINE 37 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (IO ())) => Op (Destroy ()) Tree orig impl where
runOp _ _ tree = swapRef tree $ \treePtr -> do
treeDestroy' treePtr
return nullPtr
handle' :: (Ptr ()) -> (Event) -> IO ((Int))
handle' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
handle''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 43 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Event -> IO (Either UnknownEvent ())) ) => Op (Handle ()) Tree orig impl where
runOp _ _ tree e = withRef tree $ \treePtr -> handle' treePtr e >>= return . successOrUnknownEvent
draw' :: (Ptr ()) -> IO ()
draw' a1 =
let {a1' = id a1} in
draw''_ a1' >>
return ()
{-# LINE 46 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO ()) ) => Op (Draw ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> draw' treePtr
showSelf' :: (Ptr ()) -> IO ()
showSelf' a1 =
let {a1' = id a1} in
showSelf''_ a1' >>
return ()
{-# LINE 49 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO ()) ) => Op (ShowSelf ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> showSelf' treePtr
rootLabel' :: (Ptr ()) -> (T.Text) -> IO ()
rootLabel' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
rootLabel''_ a1' a2' >>
return ()
{-# LINE 52 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (T.Text -> IO ()) ) => Op (RootLabel ()) Tree orig impl where
runOp _ _ tree new_label = withRef tree $ \treePtr -> rootLabel' treePtr new_label
root' :: (Ptr ()) -> IO ((Ptr ()))
root' a1 =
let {a1' = id a1} in
root''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 55 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Root ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> root' treePtr >>= toMaybeRef
add' :: (Ptr ()) -> (T.Text) -> IO ((Ptr ()))
add' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
add''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 58 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
addWithItemName' :: (Ptr ()) -> (Ptr ()) -> (T.Text) -> IO ((Ptr ()))
addWithItemName' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = unsafeToCString a3} in
addWithItemName''_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 59 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (T.Text -> IO (Maybe (Ref TreeItem)))) => Op (Add ()) Tree orig impl where
runOp _ _ tree path' = withRef tree $ \treePtr -> add' treePtr path' >>= toMaybeRef
instance (Parent a TreeItem, impl ~ (T.Text -> Ref a -> IO (Maybe (Ref TreeItem)))) => Op (AddAt ()) Tree orig impl where
runOp _ _ tree path' item' =
withRef tree $ \treePtr ->
withRef item' $ \itemPtr ->
addWithItemName' treePtr itemPtr path' >>= toMaybeRef
insertAbove' :: (Ptr ()) -> (Ptr ()) -> (T.Text) -> IO ((Ptr ()))
insertAbove' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = unsafeToCString a3} in
insertAbove''_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 67 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a TreeItem, impl ~ (Ref a -> T.Text -> IO (Maybe (Ref a)))) => Op (InsertAbove ()) Tree orig impl where
runOp _ _ tree above name = withRef tree $ \treePtr -> withRef above $ \abovePtr -> insertAbove' treePtr abovePtr name >>= toMaybeRef
insert' :: (Ptr ()) -> (Ptr ()) -> (T.Text) -> (Int) -> IO ((Ptr ()))
insert' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = unsafeToCString a3} in
let {a4' = fromIntegral a4} in
insert''_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 70 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a TreeItem, impl ~ (Ref a -> T.Text -> Int -> IO (Maybe (Ref a)))) => Op (Insert ()) Tree orig impl where
runOp _ _ tree item name pos = withRef tree $ \treePtr -> withRef item $ \itemPtr -> insert' treePtr itemPtr name pos >>= toMaybeRef
remove' :: (Ptr ()) -> (Ptr ()) -> IO ((Int))
remove' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
remove''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 73 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO (Either TreeItemNotFound ())) ) => Op (Remove ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> do
status' <- remove' treePtr itemPtr
if (status' == (-1)) then (return $ Left TreeItemNotFound) else (return $ Right ())
clear' :: (Ptr ()) -> IO ()
clear' a1 =
let {a1' = id a1} in
clear''_ a1' >>
return ()
{-# LINE 78 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO ()) ) => Op (Clear ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> clear' treePtr
clearChildren' :: (Ptr ()) -> (Ptr ()) -> IO ()
clearChildren' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
clearChildren''_ a1' a2' >>
return ()
{-# LINE 81 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a TreeItem, impl ~ (Ref a -> IO ()) ) => Op (ClearChildren ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> clearChildren' treePtr itemPtr
findItem' :: (Ptr ()) -> (T.Text) -> IO ((Ptr ()))
findItem' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
findItem''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 84 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (T.Text -> IO (Maybe (Ref TreeItem))) ) => Op (FindItem ()) Tree orig impl where
runOp _ _ tree path = withRef tree $ \treePtr -> findItem' treePtr path >>= toMaybeRef
itemPathname' :: (Ptr ()) -> (Ptr CChar) -> (Int) -> (Ptr ()) -> IO ((Int))
itemPathname' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
itemPathname''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 87 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a TreeItem, impl ~ (Ref a -> IO (Maybe T.Text)) ) => Op (ItemPathname ()) Tree orig impl where
runOp _ _ tree item =
withRef tree $ \treePtr ->
withRef item $ \itemPtr ->
allocaBytes oneKb $ \pathPtr -> do
retVal' <- itemPathname' treePtr pathPtr oneKb itemPtr
if retVal' < 0
then return Nothing
else do
b' <- cStringToText (castPtr pathPtr)
return (Just b')
itemClicked' :: (Ptr ()) -> IO ((Ptr ()))
itemClicked' a1 =
let {a1' = id a1} in
itemClicked''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 99 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (ItemClicked ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> itemClicked' treePtr >>= toMaybeRef
first' :: (Ptr ()) -> IO ((Ptr ()))
first' a1 =
let {a1' = id a1} in
first''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 102 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetFirst ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> first' treePtr >>= toMaybeRef
firstVisible' :: (Ptr ()) -> IO ((Ptr ()))
firstVisible' a1 =
let {a1' = id a1} in
firstVisible''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 105 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (FirstVisible ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> firstVisible' treePtr >>= toMaybeRef
next' :: (Ptr ()) -> IO ((Ptr ()))
next' a1 =
let {a1' = id a1} in
next''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 108 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Next ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> next' treePtr >>= toMaybeRef
nextWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Ptr ()))
nextWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
nextWithItem''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 111 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO (Maybe (Ref TreeItem))) ) => Op (NextAfterItem ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextWithItem' treePtr itemPtr >>= toMaybeRef
nextItem' :: (Ptr ()) -> (Ptr ()) -> (CInt) -> (Bool) -> IO ((Ptr ()))
nextItem' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = cFromBool a4} in
nextItem''_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 114 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> Maybe SearchDirection -> Bool -> IO (Maybe (Ref TreeItem))) ) => Op (NextItem ()) Tree orig impl where
runOp _ _ tree item dir visible' =
withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextItem' treePtr itemPtr (maybe 0 (fromIntegral . fromEnum) dir) visible'
>>= toMaybeRef
prev' :: (Ptr ()) -> IO ((Ptr ()))
prev' a1 =
let {a1' = id a1} in
prev''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 119 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Prev ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> prev' treePtr >>= toMaybeRef
prevWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Ptr ()))
prevWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
prevWithItem''_ a1' a2' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 122 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO (Maybe (Ref TreeItem))) ) => Op (PrevBeforeItem ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> prevWithItem' treePtr itemPtr >>= toMaybeRef
last' :: (Ptr ()) -> IO ((Ptr ()))
last' a1 =
let {a1' = id a1} in
last''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 125 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetLast ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> last' treePtr >>= toMaybeRef
lastVisible' :: (Ptr ()) -> IO ((Ptr ()))
lastVisible' a1 =
let {a1' = id a1} in
lastVisible''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 128 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (LastVisible ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> lastVisible' treePtr >>= toMaybeRef
firstSelectedItem' :: (Ptr ()) -> IO ((Ptr ()))
firstSelectedItem' a1 =
let {a1' = id a1} in
firstSelectedItem''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 131 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (FirstSelectedItem ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> firstSelectedItem' treePtr >>= toMaybeRef
lastSelectedItem' :: (Ptr ()) -> IO ((Ptr ()))
lastSelectedItem' a1 =
let {a1' = id a1} in
lastSelectedItem''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 134 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (LastSelectedItem ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> lastSelectedItem' treePtr >>= toMaybeRef
nextSelectedItem' :: (Ptr ()) -> IO ((Ptr ()))
nextSelectedItem' a1 =
let {a1' = id a1} in
nextSelectedItem''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 137 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (NextSelectedItem ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> nextSelectedItem' treePtr >>= toMaybeRef
nextSelectedItemWithItemDirection' :: (Ptr ()) -> (Ptr ()) -> (CInt) -> IO ((Ptr ()))
nextSelectedItemWithItemDirection' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
nextSelectedItemWithItemDirection''_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 140 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> Maybe SearchDirection -> IO (Maybe (Ref TreeItem))) ) => Op (NextSelectedItemAfterItem ()) Tree orig impl where
runOp _ _ tree item dir = withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextSelectedItemWithItemDirection' treePtr itemPtr (maybe 0 (fromIntegral . fromEnum) dir) >>= toMaybeRef
openWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Int))
openWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
openWithItem''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 143 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
openWithItemDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ((Int))
openWithItemDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
openWithItemDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 144 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
openWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Int))
openWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
openWithPath''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 145 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
openWithPathDocallback' :: (Ptr ()) -> (T.Text) -> (Bool) -> IO ((Int))
openWithPathDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
let {a3' = cFromBool a3} in
openWithPathDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 146 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO ()) ) => Op (Open ()) Tree orig impl where
runOp _ _ tree_item locator' =
withRef tree_item $ \tree_itemPtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> openWithItem' tree_itemPtr itemRefPtr >> return ()
TreeItemNameLocator (TreeItemName n') -> openWithPath' tree_itemPtr n' >> return ()
instance (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (OpenAndCallback ()) Tree orig impl where
runOp _ _ tree_item locator' docallback' =
withRef tree_item $ \tree_itemPtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> openWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()
TreeItemNameLocator (TreeItemName n') -> openWithPathDocallback' tree_itemPtr n' docallback' >> return ()
openToggle' :: (Ptr ()) -> (Ptr ()) -> IO ()
openToggle' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
openToggle''_ a1' a2' >>
return ()
{-# LINE 159 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
openToggleWithDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ()
openToggleWithDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
openToggleWithDocallback''_ a1' a2' a3' >>
return ()
{-# LINE 160 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (OpenToggle ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> openToggle' treePtr itemPtr
instance (impl ~ (Ref TreeItem -> Bool -> IO ()) ) => Op (OpenToggleAndCallback ()) Tree orig impl where
runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> openToggleWithDocallback' treePtr itemPtr docallback
closeWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Int))
closeWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
closeWithItem''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 165 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
closeWithItemDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ((Int))
closeWithItemDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
closeWithItemDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 166 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
closeWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Int))
closeWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
closeWithPath''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 167 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
closeWithPathDocallback' :: (Ptr ()) -> (T.Text) -> (Bool) -> IO ((Int))
closeWithPathDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
let {a3' = cFromBool a3} in
closeWithPathDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 168 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO ()) ) => Op (Close ()) Tree orig impl where
runOp _ _ tree_item locator' =
withRef tree_item $ \tree_itemPtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> closeWithItem' tree_itemPtr itemRefPtr >> return ()
TreeItemNameLocator (TreeItemName n') -> closeWithPath' tree_itemPtr n' >> return ()
instance (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (CloseAndCallback ()) Tree orig impl where
runOp _ _ tree_item locator' docallback' =
withRef tree_item $ \tree_itemPtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> closeWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()
TreeItemNameLocator (TreeItemName n') -> closeWithPathDocallback' tree_itemPtr n' docallback' >> return ()
isOpenWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Bool))
isOpenWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
isOpenWithItem''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 181 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
isOpenWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Bool))
isOpenWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
isOpenWithPath''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 182 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO (Bool)) ) => Op (IsOpen ()) Tree orig impl where
runOp _ _ tree locator' = withRef tree $ \treePtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> isOpenWithItem' treePtr r'Ptr
TreeItemNameLocator (TreeItemName n') ->
isOpenWithPath' treePtr n'
isCloseWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Bool))
isCloseWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
isCloseWithItem''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 189 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
isCloseWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Bool))
isCloseWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
isCloseWithPath''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 190 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO (Bool)) ) => Op (IsClose ()) Tree orig impl where
runOp _ _ tree locator' = withRef tree $ \treePtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> isCloseWithItem' treePtr r'Ptr
TreeItemNameLocator (TreeItemName n') -> isCloseWithPath' treePtr n'
selectWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Int))
selectWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
selectWithItem''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 196 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
selectWithItemDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ((Int))
selectWithItemDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
selectWithItemDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 197 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
selectWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Int))
selectWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
selectWithPath''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 198 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
selectWithPathDocallback' :: (Ptr ()) -> (T.Text) -> (Bool) -> IO ((Int))
selectWithPathDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
let {a3' = cFromBool a3} in
selectWithPathDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 199 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO (Int)) ) => Op (Select ()) Tree orig impl where
runOp _ _ tree locator' =
withRef tree $ \treePtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> selectWithItem' treePtr r'Ptr
TreeItemNameLocator (TreeItemName n') -> selectWithPath' treePtr n'
instance (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (SelectAndCallback ()) Tree orig impl where
runOp _ _ tree_item locator' docallback' =
withRef tree_item $ \tree_itemPtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> selectWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()
TreeItemNameLocator (TreeItemName n') -> selectWithPathDocallback' tree_itemPtr n' docallback' >> return ()
selectToggle' :: (Ptr ()) -> (Ptr ()) -> IO ()
selectToggle' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
selectToggle''_ a1' a2' >>
return ()
{-# LINE 212 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
selectToggleWithDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ()
selectToggleWithDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
selectToggleWithDocallback''_ a1' a2' a3' >>
return ()
{-# LINE 213 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (SelectToggle ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectToggle' treePtr itemPtr
instance (impl ~ (Ref TreeItem -> Bool -> IO ()) ) => Op (SelectToggleAndCallback ()) Tree orig impl where
runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectToggleWithDocallback' treePtr itemPtr docallback
deselectWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Int))
deselectWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
deselectWithItem''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 218 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
deselectWithItemDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ((Int))
deselectWithItemDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
deselectWithItemDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 219 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
deselectWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Int))
deselectWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
deselectWithPath''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 220 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
deselectWithPathDocallback' :: (Ptr ()) -> (T.Text) -> (Bool) -> IO ((Int))
deselectWithPathDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
let {a3' = cFromBool a3} in
deselectWithPathDocallback''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 221 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO (Int)) ) => Op (Deselect ()) Tree orig impl where
runOp _ _ tree locator' =
withRef tree $ \treePtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> deselectWithItem' treePtr r'Ptr
TreeItemNameLocator (TreeItemName n') -> deselectWithPath' treePtr n'
instance (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (DeselectAndCallback ()) Tree orig impl where
runOp _ _ tree_item locator' docallback' =
withRef tree_item $ \tree_itemPtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> deselectWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()
TreeItemNameLocator (TreeItemName n') -> deselectWithPathDocallback' tree_itemPtr n' docallback' >> return ()
selectOnly' :: (Ptr ()) -> (Ptr ()) -> IO ()
selectOnly' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
selectOnly''_ a1' a2' >>
return ()
{-# LINE 234 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
selectOnlyWithDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ()
selectOnlyWithDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
selectOnlyWithDocallback''_ a1' a2' a3' >>
return ()
{-# LINE 235 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (SelectOnly ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectOnly' treePtr itemPtr
instance (impl ~ (Ref TreeItem -> Bool -> IO ()) ) => Op (SelectOnlyAndCallback ()) Tree orig impl where
runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectOnlyWithDocallback' treePtr itemPtr docallback
selectAll' :: (Ptr ()) -> (Ptr ()) -> IO ()
selectAll' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
selectAll''_ a1' a2' >>
return ()
{-# LINE 240 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
selectAllWithDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ()
selectAllWithDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
selectAllWithDocallback''_ a1' a2' a3' >>
return ()
{-# LINE 241 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (IO ()) ) => Op (SelectAll ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> selectAll' treePtr nullPtr
instance (impl ~ (Maybe (Ref TreeItem) -> Bool -> IO ()) ) => Op (SelectAllAndCallback ()) Tree orig impl where
runOp _ _ tree item docallback = withRef tree $ \treePtr -> withMaybeRef item $ \itemPtr -> selectAllWithDocallback' treePtr itemPtr docallback
deselectAll' :: (Ptr ()) -> (Ptr ()) -> IO ()
deselectAll' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
deselectAll''_ a1' a2' >>
return ()
{-# LINE 246 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
deselectAllWithDocallback' :: (Ptr ()) -> (Ptr ()) -> (Bool) -> IO ()
deselectAllWithDocallback' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = cFromBool a3} in
deselectAllWithDocallback''_ a1' a2' a3' >>
return ()
{-# LINE 247 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (IO ()) ) => Op (DeselectAll ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> deselectAll' treePtr nullPtr
instance (impl ~ (Maybe (Ref TreeItem) -> Bool -> IO ()) ) => Op (DeselectAllAndCallback ()) Tree orig impl where
runOp _ _ tree item docallback = withRef tree $ \treePtr -> withMaybeRef item $ \itemPtr -> deselectAllWithDocallback' treePtr itemPtr docallback
setItemFocus' :: (Ptr ()) -> (Ptr ()) -> IO ()
setItemFocus' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setItemFocus''_ a1' a2' >>
return ()
{-# LINE 252 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (SetItemFocus ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> setItemFocus' treePtr itemPtr
getItemFocus' :: (Ptr ()) -> IO ((Ptr ()))
getItemFocus' a1 =
let {a1' = id a1} in
getItemFocus''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 255 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetItemFocus ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> getItemFocus' treePtr >>= toMaybeRef
isSelectedWithItem' :: (Ptr ()) -> (Ptr ()) -> IO ((Bool))
isSelectedWithItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
isSelectedWithItem''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 258 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
isSelectedWithPath' :: (Ptr ()) -> (T.Text) -> IO ((Bool))
isSelectedWithPath' a1 a2 =
let {a1' = id a1} in
let {a2' = unsafeToCString a2} in
isSelectedWithPath''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 259 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeItemLocator -> IO (Bool)) ) => Op (IsSelected ()) Tree orig impl where
runOp _ _ tree locator' = withRef tree $ \treePtr ->
case locator' of
TreeItemPointerLocator (TreeItemPointer item) -> withRef item $ \itemPtr -> isSelectedWithItem' treePtr itemPtr
TreeItemNameLocator (TreeItemName path) -> isSelectedWithPath' treePtr path
itemLabelfont' :: (Ptr ()) -> IO ((Font))
itemLabelfont' a1 =
let {a1' = id a1} in
itemLabelfont''_ a1' >>= \res ->
let {res' = cToFont res} in
return (res')
{-# LINE 265 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Font)) ) => Op (GetItemLabelfont ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> itemLabelfont' treePtr
itemSetLabelfont' :: (Ptr ()) -> (Font) -> IO ()
itemSetLabelfont' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromFont a2} in
itemSetLabelfont''_ a1' a2' >>
return ()
{-# LINE 268 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Font -> IO ()) ) => Op (SetItemLabelfont ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> itemSetLabelfont' treePtr val
itemLabelsize' :: (Ptr ()) -> IO ((CInt))
itemLabelsize' a1 =
let {a1' = id a1} in
itemLabelsize''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 271 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (FontSize)) ) => Op (GetItemLabelsize ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> itemLabelsize' treePtr >>= return . FontSize
itemSetLabelsize' :: (Ptr ()) -> (CInt) -> IO ()
itemSetLabelsize' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
itemSetLabelsize''_ a1' a2' >>
return ()
{-# LINE 274 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (FontSize -> IO ()) ) => Op (SetItemLabelsize ()) Tree orig impl where
runOp _ _ tree (FontSize val) = withRef tree $ \treePtr -> itemSetLabelsize' treePtr val
itemLabelfgcolor' :: (Ptr ()) -> IO ((Color))
itemLabelfgcolor' a1 =
let {a1' = id a1} in
itemLabelfgcolor''_ a1' >>= \res ->
let {res' = cToColor res} in
return (res')
{-# LINE 277 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Color)) ) => Op (GetItemLabelfgcolor ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> itemLabelfgcolor' treePtr
setItemLabelfgcolor' :: (Ptr ()) -> (Color) -> IO ()
setItemLabelfgcolor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setItemLabelfgcolor''_ a1' a2' >>
return ()
{-# LINE 280 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Color -> IO ()) ) => Op (SetItemLabelfgcolor ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setItemLabelfgcolor' treePtr val
itemLabelbgcolor' :: (Ptr ()) -> IO ((Color))
itemLabelbgcolor' a1 =
let {a1' = id a1} in
itemLabelbgcolor''_ a1' >>= \res ->
let {res' = cToColor res} in
return (res')
{-# LINE 283 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Color)) ) => Op (GetItemLabelbgcolor ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> itemLabelbgcolor' treePtr
setItemLabelbgcolor' :: (Ptr ()) -> (Color) -> IO ()
setItemLabelbgcolor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setItemLabelbgcolor''_ a1' a2' >>
return ()
{-# LINE 286 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Color -> IO ()) ) => Op (SetItemLabelbgcolor ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setItemLabelbgcolor' treePtr val
connectorcolor' :: (Ptr ()) -> IO ((Color))
connectorcolor' a1 =
let {a1' = id a1} in
connectorcolor''_ a1' >>= \res ->
let {res' = cToColor res} in
return (res')
{-# LINE 289 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Color)) ) => Op (GetConnectorcolor ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> connectorcolor' treePtr
setConnectorcolor' :: (Ptr ()) -> (Color) -> IO ()
setConnectorcolor' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromColor a2} in
setConnectorcolor''_ a1' a2' >>
return ()
{-# LINE 292 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Color -> IO ()) ) => Op (SetConnectorcolor ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorcolor' treePtr val
marginleft' :: (Ptr ()) -> IO ((Int))
marginleft' a1 =
let {a1' = id a1} in
marginleft''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 295 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetMarginleft ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> marginleft' treePtr
setMarginleft' :: (Ptr ()) -> (Int) -> IO ()
setMarginleft' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setMarginleft''_ a1' a2' >>
return ()
{-# LINE 298 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetMarginleft ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setMarginleft' treePtr val
margintop' :: (Ptr ()) -> IO ((Int))
margintop' a1 =
let {a1' = id a1} in
margintop''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 301 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetMargintop ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> margintop' treePtr
setMargintop' :: (Ptr ()) -> (Int) -> IO ()
setMargintop' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setMargintop''_ a1' a2' >>
return ()
{-# LINE 304 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetMargintop ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setMargintop' treePtr val
linespacing' :: (Ptr ()) -> IO ((Int))
linespacing' a1 =
let {a1' = id a1} in
linespacing''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 307 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetLinespacing ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> linespacing' treePtr
setLinespacing' :: (Ptr ()) -> (Int) -> IO ()
setLinespacing' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setLinespacing''_ a1' a2' >>
return ()
{-# LINE 310 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetLinespacing ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setLinespacing' treePtr val
openchildMarginbottom' :: (Ptr ()) -> IO ((Int))
openchildMarginbottom' a1 =
let {a1' = id a1} in
openchildMarginbottom''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 313 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetOpenchildMarginbottom ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> openchildMarginbottom' treePtr
setOpenchildMarginbottom' :: (Ptr ()) -> (Int) -> IO ()
setOpenchildMarginbottom' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setOpenchildMarginbottom''_ a1' a2' >>
return ()
{-# LINE 316 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetOpenchildMarginbottom ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setOpenchildMarginbottom' treePtr val
usericonmarginleft' :: (Ptr ()) -> IO ((Int))
usericonmarginleft' a1 =
let {a1' = id a1} in
usericonmarginleft''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 319 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetUsericonmarginleft ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> usericonmarginleft' treePtr
setUsericonmarginleft' :: (Ptr ()) -> (Int) -> IO ()
setUsericonmarginleft' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setUsericonmarginleft''_ a1' a2' >>
return ()
{-# LINE 322 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetUsericonmarginleft ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setUsericonmarginleft' treePtr val
labelmarginleft' :: (Ptr ()) -> IO ((Int))
labelmarginleft' a1 =
let {a1' = id a1} in
labelmarginleft''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 325 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetLabelmarginleft ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> labelmarginleft' treePtr
setLabelmarginleft' :: (Ptr ()) -> (Int) -> IO ()
setLabelmarginleft' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setLabelmarginleft''_ a1' a2' >>
return ()
{-# LINE 328 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetLabelmarginleft ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setLabelmarginleft' treePtr val
connectorwidth' :: (Ptr ()) -> IO ((Int))
connectorwidth' a1 =
let {a1' = id a1} in
connectorwidth''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 331 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetConnectorwidth ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> connectorwidth' treePtr
setConnectorwidth' :: (Ptr ()) -> (Int) -> IO ()
setConnectorwidth' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setConnectorwidth''_ a1' a2' >>
return ()
{-# LINE 334 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetConnectorwidth ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorwidth' treePtr val
usericon' :: (Ptr ()) -> IO ((Ptr ()))
usericon' a1 =
let {a1' = id a1} in
usericon''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 337 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetUsericon ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> usericon' treePtr >>= toMaybeRef
setUsericon' :: (Ptr ()) -> (Ptr ()) -> IO ()
setUsericon' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setUsericon''_ a1' a2' >>
return ()
{-# LINE 340 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a Image, impl ~ (Maybe( Ref a ) -> IO ()) ) => Op (SetUsericon ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setUsericon' treePtr valPtr
openicon' :: (Ptr ()) -> IO ((Ptr ()))
openicon' a1 =
let {a1' = id a1} in
openicon''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 343 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetOpenicon ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> openicon' treePtr >>= toMaybeRef
setOpenicon' :: (Ptr ()) -> (Ptr ()) -> IO ()
setOpenicon' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setOpenicon''_ a1' a2' >>
return ()
{-# LINE 346 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a Image , impl ~ (Maybe( Ref a ) -> IO ()) ) => Op (SetOpenicon ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setOpenicon' treePtr valPtr
closeicon' :: (Ptr ()) -> IO ((Ptr ()))
closeicon' a1 =
let {a1' = id a1} in
closeicon''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 349 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetCloseicon ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> closeicon' treePtr >>= toMaybeRef
setCloseicon' :: (Ptr ()) -> (Ptr ()) -> IO ()
setCloseicon' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setCloseicon''_ a1' a2' >>
return ()
{-# LINE 352 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a Image, impl ~ (Maybe( Ref a ) -> IO ()) ) => Op (SetCloseicon ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setCloseicon' treePtr valPtr
showcollapse' :: (Ptr ()) -> IO ((Bool))
showcollapse' a1 =
let {a1' = id a1} in
showcollapse''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 355 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Bool)) ) => Op (GetShowcollapse ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> showcollapse' treePtr
setShowcollapse' :: (Ptr ()) -> (Bool) -> IO ()
setShowcollapse' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromBool a2} in
setShowcollapse''_ a1' a2' >>
return ()
{-# LINE 358 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Bool -> IO ()) ) => Op (SetShowcollapse ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setShowcollapse' treePtr val
showroot' :: (Ptr ()) -> IO ((Bool))
showroot' a1 =
let {a1' = id a1} in
showroot''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 361 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Bool)) ) => Op (GetShowroot ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> showroot' treePtr
setShowroot' :: (Ptr ()) -> (Bool) -> IO ()
setShowroot' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromBool a2} in
setShowroot''_ a1' a2' >>
return ()
{-# LINE 364 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Bool -> IO ()) ) => Op (SetShowroot ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setShowroot' treePtr val
connectorstyle' :: (Ptr ()) -> IO ((TreeConnector))
connectorstyle' a1 =
let {a1' = id a1} in
connectorstyle''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 367 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (TreeConnector)) ) => Op (GetConnectorstyle ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> connectorstyle' treePtr
setConnectorstyle' :: (Ptr ()) -> (TreeConnector) -> IO ()
setConnectorstyle' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setConnectorstyle''_ a1' a2' >>
return ()
{-# LINE 370 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeConnector -> IO ()) ) => Op (SetConnectorstyle ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorstyle' treePtr val
sortorder' :: (Ptr ()) -> IO ((TreeSort))
sortorder' a1 =
let {a1' = id a1} in
sortorder''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 373 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (TreeSort)) ) => Op (GetSortorder ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> sortorder' treePtr
setSortorder' :: (Ptr ()) -> (TreeSort) -> IO ()
setSortorder' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setSortorder''_ a1' a2' >>
return ()
{-# LINE 376 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeSort -> IO ()) ) => Op (SetSortorder ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setSortorder' treePtr val
selectbox' :: (Ptr ()) -> IO ((Boxtype))
selectbox' a1 =
let {a1' = id a1} in
selectbox''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 379 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Boxtype)) ) => Op (GetSelectbox ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> selectbox' treePtr
setSelectbox' :: (Ptr ()) -> (Boxtype) -> IO ()
setSelectbox' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setSelectbox''_ a1' a2' >>
return ()
{-# LINE 382 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Boxtype -> IO ()) ) => Op (SetSelectbox ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setSelectbox' treePtr val
selectmode' :: (Ptr ()) -> IO ((TreeSelect))
selectmode' a1 =
let {a1' = id a1} in
selectmode''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 385 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (TreeSelect)) ) => Op (Selectmode ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> selectmode' treePtr
setSelectmode' :: (Ptr ()) -> (TreeSelect) -> IO ()
setSelectmode' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setSelectmode''_ a1' a2' >>
return ()
{-# LINE 388 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeSelect -> IO ()) ) => Op (SetSelectmode ()) Tree orig impl where
runOp _ _ tree val = withRef tree $ \treePtr -> setSelectmode' treePtr val
displayed' :: (Ptr ()) -> (Ptr ()) -> IO ((Bool))
displayed' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
displayed''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 391 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO (Bool)) ) => Op (Displayed ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> displayed' treePtr itemPtr
showItemWithYoff' :: (Ptr ()) -> (Ptr ()) -> (Int) -> IO ()
showItemWithYoff' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
showItemWithYoff''_ a1' a2' a3' >>
return ()
{-# LINE 394 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
showItem' :: (Ptr ()) -> (Ptr ()) -> IO ()
showItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
showItem''_ a1' a2' >>
return ()
{-# LINE 395 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> Maybe Int -> IO ()) ) => Op (ShowItemWithYoff ()) Tree orig impl where
runOp _ _ tree item yoff =
withRef tree $ \treePtr ->
withRef item $ \itemPtr ->
case yoff of
Just y' -> showItemWithYoff' treePtr itemPtr y'
Nothing -> showItem' treePtr itemPtr
showItemTop' :: (Ptr ()) -> (Ptr ()) -> IO ()
showItemTop' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
showItemTop''_ a1' a2' >>
return ()
{-# LINE 403 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (ShowItemTop ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemTop' treePtr itemPtr
showItemMiddle' :: (Ptr ()) -> (Ptr ()) -> IO ()
showItemMiddle' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
showItemMiddle''_ a1' a2' >>
return ()
{-# LINE 406 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (ShowItemMiddle ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemMiddle' treePtr itemPtr
showItemBottom' :: (Ptr ()) -> (Ptr ()) -> IO ()
showItemBottom' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
showItemBottom''_ a1' a2' >>
return ()
{-# LINE 409 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (ShowItemBottom ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemBottom' treePtr itemPtr
display' :: (Ptr ()) -> (Ptr ()) -> IO ()
display' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
display''_ a1' a2' >>
return ()
{-# LINE 412 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Ref TreeItem -> IO ()) ) => Op (Display ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> display' treePtr itemPtr
vposition' :: (Ptr ()) -> IO ((Int))
vposition' a1 =
let {a1' = id a1} in
vposition''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 415 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Int)) ) => Op (GetVposition ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> vposition' treePtr
setVposition' :: (Ptr ()) -> (Int) -> IO ()
setVposition' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setVposition''_ a1' a2' >>
return ()
{-# LINE 418 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetVposition ()) Tree orig impl where
runOp _ _ tree pos = withRef tree $ \treePtr -> setVposition' treePtr pos
isScrollbar' :: (Ptr ()) -> (Ptr ()) -> IO ((Bool))
isScrollbar' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
isScrollbar''_ a1' a2' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 421 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a Widget, impl ~ (Ref a -> IO (Bool)) ) => Op (IsScrollbar ()) Tree orig impl where
runOp _ _ tree w = withRef tree $ \treePtr -> withRef w $ \wPtr -> isScrollbar' treePtr wPtr
scrollbarSize' :: (Ptr ()) -> IO ((Int))
scrollbarSize' a1 =
let {a1' = id a1} in
scrollbarSize''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
{-# LINE 424 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (IO (Int)) ) => Op (GetScrollbarSize ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> scrollbarSize' treePtr
setScrollbarSize' :: (Ptr ()) -> (Int) -> IO ()
setScrollbarSize' a1 a2 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
setScrollbarSize''_ a1' a2' >>
return ()
{-# LINE 427 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (Int -> IO ()) ) => Op (SetScrollbarSize ()) Tree orig impl where
runOp _ _ tree size = withRef tree $ \treePtr -> setScrollbarSize' treePtr size
isVscrollVisible' :: (Ptr ()) -> IO ((Bool))
isVscrollVisible' a1 =
let {a1' = id a1} in
isVscrollVisible''_ a1' >>= \res ->
let {res' = cToBool res} in
return (res')
{-# LINE 430 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Bool)) ) => Op (IsVscrollVisible ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> isVscrollVisible' treePtr
setCallbackItem' :: (Ptr ()) -> (Ptr ()) -> IO ()
setCallbackItem' a1 a2 =
let {a1' = id a1} in
let {a2' = id a2} in
setCallbackItem''_ a1' a2' >>
return ()
{-# LINE 433 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (Parent a TreeItem, impl ~ (Ref a -> IO ()) ) => Op (SetCallbackItem ()) Tree orig impl where
runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> setCallbackItem' treePtr itemPtr
callbackItem' :: (Ptr ()) -> IO ((Ptr ()))
callbackItem' a1 =
let {a1' = id a1} in
callbackItem''_ a1' >>= \res ->
let {res' = id res} in
return (res')
{-# LINE 436 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetCallbackItem ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> callbackItem' treePtr >>= toMaybeRef
setCallbackReason' :: (Ptr ()) -> (TreeReasonType) -> IO ()
setCallbackReason' a1 a2 =
let {a1' = id a1} in
let {a2' = cFromEnum a2} in
setCallbackReason''_ a1' a2' >>
return ()
{-# LINE 439 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ (TreeReasonType -> IO ()) ) => Op (SetCallbackReason ()) Tree orig impl where
runOp _ _ tree reason = withRef tree $ \treePtr -> setCallbackReason' treePtr reason
callbackReason' :: (Ptr ()) -> IO ((TreeReasonType))
callbackReason' a1 =
let {a1' = id a1} in
callbackReason''_ a1' >>= \res ->
let {res' = cToEnum res} in
return (res')
{-# LINE 442 "src/Graphics/UI/FLTK/LowLevel/Tree.chs" #-}
instance (impl ~ ( IO (TreeReasonType)) ) => Op (GetCallbackReason ()) Tree orig impl where
runOp _ _ tree = withRef tree $ \treePtr -> callbackReason' treePtr
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_New"
treeNew''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_New_WithLabel"
treeNewWithLabel''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_Destroy"
treeDestroy''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_handle"
handle''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_draw"
draw''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_show_self"
showSelf''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_root_label"
rootLabel''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_root"
root''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_add"
add''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_add_with_item_name"
addWithItemName''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_insert_above"
insertAbove''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_insert"
insert''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_remove"
remove''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_clear"
clear''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_clear_children"
clearChildren''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_find_item"
findItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_item_pathname"
itemPathname''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_item_clicked"
itemClicked''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_first"
first''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_first_visible"
firstVisible''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_next"
next''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_next_with_item"
nextWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_next_item"
nextItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_prev"
prev''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_prev_with_item"
prevWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_last"
last''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_last_visible"
lastVisible''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_first_selected_item"
firstSelectedItem''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_last_selected_item"
lastSelectedItem''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_next_selected_item"
nextSelectedItem''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_next_selected_item_with_item_direction"
nextSelectedItemWithItemDirection''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_open_with_item"
openWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_open_with_item_docallback"
openWithItemDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_open_with_path"
openWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_open_with_path_docallback"
openWithPathDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_open_toggle"
openToggle''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_open_toggle_with_docallback"
openToggleWithDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_close_with_item"
closeWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_close_with_item_docallback"
closeWithItemDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_close_with_path"
closeWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_close_with_path_docallback"
closeWithPathDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_open_with_item"
isOpenWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_open_with_path"
isOpenWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_close_with_item"
isCloseWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_close_with_path"
isCloseWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_with_item"
selectWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_with_item_docallback"
selectWithItemDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_with_path"
selectWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_with_path_docallback"
selectWithPathDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_toggle"
selectToggle''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_toggle_with_docallback"
selectToggleWithDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_deselect_with_item"
deselectWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_deselect_with_item_docallback"
deselectWithItemDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_deselect_with_path"
deselectWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_deselect_with_path_docallback"
deselectWithPathDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_only"
selectOnly''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_only_with_docallback"
selectOnlyWithDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_all"
selectAll''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_select_all_with_docallback"
selectAllWithDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_deselect_all_with_item"
deselectAll''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_deselect_all_with_item_docallback"
deselectAllWithDocallback''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_item_focus"
setItemFocus''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_get_item_focus"
getItemFocus''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_selected_with_item"
isSelectedWithItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_selected_with_path"
isSelectedWithPath''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_item_labelfont"
itemLabelfont''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_item_labelfont"
itemSetLabelfont''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_item_labelsize"
itemLabelsize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_item_labelsize"
itemSetLabelsize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_item_labelfgcolor"
itemLabelfgcolor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_item_labelfgcolor"
setItemLabelfgcolor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_item_labelbgcolor"
itemLabelbgcolor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_item_labelbgcolor"
setItemLabelbgcolor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_connectorcolor"
connectorcolor''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_connectorcolor"
setConnectorcolor''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_marginleft"
marginleft''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_marginleft"
setMarginleft''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_margintop"
margintop''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_margintop"
setMargintop''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_linespacing"
linespacing''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_linespacing"
setLinespacing''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_openchild_marginbottom"
openchildMarginbottom''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_openchild_marginbottom"
setOpenchildMarginbottom''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_usericonmarginleft"
usericonmarginleft''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_usericonmarginleft"
setUsericonmarginleft''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_labelmarginleft"
labelmarginleft''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_labelmarginleft"
setLabelmarginleft''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_connectorwidth"
connectorwidth''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_connectorwidth"
setConnectorwidth''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_usericon"
usericon''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_usericon"
setUsericon''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_openicon"
openicon''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_openicon"
setOpenicon''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_closeicon"
closeicon''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_closeicon"
setCloseicon''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_showcollapse"
showcollapse''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_showcollapse"
setShowcollapse''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_showroot"
showroot''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_showroot"
setShowroot''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_connectorstyle"
connectorstyle''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_connectorstyle"
setConnectorstyle''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_sortorder"
sortorder''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_sortorder"
setSortorder''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_selectbox"
selectbox''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_selectbox"
setSelectbox''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_selectmode"
selectmode''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_selectmode"
setSelectmode''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_displayed"
displayed''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_show_item_with_yoff"
showItemWithYoff''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_show_item"
showItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_show_item_top"
showItemTop''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_show_item_middle"
showItemMiddle''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_show_item_bottom"
showItemBottom''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_display"
display''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_vposition"
vposition''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_vposition"
setVposition''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_scrollbar"
isScrollbar''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_scrollbar_size"
scrollbarSize''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_scrollbar_size"
setScrollbarSize''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_is_vscroll_visible"
isVscrollVisible''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_callback_item"
setCallbackItem''_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_callback_item"
callbackItem''_ :: ((C2HSImp.Ptr ()) -> (IO (C2HSImp.Ptr ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_set_callback_reason"
setCallbackReason''_ :: ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Tree.chs.h Fl_Tree_callback_reason"
callbackReason''_ :: ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt))