--- a/Tools_BrowserList.st	Tue May 15 11:29:00 2012 +0200
+++ b/Tools_BrowserList.st	Tue May 15 11:32:01 2012 +0200
@@ -20,7 +20,8 @@
 		showClassPackages selectionHolder packageFilter nameSpaceFilter
 		organizerMode slaveMode listValid pseudoListLabelHolder icons
 		sortBy autoSelect showAllClassesInNameSpaceOrganisation
-		nameFilter showCoverageInformation searchHandler'
+		nameFilter showCoverageInformation searchHandler
+		autoUpdateOnChange'
 	classVariableNames:'SynchronousUpdate Icons'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -190,6 +191,30 @@
 
 !BrowserList methodsFor:'aspects'!
 
+autoUpdateOnChange
+    "automatic update of the list, when the system changes.
+     For some (slow) search lists (such as string-search), autoupdate is
+     disabled as it would otherwise make the browser unusable.
+     Those lists need an explicit menu-update action."
+
+    ^ autoUpdateOnChange ? true.
+
+    "Modified: / 24-02-2000 / 23:57:13 / cg"
+    "Created: / 15-05-2012 / 11:16:07 / cg"
+!
+
+autoUpdateOnChange: aBoolean
+    "automatic update of the list, when the system changes.
+     For some (slow) search lists (such as string-search), autoupdate is
+     disabled as it would otherwise make the browser unusable.
+     Those lists need an explicit menu-update action."
+
+    autoUpdateOnChange := aBoolean
+
+    "Modified: / 24-02-2000 / 23:57:13 / cg"
+    "Created: / 15-05-2012 / 11:17:18 / cg"
+!
+
 defaultSlaveModeValue
     ^ nil.
 
@@ -1767,5 +1792,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.40 2012-02-13 13:45:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.41 2012-05-15 09:32:01 cg Exp $'
 ! !