TextSweep

Check-in [e90f9da4e1]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Final tweaks for Windows build
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e90f9da4e13369b806c201e4e8e11d6d4ec88728
User & Date: kevin 2020-01-03 13:45:14
Context
2020-01-03
13:53
Fix icons for Windows check-in: b99df47d70 user: kevin tags: trunk
13:45
Final tweaks for Windows build check-in: e90f9da4e1 user: kevin tags: trunk
2020-01-02
12:50
More build tweaks for Windows check-in: 40bb7e074c user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to build.bat.

6
7
8
9
10
11
12






13
14
15
16
17
18
19

if exist TextSweep_Setup_unsigned.exe (
del TextSweep_Setup_unsigned.exe
)
if exist build\ (
rmdir build\
)






mkdir build\
mkdir build\textsweep\

call xcopy C:\Users\Kevin\AppData\Local\Apps\Tcl86\lib build\lib /s /i /y
call xcopy C:\Users\Kevin\AppData\Local\Apps\Tcl86\bin build\bin /s /i /y
call xcopy scriptlibs build\lib /s /i /y
call xcopy winlibs build\lib /s /i /y







>
>
>
>
>
>







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

if exist TextSweep_Setup_unsigned.exe (
del TextSweep_Setup_unsigned.exe
)
if exist build\ (
rmdir build\
)

if exist textsweep.zip (
del textsweep.zip
)


mkdir build\
mkdir build\textsweep\

call xcopy C:\Users\Kevin\AppData\Local\Apps\Tcl86\lib build\lib /s /i /y
call xcopy C:\Users\Kevin\AppData\Local\Apps\Tcl86\bin build\bin /s /i /y
call xcopy scriptlibs build\lib /s /i /y
call xcopy winlibs build\lib /s /i /y

Changes to install.bat.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
)
if not exist %config_dir% (
mkdir %config_dir%
)
call 7za  x textsweep.zip
xcopy bin %install_dir%\bin /s /i /y
xcopy lib %install_dir%\lib /s /i /y
xcopy textsweep %install_dir%\textsweep /s /i /y
copy /Y uninstall.bat %config_dir%\
copy /Y textsweep.ico %config_dir%\
copy /Y pathed.exe %config_dir%\

 
::test for key, add to registry
reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk"
if errorlevel 0 (
reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk" /f
)
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk"  /ve /d "%appdata%\TextSweep_App\textsweep\TextSweep.lnk" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "DisplayIcon" /t REG_SZ /d "%config_dir%\textsweep.ico"
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "DisplayName" /t REG_SZ /d "TextSweep"
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "InstallLocation" /t REG_SZ /d "%install_dir%"
 
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "Publisher" /t REG_SZ /d "WordTech Communications LLC"
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "InstallDate" /t REG_SZ /d %DATE%
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "Version" /t REG_SZ /d 5.0.0
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "UninstallString" /t REG_SZ /d "cmd /c %appdata%\TextSweep\uninstall.bat"
 
reg add HKEY_CURRENT_USER\Environment  /v  userpath /t  REG_EXPAND_SZ  /d  "%appdir%\TextSweep\bin"
::add to start menu
set startdir="%appdata%\Microsoft\Windows\Start Menu\TextSweep\"
 
if not exist %startdir% (
mkdir %startdir%
)
cd %startdir%
 
 
echo Set oWS = WScript.CreateObject("WScript.Shell") >%temp%\link.vbs
echo sLinkFile = "TextSweep.lnk" >>  %temp%\link.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >>  %temp%\link.vbs
echo oLink.TargetPath = "%appdata%\TextSweep_App\bin\wish86t.exe" >> %temp%\link.vbs
echo oLink.Arguments = "textsweep.tcl" >> %temp%\link.vbs
echo oLink.WorkingDirectory = "%appdata%\TextSweep_App\bin"  >> %temp%\link.vbs
echo oLink.IconLocation = "%config_dir%\textsweep.ico" >> %temp%\link.vbs
echo oLink.Save >>  %temp%\link.vbs
call  %temp%\link.vbs
copy /Y "TextSweep.lnk"  "%appdata%\TextSweep_App\bin"
del %temp%\link.vbs

call %config_dir%\pathed.exe -a "%appdata%\TextSweep_App\bin"
 
cd C:\Users\%username%\Desktop

echo Done.







<

|









|










<

|





<







|

|


<





8
9
10
11
12
13
14

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

37
38
39
40
41
42
43

44
45
46
47
48
49
50
51
52
53
54
55

56
57
58
59
60
)
if not exist %config_dir% (
mkdir %config_dir%
)
call 7za  x textsweep.zip
xcopy bin %install_dir%\bin /s /i /y
xcopy lib %install_dir%\lib /s /i /y

copy /Y uninstall.bat %config_dir%\
copy /Y textsweep.ico %app_dir%\bin\
copy /Y pathed.exe %config_dir%\

 
::test for key, add to registry
reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk"
if errorlevel 0 (
reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk" /f
)
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk"  /ve /d "%appdata%\TextSweep_App\bin\TextSweep.lnk" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "DisplayIcon" /t REG_SZ /d "%config_dir%\textsweep.ico"
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "DisplayName" /t REG_SZ /d "TextSweep"
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "InstallLocation" /t REG_SZ /d "%install_dir%"
 
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "Publisher" /t REG_SZ /d "WordTech Communications LLC"
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "InstallDate" /t REG_SZ /d %DATE%
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "Version" /t REG_SZ /d 5.0.0
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f /v "UninstallString" /t REG_SZ /d "cmd /c %appdata%\TextSweep\uninstall.bat"
 

