Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
88691155
Commit
88691155
authored
Nov 16, 2016
by
MARCHE Claude
Browse files
IDE: add "save session" and "replay" in the menu
parent
464c4d77
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/why3ide.ml
View file @
88691155
...
...
@@ -113,6 +113,13 @@ let exit_function ~destroy () =
let
(
_
:
GtkSignal
.
id
)
=
main_window
#
connect
#
destroy
~
callback
:
(
exit_function
~
destroy
:
true
)
let
(
_
:
GMenu
.
menu_item
)
=
file_factory
#
add_item
~
key
:
GdkKeysyms
.
_S
"_Save session"
~
callback
:
(
fun
()
->
Session_itp
.
save_session
cont
.
Controller_itp
.
controller_session
)
let
(
replay_menu_item
:
GMenu
.
menu_item
)
=
file_factory
#
add_item
~
key
:
GdkKeysyms
.
_R
"_Replay all"
let
(
_
:
GMenu
.
menu_item
)
=
file_factory
#
add_item
~
key
:
GdkKeysyms
.
_Q
"_Quit"
~
callback
:
(
exit_function
~
destroy
:
false
)
...
...
@@ -326,6 +333,12 @@ end
module
C
=
Controller_itp
.
Make
(
S
)
let
(
_
:
GtkSignal
.
id
)
=
replay_menu_item
#
connect
#
activate
~
callback
:
(
fun
()
->
let
callback
=
C
.
replay_print
in
C
.
replay
~
use_steps
:
false
cont
~
callback
~
remove_obsolete
:
false
)
(***********************************)
(* Mapping session to the GTK tree *)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment