Commit 4e5f0e00 authored by MARCHE Claude's avatar MARCHE Claude

IDE: fixed the missing restoration of expanded state of transformations

and a bit of cleaning at the same time
parent 4ea727a2
......@@ -651,13 +651,18 @@ module MA = struct
let notify any =
session_needs_saving := true;
let row,exp =
let row,expanded =
match any with
| S.Goal g -> g.S.goal_key, g.S.goal_expanded
| S.Theory t -> t.S.theory_key, t.S.theory_expanded
| S.File f -> f.S.file_key, f.S.file_expanded
| S.Proof_attempt a -> a.S.proof_key,false
| S.Transf tr -> tr.S.transf_key,tr.S.transf_expanded
| S.Transf tr ->
(**)
Format.eprintf "[notify] tr.transf_expanded = %b@." tr.S.transf_expanded;
(**)
tr.S.transf_key,tr.S.transf_expanded
| S.Metas m -> m.S.metas_key,m.S.metas_expanded
in
(* name is set by notify since upgrade policy may update the prover name *)
......@@ -679,7 +684,7 @@ let notify any =
update_task_view any
| _ -> ()
end;
if exp then goals_view#expand_to_path row#path else
if expanded then goals_view#expand_to_path row#path else
goals_view#collapse_row row#path;
match any with
| S.Goal g ->
......
This diff is collapsed.
......@@ -19,9 +19,9 @@
(**************************************************************************)
(** Proof sessions *)
(** Define all the function needed for managing a session :
(** Define all the functions needed for managing a session:
Creation, saving, loading, modification, ...
All the operation are immediately done.
All the operations are immediately done.
Use session_scheduler if you want to queue the operations
*)
......@@ -504,6 +504,7 @@ val iter : ('key any -> unit) -> 'key any -> unit
(** {2 Some functorized interface (not very useful...)}*)
(* Claude: if "not very useful" then -> removed
module AddTransf (X : sig
type key
val keygen : key keygen
......@@ -516,7 +517,9 @@ module AddTransf (X : sig
end) : sig
val add_transformation : X.key goal -> string -> X.transf -> X.key transf
end
*)
(*
module AddFile(X : sig
type key
val keygen : key keygen
......@@ -536,6 +539,7 @@ end) : sig
val add_file :
X.key session -> string -> ?format:string -> X.file -> X.key file
end
*)
(*
......
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