method set_scroll_on_change = file#buffer#connect_delete_range (Oo.id self) (fun ~start ~stop -> self#place_cursor start); file#buffer#connect_insert_text (Oo.id self) (fun it _ -> self#place_cursor it)