equal
deleted
inserted
replaced
1 "{ Package: 'stx:libview' }" |
1 "{ Package: 'stx:libview' }" |
2 |
2 |
3 Object subclass:#MimeTypeIconLibrary |
3 Object subclass:#MimeTypeIconLibrary |
4 instanceVariableNames:'' |
4 instanceVariableNames:'' |
5 classVariableNames:'Icons MatchedIcons DefaultIcons' |
5 classVariableNames:'Icons MatchedIcons' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'Interface-Smalltalk' |
7 category:'Interface-Smalltalk' |
8 ! |
8 ! |
9 |
9 |
10 |
10 |
11 !MimeTypeIconLibrary class methodsFor:'initialization'! |
11 !MimeTypeIconLibrary class methodsFor:'initialization'! |
12 |
12 |
13 icons |
|
14 DefaultIcons isNil ifTrue:[ |
|
15 self initializeIcons |
|
16 ]. |
|
17 ^ Icons |
|
18 ! |
|
19 |
|
20 initialize |
13 initialize |
|
14 self initializeIcons |
21 ! |
15 ! |
22 |
16 |
23 initializeFileTypeIcons |
17 initializeFileTypeIcons |
24 |resources| |
18 |resources| |
25 |
19 |
185 " |
179 " |
186 ! ! |
180 ! ! |
187 |
181 |
188 !MimeTypeIconLibrary class methodsFor:'accessing'! |
182 !MimeTypeIconLibrary class methodsFor:'accessing'! |
189 |
183 |
190 matchedIcons |
184 iconForKey:mimeTypeOrKey |
191 MatchedIcons isNil ifTrue:[ |
185 |
192 MatchedIcons := OrderedCollection new. |
186 ^ Icons at:mimeTypeOrKey ifAbsent:nil. |
193 ]. |
187 ! |
194 ^ MatchedIcons |
188 |
|
189 iconForKeyMatching:mimeTypeOrKey |
|
190 |
|
191 ^ MatchedIcons detect:[:assoc | assoc key match:mimeTypeOrKey] ifNone:nil. |
195 ! ! |
192 ! ! |
196 |
193 |
197 !MimeTypeIconLibrary class methodsFor:'default'! |
194 !MimeTypeIconLibrary class methodsFor:'documentation'! |
198 |
195 |
199 defaultIcons |
196 version |
200 ^ DefaultIcons |
197 ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.2 2003-12-01 14:47:57 penk Exp $' |
201 ! ! |
198 ! ! |
202 |
199 |
203 !MimeTypeIconLibrary class methodsFor:'documentation'! |
|
204 |
|
205 version |
|
206 ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.1 2003-12-01 14:04:07 penk Exp $' |
|
207 ! ! |
|
208 |
|
209 MimeTypeIconLibrary initialize! |
200 MimeTypeIconLibrary initialize! |