--- a/Icon.st Wed Mar 20 17:53:35 2019 +0100
+++ b/Icon.st Thu Mar 21 19:20:35 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -232,6 +230,20 @@
^ KnownIcons keyAtValue:anImage ifAbsent:[nil].
! !
+!Icon class methodsFor:'cleanup'!
+
+lowSpaceCleanup
+ "cleanup in low-memory situations"
+
+ self flushCachedIcons
+
+ "
+ Icon lowSpaceCleanup
+ "
+
+ "Created: / 20-03-2019 / 17:49:15 / Claus Gittinger"
+! !
+
!Icon class methodsFor:'image specs'!
defaultSTXIcon1
@@ -700,18 +712,6 @@
"Modified: / 20-03-2019 / 17:50:34 / Claus Gittinger"
!
-lowSpaceCleanup
- "cleanup in low-memory situations"
-
- self flushCachedIcons
-
- "
- Icon lowSpaceCleanup
- "
-
- "Created: / 20-03-2019 / 17:49:15 / Claus Gittinger"
-!
-
preSnapshot
"flush cached icons contents before saving a snapshot
(do not save them in the image)"