diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-02-18 19:13:40 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-02-19 11:53:40 +0100 |
commit | 37479c1b59b7492abb5c89a42c5a76d4cd9d48cd (patch) | |
tree | 577e973a69941aef7ce20631dfbd74527a733815 /ide/session.ml | |
parent | 4f640bb24dfc45699670f41441355cdf71c83130 (diff) |
CoqIDE: STOP button also stops workers (fix #4542)
Diffstat (limited to 'ide/session.ml')
-rw-r--r-- | ide/session.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ide/session.ml b/ide/session.ml index 34c533b8e..168ddd4df 100644 --- a/ide/session.ml +++ b/ide/session.ml @@ -19,6 +19,7 @@ class type ['a] page = method update : 'a -> unit method on_update : callback:('a -> unit) -> unit method refresh_color : unit -> unit + method data : 'a end class type control = @@ -321,6 +322,7 @@ let create_errpage (script : Wg_ScriptView.script_view) : errpage = end method on_update ~callback:cb = callback := cb method refresh_color () = refresh () + method data = !last_update end let create_jobpage coqtop coqops : jobpage = @@ -361,6 +363,7 @@ let create_jobpage coqtop coqops : jobpage = end method on_update ~callback:cb = callback := cb method refresh_color () = refresh () + method data = !last_update end let create_proof () = |