--- a/EditField.st	Fri May 23 11:31:52 2014 +0200
+++ b/EditField.st	Fri May 23 16:07:15 2014 +0200
@@ -2352,6 +2352,16 @@
     ]
 !
 
+setClipboardText:something
+    "redefined to refuse to copy the password to the clipboard"
+
+    passwordCharacter notNil ifTrue:[
+        self beep.
+        ^ self
+    ].
+    ^ super setClipboardText:something
+!
+
 validateNewSelection
     "make certain that only one line is ever selected"
 
@@ -2365,10 +2375,10 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.235 2014-04-13 21:00:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.236 2014-05-23 14:07:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.235 2014-04-13 21:00:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.236 2014-05-23 14:07:15 cg Exp $'
 ! !