--- a/Controll.st	Thu Mar 06 15:26:08 1997 +0100
+++ b/Controll.st	Thu Mar 06 15:37:12 1997 +0100
@@ -99,6 +99,12 @@
     "open my view"
 
     view open
+!
+
+poll
+    "ST-80 compatibility - ignored here"
+
+    "Created: 6.3.1997 / 15:29:45 / cg"
 ! !
 
 !Controller methodsFor:'ST-80 compatibility events'!
@@ -227,18 +233,10 @@
 view:aView
     "set my view"
 
-    view notNil ifTrue:[
-	model notNil ifTrue:[
-	    model removeDependent:view
-	]
-    ].
     view := aView.
-    model notNil ifTrue:[
-"/        model addDependent:view
-	view notNil ifTrue:[
-	    view model:model
-	]
-    ].
+    sensor := aView sensor.
+
+    "Modified: 6.3.1997 / 15:31:48 / cg"
 ! !
 
 !Controller methodsFor:'event handling'!
@@ -585,5 +583,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.44 1997-02-28 18:53:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.45 1997-03-06 14:37:12 cg Exp $'
 ! !

--- a/Controller.st	Thu Mar 06 15:26:08 1997 +0100
+++ b/Controller.st	Thu Mar 06 15:37:12 1997 +0100
@@ -99,6 +99,12 @@
     "open my view"
 
     view open
+!
+
+poll
+    "ST-80 compatibility - ignored here"
+
+    "Created: 6.3.1997 / 15:29:45 / cg"
 ! !
 
 !Controller methodsFor:'ST-80 compatibility events'!
@@ -227,18 +233,10 @@
 view:aView
     "set my view"
 
-    view notNil ifTrue:[
-	model notNil ifTrue:[
-	    model removeDependent:view
-	]
-    ].
     view := aView.
-    model notNil ifTrue:[
-"/        model addDependent:view
-	view notNil ifTrue:[
-	    view model:model
-	]
-    ].
+    sensor := aView sensor.
+
+    "Modified: 6.3.1997 / 15:31:48 / cg"
 ! !
 
 !Controller methodsFor:'event handling'!
@@ -585,5 +583,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.44 1997-02-28 18:53:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.45 1997-03-06 14:37:12 cg Exp $'
 ! !