responsTo: insteat of #perform:ifNotUnderstood:
authorca
Wed, 23 Oct 2002 11:26:55 +0200
changeset 2320 53ba8df4772a
parent 2319 b75af47412ff
child 2321 a35161597f7b
responsTo: insteat of #perform:ifNotUnderstood:
DSVColumnView.st
--- a/DSVColumnView.st	Wed Oct 23 11:11:11 2002 +0200
+++ b/DSVColumnView.st	Wed Oct 23 11:26:55 2002 +0200
@@ -3551,7 +3551,9 @@
         ].
         editView notNil ifTrue:[
             editView allSubViewsDo:[:aSubView|
-                aSubView perform:#accept ifNotUnderstood:nil.
+                (aSubView respondsTo:#accept) ifTrue:[
+                    aSubView accept
+                ].
             ]
         ].
 
@@ -3688,5 +3690,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.154 2002-10-23 09:11:11 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.155 2002-10-23 09:26:55 ca Exp $'
 ! !