From 78d998409dc5e62c73d41270cc74d802d1fa16c5 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 16 Sep 2013 23:43:44 -0700 Subject: [PATCH] gtk: Fix fix-layout-demo to run when installed (not just testing!). --- src/gtk/fix-demo.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.25.1