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

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

@ -225,12 +225,18 @@
(define (open-recent-list-item recent-list-item) (define (open-recent-list-item recent-list-item)
(let* ([filename (car recent-list-item)] (let* ([filename (car recent-list-item)]
[start (cadr recent-list-item)] [start (cadr recent-list-item)]
[end (caddr recent-list-item)] [end (caddr recent-list-item)])
[fr (edit-file filename)]) (cond
(when (is-a? fr frame:open-here<%>) [(file-exists? filename)
(let ([ed (send fr get-open-here-editor)]) (let ([fr (edit-file filename)])
(when (equal? (send ed get-filename) filename) (when (is-a? fr frame:open-here<%>)
(send ed set-position start end)))))) (let ([ed (send fr get-open-here-editor)])
(when (equal? (send ed get-filename) filename)
(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 ;; show-recent-items-window : -> void
(define (show-recent-items-window) (define (show-recent-items-window)