Icon.st
changeset 4249 d192d486c7f6
parent 4248 f663c36d3bfc
--- 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'!