Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed:
authorClaus Gittinger <cg@exept.de>
Wed, 28 Oct 2009 11:01:42 +0100
changeset 9092 6bd5d66d58cf
parent 9091 bf023429f83d
child 9093 afeec57f277e
changed: #delayedUpdate:with:from: #update:with:from:
Tools__BreakpointBrowser.st file | annotate | diff | comparison | revisions 
--- 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!
hg/stx-libtool