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
ef185fba
Commit
ef185fba
authored
Aug 31, 2010
by
MARCHE Claude
Browse files
file name
parent
9f6d882f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/gmain.ml
View file @
ef185fba
...
...
@@ -825,10 +825,12 @@ let edit_selected_row p =
()
|
Model
.
Row_proof_attempt
a
->
eprintf
"schudeling editing@."
;
let
file
=
"goal.v"
in
a
.
Model
.
edited_as
<-
file
;
let
g
=
a
.
Model
.
proof_goal
in
let
t
=
g
.
Model
.
task
in
let
id
=
(
Task
.
task_goal
t
)
.
Decl
.
pr_name
in
let
name
=
id
.
Ident
.
id_string
in
let
file
=
name
^
".v"
in
a
.
Model
.
edited_as
<-
file
;
let
old_status
=
a
.
Model
.
status
in
Helpers
.
set_proof_status
a
Scheduler
.
Running
;
let
callback
()
=
...
...
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