Ticket #1205: tree-model-sort-crash.hs

import Graphics.UI.Gtk
import System.Environment (getArgs)
import Control.Monad (when)

main :: IO ()
main = do
    initGUI
    window <- windowNew

    realStore <- listStoreNew [("o hai", 3)]
    store <- treeModelSortNewWithModel realStore
    view <- treeViewNewWithModel store

    col <- treeViewColumnNew
    treeViewColumnSetTitle col "Foo"
    renderer <- cellRendererTextNew
    cellLayoutPackStart col renderer True

    -- This works fine, but it's annoyingly verbose. We should be able to use
    -- the wrapped model just like any other model.
    cellLayoutSetAttributeFunc col renderer store $ \iter -> do
        childIter <- treeModelSortConvertIterToChildIter store iter
        (str, n) <- treeModelGetRow realStore childIter
        set renderer [ cellText := str ]

    -- On the other hand, this compiles, but when the view is rendered crashes
    -- with
    --   ** (test:26137): CRITICAL **: gtk2hs_store_get_impl: assertion
    --      `GTK2HS_IS_STORE(store)' failed
    --    zsh: segmentation fault  ./test wrapped
    -- I haven't looked into this very far.
    args <- getArgs
    when (args == ["--crash"]) $
        cellLayoutSetAttributes col renderer store $
            \(str, n) -> [ cellText := str ]

    treeViewAppendColumn view col

    containerAdd window view
    widgetShowAll window
    window `onDestroy` mainQuit

    mainGUI