gnu: gtkwave: Update to 3.4.0-0.bb978d9.

* gnu/packages/fpga.scm (gtkwave): Update to 3.4.0-0.bb978d9.
[source]: Switch to git-fetch, new uri.
[version]: Switch to branch master, version 3.4.
[build-system]: Switch to meson-build-system.
[arguments]: New field.
[native-inputs]: Add desktop-file-utils, flex, glib:bin, gobject-introspection
and gtk:bin.
[inputs]: Add gtk and libfst.  Remove gtk+:bin.
[description]: Prefer @acronym to @dfn.
[homepage]: Update URL.

Change-Id: I38aabca14c2789ad7b3bc304b7018644dc6d0fa6
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>

gnu/packages/fpga.scm

@@ -57,6 +57,7 @@
   #:use-module (gnu packages cpp)
   #:use-module (gnu packages elf)
   #:use-module (gnu packages flex)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gawk)
   #:use-module (gnu packages gdb)
   #:use-module (gnu packages gettext)
@@ -479,39 +480,40 @@ files.")
   (deprecated-package "nextpnr-ice40" nextpnr))
 
 (define-public gtkwave
+  ;; The last release is more than 2 years old, and there are improvements in
+  ;; the master branch, such as GTK 4 support: pick the latest commit that
+  ;; passes their CI.
+  (let ((commit "bb978d9d667d569b9153ffa34007e300302907dc")
+        (revision "0"))
     (package
       (name "gtkwave")
-    (version "3.3.121")
+      ;; The version string can be found in meson.build.
+      (version (git-version "3.4.0" revision commit))
       (source
        (origin
-       (method url-fetch)
-       (uri (list (string-append "mirror://sourceforge/gtkwave/"
-                                 "gtkwave-gtk3-" version "/"
-                                 "gtkwave-gtk3-" version ".tar.gz")
-                  (string-append "https://gtkwave.sourceforge.net/"
-                                 "gtkwave-" version ".tar.gz")))
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/gtkwave/gtkwave")
+               (commit commit)))
+         (file-name (git-file-name name version))
          (sha256
-        (base32 "0ikk49zyar5aiq7pg9whi4nfzq7xm8sz7bn3b6vaylkdimw4bajl"))))
-    (build-system glib-or-gtk-build-system)
-    (native-inputs
-     (list gperf pkg-config))
-    (inputs
-     (list gtk+ tcl tk))
-    (arguments
-     (list #:configure-flags
-           #~(list "--enable-gtk3"
-                   (string-append "--with-tcl="
-                    (assoc-ref %build-inputs "tcl")
-                    "/lib")
-                   (string-append "--with-tk="
-                                  (assoc-ref %build-inputs "tk")
-                                  "/lib"))))
+          (base32 "1nv27cpz5937cb6bkhpw8w0ji6hm9xr8f0znvfwzfl1fwwypf23y"))))
+      (build-system meson-build-system)
+      (arguments (list #:glib-or-gtk? #t))
+      (native-inputs (list desktop-file-utils
+                           flex
+                           `(,glib "bin") ;for glib-mkenums
+                           gobject-introspection
+                           gperf
+                           `(,gtk "bin")
+                           pkg-config))
+      (inputs (list gtk gtk+ libfst))
       (synopsis "Waveform viewer for FPGA simulator trace files")
-    (description "This package is a waveform viewer for FPGA
-simulator trace files (@dfn{FST}).")
-    (home-page "https://gtkwave.sourceforge.net/")
+      (description "This package is a waveform viewer for @acronym{FST, FPGA
+Simulator Trace} files.")
+      (home-page "https://github.com/gtkwave/gtkwave")
       ;; Exception against free government use in tcl_np.c and tcl_np.h.
-    (license (list license:gpl2+ license:expat license:tcl/tk))))
+      (license (list license:gpl2+ license:expat license:tcl/tk)))))
 
 (define-public python-migen
   ;; XXX: The latest version tag (0.9.2) was placed in 2019, there are latest