Bug fix regarding exposed names in #

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_'

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

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'

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

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

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'''

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_`

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/",  ],}

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

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/",  ],}

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