TextSweep

Check-in [7c39d3c6d6]
Login
☰Home Timeline Branches Tags Tickets Wiki Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Final tweaks for Mac release
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7c39d3c6d63bcacef400bdfa1b3444011d64ef49
User & Date: kevin 2016-09-05 02:07:44
Context
2016-09-05
02:08
Final tweaks for Mac release check-in: 9d8e88881a user: kevin tags: trunk
02:07
Final tweaks for Mac release check-in: 7c39d3c6d6 user: kevin tags: trunk
2016-09-04
03:26
More tweaks for Windows UI check-in: e214b2f027 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to buildapp.

︙︙
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208

if [ $2 == "release" ]
then

 echo "Building disk image and uploading to Amazon..."

 
 cd build
 zip -r -y TextSweep.zip QuickWho.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

echo "Copying zip to Amazon S3..."
aws s3 cp build/TextSweep.dmg s3://codebykevin/TextSweep.dmg --acl public-read








|








194
195
196
197
198
199
200
201
202
203
204
205
206
207
208

if [ $2 == "release" ]
then

 echo "Building disk image and uploading to Amazon..."

 
 cd build
 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

echo "Copying zip to Amazon S3..."
aws s3 cp build/TextSweep.dmg s3://codebykevin/TextSweep.dmg --acl public-read
︙︙

Changes to scriptlibs/textsweep/pkgIndex.tcl. 

1
2
3


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



|


1
2
3


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

Changes to scriptlibs/textsweep/textsweep-main.tcl.

︙︙
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

    set w .aboutw
    catch {destroy $w}
    toplevel $w 
    wm title $w "About TextSweep"


    frame $w.ftext
    frame $w.fbutton
    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
    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

    $w.ftext.text tag configure center -justify center
    $w.ftext.text tag configure bold -font {-weight bold}








<






|








98
99
100
101
102
103
104

105
106
107
108
109
110
111
112
113
114
115
116
117
118

    set w .aboutw
    catch {destroy $w}
    toplevel $w 
    wm title $w "About TextSweep"


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

    $w.ftext.text tag configure center -justify center
    $w.ftext.text tag configure bold -font {-weight bold}
︙︙
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

    $w.ftext.text config -state disabled

    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


}

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









|








131
132
133
134
135
136
137
138
139
140
141
142
143
144
145

    $w.ftext.text config -state disabled

    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 305x280


}

#check file list to ensure existence
proc checkfilelist {} {
︙︙
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362

    
    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
    
}



#set search directory
proc setDir {} {









<








347
348
349
350
351
352
353

354
355
356
357
358
359
360

    
    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

}



#set search directory
proc setDir {} {
︙︙

Changes to scriptlibs/textsweep/textsweep.tcl. 

1
2
3
4

package provide textsweep 2.2

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


|




1
2
3
4

package provide textsweep 3.0

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

Changes to textsweep.xml. 

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

<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:sparkle="http://www.andymatuschak.org/xml-namespaces/sparkle" version="2.0">
  <channel>
    <title>TextSweep</title>
    <link>http://www.codebykevin.com/textsweep.html</link>
    <language>en</language>
    <item>

      <title>TextSweep 3.0.0</title>
      <sparkle:minimumSystemVersion>10.11</sparkle:minimumSystemVersion>
      <pubDate>Fri, 12 Aug 2016 22:42:30 -0400</pubDate>
      <author>Code by Kevin</author>
      <description><![CDATA[
This version of TextSweep has the following features and improvements:
 * Initial Windows release.
 * UI refinements.
      ]]></description>
      <link>http://www.codebykevin.com/textsweep.html</link>
     <enclosure
				url="http://www.codebykevin.com/updates/TextSweep.tgz"
				sparkle:version="3.0.0"
				type="application/octet-stream"
				length="7765345"
			/>
    </item>

  </channel>
</rss>











|











|






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

<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:sparkle="http://www.andymatuschak.org/xml-namespaces/sparkle" version="2.0">
  <channel>
    <title>TextSweep</title>
    <link>http://www.codebykevin.com/textsweep.html</link>
    <language>en</language>
    <item>

      <title>TextSweep 3.0.0</title>
      <sparkle:minimumSystemVersion>10.11</sparkle:minimumSystemVersion>
      <pubDate>Sun, 04 Sep 2016 22:04:38 -0400</pubDate>
      <author>Code by Kevin</author>
      <description><![CDATA[
This version of TextSweep has the following features and improvements:
 * Initial Windows release.
 * UI refinements.
      ]]></description>
      <link>http://www.codebykevin.com/textsweep.html</link>
     <enclosure
				url="http://www.codebykevin.com/updates/TextSweep.tgz"
				sparkle:version="3.0.0"
				type="application/octet-stream"
				length="7950701"
			/>
    </item>

  </channel>
</rss>

This page was generated in about 0.014s by Fossil 2.20 [0d61fd2310] 2022-10-28 19:48:33