::add to start menu
set startdir="%appdata%\Microsoft\Windows\Start Menu\Programs\"
 
if not exist %startdir% (
mkdir %startdir%
)
cd %startdir%

 
echo Set oWS = WScript.CreateObject("WScript.Shell") >%temp%\link.vbs
echo sLinkFile = "TextSweep.lnk" >>  %temp%\link.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >>  %temp%\link.vbs
echo oLink.TargetPath = "%appdata%\TextSweep_App\bin\wish86t.exe" >> %temp%\link.vbs
echo oLink.Arguments = "textsweep.tcl" >> %temp%\link.vbs
echo oLink.WorkingDirectory = "%appdata%\TextSweep_App\bin"  >> %temp%\link.vbs
echo oLink.IconLocation = %config_dir% + "textsweep.ico" >> %temp%\link.vbs
echo oLink.Save >>  %temp%\link.vbs
call cscript %temp%\link.vbs
copy /Y "TextSweep.lnk"  "%appdata%\TextSweep_App\bin"
del %temp%\link.vbs

call %config_dir%\pathed.exe -a "%appdata%\TextSweep_App\bin"
 
cd C:\Users\%username%\Desktop

echo Done.

Changes to textsweep.sed.

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50


FinishMessage=Thank you for installing TextSweep. To run the program, please select it from the start menu.
TargetName=C:\Users\kevin\Desktop\TextSweep\TextSweep_Setup_unsigned.exe
FriendlyName=TextSweep_Setup
AppLaunched=cmd /c install.bat
PostInstallCmd=<None>
AdminQuietInstCmd=
UserQuietInstCmd=
FILE0="uninstall.bat"
FILE1="install.bat"
FILE2="TextSweep.zip"
FILE3="7za.exe"
FILE4="7za.dll"
FILE5="TextSweep.ico"
FILE6="pathed.exe"
[SourceFiles]
SourceFiles0=C:\Users\kevin\Desktop\TextSweep\
[SourceFiles0]
%FILE0%=
%FILE1%=
%FILE2%=
%FILE3%=
%FILE4%=
%FILE5%=










<
|
|
|
|
<
<







<
<

>
>
27
28
29
30
31
32
33

34
35
36
37


38
39
40
41
42
43
44


45
46
47
FinishMessage=Thank you for installing TextSweep. To run the program, please select it from the start menu.
TargetName=C:\Users\kevin\Desktop\TextSweep\TextSweep_Setup_unsigned.exe
FriendlyName=TextSweep_Setup
AppLaunched=cmd /c install.bat
PostInstallCmd=<None>
AdminQuietInstCmd=
UserQuietInstCmd=

FILE0="install.bat"
FILE1="TextSweep.zip"
FILE2="7za.exe"
FILE3="7za.dll"


[SourceFiles]
SourceFiles0=C:\Users\kevin\Desktop\TextSweep\
[SourceFiles0]
%FILE0%=
%FILE1%=
%FILE2%=
%FILE3%=





Changes to uninstall.bat.

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
exit /b
 
 
:remove
reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk" /f
reg delete  "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f
 
rmdir "%appdata%\Microsoft\Windows\Start Menu\TextSweep" /s /q 
echo MsgBox "Uninstallation of TextSweep is complete.", vbOKOnly+vbInformation, "Uninstall"> %temp%\remove.vbs
call %temp%\remove.vbs
del %temp%\remove.vbs /f /q
call %appdata%\TextSweep\pathed.exe -r "%appdata%\TextSweep_App\bin"
rmdir %appdata%\TextSweep_App /s /q
start /b "" cmd /c rmdir "%appdata%\TextSweep\" /s /q && exit
 
 
:cancel
echo MsgBox "Uninstallation of TextSweep cancelled.",vbOKOnly+vbInformation, "Uninstall TextSweep"  > %temp%\cancel.vbs
call %temp%\cancel.vbs
del %temp%\cancel.vbs /f /q
exit /b







|













17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
exit /b
 
 
:remove
reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\TextSweep.lnk" /f
reg delete  "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TextSweep" /f
 
del "%appdata%\Microsoft\Windows\Start Menu\Programs\TextSweep.lnk" /f /q 
echo MsgBox "Uninstallation of TextSweep is complete.", vbOKOnly+vbInformation, "Uninstall"> %temp%\remove.vbs
call %temp%\remove.vbs
del %temp%\remove.vbs /f /q
call %appdata%\TextSweep\pathed.exe -r "%appdata%\TextSweep_App\bin"
rmdir %appdata%\TextSweep_App /s /q
start /b "" cmd /c rmdir "%appdata%\TextSweep\" /s /q && exit
 
 
:cancel
echo MsgBox "Uninstallation of TextSweep cancelled.",vbOKOnly+vbInformation, "Uninstall TextSweep"  > %temp%\cancel.vbs
call %temp%\cancel.vbs
del %temp%\cancel.vbs /f /q
exit /b