Gtk2hs несколько столбцов TreeView с ListStore проблема - PullRequest
Новая
       33

Gtk2hs несколько столбцов TreeView с ListStore проблема

0 голосов
/ 19 марта 2011

Я не могу заставить GTK отображать данные в TreeView с моделью ListStore с несколькими столбцами через Haskell.У меня есть следующий код 

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

Затем я пытаюсь добавить некоторые данные, и возникают проблемы.Я попробовал это: 

    --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

Но во всех случаях я вижу таблицу с заголовком столбца и одной пустой вставленной строкой.Любая помощь будет оценена.

1 Ответ

4 голосов
/ 20 марта 2011

Я пропустил важную вещь.Поскольку модель ListStore является полиморфной, вы должны описать, КАК модель должна извлекать данные из данных ей объектов.Каждый раз, когда вы добавляете новый столбец, вы должны писать код, подобный следующему (пример текстового средства визуализации): 

cellLayoutSetAttributes yourColumn yourRenderer model (\row -> [ cellText := yourPowerfulValueExtractionFunction row ])

, где row - ваши данные.

Так что это кодрешение с данными, реализованными с помощью «варианта 1» (см. вопрос): 

prepareTreeView view = 
    do
    model <- listStoreNew ([] :: [TRow])

    addTextColumn view model one "one"
    addTextColumn view model two "two"

    listStoreAppend model $ TRow { one = "foo", two = "boo" }

    treeViewSetModel view model

-- 
addTextColumn view model f name =
    do
    col <- treeViewColumnNew
    rend <- cellRendererTextNew
    treeViewColumnSetTitle col name
    treeViewColumnPackStart col rend True
    -- LOOK HERE:
    cellLayoutSetAttributes col rend model (\row -> [ cellText := f row ])

    treeViewColumnSetExpand col True
    treeViewAppendColumn view col
...