player agent gui script for exe

player-agent.rkt

@@ -1,11 +1,15 @@
 #lang racket/base
 
 (require racket/class
-         racket/contract)
+         racket/gui
+         racket/contract
+         racket/runtime-path)
 
 (provide run-player-agent
          run-player-agent-cli)
 
+(define-runtime-path private "./private-player-agent")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; goal   : Start the graphical polling playback agent.
 ; pre    : A graphical desktop is available.
@@ -16,8 +20,8 @@
 ;          keeps command-line use independent of racket/gui initialization.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define/contract (run-player-agent)
-  (-> object?)
-  ((dynamic-require "private-player-agent/player-agent-gui.rkt"
+  (-> void?)
+  ((dynamic-require (build-path private "player-agent-gui.rkt")
                     'run-player-agent-gui)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -42,5 +46,4 @@
    #:name name
    #:config-file config-file))
 
-(module+ main
-  (run-player-agent))
+