--- 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 $'
 ! !