Launcher.st
changeset 1987 f1a91528fe70
parent 1984 234c397b8b00
child 1997 c91eb672447c
--- a/Launcher.st	Fri Jan 29 15:59:19 1999 +0100
+++ b/Launcher.st	Fri Jan 29 16:15:10 1999 +0100
@@ -3371,7 +3371,7 @@
      extraFileSecurityChecks extraSocketSecurityChecks
      supportsJustInTimeCompilation 
      javaJustInTimeCompilation javaNativeCodeOptimization
-     showJavaByteCode|
+     showJavaByteCode exceptionDebug|
 
     resources := requestor class classResources.
 
@@ -3385,6 +3385,7 @@
         javaJustInTimeCompilation := javaNativeCodeOptimization := false
     ].
     showJavaByteCode := JavaMethod forceByteCodeDisplay asValue.
+    exceptionDebug := JavaVM exceptionDebug asValue.
 
     javaHome := (Java javaHome ? '') asValue.
 
@@ -3394,6 +3395,7 @@
     box addCheckBox:(resources string:'Audio Enabled') on:audio.
     box addCheckBox:(resources string:'Confirm file open for write') on:extraFileSecurityChecks.
     box addCheckBox:(resources string:'Confirm socket connect') on:extraSocketSecurityChecks.
+    box addCheckBox:(resources string:'Debug Exceptions') on:exceptionDebug.
     box addHorizontalLine.
     supportsJustInTimeCompilation ifTrue:[
         box 
@@ -3443,6 +3445,7 @@
     box accepted ifTrue:[
         JavaMethod forceByteCodeDisplay:showJavaByteCode value. 
         JavaVM audioEnabled:audio value.
+        JavaVM exceptionDebug:exceptionDebug value.
         JavaVM fileOpenConfirmation: extraFileSecurityChecks value.
         JavaVM socketConnectConfirmation: extraSocketSecurityChecks value.
         javaJustInTimeCompilation value ~~ ObjectMemory javaJustInTimeCompilation ifTrue:[
@@ -3458,7 +3461,7 @@
     box destroy
 
     "Created: / 18.7.1998 / 22:32:58 / cg"
-    "Modified: / 16.12.1998 / 13:09:06 / cg"
+    "Modified: / 27.1.1999 / 20:16:03 / cg"
 !
 
 keyboardSettingsFor:requestor 
@@ -5951,5 +5954,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.397 1999-01-23 14:20:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.398 1999-01-29 15:15:10 cg Exp $'
 ! !