Changeset 61 for trunk/NewView/DebugUnit.pas

Timestamp:

Jan 14, 2007, 8:02:42 PM (19 years ago)

Author:

RBRi

Message:

another refactoring step for cleaning up the command line handling

File:

• trunk/NewView/DebugUnit.pas (modified) (4 diffs)

trunk/NewView/DebugUnit.pas

@@ -26 +26 @@
   // -- Logging --
   Type
-    LogAspect = (LogStartup, LogShutdown, LogSettings, LogParse, LogDisplay, LogSearch, LogViewStub);
+    LogAspect = (LogStartup, LogShutdown, LogSettings, LogParse, LogDisplay, LogSearch, LogViewStub, LogObjConstDest);
     LogAspects = SET OF LogAspect;
 
@@ -46 +46 @@
 const
   activeLogAspects : LogAspects = [
-                                        LogStartup
+                                        LogStartup,
 //                                        LogShutdown,
 //                                        LogSettings,
@@ -52 +52 @@
 //                                        LogDisplay,
 //                                        LogSearch,
-//                                        LogViewStub
+                                        LogViewStub,
+                                        LogObjConstDest
                                   ];
 
@@ -64 +65 @@
   Begin
     Case aLogAspect of
-      LogStartup  :  result := 'Startup';
-      LogShutdown :  result := 'Start';
-      LogSettings :  result := 'Settings';
-      LogParse    :  result := 'Parse';
-      LogDisplay  :  result := 'Display';
-      LogSearch   :  result := 'Search';
-      LogViewStub :  result := 'ViewStub';
-      else           result := 'Unknown';
+      LogStartup      :  result := 'Startup';
+      LogShutdown     :  result := 'Start';
+      LogSettings     :  result := 'Settings';
+      LogParse        :  result := 'Parse';
+      LogDisplay      :  result := 'Display';
+      LogSearch       :  result := 'Search';
+      LogViewStub     :  result := 'ViewStub';
+      LogObjConstDest :  result := 'ObjConstDest';
+      else               result := 'Unknown';
       end;
   End;