diff options
Diffstat (limited to 'MeshSketch.hs')
-rw-r--r-- | MeshSketch.hs | 8 |
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 | |||
356 | gval <- treeModelGetValue store itr 0 | 356 | gval <- treeModelGetValue store itr 0 |
357 | b <- fromGValue gval | 357 | b <- fromGValue gval |
358 | setCellRendererToggleActive c b | 358 | setCellRendererToggleActive c b |
359 | onCellRendererToggleToggled togr $ \path -> do | ||
360 | treepath <- treePathNewFromString path | ||
361 | mitr <- treeModelGetIter liststore treepath | ||
362 | forM_ mitr $ \itr -> do | ||
363 | gval <- treeModelGetValue liststore itr 0 | ||
364 | b <- fromGValue gval | ||
365 | notb <- toGValue (not b) | ||
366 | listStoreSetValue liststore itr 0 notb | ||
359 | return togc | 367 | return togc |
360 | groupc <- do | 368 | groupc <- do |
361 | groupr <- cellRendererTextNew | 369 | groupr <- cellRendererTextNew |