[Gtk2hs-commit] (main branch): Fix bug #1138.

[Axel S. <si...@co...>]

Thu Aug 21 17:22:36 EDT 2008  A....@ke...
  * Fix bug #1138.
  I forgot to set the stamp in those TreeIters correctly that were created
  directly in ListStore. It was all correct in TreeStore.
  

    hunk ./gtk/Graphics/UI/Gtk/ModelView/CustomStore.chs 149
    -	-> IO () -- ^ returns the newly assigned column
    +	-> IO ()
    hunk ./gtk/Graphics/UI/Gtk/ModelView/Gtk2HsStore.c 602
    -  [_$_]
    -  if (iter->stamp != store->stamp)
    -    g_critical ("iter->stamp == %d\t\tstore->stamp == %d\n", iter->stamp, store->stamp);
    -  [_$_]
    hunk ./gtk/Graphics/UI/Gtk/ModelView/Gtk2HsStore.c 614
    -
    -  if (iter->stamp != store->stamp)
    -    g_critical ("iter->stamp == %d\t\tstore->stamp == %d\n", iter->stamp, store->stamp);
    -
    hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 197
    -    treeModelRowInserted model [index'] (TreeIter 0 (fromIntegral index') 0 0)
    +    stamp <- customTreeModelGetStamp model
    +    treeModelRowInserted model [index'] (TreeIter stamp (fromIntegral index') 0 0)
    hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 209
    -  treeModelRowInserted model [0] (TreeIter 0 0 0 0)
    +  stamp <- customTreeModelGetStamp model
    +  treeModelRowInserted model [0] (TreeIter stamp 0 0 0)
    hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 214
    -listStorePrependList = undefined
    +listStorePrependList store list =
    +  mapM_ (listStoreInsert store 0) (reverse list)
    hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 223
    -  treeModelRowInserted model [index] (TreeIter 0 (fromIntegral index) 0 0)
    +  stamp <- customTreeModelGetStamp model
    +  treeModelRowInserted model [index] (TreeIter stamp (fromIntegral index) 0 0)
    hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 235
    +  stamp <- customTreeModelGetStamp model
    hunk ./gtk/Graphics/UI/Gtk/ModelView/ListStore.hs.pp 237
    -    treeModelRowInserted model [index] (TreeIter 0 (fromIntegral index) 0 0)
    +    treeModelRowInserted model [index] (TreeIter stamp (fromIntegral index) 0 0)