added a label for the filename field

svn: r3713
2006-07-15 18:45:04 +00:00 · 2006-07-15 18:45:04 +00:00 · a5a4d27002
commit a5a4d27002
parent e5511ae1ed
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 ""])]