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

  dlg_search (frame, (hwnd window) handler (window));
}