category of: #release
authorClaus Gittinger <cg@exept.de>
Mon, 13 Feb 2012 14:44:39 +0100
changeset 2878 241be37ce37b
parent 2877 1a7cd3e6eea1
child 2879 207a5186e62d
category of: #release
DirectoryView.st
--- a/DirectoryView.st	Mon Feb 06 13:12:52 2012 +0100
+++ b/DirectoryView.st	Mon Feb 13 14:44:39 2012 +0100
@@ -406,6 +406,20 @@
     "Modified: / 20.6.1998 / 14:46:10 / cg"
 ! !
 
+!DirectoryView methodsFor:'initialize-release'!
+
+release
+
+    monitoring ifTrue:
+    [
+        Processor removeTimedBlock:monitoringTimeBlock.
+        monitoringTimeBlock := nil
+    ].
+
+    super release
+
+! !
+
 !DirectoryView methodsFor:'menu actions'!
 
 updateFileList
@@ -592,18 +606,6 @@
 
     super closeRequest
 
-!
-
-release
-
-    monitoring ifTrue:
-    [
-        Processor removeTimedBlock:monitoringTimeBlock.
-        monitoringTimeBlock := nil
-    ].
-
-    super release
-
 ! !
 
 !DirectoryView::FileRow class methodsFor:'resources'!