//*********************************************************************
//*                PROGRAM - OnGroupEntered 2003-05                   *
//*                      >> Ereignisscript <<                         *
//*                                                                   *
//*    Dieses Script schließt alle Threads bei dem Betreten einer     * 
//*    Gruppe.                                                        *
//*                                                                   *
//* Funktionalitaet: [x] neutral                                      *
//*                  [ ] nur Basis_Modul                              *
//*                  [ ] nur Pathfinder                               *
//*                                                                   *
//* Datum     : Mai 2003                                              *
//* Autor     : Marcus Mönnig                                         *
//*                                                                   *
//*********************************************************************

program OnGroupEntered;

procedure OnGroupEntered(Groupname: string);

begin
   lockdisplay;
   try
      ADo('CollapseAllThreads');
      ADo('RefreshView');
   finally
      unlockdisplay;
   end;  // try...finally
end;

begin
end.