equal
deleted
inserted
replaced
995 |
995 |
996 fetchIcon:name selector:fetchSelector |
996 fetchIcon:name selector:fetchSelector |
997 "answer an icon to mark methods" |
997 "answer an icon to mark methods" |
998 |
998 |
999 icons isNil ifTrue:[icons := IdentityDictionary new]. |
999 icons isNil ifTrue:[icons := IdentityDictionary new]. |
1000 "/ Icons isNil ifTrue:[Icons := IdentityDictionary new]. |
|
1001 |
1000 |
1002 ^ icons at:name ifAbsentPut:[ |
1001 ^ icons at:name ifAbsentPut:[ |
1003 |fh icn h| |
1002 |icn fh h| |
1004 |
1003 |
1005 true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [ |
1004 icn := (SystemBrowser perform:fetchSelector) onDevice:device. |
1006 icn := (SystemBrowser perform:fetchSelector) onDevice:Display. |
1005 icn clearMaskedPixels. |
1007 "/ Icons at:name put:icn. |
1006 |
1008 icn clearMaskedPixels. |
|
1009 ]. |
|
1010 h := icn height. |
1007 h := icn height. |
1011 h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
1008 h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
1012 icn := icn magnifiedBy:(fh / h) |
1009 icn := icn magnifiedBy:(fh / h) |
1013 ]. |
1010 ]. |
1014 icn onDevice:device |
1011 icn onDevice:device |
1015 ] |
1012 ] |
1016 |
|
1017 " |
|
1018 Icons := nil |
|
1019 Icon flushCachedIcons |
|
1020 " |
|
1021 ! |
1013 ! |
1022 |
1014 |
1023 fileImageIcon |
1015 fileImageIcon |
1024 "answer an icon to mark file-image spec methods" |
1016 "answer an icon to mark file-image spec methods" |
1025 |
1017 |
1891 ! ! |
1883 ! ! |
1892 |
1884 |
1893 !BrowserList class methodsFor:'documentation'! |
1885 !BrowserList class methodsFor:'documentation'! |
1894 |
1886 |
1895 version |
1887 version |
1896 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.62 2014-02-25 10:43:16 vrany Exp $' |
1888 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.63 2014-02-26 13:51:11 stefan Exp $' |
1897 ! |
1889 ! |
1898 |
1890 |
1899 version_CVS |
1891 version_CVS |
1900 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.62 2014-02-25 10:43:16 vrany Exp $' |
1892 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.63 2014-02-26 13:51:11 stefan Exp $' |
1901 ! ! |
1893 ! ! |
1902 |
1894 |