--- a/EditTextView.st	Fri Oct 13 12:43:12 2006 +0200
+++ b/EditTextView.st	Fri Oct 13 13:05:38 2006 +0200
@@ -2136,10 +2136,9 @@
 
     objects isEmpty ifTrue:[ ^ false ].
 
-    objects do:[:el|
-        (el isTextObject or:[el isFileObject]) ifFalse:[^ false].
-    ].
-    ^ true
+    ^ objects conform:[:obj| (obj isTextObject or:[obj isFileObject])]
+
+    "Modified: / 13-10-2006 / 12:44:01 / cg"
 !
 
 drop:aDropContextOrCollectionOfDropObjects
@@ -6658,5 +6657,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.402 2006-10-13 10:43:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.403 2006-10-13 11:05:38 cg Exp $'
 ! !