TextSweep

Check-in [270509ee70]
Login

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

Overview
Comment:Update for Win
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 270509ee70de5b4e205e1ef266cc0ae047393ffc
User & Date: kevin 2016-09-03 16:38:44
Context
2016-09-03
21:51
Add win images check-in: 20baeed25e user: kevin tags: trunk
16:38
Update for Win check-in: 270509ee70 user: kevin tags: trunk
2016-08-22
03:07
More tweaks check-in: 1e4141fcaa user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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







|







18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
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
}








|
|
|







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
}

103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

    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 
    #  pack $w.fbutton -in $w -side bottom

    text $w.ftext.text -yscrollcommand "$w.ftext.sbar set" \
        -wrap word -font TkDefaultFont
    scrollbar $w.ftext.sbar -takefocus 0 -command "$w.ftext.text yview"
    
    pack $w.ftext.text -in $w.ftext -side left -fill both -expand yes
    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}
    $w.ftext.text tag configure url -foreground blue
    $w.ftext.text tag bind url <ButtonPress-1> {
	xplat::launch "http://www.codebykevin.com/TextSweep.html"







<





|







103
104
105
106
107
108
109

110
111
112
113
114
115
116
117
118
119
120
121
122

    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
    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}
    $w.ftext.text tag configure url -foreground blue
    $w.ftext.text tag bind url <ButtonPress-1> {
	xplat::launch "http://www.codebykevin.com/TextSweep.html"
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160

161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
    $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 300x310


}

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

    global filelist
    if {$filelist == {}} {
	tk_messageBox -parent . -icon info -message "Please select a directory or file" -detail "Please select a file or directory to run this operation."
	break
	return
    }
}


#error message
proc dataErrMsg {} {

    tk_messageBox -parent . -icon info -message "Cannot run operation without text" -detail "Please enter text into the appropriate entry field to run this operation."


}




#draw the GUI
proc drawGUI {} {

    global folder
    global searchvar
    global patternvar
    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 *


    if {[tk windowingsystem] eq "aqua"} {
    bind . <[xplat::controlkey]-W> {wm state .  withdrawn}
	bind . <[xplat::controlkey]-w> {wm state .  withdrawn}
    }


    global runsearch 
    global folder_documents 
    global edit_undo







|









|
<








|
>



















|
|


|









|







132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
    $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 300x310


}

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

    global filelist
    if {$filelist == {}} {
	bgerror "Please select a file or directory to run this operation."

	return
    }
}


#error message
proc dataErrMsg {} {

    bgerror "Please enter text into the appropriate entry field to run this operation."
    return

}




#draw the GUI
proc drawGUI {} {

    global folder
    global searchvar
    global patternvar
    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 *


    if {[tk windowingsystem] eq "aqua"} {
	bind . <[xplat::controlkey]-W> {wm state .  withdrawn}
	bind . <[xplat::controlkey]-w> {wm state .  withdrawn}
    }


    global runsearch 
    global folder_documents 
    global edit_undo
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







|

|

|







624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
	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