diff --git a/collects/meta/drdr/config.rkt b/collects/meta/drdr/config.rkt index f198fc7539..b050347c83 100644 --- a/collects/meta/drdr/config.rkt +++ b/collects/meta/drdr/config.rkt @@ -9,7 +9,7 @@ (drdr-directory "/opt/svn/drdr") (git-path "/usr/bin/git") (Xvfb-path "/usr/bin/Xnest") -(fluxbox-path "/usr/bin/fluxbox") +(fluxbox-path "/usr/bin/dwm") (vncviewer-path "/usr/bin/vncviewer") (current-make-install-timeout-seconds (* 90 60)) (current-make-timeout-seconds (* 90 60)) diff --git a/collects/meta/drdr/plt-build.rkt b/collects/meta/drdr/plt-build.rkt index d934bb2e20..b5bb455393 100644 --- a/collects/meta/drdr/plt-build.rkt +++ b/collects/meta/drdr/plt-build.rkt @@ -153,7 +153,7 @@ (thread (lambda () (subprocess-wait the-process) - (printf "Killing parent because wrapper is dead...\n") + (eprintf "Killing parent because wrapper (~a) is dead...\n" (list* command args)) (kill-thread parent)))) ;; Run without stdin @@ -400,14 +400,17 @@ (with-running-program "/usr/bin/Xorg" (list (format ":~a" i)) (lambda () - (sleep 2) - (notify! "Starting fluxbox #~a" i) - (with-running-program - (fluxbox-path) - (list "-display" - (format ":~a" i) - "-rc" "/home/pltdrdr/.fluxbox/init") - inner)))) + (with-env + (["DISPLAY" (format ":~a" i)]) + (sleep 2) + (notify! "Starting fluxbox #~a" i) + (with-running-program + (fluxbox-path) + empty + #;(list "-display" + (format ":~a" i) + "-rc" "/home/pltdrdr/.fluxbox/init") + inner))))) (start-x-server ROOTX