Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | More revisions |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
517b267867cb95a1d0f56b2588c983e3 |
User & Date: | kevin 2019-11-29 02:14:14 |
Context
2019-11-29
| ||
14:12 | Good progress to new release check-in: be8a5ee097 user: kevin tags: trunk | |
02:14 | More revisions check-in: 517b267867 user: kevin tags: trunk | |
2019-11-23
| ||
18:42 | add bitmaps check-in: 51fb5ee597 user: kevin tags: trunk | |
Changes
Added scriptlibs/darkaqua/darkaqua.tcl.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | #MIT license package provide darkaqua 1.0 namespace eval darkaqua { proc changeImagesDark {} { foreach item [image names] { if {[image type $item] eq "bitmap"} { $item configure -foreground white } } } proc changeImagesLight {} { foreach item [image names] { if {[image type $item] eq "bitmap"} { $item configure -foreground black } } } proc checkDarkMode {} { set mode [catch {exec defaults read -g AppleInterfaceStyle} msg] if {$msg eq "Dark"} { event generate . <<DarkAqua>> } else { event generate . <<LightAqua>> } } bind all <<LightAqua>> {changeImagesLight} bind all <<DarkAqua>> {changeImagesDark} namespace export * } |
Added scriptlibs/darkaqua/pkgIndex.tcl.
> > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 | # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex" command # and sourced either when an application starts up or # by a "package unknown" script. It invokes the # "package ifneeded" command to set up package-related # information so that packages will be loaded automatically # in response to "package require" commands. When this # script is sourced, the variable $dir must contain the # full path name of this file's directory. package ifneeded darkaqua 1.0 [list source [file join $dir darkaqua.tcl]] |
Changes to scriptlibs/textsweep/textsweep-main.tcl.
︙ | ︙ | |||
23 24 25 26 27 28 29 30 31 32 33 34 35 36 | R0lGODlhDgAOAJEAANnZ2YCAgPz8/P///yH5BAEAAAAALAAAAAAOAA4AAAInhI+ py+1I4ocQ/IgDEYIPgYJICUCE4F+YIBolEoKPEJKZmVJK6ZACADs=} image create photo noArrow -height 14 -width 14 if {[tk windowingsystem] eq "aqua"} { package require cocoaprint } if {[tk windowingsystem] eq "win32"} { package require dde dde servername TextSweep } | > > | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | R0lGODlhDgAOAJEAANnZ2YCAgPz8/P///yH5BAEAAAAALAAAAAAOAA4AAAInhI+ py+1I4ocQ/IgDEYIPgYJICUCE4F+YIBolEoKPEJKZmVJK6ZACADs=} image create photo noArrow -height 14 -width 14 if {[tk windowingsystem] eq "aqua"} { package require cocoaprint package require darkaqua darkaqua::checkDarkMode } if {[tk windowingsystem] eq "win32"} { package require dde dde servername TextSweep } |
︙ | ︙ | |||
94 95 96 97 98 99 100 | raise . } else { wm deiconify . raise . } } | < < < < < < < < < < < < < < < < < < < < < < < < < | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | raise . } else { wm deiconify . raise . } } #handle program shutdown via command-q proc ::tk::mac::Quit {} { regproc::makePitch } } |
︙ | ︙ | |||
174 175 176 177 178 179 180 | global appname global cachedir global datadir wm title . "TextSweep" | | > > | 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 | global appname global cachedir global datadir wm title . "TextSweep" if {[tk windowingsystem] eq "aqua"} { wm iconphoto . -default icon-main } else { wm iconphoto . -default icon-32 } . configure -height 700 -width 700 set patternvar * |
︙ | ︙ | |||
355 356 357 358 359 360 361 362 363 364 365 366 367 368 | 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 } #clear text contents proc clearText {} { .f.text.frame.t configure -state normal .f.text.frame.t delete 1.0 end | > | 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 | 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 } #clear text contents proc clearText {} { .f.text.frame.t configure -state normal .f.text.frame.t delete 1.0 end |
︙ | ︙ |