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

remove non-existent files from the 'open recent' menu (but only when the file is selected)

Browse Source 
original commit: 9817820e4ce55d1e8f07653ec14e6c672c3fbb92
This commit is contained in:
Robby Findler 2011-08-25 11:42:45 -05:00
parent 8471458b26
commit a8ce7a4346
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/handler.rkt
View File

@ -231,6 +231,9 @@
(when (equal? (send ed get-filename) filename) (when (equal? (send ed get-filename) filename)
(send ed set-position start end)))))] (send ed set-position start end)))))]
[else [else
(preferences:set 'framework:recently-opened-files/pos
(remove recent-list-item
(preferences:get 'framework:recently-opened-files/pos)))
(message-box (string-constant error) (message-box (string-constant error)
(format (string-constant cannot-open-because-dne) (format (string-constant cannot-open-because-dne)
filename))]))) filename))])))