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: |
19e1024638184d68f65fe6319602b823 |
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.
1 2 3 4 5 6 7 8 9 10 11 12 | SET COPYCMD=/Y if exist TextSweep.exe ( del TextSweep.exe ) if exist build\ ( rmdir build\ ) mkdir build\ mkdir build\textsweep\ | > > | | < < < < < < < < < < | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | SET COPYCMD=/Y if exist TextSweep.exe ( del TextSweep.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 call xcopy textsweep.tcl build\bin\ |
Changes to scriptlibs/textsweep/textsweep-main.tcl.
︙ | ︙ | |||
55 56 57 58 59 60 61 | #handle errors in Tk proc bgerror {args} { global cachedir if {[tk windowingsystem] ne "win32"} { | | | | 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | #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 |
︙ | ︙ | |||
205 206 207 208 209 210 211 | } menu .mb.help -tearoff 0 if {[tk windowingsystem] eq "win32"} { | | | 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 | } 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" |
︙ | ︙ |