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