set_title (hwnd frame, p_string title)
{
  dlg_search (frame, (hwnd window) {
                                     if (window->contains_field (DLG_ID/TITLE_BAR)) set_text (window, title);
                                   });
}