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) }
+
|
