Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Refine bgerror on Windows |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 19e1024638184d68f65fe6319602b823d09db8d5 |
| User & Date: | kevin 2019-12-30 13:47:07 |
Context
|
2020-01-02
| ||
| 02:22 | Further tweaks for 5.0 check-in: 1a590dc356 user: kevin tags: trunk | |
|
2019-12-30
| ||
| 13:47 | Refine bgerror on Windows check-in: 19e1024638 user: kevin tags: trunk | |
| 13:24 | Tweak user help check-in: 998f25a02e user: kevin tags: trunk | |
Changes
Changes to build.bat.
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
if exist build\ ( rmdir build\ ) mkdir build\ mkdir build\textsweep\ call xcopy scriptlibs C:\Tcl\lib\ /s /i /y call xcopy winlibs C:\Tcl\lib\ /s /i /y call xcopy C:\Strawberry\c\bin\*.dll build\textsweep\ /s /i /y call xcopy C:\Tcl\bin\*.dll build\textsweep\ /s /i /y call xcopy C:\Tcl\lib build\lib /s /i /y call xcopy C:\Tcl\bin build\bin /s /i /y call windres icons.rc -o coff -o icons.o call windres versioninfo.rc -o coff -o versioninfo.o set tcldir="C:\Tcl" call buildexe %tcldir% call xcopy TextSweep.exe build\textsweep\ call xcopy textsweep.tcl build\textsweep\ |
| | | < | < < < < < < < | |
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
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 call xcopy textsweep.tcl build\bin\ |
Changes to scriptlibs/textsweep/textsweep-main.tcl.
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
#handle errors in Tk
proc bgerror {args} {
global cachedir
if {[tk windowingsystem] ne "win32"} {
puts "TextSweep: An error occurred: $args\n"
} else {
tk_messageBox -icon warning -title "Error" -message $args
}
}
#make images for buttons et. al from files
proc makeImage {} {
#create the images
................................................................................
}
menu .mb.help -tearoff 0
if {[tk windowingsystem] eq "win32"} {
.mb.help add command -label "Help" -command {exec hh [file join $::env(APPDATA) "TextSweep_App" "bin" "TextSweep User Help.mht"]}
}
.mb.help add command -label "Contact Code by Kevin" -command machelp::usermail
.mb.help add command -label "Web Site" -command machelp::appweb
if {[tk windowingsystem] ne "aqua"} {
.mb.help add command -label "About TextSweep" -command tkAboutDialog
.mb.help add command -label "Check for Updates" -command "softwareupdate::checkVersion $appname::name $appname::version"
|
|
|
|
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
#handle errors in Tk
proc bgerror {args} {
global cachedir
if {[tk windowingsystem] ne "win32"} {
exec syslog -s -l Error "TextSweep: An error occurred: $args\n"
} else {
puts "TextSweep: An error occurred: $args\n"
}
}
#make images for buttons et. al from files
proc makeImage {} {
#create the images
................................................................................
}
menu .mb.help -tearoff 0
if {[tk windowingsystem] eq "win32"} {
.mb.help add command -label "Help" -command machelp::userhelp
}
.mb.help add command -label "Contact Code by Kevin" -command machelp::usermail
.mb.help add command -label "Web Site" -command machelp::appweb
if {[tk windowingsystem] ne "aqua"} {
.mb.help add command -label "About TextSweep" -command tkAboutDialog
.mb.help add command -label "Check for Updates" -command "softwareupdate::checkVersion $appname::name $appname::version"
|