equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
228 nameIfKnownIcon:anImage |
226 nameIfKnownIcon:anImage |
229 "back-query, given an image, return its name-key if known; nil otherwise" |
227 "back-query, given an image, return its name-key if known; nil otherwise" |
230 |
228 |
231 KnownIcons isNil ifTrue:[^ nil]. |
229 KnownIcons isNil ifTrue:[^ nil]. |
232 ^ KnownIcons keyAtValue:anImage ifAbsent:[nil]. |
230 ^ KnownIcons keyAtValue:anImage ifAbsent:[nil]. |
|
231 ! ! |
|
232 |
|
233 !Icon class methodsFor:'cleanup'! |
|
234 |
|
235 lowSpaceCleanup |
|
236 "cleanup in low-memory situations" |
|
237 |
|
238 self flushCachedIcons |
|
239 |
|
240 " |
|
241 Icon lowSpaceCleanup |
|
242 " |
|
243 |
|
244 "Created: / 20-03-2019 / 17:49:15 / Claus Gittinger" |
233 ! ! |
245 ! ! |
234 |
246 |
235 !Icon class methodsFor:'image specs'! |
247 !Icon class methodsFor:'image specs'! |
236 |
248 |
237 defaultSTXIcon1 |
249 defaultSTXIcon1 |
698 " |
710 " |
699 |
711 |
700 "Modified: / 20-03-2019 / 17:50:34 / Claus Gittinger" |
712 "Modified: / 20-03-2019 / 17:50:34 / Claus Gittinger" |
701 ! |
713 ! |
702 |
714 |
703 lowSpaceCleanup |
|
704 "cleanup in low-memory situations" |
|
705 |
|
706 self flushCachedIcons |
|
707 |
|
708 " |
|
709 Icon lowSpaceCleanup |
|
710 " |
|
711 |
|
712 "Created: / 20-03-2019 / 17:49:15 / Claus Gittinger" |
|
713 ! |
|
714 |
|
715 preSnapshot |
715 preSnapshot |
716 "flush cached icons contents before saving a snapshot |
716 "flush cached icons contents before saving a snapshot |
717 (do not save them in the image)" |
717 (do not save them in the image)" |
718 |
718 |
719 self flushCachedIcons |
719 self flushCachedIcons |