suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed problem with non-existent directory in edit control

Browse Source 
original commit: 36b4c7ec3d4e9d69f7e9f1c7d163c5ba90fd9694
This commit is contained in:
Paul Steckler 1998-02-16 20:33:27 +00:00
parent c9cc887141
commit 0ac30372c7
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mred/finder.ss
View File

@ -248,14 +248,16 @@
[file (if relative-name [file (if relative-name
(build-path current-dir relative-name) (build-path current-dir relative-name)
dir-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?) (if (and (not save-mode?)
relative-name relative-name
(not (string=? relative-name (or (> rel-name-len dir-name-len)
(substring dir-name (not (string=? relative-name
(substring dir-name
(- dir-name-len (- dir-name-len
(string-length relative-name)) rel-name-len)
dir-name-len)))) dir-name-len)))))
(wx:message-box (wx:message-box
(string-append "File \"" (string-append "File \""
dir-name dir-name