Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further progress on Windows build of TextSweep |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
14eff2ceb826bee8085ff2f4d9c731fb |
| User & Date: | kevin 2016-08-22 03:00:04 |
Context
|
2016-08-22
| ||
| 03:07 | More tweaks check-in: 1e4141fcaa user: kevin tags: trunk | |
| 03:00 | Further progress on Windows build of TextSweep check-in: 14eff2ceb8 user: kevin tags: trunk | |
| 02:41 | Add files to fill out Windows build check-in: 813b0562e7 user: kevin tags: trunk | |
Changes
Changes to buildexe.bat.
|
| | | 1 | gcc icons.o versioninfo.o textsweep.c -I %1\include -L%1\libs -L%1\bin -lShlwapi -ltcl86 -ltk86 -o TextSweep.exe |
Changes to scriptlibs/textsweep/textsweep-main.tcl.
1 2 3 4 5 6 7 8 9 10 11 | # TextSweep: batch search-replace tool # Copyright (C) 2016 WordTech Communications LLC #MIT license #let's get started #initialize package requirements package require tablelist_tile package require fileutil | < > | 1 2 3 4 5 6 7 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 |
# TextSweep: batch search-replace tool
# Copyright (C) 2016 WordTech Communications LLC
#MIT license
#let's get started
#initialize package requirements
package require tablelist_tile
package require fileutil
package require Img
package require tkdnd
package require regproc
package require machelp
package require softwareupdate
package require appname
package require xplat
package require BWidget
if {[tk windowingsystem] eq "aqua"} {
package require fullscreen
package require cocoaprint
package require windowlist
}
#initialize variables
global folder
global searchvar
global patternvar
global replacevar
|
| ︙ | ︙ | |||
78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
softwareupdate::setIcon logo
}
#display user help
proc tk::mac::ShowHelp {} {
machelp::userhelp
}
#"about application" command
proc tkAboutDialog {} {
aboutWindow
}
| > > | 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
softwareupdate::setIcon logo
}
#display user help
if {[tk windowingsystem] eq "aqua"} {
proc tk::mac::ShowHelp {} {
machelp::userhelp
}
}
#"about application" command
proc tkAboutDialog {} {
aboutWindow
}
|
| ︙ | ︙ | |||
171 172 173 174 175 176 177 |
global replacevar
global searchterm
global appname
global cachedir
global datadir
wm title . "TextSweep"
| | > > > | 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 |
global replacevar
global searchterm
global appname
global cachedir
global datadir
wm title . "TextSweep"
wm iconphoto . -default logo
. configure -height 700 -width 700
if {[tk windowingsystem] eq "aqua"} {
::fullscreen::fullscreen .
}
set patternvar *
|
| ︙ | ︙ | |||
619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 |
}
return [join $folder]
}
}
#procedure to open directory if dropped on dock icon
proc ::tk::mac::OpenDocument {fname} {
selectFileSystem $fname
}
#initialize the app
proc startUp {} {
global appname
global appversion
| > > | 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 |
}
return [join $folder]
}
}
#procedure to open directory if dropped on dock icon
if {[tk windowingsystem] eq "aqua"} {
proc ::tk::mac::OpenDocument {fname} {
selectFileSystem $fname
}
}
#initialize the app
proc startUp {} {
global appname
global appversion
|
| ︙ | ︙ |
Changes to textsweep.c.
|
| < | 1 2 3 4 5 6 7 | #include <Windows.h> #include <shlobj.h> #include <shlwapi.h> #include <tchar.h> #include <tcl.h> #include <tk.h> |
| ︙ | ︙ |