fn schedule_body(ctx: &mut EventCtx<'_>, app: &App, id: PersonID) -> Widget