TextSweep

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>CFBundleDevelopmentRegion</key>
	<string>English</string>
	<key>CFBundleExecutable</key>
	<string>TextSweep</string>
	<key>CFBundleGetInfoString</key>
	<string>TextSweep 4.1.0 (c) 2018 WordTech Communications LLC</string>
        <key>NSPrincipalClass</key>
        <string>NSApplication</string>
<key>NSHighResolutionCapable</key>
	<true/>
	<key>NSAppleScriptEnabled</key>
	<true/>
	<key>OSAScriptingDefinition</key>

	<key>CFBundleDisplayName</key>
	<string>TextSweep</string>
	<key>CFBundleIdentifier</key>
	<string>com.codebykevin.com.textsweep-cbk</string>
	<key>CFBundlePackageType</key>
	<string>APPL</string>
	<key>CFBundleShortVersionString</key>
	<string>4.1.0</string>
	<key>CFBundleVersion</key>
	<string>4.1.0</string>
	<key>LSMinimumSystemVersion</key>
	<string>10.13</string>
	<key>LSRequiresCarbon</key>
	<true/>	
	<key>NSSupportsAutomaticTermination</key>
	<string>YES</string>
	<key>NSSupportsSuddenTermination</key>
	<string>YES</string>
  <key>SUFeedURL</key>
	<string>http://www.codebykevin.com/textsweep.xml</string>
</dict>
</plist>

 * Help viewer by Keith Vetter: [http://wiki.tcl.tk/19649].
 * TkDND for drag and drop. Website and license: [http://sourceforge.net/projects/tkdnd/].

-------------------
title: TextSweep Version History
alias: History

'''4.1 (February 20, 2018):'''
 * Improved resizing of main window for efficient UI.
 * Removal of console on Windows.

'''4.0 (January 1, 2018):'''
 * New scripting API for Mac and Windows.
 * UI enhancements. 

'''3.2 (May 1, 2017):'''
 * Improved scrolling performance, security support on macOS.
 * Improved security support on Windows.

  package ifneeded textsweep 4.1 [list source [file join $dir textsweep.tcl]]

set filelist {}


#handle errors in Tk
proc bgerror {args} {

    global cachedir
    puts "TextSweep: An error occurred: $args\n"
}

#make images for buttons et. al from files
proc makeImage {} {

    global  runsearch 
    global folder_documents 

#"about application" command
proc tkAboutDialog {} {
    aboutWindow
}

proc aboutWindow {} {

   tk_messageBox -parent . -icon info -title "About TextSweep" -message "TextSweep: Search and Replace Tool" -detail "Version 4.1\n(c) 2018 WordTech Communications LLC"


}

#check file list to ensure existence
proc checkfilelist {} {

    
    pack .f.foldersearch.folder .f.foldersearch.foldervar .f.foldersearch.pattern .f.foldersearch.patternvar .f.foldersearch.search .f.foldersearch.searchvar  .f.foldersearch.replace .f.foldersearch.replacevar -side left -fill x -expand no
    
    
    ttk::separator .f.topsep -orient vertical
    pack .f.topsep -side top -fill both -expand no
    
    ttk::panedwindow .f.text -orient horizontal
    pack .f.text -side top -fill both -expand yes
    
    ttk::frame .f.text.list


    ttk::frame .f.text.display

    
    #main data display
    tablelist::tablelist .f.text.list.listbox -columns {0 "File" }  -width 40 -yscrollcommand [list .f.text.list.scrollframe.scroll set] -selectbackground   RoyalBlue1 -selectforeground   white -stretch all -stripebackground white -relief flat -border 0 -showseparators yes -takefocus 0 -setfocus 1 -activestyle none -exportselection 0
    
    pack  .f.text.list.listbox -side left -fill both -expand yes
    
    bind .f.text.list.listbox <<ListboxSelect>> highlightText

    tkdnd::drop_target register [.f.text.list.listbox bodypath] *
    bind [.f.text.list.listbox bodypath]  <<Drop:DND_Files>> {selectFileSystem [join %D]}
    
    ttk::frame .f.text.list.scrollframe
    pack .f.text.list.scrollframe -fill y -expand no -side right
    
    ttk::scrollbar .f.text.list.scrollframe.scroll -command [list .f.text.list.listbox yview]
    
    pack .f.text.list.scrollframe.scroll -fill y -expand no -side right
    
    ttk::frame .f.text.frame
    pack .f.text.frame -fill both -expand yes
    
    text .f.text.frame.t -yscrollcommand [list .f.text.frame.scrollframe.scroll set]  -borderwidth 0 -highlightthickness 3 -background white  -highlightcolor SlateGray3 -state disabled
    pack .f.text.frame.t -fill both -side left -expand yes
    
    ttk::frame .f.text.frame.scrollframe
   pack .f.text.frame.scrollframe -fill y -side right -expand no
    
    ttk::scrollbar .f.text.frame.scrollframe.scroll -command [list .f.text.frame.t yview]
    pack .f.text.frame.scrollframe.scroll -side right -fill y -expand no

    .f.text add .f.text.list
    .f.text add .f.text.frame
    
    ttk::separator .f.bottomsep -orient vertical
    pack .f.bottomsep -side top -fill both -expand no
    
    ttk::frame .f.bottom -padding 5
    pack .f.bottom -fill both -expand no -side top
    
    ttk::button .f.bottom.replaceall -text "Replace in All Files" -command  batchReplace 
    ttk::button .f.bottom.undo -text "Undo" -command batchUndo
    
    pack  .f.bottom.replaceall .f.bottom.undo -side right -fill x -expand no

    bind .f.text.frame.t <Button-1> {focus .f.text.frame.t} 
    
    bind all <[xplat::controlkey]-Q> exit
    bind all <[xplat::controlkey]-q> exit
    bind all <[xplat::controlkey]-Z> batchUndo
    bind all <[xplat::controlkey]-z> batchUndo
    
    focus -force .f.foldersearch.foldervar

#initialize the app
proc startUp {} {
    global appname
    global appversion
    global datadir
    global cachedir
    
    appname::setAppName TextSweep 4.1
    
    set datadir [xplat::appconfig TextSweep]


    makeImage
    softwareupdate::setVersion $appname::name $appname::version
    machelp::setAppName $appname::name $appname::version

package provide textsweep 4.1

source [file join [file dirname [info script]] textsweep-main.tcl]

* Improved resizing of main window for efficient UI.
* Removal of console on Windows.

4.1