romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v80.3

Browse Source
This commit is contained in:
Lutz
2023-08-08 11:45:42 +02:00
parent c4dad70680
commit 773ec206ac
2 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
ThorUpdater/FoxBin2Prg.zip
View File

Binary file not shown.

21
ThorUpdater/FoxBin2PrgVersion.txt
View File

@@ -6,11 +6,28 @@ with toUpdateObject
.VersionNumber = '1.19.80 - 20230808' .VersionNumber = '1.19.80 - 20230808'
.AvailableVersion = 'FoxBin2PRG-1.19.80-update-20230808' .AvailableVersion = 'FoxBin2PRG-1.19.80-update-20230808'
.Notes = GetNotes() .Notes = GetNotes()
* .RegisterWithThor = GetRegisterWithThor() .RegisterWithThor = GetRegisterWithThor()
.RegisterWithThor = "SET STEP ON"+0h0d0a+"*"+NVL(EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder'),'fail') * .RegisterWithThor = "SET STEP ON"+0h0d0a+"*"+NVL(EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder'),'fail')
endwith endwith
return toUpdateObject return toUpdateObject
procedure GetRegisterWithThor
local lcCommand
text to lcCommand noshow
SET STEP ON
lcBase = EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder')
IF FILE(m.lcBase+"clean_copied_memo.prg") THEN
*old crap
DO m.lcBase+"clean_thorfolder.prg"
ENDIF &&FILE(m.lcBase+"clean_copied_memo.prg")
DELETE FILE (m.lcBase+"clean_thorfolder.*")
endtext
return lcCommand
endproc &&GetRegisterWithThor
* Get the notes for the project. * Get the notes for the project.
procedure GetNotes procedure GetNotes