do {
    next if ($answer == wxCANCEL);
    pce::edit::restore_positions;
}
until (pce::document::select_next == $first_doc);