let remove_graphics_obj_with_tag_value (tag : string) : unit = 
        (Canvas.delete canvas [`Tag (tag)])