.
original commit: d80df3906ef07422b8ad1216dabf145913c57798
This commit is contained in:
parent
99ee876fa2
commit
84cfae357e
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user