--- a/Launcher.st	Mon Oct 05 13:42:30 1998 +0200
+++ b/Launcher.st	Mon Oct 05 13:52:47 1998 +0200
@@ -3407,19 +3407,29 @@
 javaSettingsFor:requestor
     "open a dialog on infoMessage related settings"
 
-    |box audio resources|
+    |box audio javaHome resources component|
 
     resources := requestor class classResources.
 
     audio := JavaVM audioEnabled asValue.
+    javaHome := (Java javaHome ? '') asValue.
 
     box := DialogBox new.
     box label:(resources string:'Java').
 
     box addCheckBox:(resources string:'Audio Enabled') on:audio.
+    component := box 
+                    addLabelledInputField:(resources string:'java home:')
+                    adjust:#right
+                    on:javaHome 
+                    tabable:true
+                    separateAtX:0.3.
+    component acceptOnLeave:false.
+
+    box addVerticalSpace.
     box addComponent:(Button 
-			label:(resources string:'Reinit VM now') 
-			action:[JavaVM initializeVM]).
+                        label:(resources string:'Reinit VM now') 
+                        action:[JavaVM initializeVM]).
     "/ box addHorizontalLine.
 
 "/    box addHelpButtonFor:'Launcher/javaSettings.html'.
@@ -3427,7 +3437,7 @@
     box open.
 
     box accepted ifTrue:[
-	JavaVM audioEnabled:audio value.
+        JavaVM audioEnabled:audio value.
     ].
     box destroy
 
@@ -5858,5 +5868,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.378 1998-10-02 18:33:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.379 1998-10-05 11:52:47 cg Exp $'
 ! !