TreeView does not render tree from TreeStore

When I run this program, the treeWiew widget is displayed with a white background and nothing else. I think this is a bug, but I'm not sure. I don't want to report a bug that is not a bug.

testTree :: Tree String
testTree =
    (Node "root" 
        [(Node "child" 
            [(Node "rose" []),
            (Node "cry" 
                [(Node "karma" [])])]),
        (Node "future" []),
        (Node "destiny" 
            [(Node "call" []),
            (Node "saw" [])]),
        (Node "reason" [])])

start :: IO ()
start =
    builderNew >>= (\builder ->
        builderAddFromFile builder "graphic.glade" >>
        builderGetObject builder castToWindow "mainWindow" >>= (\window ->
            widgetShowAll window >>
            windowMaximize window >>
            (window `on` deleteEvent) (liftIO (widgetDestroy window >> mainQuit >> return True))) >>
        builderGetObject builder castToTreeView "treeView" >>= (\tv -> 
            treeStoreNew [testTree] >>= (\ts ->
                treeViewSetModel tv ts)) >>
        return ())

gtkmain :: IO ()
gtkmain = 
    initGUI     >>  
    start >>
    mainGUI  

main = gtkmain

      

+3


source to share





All Articles