let name = Filename.dirname (script#filename) ^ "/" ^ name in
let sequents =
let selected = Continuationals.Stack.head_goals status#stack in
- List.filter (fun x,_ -> List.mem x selected) menv
+ List.filter (fun (x,_) -> List.mem x selected) menv
in
CicMathView.screenshot status sequents menv subst name;
[status, parsed_text], "", parsed_text_length
| n (* when n < 0 *) -> current_mark_pos#backward_chars (abs n)
in
buffer#move_mark mark ~where:new_mark_pos;
- buffer#apply_tag locked_tag ~start:buffer#start_iter ~stop:new_mark_pos;
+ (* CSC: the next line is required to avoid race conditions (deadlocks) *)
+ GtkThread.sync(fun () -> buffer#apply_tag locked_tag ~start:buffer#start_iter ~stop:new_mark_pos) ();
buffer#move_mark `INSERT old_insert;
let mark_position = buffer#get_iter_at_mark mark in
if source_view#move_mark_onscreen mark then