# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1416439314 -3600
# Node ID 04818f13ca7882404231aaf9cea14945b20215ee
# Parent  8665cc1a004798ac6af551ba3abfad4986bc1100
class: Tools::BrowserList
changed: #update:with:from:
avoid queueing thousands of events
(when filing in)

diff -r 8665cc1a0047 -r 04818f13ca78 Tools__BrowserList.st
--- a/Tools__BrowserList.st	Wed Nov 19 23:04:26 2014 +0100
+++ b/Tools__BrowserList.st	Thu Nov 20 00:21:54 2014 +0100
@@ -910,6 +910,17 @@
             ^ self
         ].
     ].
+
+    self window isNil ifTrue:[^ self].
+    self window sensor userEventCount > 100 ifTrue:[
+        listValid ifTrue:[
+            "/ enqueue a full update.
+            self setListValid:false.
+            self enqueueMessage:#updateList for:self arguments:nil.
+        ].
+        ^ self
+    ].
+
     self enqueueDelayedUpdate:something with:aParameter from:changedObject.
 
     "Created: / 05-02-2000 / 13:42:07 / cg"
@@ -2068,10 +2079,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.71 2014-11-19 21:39:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.72 2014-11-19 23:21:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.71 2014-11-19 21:39:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.72 2014-11-19 23:21:54 cg Exp $'
 ! !