method kill_word ?concat forward =
      let b = file#buffer in
      let it = b#get_iter `INSERT in
      let (start,stop) =
        if forward then
          (it, it#forward_word_end)
        else
          (it#backward_word_start, it)
      in
      self#cut_to_selection ?concat ~start ~stop ()