--- a/Tools_BrowserList.st Fri Mar 22 12:36:31 2013 +0100
+++ b/Tools_BrowserList.st Fri Mar 22 12:36:34 2013 +0100
@@ -961,6 +961,12 @@
^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon
!
+breakPointedIcon
+ "answer an icon to mark breakPointed methods"
+
+ ^ self fetchIcon:#breakPointed selector:#breakPointedIcon
+!
+
canvasIcon
"answer an icon to mark canvas spec methods"
@@ -976,13 +982,14 @@
"answer an icon to mark methods"
icons isNil ifTrue:[icons := IdentityDictionary new].
- Icons isNil ifTrue:[Icons := IdentityDictionary new].
+ "/ Icons isNil ifTrue:[Icons := IdentityDictionary new].
^ icons at:name ifAbsentPut:[
|fh icn h|
- (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [
- Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display).
+ true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [
+ icn := (SystemBrowser perform:fetchSelector) onDevice:Display.
+ "/ Icons at:name put:icn.
icn clearMaskedPixels.
].
h := icn height.
@@ -1871,10 +1878,10 @@
!BrowserList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.56 2013-03-10 15:52:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013-03-22 11:36:34 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.56 2013-03-10 15:52:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013-03-22 11:36:34 cg Exp $'
! !