--- a/DialogBox.st	Fri Nov 17 09:54:42 1995 +0100
+++ b/DialogBox.st	Fri Nov 17 09:59:40 1995 +0100
@@ -24,7 +24,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.25 1995-11-11 16:19:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.26 1995-11-17 08:59:40 cg Exp $'
 !
 
 documentation
@@ -42,6 +42,14 @@
     Caveat: more adding support is required - especially for row-wise
     construction.
 
+    Historic note:
+	originally, ST/X had separate classes for the various entry methods;
+	there were YesNoBox, EnterBox, InfoBox and so on.
+	ST-80 has all this defined in the common Dialog.
+	Therefore, for compatibility, many ST/X methods defined here in Dialogs 
+	class protocol simply dispatch to some other boxes class method.
+
+
 
     instance variables:
 
@@ -711,6 +719,21 @@
     "
 !
 
+requestPassword:aString 
+    "launch a Dialog, which allows user to enter something invisibly.
+     Return the entered string (may be empty string) 
+     or nil (if cancel was pressed)"
+
+    ^ EnterBox requestPassword:aString 
+
+    "
+     Dialog 
+	 requestPassword:'enter secret:'
+    "
+
+    "Created: 17.11.1995 / 09:45:21 / cg"
+!
+
 request:aString initialAnswer:initial
     "launch a Dialog, which allows user to enter something.
      Return the entered string (may be empty string) or nil (if cancel was pressed)"