From cfd2f89f6f1afb9aee2bff17b8d8463528e7a629 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 28 Mar 2016 14:04:26 -0700 Subject: [PATCH] gtk/fix-demo.scm: Simplify finding the sample conses.png image. --- src/gtk/fix-demo.scm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm index 766bc0116..622b919a3 100644 --- a/src/gtk/fix-demo.scm +++ b/src/gtk/fix-demo.scm @@ -112,12 +112,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (text (make-simple-text-ink)) (box (make-rectangle-ink)) (image (make-image-ink-from-file - (merge-pathnames "conses.png" - (or - ;; After normal install. - (system-library-directory-pathname "gtk") - ;; During testing. - (system-library-directory-pathname ""))))) + (system-library-pathname "conses.png"))) (surface (make-surface-ink 40 40))) (set-line-ink! line1 140 150 200 150) -- 2.25.1