--- a/SimpleView.st	Thu May 30 11:20:05 2019 +0200
+++ b/SimpleView.st	Thu May 30 11:21:34 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -3626,14 +3628,6 @@
     ^ (self originRelativeTo:nil) extent:(self extent)
 !
 
-setHeight:aNumber
-    "set the view's height in pixels"
-
-    height := aNumber.
-
-    "Created: / 01-02-2011 / 23:34:51 / cg"
-!
-
 setOrigin:aPoint
     "set the origin only"
 
@@ -3641,14 +3635,6 @@
     top := aPoint y.
 !
 
-setWidth:aNumber
-    "set the view's width in pixels"
-
-    width := aNumber.
-
-    "Created: / 01-02-2011 / 23:36:44 / cg"
-!
-
 sizeFixed:aBoolean
     "set/clear the fix-size attribute, if supported by concrete subclasses.
      Views which want to resize themselfes as appropriate to their contents
@@ -8235,13 +8221,14 @@
     "remove all dependencies from the receiver"
 
     visibilityChannel notNil ifTrue:[
-        visibilityChannel retractInterestsFor:self.
-        visibilityChannel removeDependent:self. visibilityChannel := nil
+        visibilityChannel removeDependentAndRetractInterestsFor:self.
+        visibilityChannel := nil
     ].
     super release
 
     "Created: / 11-06-1997 / 13:11:53 / cg"
     "Modified: / 08-02-2017 / 00:39:38 / cg"
+    "Modified: / 30-05-2019 / 11:14:22 / Claus Gittinger"
 !
 
 restarted