--- 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:[