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 769b785adcf0ad02d0b9cdb84b77598b5a004b50..6ca1e531a32d7fa54fbe6df93292a193f29a93da 100644 (file)
--- 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)