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

racket/gui gtk: fix -singleInstance mode and relative paths

Browse Source
This commit is contained in:
Matthew Flatt 2014-03-29 10:41:38 -06:00
parent af46f203cc
commit facaba6794
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/unique.rkt
View File

@ -88,7 +88,9 @@
(define (send-command-line app)
(let ([msg (unique_message_data_new)]
[b (let ([o (open-output-bytes)])
(write (current-command-line-arguments) o)
(write (for/vector ([p (in-vector (current-command-line-arguments))])
(path->string (path->complete-path p)))
o)
(get-output-bytes o))])
(unique_message_data_set msg b (bytes-length b))
(unique_app_send_message app 42 msg)))