From 87f8e830b64fc6c5c234881044034de49f241be2 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 16 May 2008 19:08:35 +0000 Subject: [PATCH] Fixing type error in path dialog. When the directory is bad, we need to send a list of path-labels; the original code would pass in a path object and would emit a contract error of the form: dyoo@kfisler-ra1:~$ set in list-box%: expected argument of type ; given ("Bad Directory:" #) svn: r9868 --- 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 9b7c73e567..3280f60ddf 100644 --- a/collects/mred/private/path-dialog.ss +++ b/collects/mred/private/path-dialog.ss @@ -321,7 +321,7 @@ (send path-list enable #t)) (begin (set! pnames '()) (set! pnames-nulstrings '()) - (send path-list set (list "Bad Directory:" dir)) + (send path-list set (list "Bad Directory:" (path->string dir))) (send path-list enable #f))) (wx:end-busy-cursor))