diff -r 0e2a783f291b -r 1f45872c372f AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Mon Jul 03 16:36:49 2006 +0200
+++ b/AbstractLauncherApplication.st	Mon Jul 03 16:36:59 2006 +0200
@@ -3071,7 +3071,7 @@
 editSettings
     "open a dialog on edit settings"
 
-    |box st80EditingMode st80DoubleClickSelectMode resources 
+    |box st80EditMode st80SelectMode resources 
      tabsIs4 prevTabsIs4 searchDialogIsModal startTextDragWithControl|
 
     resources := self owningClass classResources.
@@ -3079,8 +3079,8 @@
     "/ 
     "/ extract relevant system settings ...
     "/
-    st80EditingMode := UserPreferences current st80EditMode asValue.
-    st80DoubleClickSelectMode := TextView st80SelectMode asValue.
+    st80EditMode := UserPreferences current st80EditMode asValue.
+    st80SelectMode := UserPreferences current st80SelectMode asValue.
     prevTabsIs4 := (ListView userDefaultTabPositions = ListView tab4Positions).
     tabsIs4 := prevTabsIs4 asValue.
     searchDialogIsModal := UserPreferences current searchDialogIsModal asValue.
@@ -3092,8 +3092,8 @@
     box := DialogBox new.
     box label:(resources string:'Edit settings').
 
-    box addCheckBox:(resources string:'Cursor has ST80 Line-end Behavior') on:st80EditingMode.
-    box addCheckBox:(resources string:'Double Click Select Behavior as in ST80') on:st80DoubleClickSelectMode.
+    box addCheckBox:(resources string:'Cursor has ST80 Line-end Behavior') on:st80EditMode.
+    box addCheckBox:(resources string:'Double Click Select Behavior as in ST80') on:st80SelectMode.
     box addCheckBox:(resources string:'Tab Stops in Multiples of 4') on:tabsIs4.
     box addCheckBox:(resources string:'SearchBox is Modal') on:searchDialogIsModal.
     box addCheckBox:(resources string:'CTRL-Key to Start TextDrag') on:startTextDragWithControl.
@@ -3113,8 +3113,8 @@
     "/ update system settings
     "/
     box accepted ifTrue:[
-        UserPreferences current st80EditMode:(st80EditingMode value).
-        TextView st80SelectMode:(st80DoubleClickSelectMode value).
+        UserPreferences current st80EditMode:(st80EditMode value).
+        UserPreferences current st80SelectMode:(st80SelectMode value).
         tabsIs4 value ~~ prevTabsIs4 ifTrue:[
             ListView userDefaultTabPositions:(tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
             ListView allSubInstancesDo:[:eachKindOfListView |
@@ -3126,8 +3126,8 @@
     ].
     box destroy
 
-    "Created: / 6.1.1999 / 14:12:09 / cg"
-    "Modified: / 6.1.1999 / 14:17:51 / cg"
+    "Created: / 06-01-1999 / 14:12:09 / cg"
+    "Modified: / 03-07-2006 / 16:35:03 / cg"
 !
 
 fontSettingsFor:requestor
@@ -6527,5 +6527,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.332 2006-03-10 09:49:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.333 2006-07-03 14:36:59 cg Exp $'
 ! !