diff -Nru gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/app/src/gambas3/.src/Component/CPropertyInfo.class gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/app/src/gambas3/.src/Component/CPropertyInfo.class --- gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/app/src/gambas3/.src/Component/CPropertyInfo.class 2022-07-01 17:31:51.000000000 +0000 +++ gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/app/src/gambas3/.src/Component/CPropertyInfo.class 2022-07-02 17:31:45.000000000 +0000 @@ -11,7 +11,7 @@ Static Public CreatingSpecialProperty As Boolean Static Private $cRedirect As New Collection -Static Private $cTranslate As New Collection +Static Private $cTranslate As New Collection(gb.IgnoreCase) Static Private $cUpdateName As New Collection Static Private $cAlwaysRead As New Collection Static Private $cShortcut As New Collection diff -Nru gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/app/src/gambas3/.src/Project.module gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/app/src/gambas3/.src/Project.module --- gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/app/src/gambas3/.src/Project.module 2022-07-01 17:31:51.000000000 +0000 +++ gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/app/src/gambas3/.src/Project.module 2022-07-02 17:31:45.000000000 +0000 @@ -84,7 +84,7 @@ Public Address As String Public Vendor As String Public VendorPrefix As String -Public Url As String +Property Url As String Use $sUrl Public License As String Public CreateEachDirectory As Boolean Public RuntimeVersion As String @@ -3296,6 +3296,8 @@ sErr = InstallLibrary(sExecPath, Vendor, CStr(MajorVersion) & "." & CStr(MinorVersion)) If sErr Then FMain.ShowWarning(sErr) Endif + + If Not bSilent Then Clipboard.CopyPath(sExecPath) If RunAfterMakingExec Then 'Shell Replace(RunAfterMakingExec, "$(FILE)", Shell$(sExecPath)) Wait @@ -3464,7 +3466,7 @@ Vendor = "" VendorPrefix = "" Address = "" - Url = "" + $sUrl = "" License = "" CreateEachDirectory = False PublishTags = New String[] @@ -3728,7 +3730,7 @@ Address = sVal Case "url" - Url = sVal + $sUrl = sVal Case "license" License = sVal @@ -3946,7 +3948,7 @@ If Vendor Then Print #hFile, "Vendor="; Vendor If VendorPrefix Then Print #hFile, "VendorPrefix="; VendorPrefix If Address Then Print #hFile, "Address="; Address - If Url And If Url <> DEFAULT_URL Then Print #hFile, "Url="; Url + If $sUrl And If $sUrl <> DEFAULT_URL Then Print #hFile, "Url="; $sUrl If License Then Print #hFile, "License="; License If Prefix Then Print #hFile, "Prefix=1" If PackageName Then Print #hFile, "PackageName="; PackageName diff -Nru gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/comp/src/gb.form/.src/File/Chooser/FDirChooser.class gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/comp/src/gb.form/.src/File/Chooser/FDirChooser.class --- gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/comp/src/gb.form/.src/File/Chooser/FDirChooser.class 2022-07-01 17:31:51.000000000 +0000 +++ gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/comp/src/gb.form/.src/File/Chooser/FDirChooser.class 2022-07-02 17:31:45.000000000 +0000 @@ -1230,31 +1230,9 @@ End -Private Sub URLQuote(Path As String) As String - - Dim iInd As Integer - Dim sRes As String - Dim sCar As String - - For iInd = 1 To Len(Path) - sCar = Mid$(Path, iInd, 1) - If sCar = " " Then - sCar = "+" - Else If IsLetter(sCar) Or If IsDigit(sCar) Or If InStr("-._~,$!/", sCar) Then - Else - sCar = "%" & Hex$(Asc(sCar), 2) - Endif - sRes &= sCar - Next - - Return sRes - -End - Public Sub mnuCopy_Click() Dim aPath As String[] - Dim I As Integer If dvwChoose.HasFocus Then aPath = [dvwChoose.Current] @@ -1264,11 +1242,7 @@ If aPath.Count = 0 Then Return - For I = 0 To aPath.Max - aPath[I] = "file://" & URLQuote(aPath[I]) - Next - - Clipboard.Copy(aPath.Join(gb.CrLf) & gb.CrLf, "text/uri-list") + Clipboard.CopyPaths(aPath) End diff -Nru gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/comp/src/gb.gui.base/.src/Clipboard.class gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/comp/src/gb.gui.base/.src/Clipboard.class --- gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/comp/src/gb.gui.base/.src/Clipboard.class 1970-01-01 00:00:00.000000000 +0000 +++ gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/comp/src/gb.gui.base/.src/Clipboard.class 2022-07-02 17:31:45.000000000 +0000 @@ -0,0 +1,45 @@ +' Gambas class file + +Export + +Static Private Sub URLQuote(Path As String) As String + + Dim iInd As Integer + Dim sRes As String + Dim sCar As String + + For iInd = 1 To Len(Path) + sCar = Mid$(Path, iInd, 1) + If sCar = " " Then + sCar = "+" + Else If IsLetter(sCar) Or If IsDigit(sCar) Or If InStr("-._~,$!/", sCar) Then + Else + sCar = "%" & Hex$(Asc(sCar), 2) + Endif + sRes &= sCar + Next + + Return sRes + +End + +Static Public Sub CopyPath(Path As String) + + Clipboard.CopyPaths([Path]) + +End + +Static Public Sub CopyPaths(Paths As String[]) + + Dim I As Integer + Dim sData As String + + If Not Paths Or If Paths.Count = 0 Then Return + + For I = 0 To Paths.Max + sData &= "file://" & URLQuote(Paths[I]) & gb.CrLf + Next + + Clipboard.Copy(sData, "text/uri-list") + +End diff -Nru gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/debian/changelog gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/debian/changelog --- gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/debian/changelog 2022-07-01 17:31:54.000000000 +0000 +++ gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/debian/changelog 2022-07-02 17:31:49.000000000 +0000 @@ -1,8 +1,8 @@ -gambas3 (3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1) trusty; urgency=low +gambas3 (3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1) trusty; urgency=low * Auto build. - -- Launchpad Package Builder Fri, 01 Jul 2022 17:31:54 +0000 + -- Launchpad Package Builder Sat, 02 Jul 2022 17:31:49 +0000 gambas3 (3.15.90) saucy; urgency=low diff -Nru gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/debian/git-build-recipe.manifest gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/debian/git-build-recipe.manifest --- gambas3-3.17.90+git202206302233.40d0fb585+build31~ubuntu14.04.1/debian/git-build-recipe.manifest 2022-07-01 17:31:54.000000000 +0000 +++ gambas3-3.17.90+git202207020019.365da0ade+build31~ubuntu14.04.1/debian/git-build-recipe.manifest 2022-07-02 17:31:49.000000000 +0000 @@ -1,4 +1,4 @@ -# git-build-recipe format 0.4 deb-version 3.17.90+git202206302233.40d0fb585+build31 -lp:~gambas-team/+git/gambas git-commit:40d0fb585b1bd384ad798e8d04cbbed840ed2c5e +# git-build-recipe format 0.4 deb-version 3.17.90+git202207020019.365da0ade+build31 +lp:~gambas-team/+git/gambas git-commit:365da0adedf1fdb3c1db2870ffa93829838a59e1 nest debian-common lp:~gambas-team/+git/gambas3-daily-common debian git-commit:e636910cc9d4f1242eac9405b4f81001d8dd9bf4 merge debian lp:~gambas-team/+git/gambas3-daily-trusty git-commit:d67e083c66938914b478a95d2744ab46ae222e27