;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer ;;; Copyright © 2016, 2018, 2020 Ricardo Wurmus ;;; Copyright © 2016 Theodoros Foradis ;;; Copyright © 2016 Danny Milosavljevic ;;; Copyright © 2017 Rene Saavedra ;;; Copyright © 2017 Efraim Flashner ;;; Copyright © 2017 Thomas Danckaert ;;; Copyright © 2018, 2020, 2021 Tobias Geerinckx-Rice ;;; Copyright © 2019 Arun Isaac ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages wxwidgets) #:use-module (guix packages) #:use-module (guix gexp) #:use-module (guix download) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix l:) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system python) #:use-module (guix utils) #:use-module (gnu packages) #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages databases) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gl) #:use-module (gnu packages gnome) #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages image) #:use-module (gnu packages photo) #:use-module (gnu packages video) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) #:use-module (gnu packages sdl) #:use-module (gnu packages webkit) #:use-module (gnu packages xorg) #:use-module ((srfi srfi-1) #:select (alist-delete))) (define-public wxwidgets (package (name "wxwidgets") (version "3.0.5.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/wxWidgets/wxWidgets/" "releases/download/v" version "/wxWidgets-" version ".tar.bz2")) (sha256 (base32 "01y89999jw5q7njrhxajincx7lydls6yq37ikazjryssrxrnw3s4")))) (build-system glib-or-gtk-build-system) (inputs `(("glu" ,glu) ;; XXX gstreamer-0.10 builds fail ;; ("gstreamer" ,gstreamer-0.10) ("gtk" ,gtk+) ("libjpeg" ,libjpeg-turbo) ("libmspack" ,libmspack) ("libsm" ,libsm) ("libtiff" ,libtiff) ("mesa" ,mesa) ("webkitgtk" ,webkitgtk) ("sdl" ,sdl) ("shared-mime-info" ,shared-mime-info) ("xdg-utils" ,xdg-utils))) (native-inputs (list pkg-config)) (arguments `(#:configure-flags '("--with-regex" "--with-libmspack" "--with-sdl" "--enable-webview" "--enable-webkit" "--enable-webviewwebkit" ,@(if (string=? "aarch64-linux" (%current-system)) '("--build=aarch64-unknown-linux-gnu") '())) #:make-flags (list (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib")) ;; No 'check' target. #:tests? #f #:phases (modify-phases %standard-phases (add-after 'unpack 'refer-to-inputs (lambda* (#:key inputs #:allow-other-keys) (let* ((mime (search-input-directory inputs "/share/mime"))) (substitute* "src/unix/utilsx11.cpp" (("wxExecute\\(xdg_open \\+") (string-append "wxExecute(\"" (which "xdg-open") "\""))) (substitute* "src/unix/mimetype.cpp" (("/usr(/local)?/share/mime") mime)) #t)))))) (home-page "https://www.wxwidgets.org/") (synopsis "Widget toolkit for creating graphical user interfaces") (description "wxWidgets is a C++ library that lets developers create applications with a graphical user interface. It has language bindings for Python, Perl, Ruby and many other languages.") (license (list l:lgpl2.0+ (l:fsf-free "file://doc/license.txt"))))) (define-public wxwidgets-2 (package (inherit wxwidgets) (version "2.8.12") (source (origin (method url-fetch) (uri (string-append "https://github.com/wxWidgets/wxWidgets/" "releases/download/v" version "/wxGTK-" version ".tar.gz")) (sha256 (base32 "1gjs9vfga60mk4j4ngiwsk9h6c7j22pw26m3asxr1jwvqbr8kkqk")))) (inputs `(("gtk" ,gtk+-2) ("libjpeg" ,libjpeg-turbo) ("libtiff" ,libtiff) ("libmspack" ,libmspack) ("sdl" ,sdl) ("unixodbc" ,unixodbc))) (arguments `(#:configure-flags '("--enable-unicode" "--with-regex=sys" "--with-sdl") #:make-flags (list (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib")) ;; No 'check' target. #:tests? #f #:phases (modify-phases %standard-phases (add-after 'unpack 'ignore-narrowing-errors (lambda _ (substitute* "configure" (("-Wall") "-Wall -Wno-narrowing")) #t))))))) (define-public wxwidgets-gtk2 (package/inherit wxwidgets (inputs `(("gtk+" ,gtk+-2) ,@(alist-delete "gtk+" (package-inputs wxwidgets)))) (name "wxwidgets-gtk2"))) ;; Development version of wxWidgets, required to build against gstreamer-1.x. ;; This can be removed when wxWidgets is updated to the next stable version. (define-public wxwidgets-3.1 (package (inherit wxwidgets) (version "3.1.5") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/wxWidgets/wxWidgets") (commit (string-append "v" version)))) (file-name (git-file-name "wxwidgets" version)) (sha256 (base32 "0j998nzqmycafignclxmahgqm5kgs1fiqbsiyvzm7bnpnafi333y")))) (inputs (modify-inputs (package-inputs wxwidgets) (prepend catch-framework gstreamer gst-plugins-base))) (arguments (substitute-keyword-arguments (package-arguments wxwidgets) ((#:configure-flags flags) '(list "--with-regex" "--with-libmspack" "--with-sdl" "--enable-mediactrl" "--enable-webviewwebkit")) ((#:phases phases) `(modify-phases ,phases (add-after 'unpack 'add-catch (lambda* (#:key inputs #:allow-other-keys) (install-file (search-input-file inputs "include/catch.hpp") "3rdparty/catch/include/"))) (replace 'configure (lambda* (#:key configure-flags inputs native-inputs outputs #:allow-other-keys) (let ((sh (search-input-file (or native-inputs inputs) "bin/sh"))) (apply invoke "./configure" (string-append "SHELL=" sh) (string-append "CONFIG_SHELL=" sh) (string-append "--prefix=" (assoc-ref outputs "out")) configure-flags)))))))))) (define-public wxwidgets-gtk2-3.1 (package/inherit wxwidgets-3.1 (inputs `(("gtk+" ,gtk+-2) ,@(alist-delete "gtk+" (package-inputs wxwidgets-3.1)))) (name "wxwidgets-gtk2"))) (define-public python-wxpython (package (name "python-wxpython") (version "4.0.7.post1") (source (origin (method url-fetch) (uri (pypi-uri "wxPython" version)) (sha256 (base32 "1jppcr3n428m8pgwb9q3g0iiqydxd451ncri4njk8b53xsiflhys")) (modules '((guix build utils))) (snippet '(begin ;; Remove bundled wxwidgets (delete-file-recursively "ext/wxWidgets") #t)))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-before 'build 'configure (lambda* (#:key inputs #:allow-other-keys) (setenv "WXWIN" (assoc-ref inputs "wxwidgets")) ;; Copy the waf executable to the source directory since it needs ;; to be in a writable directory. (copy-file (search-input-file inputs "/bin/waf") "bin/waf") (setenv "WAF" "bin/waf") ;; The build script tries to copy license files from the ;; wxwidgets source tree. Prevent it. (substitute* "wscript" (("updateLicenseFiles\\(cfg\\)" all) (string-append "#" all))) ;; The build script tries to write to demo/version.py. So, we set ;; correct write permissions. (chmod "demo/version.py" #o644) ;; Build only the python bindings, not wxwidgets also. (substitute* "setup.py" (("'build']") "'build_py', '--use_syswx']")) #t))))) (inputs (list gtk+ wxwidgets)) (native-inputs (list pkg-config python-waf)) (propagated-inputs (list python-numpy python-pillow python-six)) (home-page "https://wxpython.org/") (synopsis "Cross platform GUI toolkit for Python") (description "wxPython is a cross-platform GUI toolkit for the Python programming language. It is implemented as a set of Python extension modules that wrap the GUI components of the popular wxWidgets cross platform C++ library. In most cases, wxPython uses the native widgets on each platform to provide a 100% native look and feel for the application.") (license l:wxwindows3.1+))) (define-public wxsvg (package (name "wxsvg") (version "1.5.23") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/wxsvg/wxsvg/" version "/wxsvg-" version ".tar.bz2")) (sha256 (base32 "1fdbvihw1w2vm29xj54cqgpdabhlg0ydf3clkb0qrlf7mhgkc1rz")))) (build-system glib-or-gtk-build-system) (inputs (list wxwidgets-3.1 cairo ffmpeg)) (native-inputs (list pkg-config)) (propagated-inputs ;; In Requires.private of libwxsvg.pc. (list libexif pango)) (synopsis "C++ library to create, manipulate and render SVG files") (description "wxSVG is a C++ library to create, manipulate and render @dfn{Scalable Vector Graphics} (SVG) files with the wxWidgets toolkit.") (home-page "http://wxsvg.sourceforge.net") ;; wxSVG is licenced under the "wxWindows library licence", which is ;; the LGPL2.0+, with a few extra permissions. (license (list l:lgpl2.0+ (l:fsf-free "file://COPYING")))))