Fixed JavaRelease class>>system
Must send JavaRelease>>javaExecutable: in order to initialize release's java home!
--- a/JavaRelease.st Thu Apr 17 16:34:37 2014 +0200
+++ b/JavaRelease.st Thu Apr 17 20:16:53 2014 +0200
@@ -367,7 +367,7 @@
releases sort:[:a :b | a priority > b priority ].
releases do:[:release |
(release validateJavaExecutable: javaExecutable) ifTrue:[
- "/ release javaExecutable: javaExecutable.
+ release javaExecutable: javaExecutable.
^ release.
].
]
@@ -375,6 +375,7 @@
^ nil.
"Created: / 08-04-2014 / 14:12:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-04-2014 / 20:03:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
inDirectory:javaHome
@@ -547,6 +548,12 @@
"Created: / 12-02-2013 / 14:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+javaExecutable: aStringOrFilename
+ self javaHome: (self javaHomeForJavaExecutable: aStringOrFilename)
+
+ "Created: / 17-04-2014 / 20:04:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
javaExecutableForJavaHome: javaHomeArg
"For given java home (path to JRE root if JRE, or JDK root if part of full JDK) return
path to java executable (java.exe on Windows, java on UNIX). If no executable is found