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
cce76ebe
Commit
cce76ebe
authored
Apr 14, 2017
by
MARCHE Claude
Browse files
GTK: Preferences menu, only max task is active so far
parent
96f16e0d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/why3ide.ml
View file @
cce76ebe
...
...
@@ -424,10 +424,9 @@ let clear_tree_and_table goals_model =
let
(
_
:
GMenu
.
image_menu_item
)
=
file_factory
#
add_image_item
~
label
:
"_Preferences"
~
callback
:
(
fun
()
->
Gconfig
.
preferences
gconfig
;
(* TODO:
let
callback
()
=
Gconfig
.
preferences
gconfig
;
(* TODO:
begin
match !current_env_session with
| None -> ()
...
...
@@ -442,13 +441,12 @@ let (_ : GMenu.image_menu_item) =
Debug.dprintf debug "editor for %a : %s@." Whyconf.print_prover p
pi.editor)
(Whyconf.get_provers gconfig.config);
*)
let nb = gconfig.session_nb_processes in
S.set_max_tasks nb
*)
()
)
()
*)
*)
let
nb
=
gconfig
.
session_nb_processes
in
send_request
(
Set_max_tasks_req
nb
)
in
file_factory
#
add_image_item
~
label
:
"_Preferences"
~
callback
()
let
(
_
:
GMenu
.
menu_item
)
=
file_factory
#
add_item
~
key
:
GdkKeysyms
.
_S
"_Save session"
...
...
@@ -551,7 +549,7 @@ let hbox22221 =
let
monitor
=
GMisc
.
label
~
text
:
" 0/0/0"
~
width
:
8
0
~
width
:
10
0
~
xalign
:
0
.
0
~
packing
:
(
hbox22221
#
pack
?
from
:
None
?
expand
:
None
?
fill
:
None
?
padding
:
None
)
()
...
...
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