From facaba679443d6bf7232cd47a6fce51814144b62 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 29 Mar 2014 10:41:38 -0600 Subject: [PATCH] racket/gui gtk: fix -singleInstance mode and relative paths --- pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/unique.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/unique.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/unique.rkt index e26e2c9d99..6917167b34 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/unique.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/unique.rkt @@ -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)))