Use new icon names: fullBreakPointedIcon and lineBreakPointedIcon
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 05 Mar 2014 11:40:08 +0100
changeset 14108 63d31145e7bb
parent 14107 bc79299d3e73
child 14109 6269ce6fbb65
Use new icon names: fullBreakPointedIcon and lineBreakPointedIcon instead of old #breakPointedIcon and #stopIcon (which are obsoleted now)
Tools__MethodList.st
--- a/Tools__MethodList.st	Wed Mar 05 11:39:09 2014 +0100
+++ b/Tools__MethodList.st	Wed Mar 05 11:40:08 2014 +0100
@@ -1666,7 +1666,7 @@
             s := s copyButLast:2
         ].
         aMethod isBreakpointed ifTrue:[
-            icn := self stopIcon
+            icn := self fullBreakPointedIcon.
         ] ifFalse:[
             aMethod isTimed ifTrue:[
                 icn := self timeIcon
@@ -1681,7 +1681,7 @@
     "/
     icn isNil ifTrue:[
         (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[
-            icn := self breakPointedIcon
+            icn := self lineBreakPointedIcon
         ].
     ].
 
@@ -1843,7 +1843,7 @@
     "Created: / 22-10-1996 / 19:51:00 / cg"
     "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 07-03-2012 / 19:06:09 / cg"
-    "Modified: / 05-03-2014 / 10:07:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-03-2014 / 10:31:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1893,10 +1893,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.99 2014-03-05 10:12:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.100 2014-03-05 10:40:08 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.99 2014-03-05 10:12:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.100 2014-03-05 10:40:08 vrany Exp $'
 ! !