From 93616e1bd801d9a4bf78e2da3cb076af91534580 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 16 Jun 2019 20:25:30 -0400 Subject: Enable toggling checkboxes. --- MeshSketch.hs | 8 ++++++++ 1 file changed, 8 insertions(+) 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 -- cgit v1.2.3