--- a/Icon.st Thu Mar 21 19:20:35 2019 +0100
+++ b/Icon.st Tue Mar 26 00:25:23 2019 +0100
@@ -720,15 +720,19 @@
!
releaseCachedIconsFromDevice:aGraphicsDevice
- KnownIcons do:[:eachImage |
- eachImage graphicsDevice == aGraphicsDevice ifTrue:[
- eachImage release.
- ]
+ KnownIcons do:[:eachImage |
+ eachImage notNil ifTrue:[
+ eachImage graphicsDevice == aGraphicsDevice ifTrue:[
+ eachImage release.
+ ]
+ ].
].
"
Icon releaseCachedIconsFromDevice:Display
"
+
+ "Modified: / 26-03-2019 / 00:15:09 / Claus Gittinger"
! !
!Icon class methodsFor:'documentation'!