TextSweep

Check-in [19e1024638]
Login

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
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
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"