Tools__BreakpointBrowser.st
changeset 9092 6bd5d66d58cf
parent 9080 dca24ca8a31f
child 9285 c1adba01f75f
--- a/Tools__BreakpointBrowser.st	Wed Oct 28 10:50:20 2009 +0100
+++ b/Tools__BreakpointBrowser.st	Wed Oct 28 11:01:42 2009 +0100
@@ -918,10 +918,20 @@
 !BreakpointBrowser methodsFor:'change & update'!
 
 delayedUpdate:something with:aParameter from:changedObject
-"/    changedObject == toDoList ifTrue:[
-"/        self updateShownToDoList.
-"/        ^ self
-"/    ].
+    changedObject == Smalltalk ifTrue:[
+        something == #methodInClass ifTrue:[
+            self updateForClass:(aParameter first) selector:(aParameter second).
+            ^ self.
+        ].
+        something == #methodInClassRemoved ifTrue:[
+            self updateForClass:(aParameter first) selector:(aParameter second).
+            ^ self.
+        ].
+        something == #ignoredHalts ifTrue:[
+            self updateShownBreakpointList.
+            ^ self.
+        ].
+    ].
 !
 
 filter
@@ -991,30 +1001,9 @@
 
 update:something with:aParameter from:changedObject
     changedObject == Smalltalk ifTrue:[
-        something == #methodInClass ifTrue:[
-            self updateForClass:(aParameter first) selector:(aParameter second).
-            ^ self.
-        ].
-        something == #methodInClassRemoved ifTrue:[
-            self updateForClass:(aParameter first) selector:(aParameter second).
-            ^ self.
-        ].
+        self enqueueDelayedUpdate:something with:aParameter from:changedObject.
+        ^ self.
     ].
-
-    ^ super update:something with:aParameter from:changedObject
-
-    "Created: / 18-02-2007 / 12:54:32 / cg"
-
-
-
-
-
-
-
-
-
-
-
 !
 
 updateBreakpointList
@@ -1753,11 +1742,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.18 2009-10-26 10:57:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.19 2009-10-28 10:01:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.18 2009-10-26 10:57:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.19 2009-10-28 10:01:42 cg Exp $'
 ! !
 
 BreakpointBrowser initialize!