gala_clients/DIS_group/src/GroupApp.cxx
//
// Turn a symbolArr into a Tcl list:
//
Turn a symbolArr into a Tcl list.
Turn a symbolArr into a Tcl list .
void GroupApp::SelList(const symbolArr& src, genString& list)
{
  Initialize(GroupApp::SelList);
  symbolPtr sym;
  ForEachS(sym, src) {
    list += "{";
    genString name;
    sym.get_name(name);
    list += (char *)name;
    list += "} ";
  }
}
void GroupApp :: SelList ( const symbolArr & src , genString & list ) { Initialize ( GroupApp :: SelList ) ; symbolPtr sym ; ForEachS ( sym , src ) { list += " " ; genString name ; sym . get_name ( name ) ; list += ( char * ) name ; list += " " ; } }
Turn a symbolArr into a Tcl list:
Turn a symbolArr into a Tcl list :