Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
why3
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
120
Issues
120
List
Boards
Labels
Service Desk
Milestones
Merge Requests
17
Merge Requests
17
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Why3
why3
Commits
e2f247ae
Commit
e2f247ae
authored
Jun 01, 2018
by
Guillaume Melquiond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove unused notebook page "Provers".
parent
8c32c407
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
0 additions
and
84 deletions
+0
-84
src/ide/gconfig.ml
src/ide/gconfig.ml
+0
-83
src/ide/gconfig.mli
src/ide/gconfig.mli
+0
-1
No files found.
src/ide/gconfig.ml
View file @
e2f247ae
...
...
@@ -57,8 +57,6 @@ type t =
original_config
:
Whyconf
.
config
;
(* mutable altern_provers : altern_provers; *)
(* mutable replace_prover : conf_replace_prover; *)
(* hidden prover buttons *)
mutable
hidden_provers
:
string
list
;
mutable
session_time_limit
:
int
;
mutable
session_mem_limit
:
int
;
mutable
session_nb_processes
:
int
;
...
...
@@ -88,7 +86,6 @@ type ide = {
ide_error_line_color
:
string
;
ide_iconset
:
string
;
(* ide_replace_prover : conf_replace_prover; *)
ide_hidden_provers
:
string
list
;
}
let
default_ide
=
...
...
@@ -113,7 +110,6 @@ let default_ide =
ide_error_color
=
"red"
;
ide_error_line_color
=
"yellow"
;
ide_iconset
=
"fatcow"
;
ide_hidden_provers
=
[]
;
}
let
load_ide
section
=
...
...
@@ -168,7 +164,6 @@ let load_ide section =
ide_iconset
=
get_string
section
~
default
:
default_ide
.
ide_iconset
"iconset"
;
ide_hidden_provers
=
get_stringl
~
default
:
default_ide
.
ide_hidden_provers
section
"hidden_prover"
;
}
...
...
@@ -219,7 +214,6 @@ let load_config config original_config =
iconset
=
ide
.
ide_iconset
;
config
=
config
;
original_config
=
original_config
;
hidden_provers
=
ide
.
ide_hidden_provers
;
session_time_limit
=
Whyconf
.
timelimit
main
;
session_mem_limit
=
Whyconf
.
memlimit
main
;
session_nb_processes
=
Whyconf
.
running_provers_max
main
;
...
...
@@ -919,81 +913,6 @@ let appearance_settings (c : t) (notebook:GPack.notebook) =
in
()
(* Page "Provers" *)
let
provers_page
c
(
notebook
:
GPack
.
notebook
)
=
let
label
=
GMisc
.
label
~
text
:
"Provers"
()
in
let
page
=
GPack
.
vbox
~
homogeneous
:
false
~
packing
:
(
fun
w
->
ignore
(
notebook
#
append_page
~
tab_label
:
label
#
coerce
w
))
()
in
let
page_pack
=
page
#
pack
~
fill
:
true
~
expand
:
true
?
from
:
None
?
padding
:
None
in
let
hbox
=
GPack
.
hbox
~
packing
:
page_pack
()
in
let
hbox_pack
=
hbox
#
pack
~
fill
:
true
~
expand
:
true
?
from
:
None
?
padding
:
None
in
let
scrollview
=
try
GBin
.
scrolled_window
~
hpolicy
:
`NEVER
~
vpolicy
:
`AUTOMATIC
~
packing
:
hbox_pack
()
with
Gtk
.
Error
_
->
assert
false
in
let
()
=
scrollview
#
set_shadow_type
`OUT
in
let
vbox
=
GPack
.
vbox
~
packing
:
scrollview
#
add_with_viewport
()
in
let
vbox_pack
=
vbox
#
pack
~
fill
:
true
~
expand
:
true
?
from
:
None
?
padding
:
None
in
let
hbox
=
GPack
.
hbox
~
packing
:
vbox_pack
()
in
let
hbox_pack
=
hbox
#
pack
~
fill
:
true
~
expand
:
true
?
from
:
None
?
padding
:
None
in
(* show/hide provers *)
let
frame
=
GBin
.
frame
~
label
:
"Prover button in the left toolbar"
~
packing
:
hbox_pack
()
in
let
provers_box
=
GPack
.
button_box
`VERTICAL
~
border_width
:
5
~
spacing
:
5
~
packing
:
frame
#
add
()
in
let
hidden_provers
=
Hashtbl
.
create
7
in
Mprover
.
iter
(
fun
_
p
->
let
name
=
prover_parseable_format
p
.
prover
in
let
label
=
Pp
.
string_of_wnl
print_prover
p
.
prover
in
let
hidden
=
ref
(
List
.
mem
name
c
.
hidden_provers
)
in
Hashtbl
.
add
hidden_provers
name
hidden
;
let
b
=
GButton
.
check_button
~
label
~
packing
:
provers_box
#
add
()
~
active
:
(
not
!
hidden
)
in
let
(
_
:
GtkSignal
.
id
)
=
b
#
connect
#
toggled
~
callback
:
(
fun
()
->
hidden
:=
not
!
hidden
;
c
.
hidden_provers
<-
Hashtbl
.
fold
(
fun
l
h
acc
->
if
!
h
then
l
::
acc
else
acc
)
hidden_provers
[]
)
in
()
)
(
Whyconf
.
get_provers
c
.
config
);
(* default prover *)
(*
let frame2 =
GBin.frame ~label:"Default prover" ~packing:hbox_pack () in
let provers_box =
GPack.button_box `VERTICAL ~border_width:5 ~spacing:5
~packing:frame2#add () in
let group =
let b =
GButton.radio_button ~label:"(none)" ~packing:provers_box#add
~active:(c.config.default_prover = "") () in
let (_ : GtkSignal.id) =
b#connect#toggled ~callback:(fun () -> c.config.default_prover <- "") in
b#group in
Mprover.iter
(fun _ p ->
let name = prover_parseable_format p.prover in
let label = Pp.string_of_wnl print_prover p.prover in
let b =
GButton.radio_button ~label ~group ~packing:provers_box#add
~active:(name = c.config.default_prover) () in
let (_ : GtkSignal.id) =
b#connect#toggled ~callback:(fun () -> c.config.default_prover <- name)
in ())
(Whyconf.get_provers c.config)
*)
()
(* Page "Uninstalled provers" *)
...
...
@@ -1131,8 +1050,6 @@ let preferences (c : t) =
appearance_settings
c
notebook
;
(* page "editors" **)
editors_page
c
notebook
;
(* page "Provers" **)
provers_page
c
notebook
;
(* page "uninstalled provers" *)
alternatives_frame
c
notebook
;
(* page "Colors" **)
...
...
src/ide/gconfig.mli
View file @
e2f247ae
...
...
@@ -37,7 +37,6 @@ type t =
original_config
:
Whyconf
.
config
;
(* mutable altern_provers : prover option Mprover.t; *)
(* mutable replace_prover : conf_replace_prover; *)
mutable
hidden_provers
:
string
list
;
mutable
session_time_limit
:
int
;
mutable
session_mem_limit
:
int
;
mutable
session_nb_processes
:
int
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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