PanelView.st
changeset 6275 924ec06de44b
parent 6165 ff8b7a83327f
child 6346 2494de2e1023
--- a/PanelView.st	Thu Jan 25 19:12:57 2018 +0100
+++ b/PanelView.st	Thu Jan 25 20:08:33 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -448,7 +450,7 @@
 
 ! !
 
-!PanelView methodsFor:'initialization'!
+!PanelView methodsFor:'initialization & release'!
 
 initialize
     <modifier: #super> "must be called if redefined"
@@ -479,6 +481,14 @@
     super realize
 !
 
+release
+    backgroundChannel notNil ifTrue:[
+        backgroundChannel retractInterestsFor:self.
+        backgroundChannel removeDependent:self. backgroundChannel := nil
+    ].
+    super release
+!
+
 resize
     super resize.
     mustRearrange ifTrue:[