method insert ?row (d: 'a) =
      let row = match row with
        None -> store#append ()
      |        Some row -> row
      in
      self#set_display row d;
      store#set ~row ~column: col_data d