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
No one has answered this question yet
Check out similar questions: