ApplicationDefinition.st
changeset 10418 6aec9d860022
parent 10415 8d6ed7ea4c15
child 10419 0412cefd7206
--- a/ApplicationDefinition.st	Wed Feb 28 18:25:00 2007 +0100
+++ b/ApplicationDefinition.st	Wed Feb 28 18:57:46 2007 +0100
@@ -351,6 +351,11 @@
     "Created: / 05-09-2006 / 13:36:18 / cg"
 !
 
+logFilenameNoConsole
+    "/ ^ (self applicationNameNoConsole , '_%d.log')
+    ^ (self applicationNameNoConsole , '.log')
+!
+
 startupClassName
     "The name of the class which provides the entry point for the application."
 
@@ -587,7 +592,7 @@
         -del main.obj
         $(MAKE) -N -f bc.mak \
                 PROJECT=$(PROJECT_NOCONSOLE) \
-                CFLAGS_APPTYPE="$(CFLAGS_NOCONSOLE) -DWIN_LOGFILE="\\"\"%(NOCONSOLE_APPLICATION)_%%%%d.log\\"\""" \
+                CFLAGS_APPTYPE="$(CFLAGS_NOCONSOLE) -DWIN_LOGFILE="\\"\"%(NOCONSOLE_LOGFILE)\\"\""" \
                 LFLAGS_APPTYPE="$(LFLAGS_NOCONSOLE)" \
                 CRT_STARTUP="$(CRT_STARTUP_NOCONSOLE)" theExe
 
@@ -1346,6 +1351,7 @@
         at: 'APPLICATION' put: (self applicationName);
         at: 'CONSOLE_APPLICATION' put: (self applicationNameConsole);
         at: 'NOCONSOLE_APPLICATION' put: (self applicationNameNoConsole);
+        at: 'NOCONSOLE_LOGFILE' put:(self logFilenameNoConsole);
         at: 'RESFILENAME' put: (self resourceFilename );
         at: 'RCFILENAME' put: (self rcFilename );
         at: 'STARTUP_CLASS' put: ( self startupClassName );
@@ -1706,5 +1712,5 @@
 !ApplicationDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.66 2007-02-28 17:22:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.67 2007-02-28 17:57:46 cg Exp $'
 ! !