From: Matt Birkholz Date: Tue, 17 Sep 2013 06:43:44 +0000 (-0700) Subject: gtk: Fix fix-layout-demo to run when installed (not just testing!). X-Git-Tag: mit-scheme-pucked-9.2.12~459 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=78d998409dc5e62c73d41270cc74d802d1fa16c5;p=mit-scheme.git gtk: Fix fix-layout-demo to run when installed (not just testing!). --- diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm index 769b785ad..6ca1e531a 100644 --- a/src/gtk/fix-demo.scm +++ b/src/gtk/fix-demo.scm @@ -106,7 +106,11 @@ USA. (box (make-box-ink)) (image (make-image-ink-from-file (merge-pathnames "conses.png" - (system-library-directory-pathname "")))) + (or + ;; After normal install. + (system-library-directory-pathname "gtk") + ;; During testing. + (system-library-directory-pathname ""))))) (surface (make-surface-ink 40 40))) (set-line-ink! line1 140 150 200 150) (fix-drawing-add-ink! drawing line1)