--- a/AbstractLauncherApplication.st	Fri May 03 14:14:37 2002 +0200
+++ b/AbstractLauncherApplication.st	Fri May 03 20:17:30 2002 +0200
@@ -2715,7 +2715,7 @@
 editSettingsFor:requestor
     "open a dialog on edit settings"
 
-    |box st80EditingMode st80DoubleClickSelectMode resources tabsIs4 prevTabsIs4|
+    |box st80EditingMode st80DoubleClickSelectMode resources tabsIs4 prevTabsIs4 searchDialogIsModal|
 
     resources := requestor class classResources.
 
@@ -2726,15 +2726,17 @@
     st80DoubleClickSelectMode := TextView st80SelectMode asValue.
     prevTabsIs4 := (ListView userDefaultTabPositions = ListView tab4Positions).
     tabsIs4 := prevTabsIs4 asValue.
+    searchDialogIsModal := UserPreferences current searchDialogIsModal asValue.
     "/
     "/ create a box on those values ...
     "/
     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:'tab stops in multiples of 4') on:tabsIs4.
+    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:'Tab stops in multiples of 4') on:tabsIs4.
+    box addCheckBox:(resources string:'SearchBox is modal') on:searchDialogIsModal.
 
     box addHorizontalLine.
 
@@ -2759,6 +2761,7 @@
                 tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
             ].
         ].
+        UserPreferences current searchDialogIsModal:searchDialogIsModal value.
     ].
     box destroy
 
@@ -6431,5 +6434,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.194 2002-05-03 12:14:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.195 2002-05-03 18:17:30 cg Exp $'
 ! !