Ticket #1236: gtkcrash.hs

import Graphics.UI.Gtk
import Data.Tree

main = do
  initGUI
-- adding an initial element to the treeStore will prevent one type of
-- crash
--  model <- treeStoreNew [Node "prevent initial crash" []]
  model <- treeStoreNew [] -- crashes
  filterModel <- treeModelFilterNew model []
-- uncommenting this will prevent the crash
-- however, expanding the row will lead to another
{-  treeModelFilterSetVisibleFunc filterModel (\iter -> do
        path <- treeModelGetPath model iter
        case path of
          [] -> return False
          _  -> return True )
-}
  treeView <- treeViewNewWithModel filterModel
  col <- treeViewColumnNew
  set col [treeViewColumnTitle := "title"]
  rend <- cellRendererTextNew
  treeViewColumnPackStart col rend True
  cellLayoutSetAttributes col rend model $ \row -> [cellText := row]
  treeViewAppendColumn treeView col
  button <- buttonNew
  buttonSetLabel button "crash"
  on button buttonActivated $ do
    (treeStoreInsertTree model [] (-1)
      (Node "expand this for crash" [Node "subnode1" [] , Node "subnode2" []] ))
  vBox <- vBoxNew False 0
  boxPackStart vBox treeView PackGrow 0
  boxPackStart vBox button PackNatural 0
  window <- windowNew
  containerAdd window vBox
  onDestroy window mainQuit
  windowSetDefaultSize window 300 200
  widgetShowAll window
  mainGUI