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
92c47f87
Commit
92c47f87
authored
Sep 04, 2010
by
Francois Bobot
Browse files
ide : Detect provers refresh the tools menu
parent
41c165ee
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/gmain.ml
View file @
92c47f87
...
...
@@ -570,9 +570,11 @@ let (_ : GMenu.image_menu_item) =
Scheduler
.
maximum_running_proofs
:=
gconfig
.
max_running_processes
)
()
let
refresh_provers
=
ref
(
fun
()
->
()
)
let
(
_
:
GMenu
.
image_menu_item
)
=
file_factory
#
add_image_item
~
label
:
"_Detect provers"
~
callback
:
(
fun
()
->
Gconfig
.
run_auto_detection
gconfig
)
(
fun
()
->
Gconfig
.
run_auto_detection
gconfig
;
!
refresh_provers
()
)
()
let
(
_
:
GMenu
.
image_menu_item
)
=
...
...
@@ -681,23 +683,39 @@ let (_ : GMenu.check_menu_item) = view_factory#add_check_item
(* Tools menu *)
(**************)
let
add_refresh_provers
f
=
let
rp
=
!
refresh_provers
in
refresh_provers
:=
(
fun
()
->
rp
()
;
f
()
)
let
tools_menu
=
factory
#
add_submenu
"_Tools"
let
tools_factory
=
new
GMenu
.
factory
tools_menu
~
accel_group
let
()
=
add_refresh_provers
(
fun
()
->
List
.
iter
(
fun
item
->
item
#
destroy
()
)
tools_menu
#
all_children
)
let
()
=
List
.
iter
(
fun
p
->
let
(
_
:
GMenu
.
image_menu_item
)
=
let
n
=
p
.
prover_name
^
" "
^
p
.
prover_version
in
tools_factory
#
add_image_item
~
label
:
(
n
^
" on unproved goals"
)
~
callback
:
(
fun
()
->
prover_on_unproved_goals
p
()
)
()
in
()
)
gconfig
.
provers
let
add_item_provers
()
=
List
.
iter
(
fun
p
->
let
(
_
:
GMenu
.
image_menu_item
)
=
let
n
=
p
.
prover_name
^
" "
^
p
.
prover_version
in
tools_factory
#
add_image_item
~
label
:
(
n
^
" on unproved goals"
)
~
callback
:
(
fun
()
->
prover_on_unproved_goals
p
()
)
()
in
()
)
gconfig
.
provers
in
add_refresh_provers
add_item_provers
;
add_item_provers
()
let
()
=
let
add_item_split
()
=
ignore
(
tools_factory
#
add_image_item
~
label
:
"Split unproved goals"
~
callback
:
split_unproved_goals
()
:
GMenu
.
image_menu_item
)
in
add_refresh_provers
add_item_split
;
add_item_split
()
let
(
_
:
GMenu
.
image_menu_item
)
=
tools_factory
#
add_image_item
~
label
:
"Split unproved goals"
~
callback
:
split_unproved_goals
()
(*************)
(* Help menu *)
...
...
@@ -837,11 +855,15 @@ let edit_current_proof () =
|
[
p
]
->
edit_selected_row
p
|
_
->
assert
false
(* multi-selection is disabled *)
let
(
_
:
GMenu
.
image_menu_item
)
=
tools_factory
#
add_image_item
~
label
:
"Edit current proof"
~
callback
:
edit_current_proof
()
let
add_item_edit
()
=
ignore
(
tools_factory
#
add_image_item
~
label
:
"Edit current proof"
~
callback
:
edit_current_proof
()
:
GMenu
.
image_menu_item
)
let
()
=
add_refresh_provers
add_item_edit
;
add_item_edit
()
...
...
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