--- a/YesNoBox.st	Thu Jan 16 11:12:42 1997 +0100
+++ b/YesNoBox.st	Thu Jan 16 11:33:29 1997 +0100
@@ -45,7 +45,8 @@
         be moved fully into Dialog, and the subclasses will be replaced by dummy
         delegators. (They will be kept for backward compatibility, though).
 
-
+    New applications should use corresponding confirmation
+    methods from DialogBox.
 
     this class implements yes-no boxes by adding another (no-) Button to the WarnBox-View.
     They are created with:
@@ -198,9 +199,11 @@
 !YesNoBox methodsFor:'accessing'!
 
 noAction:aBlock
-    "define the action to be performed when no is pressed"
+    "define the action to be performed when 'no' is pressed"
 
     abortAction := aBlock
+
+    "Modified: 16.1.1997 / 11:29:18 / cg"
 !
 
 noButton
@@ -210,27 +213,35 @@
 !
 
 noLabel:aString
-    "define the label of the no-button"
+    "define the label of the 'no'-button.
+     And alias for #noText: - for backward compatibility"
 
     self noText:aString.
 
     "Created: 13.12.1995 / 16:21:57 / cg"
+    "Modified: 16.1.1997 / 11:30:25 / cg"
 !
 
 noText:aString
-    "define the label of the no-button"
+    "define the label of the no-button.
+     If not set, it defaults to the resource-string for 'no'."
 
     aString ~= abortButton label ifTrue:[
-	abortButton label:aString.
-	abortButton resize.
-	shown ifTrue:[self resize]
+        abortButton label:aString.
+        abortButton resize.
+        shown ifTrue:[self resize]
     ]
+
+    "Modified: 16.1.1997 / 11:30:01 / cg"
 !
 
 okText:yesString noText:noString
-    "define the labels of both buttons - same as yesText:noText"
+    "define the labels of both buttons.
+     Alias for yesText:noText: for backward compatibility."
 
     ^ self yesText:yesString noText:noString
+
+    "Modified: 16.1.1997 / 11:30:58 / cg"
 !
 
 title:aString yesAction:yesBlock noAction:noBlock
@@ -249,9 +260,11 @@
 !
 
 yesAction:aBlock 
-    "define the action to be performed when yes is pressed"
+    "define the action to be performed when 'yes' is pressed"
 
     okAction := aBlock
+
+    "Modified: 16.1.1997 / 11:31:21 / cg"
 !
 
 yesAction:yesBlock noAction:noBlock
@@ -262,23 +275,29 @@
 !
 
 yesButton
-    "return the yes-button"
+    "return the 'yes'-button"
 
     ^ okButton
+
+    "Modified: 16.1.1997 / 11:31:27 / cg"
 !
 
 yesLabel:aString
-    "define the label of the yes-button"
+    "define the label of the 'yes'-button.
+     An alias for #yesText: for backward compatibility."
 
     self yesText:aString.
 
     "Created: 13.12.1995 / 16:22:05 / cg"
+    "Modified: 16.1.1997 / 11:31:58 / cg"
 !
 
 yesText:aString
-    "define the label of the yes-button"
+    "define the label of the 'yes'-button"
 
     self okText:aString
+
+    "Modified: 16.1.1997 / 11:31:39 / cg"
 !
 
 yesText:yesString noText:noString
@@ -400,5 +419,5 @@
 !YesNoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.35 1997-01-15 22:44:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.36 1997-01-16 10:33:29 cg Exp $'
 ! !