method set_on_destroy f = on_destroy <- f