v80.5
This commit is contained in:
Binary file not shown.
Binary file not shown.
@@ -3,22 +3,21 @@ lparameters toUpdateObject
|
||||
* Set the properties of the passed updater object.
|
||||
|
||||
with toUpdateObject
|
||||
.VersionNumber = '1.19.80 - 20230808'
|
||||
.AvailableVersion = 'FoxBin2PRG-1.19.80-update-20230808'
|
||||
.VersionNumber = '1.19.79 - 20230809'
|
||||
.AvailableVersion = 'FoxBin2PRG-1.19.79-update-20230809'
|
||||
.Notes = GetNotes()
|
||||
.RegisterWithThor = GetRegisterWithThor()
|
||||
* .RegisterWithThor = "SET STEP ON"+0h0d0a+"*"+NVL(EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder'),'fail')
|
||||
.RegisterWithThor = GetRegisterWithThor()
|
||||
endwith
|
||||
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"
|
||||
*remove old crap
|
||||
DO m.lcBase+"clean_thorfolder.prg" WITH lcBase
|
||||
ENDIF &&FILE(m.lcBase+"clean_copied_memo.prg")
|
||||
|
||||
DELETE FILE (m.lcBase+"clean_thorfolder.*")
|
||||
@@ -471,4 +470,4 @@ return lcNotes
|
||||
* "FoxBin2PRG" is a Component. No procedure GetRegisterWithThor created by VFPX Deployment
|
||||
|
||||
|
||||
*created by VFPX Deployment, 06.08.2023 21:23:17
|
||||
*created by VFPX Deployment, 09.08.2023 12:53:03
|
||||
Reference in New Issue
Block a user