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.
#UI_ENHANCEMENT
authorClaus Gittinger <cg@exept.de>
Fri, 15 Jan 2016 21:41:06 +0100
changeset 16029 ea99c06473a2
parent 16028 38c1722352ef
child 16030 cc76abe0dc28
#UI_ENHANCEMENT class: Tools::MethodList changed: #listEntryForMethod:selector:class:showClass:showCategory:classFirst:suppressInheritanceInfo: show blue icon if tracing or disabled breakpoint; red icon for enabled breakpoints only
Tools__MethodList.st file | annotate | diff | comparison | revisions 
--- a/Tools__MethodList.st	Fri Jan 15 21:40:32 2016 +0100
+++ b/Tools__MethodList.st	Fri Jan 15 21:41:06 2016 +0100
@@ -1691,7 +1691,11 @@
     "/
     icn isNil ifTrue:[
         (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[
-            icn := self lineBreakPointedIcon
+            aMethod hasEnabledBreakpoints ifTrue:[ 
+                icn := self lineBreakPointedIcon
+            ] ifFalse:[    
+                icn := self lineTracePointedIcon
+            ].
         ].
     ].
 
@@ -1909,10 +1913,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.118 2015-02-26 03:58:57 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.118 2015-02-26 03:58:57 cg Exp $'
+    ^ '$Header$'
 ! !
hg/stx-libtool