equal
deleted
inserted
replaced
814 deprecatedMethodIcon |
814 deprecatedMethodIcon |
815 ^ self fetchIcon:#deprecatedMethodIcon selector:#deprecatedMethodIcon |
815 ^ self fetchIcon:#deprecatedMethodIcon selector:#deprecatedMethodIcon |
816 ! |
816 ! |
817 |
817 |
818 fetchIcon:name selector:fetchSelector |
818 fetchIcon:name selector:fetchSelector |
819 "answer an icon to mark breakPointed methods" |
819 "answer an icon to mark methods" |
820 |
820 |
821 icons isNil ifTrue:[icons := IdentityDictionary new]. |
821 icons isNil ifTrue:[icons := IdentityDictionary new]. |
822 Icons isNil ifTrue:[Icons := IdentityDictionary new]. |
822 Icons isNil ifTrue:[Icons := IdentityDictionary new]. |
823 |
823 |
824 ^ icons at:name ifAbsentPut:[ |
824 ^ icons at:name ifAbsentPut:[ |
825 |fh icn h| |
825 |fh icn h| |
826 |
826 |
827 (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [ |
827 (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [ |
828 Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display). |
828 Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display). |
829 icn clearMaskedPixels. |
829 icn clearMaskedPixels. |
830 ]. |
830 ]. |
831 h := icn height. |
831 h := icn height. |
832 h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
832 h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
833 icn := icn magnifiedBy:(fh / h) |
833 icn := icn magnifiedBy:(fh / h) |
834 ]. |
834 ]. |
835 icn onDevice:device |
835 icn onDevice:device |
836 ] |
836 ] |
837 |
837 |
838 " |
838 " |
839 Icons := nil |
839 Icons := nil |
840 Icon flushCachedIcons |
840 Icon flushCachedIcons |
869 |
869 |
870 imageIcon |
870 imageIcon |
871 "answer an icon to mark image spec methods" |
871 "answer an icon to mark image spec methods" |
872 |
872 |
873 ^ self fetchIcon:#image selector:#imageIcon |
873 ^ self fetchIcon:#image selector:#imageIcon |
|
874 ! |
|
875 |
|
876 instrumentationIcon |
|
877 "answer an icon to mark instrumented methods" |
|
878 |
|
879 "/ ^ self fetchIcon:#watch selector:#watchIcon |
|
880 ^ self fetchIcon:#instrumentation selector:#instrumentationIcon |
874 ! |
881 ! |
875 |
882 |
876 menuIcon |
883 menuIcon |
877 "answer an icon to mark menu spec methods" |
884 "answer an icon to mark menu spec methods" |
878 |
885 |
1335 ! ! |
1342 ! ! |
1336 |
1343 |
1337 !BrowserList class methodsFor:'documentation'! |
1344 !BrowserList class methodsFor:'documentation'! |
1338 |
1345 |
1339 version |
1346 version |
1340 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.22 2007-07-03 14:00:34 cg Exp $' |
1347 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.23 2008-03-03 09:37:40 cg Exp $' |
1341 ! ! |
1348 ! ! |