$d->protocol(WM_DELETE_WINDOW =>[withdraw => $d]);