--- a/DialogBox.st	Thu Sep 01 12:30:03 2016 +0200
+++ b/DialogBox.st	Thu Sep 01 12:31:56 2016 +0200
@@ -1148,7 +1148,7 @@
         icon:aClass defaultIconForAboutBox
 !
 
-askWith:setupBlock ifNotNilOrEmptyDo:actionBlock
+ask:setupBlock ifNotNilOrEmptyDo:actionBlock
     "utility: open a requestor with setupBlock;
      if it answers ok, invoke actionBlock with the entered input.
      Otherwise do nothing"
@@ -1162,12 +1162,17 @@
 
     "
      Dialog 
-        askWith:[ Dialog requestFileName:'Some File:' ] 
+        ask:[ Dialog request:'Some Answer:' ] 
         ifNotNilOrEmptyDo:[:what | Transcript showCR:what ]
     "
-!
-
-askYesNoWith:setupBlock ifYesDo:actionBlock
+    "
+     Dialog 
+        ask:[ Dialog requestFileName:'Some File:' ] 
+        ifNotNilOrEmptyDo:[:what | Transcript showCR:what ]
+    "
+!
+
+askYesNo:setupBlock ifYesDo:actionBlock
     "utility: open a confirmer with setupBlock;
      if it answers true, invoke actionBlock.
      Otherwise do nothing"
@@ -1181,7 +1186,7 @@
 
     "
      Dialog 
-        askYesNoWith:[ Dialog confirm:'Yes or No?' ] 
+        askYesNo:[ Dialog confirm:'Yes or No?' ] 
         ifYesDo:[ Transcript showCR:'yes' ]
     "
 !