gala_clients/DIS_group/src/GROUPswApp.cxx
// Convert subsystems to new-style groups:
Convert subsystems to new-style groups.
Convert subsystems to new - style groups .
vbool GROUPswApp::ConvertToGroup(const symbolArr& groups)
{
  Initialize(GROUPswApp::ConvertToGroup);
  vbool ret = vFALSE;
  symbolPtr sym;
  ForEachS(sym, groups) {
    symbolArr mem(0);
    groupHdrPtr group = groupHdr::sym_to_groupHdr(sym);
    if (group) {
      group->get_members(mem, FALSE);
      symbolArr empty(0);
      groupApp.PerformUtil(GroupApp::EXTGROUP_GRABSCR, empty, mem);
    }
  }
  ret = vTRUE;
  return ret;
}
vbool GROUPswApp :: ConvertToGroup ( const symbolArr & groups ) { Initialize ( GROUPswApp :: ConvertToGroup ) ; vbool ret = vFALSE ; symbolPtr sym ; ForEachS ( sym , groups ) { symbolArr mem ( 0 ) ; groupHdrPtr group = groupHdr :: sym_to_groupHdr ( sym ) ; if ( group ) { group -> get_members ( mem , FALSE ) ; symbolArr empty ( 0 ) ; groupApp . PerformUtil ( GroupApp :: EXTGROUP_GRABSCR , empty , mem ) ; } } ret = vTRUE ; return ret ; }
Convert subsystems to new-style groups:
Convert subsystems to new - style groups :