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