From 2348760d580539199e99e4a7f3b9141f6c7884f2 Mon Sep 17 00:00:00 2001 From: Malte Frank Gerdes Date: Wed, 7 Oct 2020 18:17:14 +0200 Subject: [PATCH 7/7] gnu: Add perl-wx-glcanvas. * gnu/packages/perl.scm (perl-wx-glcanvas): New variable. --- gnu/packages/perl.scm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index 879fdd4e74..9bf60433e3 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -10913,6 +10913,40 @@ having to write a single line of XS.") known as wxWindows) GUI toolkit.") (license license:perl-license))) +(define-public perl-wx-glcanvas + (package + (name "perl-wx-glcanvas") + (version "0.09") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/M/MB/MBARBON/Wx-GLCanvas-" + version + ".tar.gz")) + (sha256 + (base32 + "1q4gvj4gdx4l8k4mkgiix24p9mdfy1miv7abidf0my3gy2gw5lka")))) + (build-system perl-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'check 'pre-check + (lambda _ + ;; Tests require a running X server. + (system "Xvfb :1 &") + (setenv "DISPLAY" ":1") + #t))))) + (native-inputs `(("perl-wx" ,perl-wx) + ("xvfb" ,xorg-server-for-tests))) + (inputs `(("mesa" ,mesa))) + (propagated-inputs `(("perl-wx" ,perl-wx))) + (home-page "https://metacpan.org/release/Wx-GLCanvas") + (synopsis "interface to wxWidgets' OpenGL canvas") + (description "The documentation for this module is included in the main +wxPerl distribution (wxGLCanvas).") + (license license:perl-license))) + (define-public perl-xml-writer (package (name "perl-xml-writer") -- 2.28.0