How to loop over histos in file

From: Norbert Danneberg (Norbert.Danneberg@psi.ch)
Date: Mon Jun 15 1998 - 15:37:56 MEST 

HI Rooters,

I try too loop over all histos within a file using the following code :

BrowseFile(Char_t *FileName){

  f1 = new TFile(FileName);
  TList *MyList = f1->GetList();
  TIter next(MyList);
  MyList->ls();
  TObject *obj;
  while((obj = (TObject*)next())){
    if(obj->InheritsFrom(TH1::Class)) obj->Draw();
  }
  c1.Update();
  while(!getchar());

  f1.Close();
  f1.Delete();
}

It seems f1->GetList does not return the content of the file. What am I
doing wrong ??


Thanks  Norbert


--
-------------------------------------
Norbert Danneberg

Institut f"ur Teilchenphysik
Eidg. Techn. Hochschule Z"urich
WLGA/E27
CH-5232 Villigen PSI

Phone: 0041-56-310-3284
Fax  : 0041-56-310-4362
email: Norbert.Danneberg@psi.ch
-------------------------------------

This archive was generated by hypermail 2b29 : Tue Jan 04 2000 - 00:34:33 MET