Java.st
changeset 3567 d531449ff6b5
parent 3543 bd2afe3a5a0d
child 3588 ce12be5d2931
--- a/Java.st	Wed Apr 13 20:42:43 2016 +0100
+++ b/Java.st	Wed Apr 13 21:05:16 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1996-2015 by Claus Gittinger
 
@@ -223,7 +221,7 @@
 !
 
 defaultRelease
-    | nm release |
+    | nm release home |
 
     "First, consult STX_LIBJAVA_RELEASE environment variable, if set"
     nm := OperatingSystem getEnvironment:'STX_LIBJAVA_RELEASE'.
@@ -238,8 +236,15 @@
     ].
     nm notNil ifTrue:[
         release := JavaRelease perform: nm asSymbol ifNotUnderstood:[nil].
+        release notNil ifTrue:[ ^ release ].
     ].
-    release notNil ifTrue:[ ^ release ].
+
+    "/ Second. use release configured in preferences
+    home := UserPreferences current javaHome.
+    (home notEmptyOrNil and:[home asFilename exists]) ifTrue:[ 
+        release := JavaRelease inDirectory: home.
+        release notNil ifTrue:[ ^ release ].
+    ].
 
     release := JavaRelease system.
     "/ Java8 is not yet supported, it's here just for experiments...
@@ -256,7 +261,7 @@
     "
 
     "Created: / 11-11-2013 / 16:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 11-03-2015 / 12:33:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-04-2016 / 20:58:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initAllClasses