From 01b725dd00cc72beea2f72526d910185f1376c50 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 15 Jul 2006 18:45:04 +0000 Subject: [PATCH] added a label for the filename field svn: r3713 original commit: a5a4d2700223031a7113e9a11cb8371b3c442d58 --- collects/mred/private/path-dialog.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss index 924688c0..3ec5f557 100644 --- 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 ""])]