From 0ac30372c7e959e316abd4eff8e47f6d57494a8d Mon Sep 17 00:00:00 2001 From: Paul Steckler Date: Mon, 16 Feb 1998 20:33:27 +0000 Subject: [PATCH] Fixed problem with non-existent directory in edit control original commit: 36b4c7ec3d4e9d69f7e9f1c7d163c5ba90fd9694 --- collects/mred/finder.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss index 76ff3ede..0b55b5dc 100644 --- a/collects/mred/finder.ss +++ b/collects/mred/finder.ss @@ -248,14 +248,16 @@ [file (if relative-name (build-path current-dir relative-name) dir-name)]) - (let ([dir-name-len (string-length dir-name)]) + (let ([dir-name-len (string-length dir-name)] + [rel-name-len (string-length relative-name)]) (if (and (not save-mode?) relative-name - (not (string=? relative-name - (substring dir-name + (or (> rel-name-len dir-name-len) + (not (string=? relative-name + (substring dir-name (- dir-name-len - (string-length relative-name)) - dir-name-len)))) + rel-name-len) + dir-name-len))))) (wx:message-box (string-append "File \"" dir-name