--- a/SmalltalkCodeGeneratorTool.st	Fri Jan 27 22:18:53 2012 +0100
+++ b/SmalltalkCodeGeneratorTool.st	Sun Jan 29 12:53:39 2012 +0000
@@ -1907,18 +1907,6 @@
 
 !SmalltalkCodeGeneratorTool methodsFor:'code templates'!
 
-anyApplicationClassInProjectOf:aClass
-    |prjDefinition|
-
-    prjDefinition := aClass projectDefinitionClass.
-    prjDefinition isNil ifTrue:[ ^ nil ].
-    ^ (prjDefinition allClasses 
-        select:[:cls | cls isSubclassOf:ApplicationModel])
-            firstIfEmpty:nil.
-
-    "Created: / 21-01-2012 / 13:24:12 / cg"
-!
-
 codeFor_classInitialize
     generateComments ifFalse:[
         ^
@@ -2165,21 +2153,12 @@
     "Created: / 27-10-2006 / 09:59:56 / cg"
 !
 
-codeFor_standAloneApplicationRegistryPathFor:aClassOrNil
-    |pkg appClass|
-
-    pkg := 'someUniqueName'.
-    aClassOrNil notNil ifTrue:[
-        (appClass := self anyApplicationClassInProjectOf:aClassOrNil) notNil ifTrue:[
-            pkg := appClass nameWithoutPrefix.
-        ]
-    ].
-
+codeFor_standAloneApplicationRegistryPath
     generateComments ifFalse:[
         ^
 'applicationRegistryPath
-    ^ #(''stx'' ''%1'') 
-' bindWith:pkg.
+    ^ #(''stx'' ''xxx'') 
+'.
     ].
 
     ^
@@ -2191,10 +2170,10 @@
      (would also be used as a relative path for a temporary lock file under unix).
      Used to detect if another instance of this application is already running."
 
-    ^ #(''stx'' ''%1'')
-'  bindWith:pkg.
-
-    "Created: / 21-01-2012 / 11:23:40 / cg"
+    ^ #(''stx'' ''xxx'')
+'.
+
+    "Created: / 19-08-2011 / 02:13:14 / cg"
 !
 
 codeFor_standAloneApplicationUUID
@@ -2221,6 +2200,17 @@
     "Created: / 19-08-2011 / 02:13:19 / cg"
 !
 
+codeFor_standAloneDoRealWorkMethod
+    ^
+'doRealWork:argsToEacho
+    "just a dummy sample - does nothing but echo its arguments"
+
+    Stdout nextPutLine:(argsToEacho asStringWith:Character space)
+'.
+
+    "Created: / 19-08-2011 / 02:20:01 / cg"
+!
+
 codeFor_standAloneMain
     ^
 'main:argv
@@ -2248,11 +2238,10 @@
             put:[:arg | self usage. Smalltalk exit:0];
         default:[:arg | fileArgs add:arg];
         parse:argv.
-
     helpOption ifTrue:[ 
         self usage. 
     ] ifFalse:[
-        self realMain:argv.
+        self doRealWork:argv.
     ].
     Smalltalk exit:0. 
 '.
@@ -2260,30 +2249,6 @@
     "Created: / 19-08-2011 / 02:18:49 / cg"
 !
 
-codeFor_standAloneRealMainMethodFor:aClass
-    |appClass|
-
-    (appClass := self anyApplicationClassInProjectOf:aClass) notNil ifTrue:[
-        ^
-'realMain:args
-    "opens the application"
-
-    %1 open
-' bindWith:appClass name
-
-    ].
-
-    ^
-'realMain:argsToEcho
-    "just a dummy as example - does nothing but echo its arguments"
-
-    Stdout nextPutLine:''Hello World''.
-    Stdout nextPutLine:(argsToEcho asStringWith:Character space)
-'.
-
-    "Created: / 21-01-2012 / 12:28:48 / cg"
-!
-
 codeFor_standAloneUsage
     ^
 'usage
@@ -2493,13 +2458,13 @@
 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.12 2012-01-27 13:55:22 cg Exp $'
+    ^ '$Id: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.10 2011/08/19 08:41:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.12 2012-01-27 13:55:22 cg Exp $'
+    ^ '§Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.10 2011/08/19 08:41:51 cg Exp §'
 !
 
 version_SVN
-    ^ '§Id§'
-! !
+    ^ '$Id$'
+! !
\ No newline at end of file