--- a/StandaloneStartup.st Fri Jul 19 12:22:40 2019 +0100
+++ b/StandaloneStartup.st Tue Jul 23 14:40:39 2019 +0100
@@ -994,7 +994,7 @@
--allowHost host ..... add host to the allowed scripting hosts
"
- |idx debugging baseDir|
+ |idx debugging|
"/ Smalltalk beHeadless:true.
"/ OperatingSystem disableSignal:(OperatingSystem sigHUP).
@@ -1029,18 +1029,6 @@
] ifFalse:[
self setupToolsForNoDebug.
].
- baseDir := OperatingSystem pathOfSTXExecutable asFilename directory.
- baseDir baseName = 'application' ifTrue:[
- ".../work/exept/expecco/application/expecco -> .../work/"
- baseDir := baseDir directory directory directory.
- Smalltalk packagePath
- add:(baseDir pathName).
- ] ifFalse:[
- "/opt/expecco/bin/expecco -> /opt/expecco/"
- baseDir := baseDir directory.
- Smalltalk packagePath
- add:(baseDir constructString:'packages').
- ].
(self suppressRCFileReading) ifFalse:[
self handleRCFileOptionsFromArguments:argv.
@@ -1055,6 +1043,7 @@
^ true
"Modified: / 24-05-2011 / 16:14:45 / cg"
+ "Modified: / 23-07-2019 / 14:28:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setupToolsForDebug
@@ -1268,6 +1257,11 @@
version_CVS
^ '$Header$'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !