added a label for the filename field

svn: r3713 original commit: a5a4d2700223031a7113e9a11cb8371b3c442d58
2006-07-15 18:45:04 +00:00 · 2006-07-15 18:45:04 +00:00 · 01b725dd00
commit 01b725dd00
parent 65745b4f75
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/path-dialog.ss
+++ b/collects/mred/private/path-dialog.ss
@ -598,7 +598,7 @@
                           [(list-box-dclick) (do-enter)]))]))

      (define text
-        (new text-field% [parent this] [label #f]
+        (new text-field% [parent this] [label "Filename:"]
          [init-value (cond [(path? filename) (path->string filename)]
                            [(string? filename) filename]
                            [else ""])]