checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 28 Feb 1997 19:53:09 +0100
changeset 1394 f40e168c528c
parent 1393 0af63b69b416
child 1395 7218ca27d752
checkin from browser
Controll.st
Controller.st
--- a/Controll.st	Fri Feb 28 19:52:16 1997 +0100
+++ b/Controll.st	Fri Feb 28 19:53:09 1997 +0100
@@ -207,11 +207,9 @@
 model:aModel
     "set my model"
 
-    model notNil ifTrue:[
-	model removeDependent:view
-    ].
     model := aModel.
-"/    model notNil ifTrue:[model addDependent:view]
+
+    "Modified: 28.2.1997 / 19:52:50 / cg"
 !
 
 sensor 
@@ -587,5 +585,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.43 1997-01-21 14:46:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.44 1997-02-28 18:53:09 cg Exp $'
 ! !
--- a/Controller.st	Fri Feb 28 19:52:16 1997 +0100
+++ b/Controller.st	Fri Feb 28 19:53:09 1997 +0100
@@ -207,11 +207,9 @@
 model:aModel
     "set my model"
 
-    model notNil ifTrue:[
-	model removeDependent:view
-    ].
     model := aModel.
-"/    model notNil ifTrue:[model addDependent:view]
+
+    "Modified: 28.2.1997 / 19:52:50 / cg"
 !
 
 sensor 
@@ -587,5 +585,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.43 1997-01-21 14:46:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.44 1997-02-28 18:53:09 cg Exp $'
 ! !