--- a/ApplicationDefinition.st	Wed Feb 28 20:36:27 2007 +0100
+++ b/ApplicationDefinition.st	Wed Feb 28 20:51:20 2007 +0100
@@ -283,6 +283,27 @@
 
      Subclasses may redefine this"
 
+    ^ self applicationNameFromPackage
+
+    "
+     bosch_dapasx_application applicationName     
+     stx_projects_smalltalk applicationName     
+    "
+
+    "Created: / 08-08-2006 / 20:25:39 / fm"
+    "Modified: / 30-08-2006 / 19:29:25 / cg"
+!
+
+applicationNameConsole
+    ^ self applicationName,'_debug'
+!
+
+applicationNameFromPackage
+    "answer the name of the application.
+     This is also the name of the generated .exe file.
+
+     Subclasses may redefine this"
+
     |m path|
 
     m := self moduleDirectory.
@@ -303,10 +324,6 @@
     "Modified: / 30-08-2006 / 19:29:25 / cg"
 !
 
-applicationNameConsole
-    ^ self applicationName,'_debug'
-!
-
 applicationNameNoConsole
     ^ self applicationName
 !
@@ -1719,5 +1736,5 @@
 !ApplicationDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.68 2007-02-28 19:36:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.69 2007-02-28 19:51:20 cg Exp $'
 ! !