From e2a430212455bee81458a7bb2418afab4f188169 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 22 Jun 2012 19:46:57 -0600 Subject: [PATCH] metacity --- collects/meta/drdr/config.rkt | 2 +- collects/meta/drdr/plt-build.rkt | 7 +++++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/meta/drdr/config.rkt b/collects/meta/drdr/config.rkt index b050347c83..d3a407203a 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/dwm") +(fluxbox-path "/usr/bin/metacity") (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 b5bb455393..d1d3d10feb 100644 --- a/collects/meta/drdr/plt-build.rkt +++ b/collects/meta/drdr/plt-build.rkt @@ -403,10 +403,13 @@ (with-env (["DISPLAY" (format ":~a" i)]) (sleep 2) - (notify! "Starting fluxbox #~a" i) + (notify! "Starting WM #~a" i) (with-running-program (fluxbox-path) - empty + (list "-d" (format ":~a" i) + "--sm-disable" + "--no-composite") + #;empty #;(list "-display" (format ":~a" i) "-rc" "/home/pltdrdr/.fluxbox/init")