Changeset 5564 for trunk/MagicSoft/Mars/callisto.cc

Timestamp:

12/06/04 14:28:05 (20 years ago)

Author:

tbretz

Message:

*** empty log message ***

File:

• trunk/MagicSoft/Mars/callisto.cc (modified) (5 diffs)

trunk/MagicSoft/Mars/callisto.cc

@@ -4 +4 @@
 #include <TGClient.h>
 #include <TApplication.h>
+#include <TObjectTable.h>
 
 #include "MLog.h"
@@ -52 +53 @@
     gLog << " Options:" << endl;
     gLog.Usage();
-    gLog << "   --debug-env               Debug setting resources from file" << endl << endl;
+    gLog << "   --debug-env               Debug setting resources from file" << endl;
+    gLog << "   --debug-mem               Debug memory usage" << endl << endl;
     gLog << endl;
     gLog << "   -q                        Quit when job is finished" << endl;
@@ -116 +118 @@
     //const Bool_t  kPrintOnly  = arg.HasOnlyAndRemove("--print-only");
     const Bool_t  kDebugEnv   = arg.HasOnlyAndRemove("--debug-env");
+    const Bool_t  kDebugMem   = arg.HasOnlyAndRemove("--debug-mem");
 
     const Bool_t  kQuit       = arg.HasOnlyAndRemove("-q");
@@ -194 +197 @@
         return -1;
     }
+
+    if (kDebugMem)
+        TObject::SetObjectStat(kTRUE);
 
     //
@@ -454 +460 @@
 
     if (kBatch || kQuit)
-    {
         delete d;
-        return 0;
-    }
-
-    // From now on each 'Close' means: Terminate the application
-    d->SetBit(MStatusDisplay::kExitLoopOnClose);
-
-    // Wait until the user decides to exit the application
-    app.Run(kFALSE);
+    else
+    {
+        // From now on each 'Close' means: Terminate the application
+        d->SetBit(MStatusDisplay::kExitLoopOnClose);
+
+        // Wait until the user decides to exit the application
+        app.Run(kFALSE);
+    }
+
+    if (TObject::GetObjectStat())
+    {
+        TObject::SetObjectStat(kFALSE);
+        gObjectTable->Print();
+    }
+
     return 0;
 }
+