Index: buildapp ================================================================== --- buildapp +++ buildapp @@ -196,11 +196,11 @@ echo "Building disk image and uploading to Amazon..." cd build - zip -r -y TextSweep.zip QuickWho.app + zip -r -y TextSweep.zip TextSweep.app echo "Copying app and XML file to server..." cp -f TextSweep.tgz /Volumes/kevin/Sites/codebykevin/updates/TextSweep.tgz cp -f textsweep.xml /Volumes/kevin/Sites/codebykevin/textsweep.xml Index: scriptlibs/textsweep/pkgIndex.tcl ================================================================== --- scriptlibs/textsweep/pkgIndex.tcl +++ scriptlibs/textsweep/pkgIndex.tcl @@ -1,3 +1,3 @@ - package ifneeded textsweep 2.2 [list source [file join $dir textsweep.tcl]] + package ifneeded textsweep 3.0 [list source [file join $dir textsweep.tcl]] Index: scriptlibs/textsweep/textsweep-main.tcl ================================================================== --- scriptlibs/textsweep/textsweep-main.tcl +++ scriptlibs/textsweep/textsweep-main.tcl @@ -99,19 +99,18 @@ catch {destroy $w} toplevel $w wm title $w "About TextSweep" - frame $w.ftext - frame $w.fbutton + frame $w.ftext label $w.l -image logo -bg gray95 pack $w.l -in $w -side top -expand no -fill both pack $w.ftext -in $w -side bottom -expand no -fill both text $w.ftext.text -yscrollcommand "$w.ftext.sbar set" \ - -wrap word -font TkDefaultFont -relief flat -bg gray95 + -wrap word -font TkDefaultFont -relief flat -bg gray95 -highlightbackground gray95 scrollbar $w.ftext.sbar -takefocus 0 -command "$w.ftext.text yview" pack $w.ftext.text -in $w.ftext -side left -fill both -expand no pack $w.ftext.sbar -in $w.ftext -side right -fill y @@ -134,11 +133,11 @@ if {[tk windowingsystem] eq "aqua"} { bind $w <[xplat::controlkey]-W> [list wm withdraw $w] bind $w <[xplat::controlkey]-w> [list wm withdraw $w] } - wm geometry $w 300x250 + wm geometry $w 305x280 } #check file list to ensure existence @@ -348,13 +347,12 @@ 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 + focus -force .f.foldersearch.foldervar } #set search directory Index: scriptlibs/textsweep/textsweep.tcl ================================================================== --- scriptlibs/textsweep/textsweep.tcl +++ scriptlibs/textsweep/textsweep.tcl @@ -1,4 +1,4 @@ -package provide textsweep 2.2 +package provide textsweep 3.0 source [file join [file dirname [info script]] textsweep-main.tcl] Index: textsweep.xml ================================================================== --- textsweep.xml +++ textsweep.xml @@ -6,11 +6,11 @@ en TextSweep 3.0.0 10.11 - Fri, 12 Aug 2016 22:42:30 -0400 + Sun, 04 Sep 2016 22:04:38 -0400 Code by Kevin http://www.codebykevin.com/textsweep.html