diff --git a/APLSource/_code-0/EditArray-11.aplf b/APLSource/_code-0/EditArray-11.aplf index 7274f70..b604585 100644 --- a/APLSource/_code-0/EditArray-11.aplf +++ b/APLSource/_code-0/EditArray-11.aplf @@ -13,7 +13,7 @@ z←fixValue fqn type new old≡⍎fqn:'' 0=dat←whichProject fqn:fqn - fqn⊣logMsg MS.DK,⊃if≢dat setChange fqn type new + fqn⊣logMsg MS.DS,⊃if≢dat setChange fqn type new ⍝ Phil 2018-10-17 12.53 } diff --git a/APLSource/_code-0/allMessages-8.aplf b/APLSource/_code-0/allMessages-8.aplf index 1819ad0..a9d5364 100644 --- a/APLSource/_code-0/allMessages-8.aplf +++ b/APLSource/_code-0/allMessages-8.aplf @@ -75,6 +75,7 @@ ⍵.DP←'Startup - ' ⍵.DQ←'Editing first valid item only: ' ⍵.DR←'No valid items supplied' + ⍵.DS←'⎕Saved: ' ⍵.EF←'Comparing ' ⍵.EG←'change changes' diff --git a/APLSource/_code-0/editFix-10.aplf b/APLSource/_code-0/editFix-10.aplf index 055fad8..9a52c98 100644 --- a/APLSource/_code-0/editFix-10.aplf +++ b/APLSource/_code-0/editFix-10.aplf @@ -24,7 +24,7 @@ (oldval≡newval←⊃2⊃getValue,⊂fqn): ⍝ unchanged type←⊃nameClass fqn z←⍴dat∘putChange⍣(new⍱(⊂fqn)∊dat.changed)⊢fqn oldval type - z←logMsg MS.DK,⊃dat setChange fqn type newval + z←logMsg MS.DS,⊃dat setChange fqn type newval ⍝ ⍺ probably missing ⍝ ⍵ 'Start' or 'Close' or callback argument ⍝ ← 0 for 'Start' and 'Close' - else none diff --git a/APLSource/_code-0/logMsg-8.aplf b/APLSource/_code-0/logMsg-8.aplf index a1802b9..6d32cc9 100644 --- a/APLSource/_code-0/logMsg-8.aplf +++ b/APLSource/_code-0/logMsg-8.aplf @@ -4,7 +4,8 @@ hd←nout{⍵((⍵≠' ')\'=')}⍺⊣'' da←hd,ms dt←DT.(dt2fm ts2dt ⎕TS),' ' - SV.errmsgs,←da/⍨'!'=⊃¨da ⍝ reset in userCmdRun + SV.errmsgs,←da/⍨'!'=⊃¨da ⍝ reset in userCmdRun + (z/da)←{⎕←1↓⍵}/0,⍪da/⍨z←'⎕'=⊃¨da ⍝ to session dd←MP.log{(⊢↑⍨1000⌊≢)⍵,⍺}←dt∘,¨da ~_NEXISTS SV.logfile:ms fd←⎕UCS MS.HI ⎕UCS⊃,/UT.EN,,∘UT.(CR LF)¨dd diff --git a/APLSource/_code-0/releaseNotes-80.aplf b/APLSource/_code-0/releaseNotes-80.aplf index ad0272a..8f4a241 100644 --- a/APLSource/_code-0/releaseNotes-80.aplf +++ b/APLSource/_code-0/releaseNotes-80.aplf @@ -1,5 +1,5 @@ releaseNotes←{2↓¨1↓¯1↓⎕NR⊃⎕SI -⍝ Acre 5.0.6+135 2019-02-24 23.08 +⍝ Acre 5.0.6+137 2019-02-26 12.45 ⍝ ⍝ Acre Desktop - Release Notes ⍝ ============================ @@ -8,5 +8,16 @@ ⍝ Keys required by acre are still "corrected" for case but others remain as ⍝ typed. However, required or not, multiple keys that resolve to the same ⍝ name when case is ignored will be reduced to the first alphabetically. +⍝ +⍝ The "Saved: #.project.whatever" message issued from an edit is now sent +⍝ to the session in addition to the log window and file. +⍝ +⍝ The default state of the message log window is now hidden. +⍝ ]acre.log show +⍝ ⎕UCMD'acre.log show' +⍝ or +⍝ ⎕SE.acreAPI.log'show' +⍝ bring it into view and can be added to the "StartUp" parameter in +⍝ "acre.config" or a function already called thence. ⍝----------------------------- } diff --git a/APLSource/_code-0/setEnvironment-8.aplf b/APLSource/_code-0/setEnvironment-8.aplf index ca22fda..d46eb11 100644 --- a/APLSource/_code-0/setEnvironment-8.aplf +++ b/APLSource/_code-0/setEnvironment-8.aplf @@ -17,7 +17,6 @@ SV.sessionstart←sessionStart'' z←editFix'Start' ⍝ sets other stuff in SV z←logMsg⍕getVersion'' - z←logCtrl'show' z←⍴⎕SE MS.FY _is_ setAPI'' ##.run←⎕THIS.codeHook 1:SV.setupcomplete←1