--- a/Launcher.st	Fri Jan 16 17:52:51 1998 +0100
+++ b/Launcher.st	Sat Jan 17 14:51:31 1998 +0100
@@ -2244,7 +2244,7 @@
 
     |box shadows takeFocus returnFocus
      hostNameInLabel showAccelerators 
-     preemptive hostNameInLabelHolder|
+     preemptive hostNameInLabelHolder st80EditingMode|
 
     "/ 
     "/ extract relevant system settings ...
@@ -2258,6 +2258,8 @@
     showAccelerators := MenuView showAcceleratorKeys asValue.
     preemptive := Processor isTimeSlicing asValue.
 
+    st80EditingMode := EditTextView st80Mode asValue.
+
     "/
     "/ create a box on those values ...
     "/
@@ -2274,6 +2276,10 @@
 
     box addCheckBox:(resources string:'preemptive scheduling') on:preemptive.
 
+    box addHorizontalLine.
+
+    box addCheckBox:(resources string:'st80 cursor behavior in editTextView') on:st80EditingMode.
+
     box 
 	addHelpButtonFor:'Launcher/miscSettings.html';
 	addAbortButton; 
@@ -2312,12 +2318,13 @@
 	    ] ifFalse:[
 		Processor stopTimeSlicing
 	    ]
-	]
+	].
+	EditTextView st80Mode:(st80EditingMode value)
     ].
     box destroy
 
-    "Modified: 9.9.1996 / 22:43:36 / stefan"
-    "Modified: 20.8.1997 / 14:30:22 / cg"
+    "Modified: / 9.9.1996 / 22:43:36 / stefan"
+    "Modified: / 16.1.1998 / 22:56:57 / cg"
 !
 
 printerSettings
@@ -2755,6 +2762,7 @@
       nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
       nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
       nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
+      nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.';
       nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
     (Exception emergencyHandler == Launcher notifyingEmergencyHandler) ifTrue:[
 	s nextPutLine:'Exception emergencyHandler:(Launcher notifyingEmergencyHandler).'.
@@ -2808,7 +2816,7 @@
      Transcript topView application saveSettings
     "
 
-    "Modified: / 24.10.1997 / 02:32:00 / cg"
+    "Modified: / 16.1.1998 / 23:01:15 / cg"
 !
 
 sourceAndDebuggerSettings
@@ -4952,5 +4960,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.307 1998-01-16 15:21:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.308 1998-01-17 13:51:31 cg Exp $'
 ! !