Commit 16a73dbe authored by MARCHE Claude's avatar MARCHE Claude

Needs to save after removing or cleaning

parent bfcb73aa
......@@ -570,6 +570,7 @@ module M = Session_scheduler.Make
type key = GTree.row_reference
let create ?parent () =
session_needs_saving := true;
let parent = match parent with
| None -> None
| Some r -> Some r#iter
......@@ -580,9 +581,12 @@ module M = Session_scheduler.Make
let remove row =
session_needs_saving := true;
let (_:bool) = goals_model#remove row#iter in ()
let reset () = goals_model#clear ()
let reset () =
session_needs_saving := true;
goals_model#clear ()
let idle f =
let (_ : GMain.Idle.id) = GMain.Idle.add f in ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment