let remove_graphics_obj_with_tag (tag_num : int) (tag_string : string) : unit = 
        (Canvas.delete canvas [`Tag (tag_string^(string_of_int tag_num))])