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

..

Browse Source 
original commit: 07e50bebd47707b280674a8618a7757c038686de
This commit is contained in:
Robby Findler 2002-07-23 22:58:46 +00:00
parent 60a7f665dc
commit ebbe1dfc45
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/private/handler.ss
View File

@ -225,12 +225,18 @@
(define (open-recent-list-item recent-list-item)
(let* ([filename (car recent-list-item)]
[start (cadr recent-list-item)]
[end (caddr recent-list-item)]
[fr (edit-file filename)])
[end (caddr recent-list-item)])
(cond
[(file-exists? filename)
(let ([fr (edit-file filename)])
(when (is-a? fr frame:open-here<%>)
(let ([ed (send fr get-open-here-editor)])
(when (equal? (send ed get-filename) filename)
(send ed set-position start end))))))
(send ed set-position start end)))))]
[else
(message-box (string-constant error)
(format (string-constant cannot-open-because-dne)
filename))])))
;; show-recent-items-window : -> void
(define (show-recent-items-window)