Icon.st
changeset 4248 f663c36d3bfc
parent 4247 c78c58ecfc19
child 4249 d192d486c7f6
--- 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)"