SmalltalkCodeGeneratorTool.st
changeset 16672 d65bbfc8a2f7
parent 16627 38127b520bc8
child 16676 04e6ef206a00
child 16779 288875950e56
--- a/SmalltalkCodeGeneratorTool.st	Mon Jun 06 14:46:55 2016 +0200
+++ b/SmalltalkCodeGeneratorTool.st	Mon Jun 06 14:59:50 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2595,7 +2597,7 @@
         at:$h
             put:[:opt | helpOption := true];
         at:$? 
-            put:[:arg | self usage. Smalltalk exit:0];
+            put:[:arg | self usage. Smalltalk exitIfStandalone:0];
         default:[:arg | fileArgs add:arg];
         onError:[:msg | Stderr nextPutLine:msg. self usage];
         parse:argv.
@@ -2609,6 +2611,7 @@
 '.
 
     "Created: / 19-08-2011 / 02:18:49 / cg"
+    "Modified: / 06-06-2016 / 14:58:15 / cg"
 !
 
 codeFor_standAloneRealMainMethodFor:aClass
@@ -2641,10 +2644,11 @@
     Stderr nextPutLine:''usage: '',self applicationName,'' [options...]''.
     Stderr nextPutLine:''  -h .................. output this message''.
 
-    Smalltalk isStandAloneApp ifTrue:[ Smalltalk exit:1 ].
+    Smalltalk isStandAloneApp ifTrue:[ Smalltalk exitIfStandalone:1 ].
 '.
 
     "Created: / 19-08-2011 / 02:22:46 / cg"
+    "Modified: / 06-06-2016 / 14:59:19 / cg"
 !
 
 code_forWidget_buttonPress