Use the toggle button with Haskell and Glade

Question

I have some problems understanding how to use the toggle buttons to bind GTK + to Haskell.

What I want to do is display treeViewwith two columns: one contains rows, and the other contains toggle buttons. The user must mark the switch buttons to select the inputs that he wants to use in another part of the program.

My model is a list of tuples (String,Bool)whose logical value should reflect the state of the toggle button. Initialy, all False.

Here is my code:

treeview <- builderGetObject builder castToTreeView "diffDisplayTreeView"
treeviewselect <- treeViewGetSelection difftreeview
dcolumn <- builderGetObject builder castToTreeViewColumn "dcolumn"
selcolumn <- builderGetObject builder castToTreeViewColumn "selcolumn"
dcell <- builderGetObject builder castToCellRendererText "dcell"
selcell <- builderGetObject builder castToCellRendererToggle "selcell"
[...]
store <- listStoreNew modelFromSomewhereElse
cellLayoutSetAttributes dcolumn dcell store $ \x -> [cellText := fst(x)]
cellLayoutSetAttributes selcolumn selcell store $ \x -> [cellToggleActivate := snd(x)]
treeViewSetModel treeview store

treeView, , , . cellToggled , , treeView.

:)

Answer 1

Gtknerd ( , : http://hackage.haskell.org/package/glib-0.13.4.1/docs/System-Glib-Signals.html#t:Signal):

toggleStuff t m = do
    tvwS <- treeViewGetSelection t
    tvwP <- treeSelectionGetSelectedRows tvwS
    if tvwP == []
        then return()
    else
        do let s = Prelude.head (Prelude.head tvwP)
           v <- listStoreGetValue m s
           listStoreSetValue m s (fst v, not (snd v))
[...]
a <- treeViewGetSelection treeview
b <- treeSelectionGetSelectedRows a

on celltg cellToggled $ \(b::[Char]) -> do toggleStuff treeview store