QuickWho

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