diff -r e91b782c288c -r 69edb2e7436c EditField.st --- a/EditField.st Mon Dec 08 00:27:55 2008 +0100 +++ b/EditField.st Tue Dec 09 19:47:45 2008 +0100 @@ -1446,7 +1446,9 @@ "drop objects Redefined to always drop the name only" - self undoablePaste:(aDropObject asFilename pathName) info:'drop filename'. + self + undoablePaste:(aDropObject asFilename pathName) + info:'Drop Filename'. "Created: / 13-10-2006 / 17:42:22 / cg" "Modified: / 28-07-2007 / 13:27:32 / cg" @@ -1565,7 +1567,8 @@ (key == #DeleteLine) ifTrue:[ Smalltalk at:#CopyBuffer put:(self contents). - self contents:''. ^ self + self contents:''. + ^ self ]. (key == entryCompletionCharacter and:[self entryCompletionBlock notNil]) ifTrue:[ @@ -2231,5 +2234,5 @@ !EditField class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.198 2008-10-26 20:14:32 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.199 2008-12-09 18:47:45 cg Exp $' ! !