--- 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 $'
! !