From: Axel S. <si...@co...> - 2008-09-04 21:04:33
|
Thu Sep 4 17:01:58 EDT 2008 A....@ke... * Add ability to toggle ticks in list. hunk ./demo/treeList/ListDemo.hs 5 +import System.Glib.Signals (on) hunk ./demo/treeList/ListDemo.hs 49 + -- update the model when the toggle buttons are activated + on renderer3 New.toggled $ \pathStr -> do + let (i:_) = New.stringToTreePath pathStr + val <- New.listStoreGetValue model i + New.listStoreSetValue model i val { marked = not (marked val) } + |