original commit: d80df3906ef07422b8ad1216dabf145913c57798
This commit is contained in:
Robby Findler 2005-05-12 18:36:21 +00:00
parent 99ee876fa2
commit 84cfae357e

View File

@ -122,13 +122,13 @@
(format "~a" (exn-message exn))
(format "~s" exn))))
#f)])
(gui-utils:show-busy-cursor
(gui-utils:show-busy-cursor
(λ ()
(if filename
(let ([already-open (send (group:get-the-frame-group)
locate-file
filename)])
(cond
(cond
[already-open
(send already-open make-visible filename)
(send already-open show #t)