method add ?abs contents = if auto_read_write then M.read_multiclip st_clip; M.add (M.storable_get_multiclip st_clip) ?abs contents; if auto_read_write then M.write_multiclip st_clip; self#update