diff --git a/APLSource/Fire/History.apla b/APLSource/Fire/History.apla index 2f2474d..e3da066 100644 --- a/APLSource/Fire/History.apla +++ b/APLSource/Fire/History.apla @@ -1,6 +1,9 @@ ( '⍝ Contains information regarding the last release. A full history is available on GitHub. (This line is ignored)' '' + '* 9.5.2 from 2023-03-25' + ' * Bug fix: people who do not tick "Options > Object Syntax > Expose GUI Properties" could not use "Replace"' + '' '* 9.5.1 from 2023-03-12' ' * Bug fixes' ' * Bug fix in ListNamespaceTree_' diff --git a/APLSource/Fire/OneByOneComparison/OnRefreshCSS.aplf b/APLSource/Fire/OneByOneComparison/OnRefreshCSS.aplf index 0c884ff..b8e36bd 100644 --- a/APLSource/Fire/OneByOneComparison/OnRefreshCSS.aplf +++ b/APLSource/Fire/OneByOneComparison/OnRefreshCSS.aplf @@ -5,18 +5,18 @@ n←##.GUI.GetRefTo_n ref b←IsTicked n ⎕THIS.wasTicked←b - was←#.CursorObj - #.CursorObj←1 + was←# ⎕WG'CursorObj' + # ⎕WS'CursorObj' 1 {}RewriteCSS b {}WriteStatusMsg n n.Browser.Size←0 0 :If 0<≢ID {}n.Browser{6::shy←⍬ ⋄ 1:shy←⍺.Navigate2⊂'file:///',⍵}n.∆HtmlFilename,'#',ID :EndIf - {}{0::⍬ ⋄ n.Browser.Refresh ⍵}⍬ + {11 6::shy←0 ⋄ n.Browser.Refresh ⍬}⍬ ⍝ Do NOT change this even if you think that `Refresh` is niladic ⎕DL 0.1 n.Browser.Size←100 100 - #.CursorObj←was + # ⎕WS'CursorObj'was {}⎕NQ n.List'GotFocus' r←0 ⍝Done diff --git a/APLSource/Fire/Version.aplf b/APLSource/Fire/Version.aplf index c088568..24827ff 100644 --- a/APLSource/Fire/Version.aplf +++ b/APLSource/Fire/Version.aplf @@ -1,3 +1,3 @@ r←Version ⍝ See also `History` - r←'Fire' '9.5.1+265' '2023-03-12' + r←'Fire' '9.5.2+268' '2023-03-25' diff --git a/APLSource/TestCases/Prepare.aplf b/APLSource/TestCases/Prepare.aplf index 559cbac..637c17e 100644 --- a/APLSource/TestCases/Prepare.aplf +++ b/APLSource/TestCases/Prepare.aplf @@ -1,19 +1,26 @@ - Prepare;testPath;testFilename;ask;answer -⍝ Useful to prepare test cases for execution +Prepare;testPath;testFilename;ask;answer;options;flag;ind + ⎕IO←1 ⋄ ⎕ML←1 T←⎕NEW Tester2 ⎕THIS - T.exec_after_each_test←(⍕⎕THIS),'.After' - testPath←(↑1 ⎕NPARTS''),'TestResults' + testPath←##.CiderConfig.HOME,'/TestResults' testFilename←testPath,'/CodeCoverage' + flag←0 :If ⎕NEXISTS testPath - :If ⎕NEXISTS testFilename,'.dcf' - ask←{⎕←⍵,'; 1=append, 2=replace' ⋄ a←⎕ ⋄ ~(⊂a)∊1 2:∇ ⍵ ⋄ ⊃a} - answer←↑ask'Coverage file already exists' - :If 2≡answer - 1 ⎕NDELETE testFilename,'.dcf' + :If ⎕NEXISTS testFilename,'.profile' + ind←('Code Coverage' 0 1)CommTools.Select'Append' 'Replace' 'Neither' + →(3=ind)/0 + flag←1 + :If 2≡ind + 1 CodeCoverage.DeleteFiles T.codeCoverage.filename :EndIf + :Else + flag←0 CommTools.YesOrNo'Code coverage?' :EndIf + :Else + flag←0 CommTools.YesOrNo'Code coverage?' + :EndIf + :If flag + 3 ⎕MKDIR testPath ⍝ + T.codeCoverage←⎕NEW CodeCoverage(,⊂'#.',{⍵,'.',⍵}2↓⍕⎕THIS.##) + T.codeCoverage.filename←testFilename :EndIf - 3 ⎕MKDIR testPath ⍝ - T.codeCoverage←⎕NEW CodeCoverage(,⊂'#.',{⍵,'.',⍵}2↓⍕⎕THIS.##) - T.codeCoverage.filename←testFilename ⍝Done diff --git a/APLSource/TestCases/RunTests.aplf b/APLSource/TestCases/RunTests.aplf index fd71062..b7b2190 100644 --- a/APLSource/TestCases/RunTests.aplf +++ b/APLSource/TestCases/RunTests.aplf @@ -1,8 +1,10 @@ - RunTests;htmlFilename + RunTests;htmlFilename;verbose Prepare T.Run 1 - htmlFilename←CodeCoverage.ProcessDataAndCreateReport T.codeCoverage.filename - :If 0 ∆YesOrNo'View CodeCoverage report?' - APLTreeUtils2.GoToWebPage'file://',htmlFilename + :If 0<≢T.codeCoverage + :AndIf 0 ⎕SE.MakeHelpers.YesOrNo'Put Code Coverage Report on display?' + verbose←0 ⎕SE.MakeHelpers.YesOrNo'Detailed report?' + htmlFilename←verbose CodeCoverage.ProcessDataAndCreateReport T.codeCoverage.filename + {}APLTreeUtils2.GoToWebPage htmlFilename + CodeCoverage.DeleteFiles T.codeCoverage.filename :EndIf -⍝Done diff --git a/APLSource/TestCases/Test_Misc_014.aplf b/APLSource/TestCases/Test_Misc_014.aplf index c4cc373..1329ac8 100644 --- a/APLSource/TestCases/Test_Misc_014.aplf +++ b/APLSource/TestCases/Test_Misc_014.aplf @@ -7,6 +7,7 @@ #.⎕EX'FireReportGhost' 'FireReportGhost'#.⎕NS'' #.FireReportGhost.⎕FIX #.⎕SRC APLTreeUtils2 + #.FireReportGhost.⎕FIX #.⎕SRC APLProcess #.FireReportGhost.APLTreeUtils2.⎕FX'r←Hello' 'r←''Worlds''' ⍝ This is NOT a ghost! #.FireReportGhost.APLProcess.⎕FX'r←Hello' 'r←''World''' diff --git a/Docs/ReleaseNotes.md b/Docs/ReleaseNotes.md index a5582ab..39c7f52 100644 --- a/Docs/ReleaseNotes.md +++ b/Docs/ReleaseNotes.md @@ -13,6 +13,10 @@ A bump of the minor number indicates added functionality plus possibly bug fixes A bump of the patch number indicates bug fixes. +## Version 9.5.2 from 2023-03-25 + +Bug fix: people who do not tick "Options > Object Syntax > Expose GUI Properties" could not use "Replace" + ## Version 9.5.1 from 2023-03-12 * Bug fix in `ListNamespaceTree_` diff --git a/packages/apl-buildlist.json b/packages/apl-buildlist.json index 0a6d48c..f417228 100644 --- a/packages/apl-buildlist.json +++ b/packages/apl-buildlist.json @@ -1 +1 @@ -{ packageID: [ "aplteam-WinReg-5.0.4", "aplteam-OS-3.0.1", "aplteam-GitHubAPIv3-0.7.0", "aplteam-FilesAndDirs-5.3.4", "aplteam-APLTreeUtils2-1.1.3", ], principal: [ 1, 1, 1, 1, 1, ], url: [ "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", ], } +{ packageID: [ "aplteam-WinReg-5.0.4", "aplteam-OS-3.0.1", "aplteam-GitHubAPIv3-0.7.0", "aplteam-FilesAndDirs-5.4.0", "aplteam-APLTreeUtils2-1.1.3", ], principal: [ 1, 1, 1, 1, 1, ], url: [ "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", ], } diff --git a/packages/apl-dependencies.txt b/packages/apl-dependencies.txt index 1aaa307..a7961ca 100644 --- a/packages/apl-dependencies.txt +++ b/packages/apl-dependencies.txt @@ -1,5 +1,5 @@ aplteam-APLTreeUtils2-1.1.3 -aplteam-FilesAndDirs-5.3.4 +aplteam-FilesAndDirs-5.4.0 aplteam-WinReg-5.0.4 aplteam-OS-3.0.1 aplteam-GitHubAPIv3-0.7.0 diff --git a/packages_dev/apl-buildlist.json b/packages_dev/apl-buildlist.json index 3c6f4cb..d5616e1 100644 --- a/packages_dev/apl-buildlist.json +++ b/packages_dev/apl-buildlist.json @@ -1 +1 @@ -{ packageID: [ "aplteam-Tester2-3.3.1", "aplteam-Inno-1.0.0", "aplteam-FilesAndDirs-5.3.4", "aplteam-CodeCoverage-0.9.4", "aplteam-APLTreeUtils2-1.1.3", "aplteam-APLProcess-0.4.1", "aplteam-WinSys-5.0.1", "aplteam-OS-3.0.1", "aplteam-IniFiles-5.0.3", "aplteam-Execute-3.0.2", "aplteam-CommTools-1.2.3", ], principal: [ 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, ], url: [ "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", ], } +{ packageID: [ "aplteam-Tester2-3.3.1", "aplteam-Inno-1.0.0", "aplteam-FilesAndDirs-5.4.0", "aplteam-CommTools-1.3.0", "aplteam-CodeCoverage-0.10.0", "aplteam-APLTreeUtils2-1.1.3", "aplteam-APLProcess-0.4.1", "aplteam-WinSys-5.0.1", "aplteam-OS-3.0.1", "aplteam-IniFiles-5.0.3", "aplteam-Execute-3.0.2", ], principal: [ 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, ], url: [ "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", "https://tatin.dev/", ], } diff --git a/packages_dev/apl-dependencies.txt b/packages_dev/apl-dependencies.txt index 95ac03e..7f24ecf 100644 --- a/packages_dev/apl-dependencies.txt +++ b/packages_dev/apl-dependencies.txt @@ -1,6 +1,7 @@ aplteam-APLTreeUtils2-1.1.3 -aplteam-FilesAndDirs-5.3.4 -aplteam-CodeCoverage-0.9.4 +aplteam-FilesAndDirs-5.4.0 +aplteam-CodeCoverage-0.10.0 aplteam-Tester2-3.3.1 aplteam-APLProcess-0.4.1 aplteam-Inno-1.0.0 +aplteam-CommTools-1.3.0