TextSweep

#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 *
    
}

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

    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
}

	    raise .
	} else {
	    wm deiconify .
	    raise .
	}
    }




























#handle program shutdown via command-q
proc  ::tk::mac::Quit {} {
    regproc::makePitch
}

}

    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 *

    
    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