.

original commit: 9525dc3abd346713ad7a785b43d01b74390cf4a2
2004-08-16 20:43:55 +00:00 · 2004-08-16 20:43:55 +00:00 · ffa56a3edf
commit ffa56a3edf
parent 9c37ff81ba
1 changed files with 2 additions and 4 deletions
--- a/collects/framework/framework.ss
+++ b/collects/framework/framework.ss
@ -446,10 +446,8 @@
    (filename)
    "Generates a name for an backup file from \\var{filename}.")
   (finder:dialog-parent-parameter
-    (case->
-     ((union false? (is-a?/c top-level-window<%>)) . -> . void?)
-     (-> (union false? (is-a?/c top-level-window<%>))))
-    ((parent) ())
+    any?
+    ()
    "This is a parameter (see "
    "\\Mzhyperref{parameters}{mz:parameters} for information about parameters)"
    "which determines the parent of the dialogs created by"