From 34c09a396ddd4db0ea821d8114c7f4537f4c7468 Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:16:46 +0200
Subject: [PATCH 6/7] gnu: Add perl-wx.

* gnu/packages/perl.scm (perl-wx): New variable.
---
 gnu/packages/perl.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index a34eab43c2..879fdd4e74 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -10877,6 +10877,42 @@ it.  With this module, you can add your own magic to any variable without
 having to write a single line of XS.")
     (license (package-license perl))))
 
+(define-public perl-wx
+  (package
+    (name "perl-wx")
+    (version "0.9932")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/M/MD/MDOOTSON/Wx-"
+             version
+             ".tar.gz"))
+       (sha256
+        (base32
+         "0w0vcpk8bmklh16c0z1vxgipnmvdw7cckcmay7k7cihgb99vdz8w"))))
+    (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-alien-wxwidgets" ,perl-alien-wxwidgets)
+       ("perl-extutils-xspp" ,perl-extutils-xspp)
+       ("xvfb" ,xorg-server-for-tests)))
+    (propagated-inputs
+     `(("perl-alien-wxwidgets" ,perl-alien-wxwidgets)))
+    (home-page "https://metacpan.org/release/Wx")
+    (synopsis "interface to the wxWidgets cross-platform GUI toolkit")
+    (description "The Wx module is a wrapper for the wxWidgets (formerly
+known as wxWindows) GUI toolkit.")
+    (license license:perl-license)))
+
 (define-public perl-xml-writer
   (package
     (name "perl-xml-writer")
-- 
2.28.0