Differences From Artifact [ad67776cb8]:
- Executable file src/eskil.tcl — part of check-in [03d4b03550] at 2014-07-20 23:35:46 on branch trunk — Started to refactor dirdiff code (user: peter size: 153648)
To Artifact [82893b8d81]:
- Executable file src/eskil.tcl — part of check-in [32d8697a40] at 2014-10-27 15:40:29 on branch trunk — Store default prefs as comment in rc file (user: peter size: 153705)
| ︙ | |||
4434 4435 4436 4437 4438 4439 4440 4441 4442 4443 4444 4445 4446 4447 | 4434 4435 4436 4437 4438 4439 4440 4441 4442 4443 4444 4445 4446 4447 4448 | + |
foreach i [array names ::Pref] {
# Skip unchanged options.
if {[info exists ::DefaultPref($i)]} {
if {$::DefaultPref($i) eq $::Pref($i)} {
continue
}
puts $ch "# $i default : $::DefaultPref($i)"
}
puts $ch [list set ::Pref($i) $::Pref($i)]
}
close $ch
tk_messageBox -icon info -title "Saved" -message \
"Preferences saved to:\n[file nativename $rcfile]"
|
| ︙ |