--- a/SimpleView.st	Wed Feb 08 00:52:24 2017 +0100
+++ b/SimpleView.st	Wed Feb 08 00:52:29 2017 +0100
@@ -5044,6 +5044,14 @@
     "Created: 11.6.1997 / 13:10:40 / cg"
 !
 
+breakDependents
+    "remove all dependencies from the receiver"
+
+    dependents := nil
+
+    "Created: / 08-02-2017 / 00:39:05 / cg"
+!
+
 dependents
     "return a Collection of dependents.
      Views keep them in an instance variable to avoid overhead."
@@ -7824,6 +7832,8 @@
      (in this case, it should set all of its style-dependent things, but
       leave the state and contents as-is)"
 
+    <modifier: #super> "must be called if redefined"
+
     |ext myClass controllerClass|
 
     flagBits := flagBits ? 0.
@@ -7856,20 +7866,20 @@
     "/ self originChangedFlag:false extentChangedFlag:false cornerChangedFlag:false.
 
     name isNil ifTrue:[
-	name := self class name.
+        name := self class name.
     ].
     bitGravity := #NorthWest. "/ nil.
     viewGravity := nil.
 
     controllerClass := self defaultControllerClass.
     controllerClass notNil ifTrue:[
-	controller := controllerClass new.
-	controller view:self.
+        controller := controllerClass new.
+        controller view:self.
     ].
 
     self initializeMiddleButtonMenu.
 
-    "Modified: / 1.10.1998 / 14:31:05 / cg"
+    "Modified: / 08-02-2017 / 00:26:52 / cg"
 !
 
 initializeMiddleButtonMenu
@@ -7964,14 +7974,13 @@
     "remove all dependencies from the receiver"
 
     visibilityChannel notNil ifTrue:[
-	visibilityChannel retractInterestsFor:self.
-	visibilityChannel removeDependent:self. visibilityChannel := nil
-    ].
-
-    dependents := nil.
-
-    "Modified: 19.4.1996 / 10:31:35 / cg"
-    "Created: 11.6.1997 / 13:11:53 / cg"
+        visibilityChannel retractInterestsFor:self.
+        visibilityChannel removeDependent:self. visibilityChannel := nil
+    ].
+    super release
+
+    "Created: / 11-06-1997 / 13:11:53 / cg"
+    "Modified: / 08-02-2017 / 00:39:38 / cg"
 !
 
 restarted