Hi Кирилл, Here have a simplest code at http://code.haskell.org/gtk2hs/gtk/demo/treelist/ListDemo.hs
Cheers, -- Andy PS: All gtk2hs user, it's always best choose to read source code of demo when you don't know how to fix some problem. Demo has include in Cabal package. Example, we have build demo sub-directory in package gtk-0.12.0.tar.gz Otherwise package, such as Cairo and Pango is same. Of course, ask in gtk2hs-user mailing-list ([email protected]) are welcome! :) Кирилл Березин <[email protected]> writes: > I cannot force GTK to render data in TreeView with ListStore model with > multiple columns through > Haskell. I have the following code > > addTextColumn view name = > > do > > col <- treeViewColumnNew > > rend <- cellRendererTextNew > > treeViewColumnSetTitle col name > treeViewColumnPackStart col rend True > treeViewColumnSetExpand col True > treeViewAppendColumn view col > > prepareTreeView view = > > do > > addTextColumn view "column1" > > addTextColumn view "column2" > > --adding data here > > Then I try to add some data, and there are problems. I tried these: > > --variant 1 (data TRow = TRow {one::String, two::String} > > model <- listStoreNew ([] :: [TRow]) > > listStoreAppend model $ TRow { one = "Foo", two = "Boo" } > > treeViewSetModel view model > > --variant 2 > > model <- listStoreNew ([] :: [[String]]) > > listStoreAppend model ["foo","boo"] > > treeViewSetModel view model > > --variant 3 > > model <- listStoreNew ([] :: [(String, String)]) > > listStoreAppend model ("foo", "boo") > > treeViewSetModel view model > > But in all cases I see the table with column header and one blank row > inserted. Any help will be > appreciated. > > _______________________________________________ > Haskell-Cafe mailing list > [email protected] > http://www.haskell.org/mailman/listinfo/haskell-cafe _______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
