model_server/ui_misc/src/ProgressBar.cxx
// Convenience routine to get the root of a widget tree:
Convenience routine to get the root of a widget tree.
Convenience routine to get the root of a widget tree .
Widget ProgressBar::TopShell(Widget w)
{
  while (w && !XtIsWMShell(w))
    w = XtParent(w);
  return w;
}
Widget ProgressBar :: TopShell ( Widget w ) { while ( w && ! XtIsWMShell ( w ) ) w = XtParent ( w ) ; return w ; }
Convenience routine to get the root of a widget tree:
Convenience routine to get the root of a widget tree :