Index: trunk/MagicSoft/Mars/mbase/BaseLinkDef.h
===================================================================
--- trunk/MagicSoft/Mars/mbase/BaseLinkDef.h	(revision 1348)
+++ trunk/MagicSoft/Mars/mbase/BaseLinkDef.h	(revision 1353)
@@ -5,10 +5,7 @@
 #pragma link off all functions;
 
+#pragma link C++ enum ParticleId_t;
+
 #pragma link C++ global kCONTINUE;
-#pragma link C++ global kGAMMA;
-#pragma link C++ global kPROTON;
-#pragma link C++ global kHELIUM;
-#pragma link C++ global kOXIGEN;
-#pragma link C++ global kIRON;
 #pragma link C++ global kPI;
 #pragma link C++ global kRad2Deg;
Index: trunk/MagicSoft/Mars/mbase/MAGIC.h
===================================================================
--- trunk/MagicSoft/Mars/mbase/MAGIC.h	(revision 1348)
+++ trunk/MagicSoft/Mars/mbase/MAGIC.h	(revision 1353)
@@ -22,9 +22,12 @@
 //     ParticleId for Monte Carlo simulation
 //
-const Int_t kGAMMA  =    1;
-const Int_t kPROTON =   14;
-const Int_t kHELIUM =  402;
-const Int_t kOXIGEN = 1608;
-const Int_t kIRON   = 5626;
+typedef enum
+{
+    kGAMMA  =    1,
+    kPROTON =   14,
+    kHELIUM =  402,
+    kOXYGEN = 1608,
+    kIRON   = 5626
+} ParticleId_t;
 
 const Double_t kPI      = 3.1415926535897932384626433832795028841971693993751;
Index: trunk/MagicSoft/Mars/mbase/MGList.cc
===================================================================
--- trunk/MagicSoft/Mars/mbase/MGList.cc	(revision 1348)
+++ trunk/MagicSoft/Mars/mbase/MGList.cc	(revision 1353)
@@ -99,5 +99,5 @@
     //
 #if ROOT_VERSION_CODE < ROOT_VERSION(3,02,07)
-    if (!obj->IsA()->InheritsFrom(TGWidget::Class()))
+    if (!obj->InheritsFrom(TGWidget::Class()))
         return NULL;
 #endif
Index: trunk/MagicSoft/Mars/mbase/MWriteAsciiFile.cc
===================================================================
--- trunk/MagicSoft/Mars/mbase/MWriteAsciiFile.cc	(revision 1348)
+++ trunk/MagicSoft/Mars/mbase/MWriteAsciiFile.cc	(revision 1353)
@@ -50,5 +50,4 @@
 #include <fstream.h>
 
-#include <TClass.h>      // IsA
 #include <TMethodCall.h> // TMethodCall, AsciiWrite
 
@@ -247,5 +246,5 @@
         // MData is the highest class in the inheritance tree
         //
-        if (obj->IsA()->InheritsFrom(MData::Class()))
+        if (obj->InheritsFrom(MData::Class()))
         {
             if (!((MData*)obj)->PreProcess(plist))
@@ -257,5 +256,5 @@
         // MParContainer is the next class in the inheritance tree
         //
-        if (obj->IsA()->InheritsFrom(MParContainer::Class()))
+        if (obj->InheritsFrom(MParContainer::Class()))
             continue;
 
@@ -287,21 +286,13 @@
     Int_t num = fList.GetEntries();
 
-    *fLog << all << "CHECK&WRITE " << num << endl;
-
     TIter Next(&fList);
     while ((obj=(MParContainer*)Next()))
     {
-        *fLog << all << endl << obj->IsA()->GetName() << ": 0..." << flush;
-
         if (!obj->IsReadyToSave())
             continue;
 
-        *fLog << all << "1..." << flush;
-
         if (!obj->AsciiWrite(*fOut))
             continue;
 
-        *fLog << all << "2..." << flush;
-
         written = kTRUE;