method connect_insert_text view_id cb =
      self#remove_insert_text view_id;
      let sid = buffer#connect#insert_text cb in
      insert_text_signal_ids <- (view_id, sid) :: insert_text_signal_ids