#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 25 Jan 2018 20:08:33 +0100
changeset 6275 924ec06de44b
parent 6274 18d07b563ab9
child 6276 c5bd5d4f7243
#BUGFIX by cg class: PanelView added: #release
PanelView.st
--- 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:[