--- a/EditField.st	Sat Dec 01 04:34:07 2018 +0000
+++ b/EditField.st	Wed Dec 05 17:39:50 2018 +0100
@@ -1395,6 +1395,14 @@
     self passwordCharacter:$*
 !
 
+bePassword:aBoolean
+    "if true, make me a password entry field (i.e. show *'s for typed characters"
+
+    self passwordCharacter:(aBoolean ifTrue:[$*] ifFalse:[nil]).
+
+    "Created: / 05-12-2018 / 17:37:13 / Stefan Vogel"
+!
+
 emptyFieldReplacementText
     "the string to show in grey if nothing has been entered (and the field is passive)"