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: |
270509ee70de5b4e205e1ef266cc0ae0 |
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
Changes to scriptlibs/textsweep/textsweep-main.tcl.
︙ | ︙ | |||
18 19 20 21 22 23 24 | package require xplat package require BWidget if {[tk windowingsystem] eq "aqua"} { package require fullscreen package require cocoaprint | | | 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 | softwareupdate::setIcon logo } #display user help if {[tk windowingsystem] eq "aqua"} { | | | | | 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 | 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 | < | | 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 | $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] } | | | < | > | | | | | 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 | return [join $folder] } } #procedure to open directory if dropped on dock icon if {[tk windowingsystem] eq "aqua"} { | | | | | 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 |
︙ | ︙ |