[cernRoot]How to get tree name from root file

TIter nextkey( root_file->GetListOfKeys() );
   TKey *key, *oldkey=0;
   while ( (key = (TKey*)nextkey())) {

      TObject *obj = key->ReadObj();
      if ( obj->IsA()->InheritsFrom( TTree::Class() ) ) {
         Tree_data = (TTree*)obj;
         break;
      }
   }