tools/JavaSettingsApplication.st
branchdevelopment
changeset 2909 2fae1fd966be
parent 2732 7d1a1fb5b01a
child 3295 87ec39ef23b8
--- a/tools/JavaSettingsApplication.st	Mon Nov 11 09:48:58 2013 +0000
+++ b/tools/JavaSettingsApplication.st	Mon Nov 11 17:27:08 2013 +0000
@@ -625,11 +625,11 @@
 
 
     javaReleaseList isNil ifTrue:[
-        javaReleaseList := JavaRelease all asList
+        javaReleaseList := JavaRelease all asList addFirst: JavaRelease system; yourself
     ].
     ^ javaReleaseList.
 
-    "Modified: / 27-07-2012 / 00:13:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-11-2013 / 16:06:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 jdkBundleHolder
@@ -701,7 +701,7 @@
 
     rel := currentUserPrefs javaRelease.
     (rel isNil and:[Java notNil]) ifTrue:[
-        rel := Java release
+        rel := Java defaultRelease
     ].
     
     self javaReleaseHolder value: rel.
@@ -710,17 +710,19 @@
     self packageBundleHolder value: cpb packages.
     self environmentBundleHolder value: cpb environment.
 
-    "Modified: / 28-01-2013 / 20:32:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-11-2013 / 16:15:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 basicSaveSettings
-    self javaReleaseHolder value notNil ifTrue:[
+    | release |
+    release := self javaReleaseHolder value .
+    (release notNil and:[release ~~ JavaRelease system]) ifTrue:[
         currentUserPrefs javaReleaseSelector:  self javaReleaseHolder value selector.
     ] ifFalse:[
         currentUserPrefs javaReleaseSelector: nil.
     ].
 
-    "Modified: / 25-01-2013 / 22:25:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-11-2013 / 16:06:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 helpFilename
@@ -754,6 +756,7 @@
         self infoPanel hide.
     ].
 
+    setRel == JavaRelease system ifTrue:[ setRel :=  nil ].
     prefRel ~~ setRel ifTrue:[ ^ true ].
 
 
@@ -761,7 +764,7 @@
 
     ^false
 
-    "Modified: / 16-01-2013 / 13:44:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-11-2013 / 16:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaSettingsApplication class methodsFor:'documentation'!