From 0583805fa794380eb9031e2c8a147fee7facacf0 Mon Sep 17 00:00:00 2001
From: vsiles
Date: Tue, 4 May 2010 16:56:40 +0000
Subject:   - Fixing bug #2308 about Lemma ... with   - Fixing a wierd
 behaviour of the goal window (scroll_at_iter doesn't work)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12991 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/ideproof.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'ide/ideproof.ml')

diff --git a/ide/ideproof.ml b/ide/ideproof.ml
index 3d86f52c62..fe8a70e017 100644
--- a/ide/ideproof.ml
+++ b/ide/ideproof.ml
@@ -70,8 +70,10 @@ let mode_tactic sel_cb (proof:GText.view) = function
       List.iter insert_hyp hyps;
       insert_goal cur_goal cur_goal_menu 1 goals_cnt;
       Util.list_fold_left_i (fun i _ (_,(g,_)) -> insert_goal g [] i goals_cnt) 2 () rem_goals;
-      ignore (proof#scroll_to_iter
-                ((proof#buffer#get_iter_at_mark `INSERT)#backward_lines (3*goals_cnt - 2)))
+      ignore(proof#buffer#place_cursor  
+        ((proof#buffer#get_iter_at_mark `INSERT)#backward_lines (3*goals_cnt - 2)));
+      ignore(proof#scroll_to_mark `INSERT)
+
 
 let mode_cesar (proof:GText.view) = function
   | [] -> assert false
-- 
cgit v1.2.3