diff options
| -rw-r--r-- | ide/session.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ide/session.ml b/ide/session.ml index cfcc592ef..fd8f80690 100644 --- a/ide/session.ml +++ b/ide/session.ml @@ -296,6 +296,7 @@ let create_errpage (script : Wg_ScriptView.script_view) : errpage = let lno = store#get ~row ~column:(find_int_col "Line" columns) in let where = script#buffer#get_iter (`LINE (lno-1)) in script#buffer#place_cursor ~where; + script#misc#grab_focus (); ignore (script#scroll_to_iter ~use_align:false ~yalign:0.75 ~within_margin:0.25 where)) in let tip = GMisc.label ~text:"Double click to jump to error line" () in |