Subject: [PATCH] gnu: gambas: Update to 3.20.2.
From: [email-masked]
To: [email-masked]
Cc: 宋文武 <[email-masked]>
Date: Tue, 11 Mar 2025 19:43:28 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

From: 宋文武 <[email-masked]>

* gnu/packages/gambas.scm (gambas): Update to 3.20.2.
[source]: Remove snippet.
[arguments]: Fix install-desktop-file phase.

Change-Id: I38884d0d0fc16d7ebcf97de9ab17e316251f11dc
---
 gnu/packages/gambas.scm | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/gambas.scm b/gnu/packages/gambas.scm
index caa5d0b31d..76a8b0cc9e 100644
--- a/gnu/packages/gambas.scm
+++ b/gnu/packages/gambas.scm
@@ -55,7 +55,7 @@ (define-module (gnu packages gambas)
 (define-public gambas
   (package
     (name "gambas")
-    (version "3.20.1")
+    (version "3.20.2")
     (source
      (origin
        (method git-fetch)
@@ -64,13 +64,7 @@ (define-public gambas
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1fw3nark7vaw4vbmdvaaqb0an4838k0hhwwvc3dqd7f2033d41xq"))
-       (modules '((guix build utils)))
-       (snippet
-        ;; Fix desktop file creation, upstream commit bbaa7b40.
-        '(substitute* "comp/src/gb.gui.base/.src/_Gui.class"
-           (("If sDir Begins [(]User\\.Home & \"/\"[)]" all)
-            (string-append all " And If Access(sDir, gb.Write)"))))))
+        (base32 "060f8w19jf78mappqgy11873ss3h97gi47ga3c1ws1bazix9x7rk"))))
     (build-system gnu-build-system)
     (arguments
      (list
@@ -122,10 +116,8 @@ (define-public gambas
               (let* ((out (assoc-ref outputs "out"))
                      (appdir (string-append out "/share/applications"))
                      (icondir (string-append out "/share/pixmaps")))
-                (install-file "app/desktop/gambas3.desktop"
-                              (string-append appdir "/gambas3.desktop"))
-                (install-file "app/desktop/gambas3.png"
-                              (string-append icondir "/gambas3.png"))))))))
+                (install-file "app/desktop/gambas3.desktop" appdir)
+                (install-file "app/desktop/gambas3.png" icondir)))))))
     (native-inputs
      (list autoconf
            automake

base-commit: 7b9cd0b4293041fdbfa065b019cea589cc316060
-- 
2.48.1