Enable toggling checkboxes.

1 files changed, 8 insertions, 0 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 07e29e4..f1ee612 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -356,6 +356,14 @@ newGroupsListWidget = do
             gval <- treeModelGetValue store itr 0
             b <- fromGValue gval
             setCellRendererToggleActive c b
+        onCellRendererToggleToggled togr $ \path -> do
+            treepath <- treePathNewFromString path
+            mitr <- treeModelGetIter liststore treepath
+            forM_ mitr $ \itr -> do
+                gval <- treeModelGetValue liststore itr 0
+                b <- fromGValue gval
+                notb <- toGValue (not b)
+                listStoreSetValue liststore itr 0 notb
         return togc
     groupc <- do
         groupr <- cellRendererTextNew