Eskil

Check-in [32d8697a40]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Store default prefs as comment in rc file
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 32d8697a40bda63f1cce6f8c6539311bd2e859b1
User & Date: peter 2014-10-27 15:40:29.056
Context
2014-10-27
15:54
Bumped revision to 2.6.6 check-in: 1619c8199b user: peter tags: trunk
15:40
Store default prefs as comment in rc file check-in: 32d8697a40 user: peter tags: trunk
2014-07-21
00:37
Use file dictinoary down to CompareFiles check-in: 42caa7a2a8 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/eskil.tcl.
︙︙
4434
4435
4436
4437
4438
4439
4440

4441
4442
4443
4444
4445
4446
4447


    foreach i [array names ::Pref] {
        # Skip unchanged options.
        if {[info exists ::DefaultPref($i)]} {
            if {$::DefaultPref($i) eq $::Pref($i)} {
                continue
            }

        }
        puts $ch [list set ::Pref($i) $::Pref($i)]
    }
    close $ch

    tk_messageBox -icon info -title "Saved" -message \
            "Preferences saved to:\n[file nativename $rcfile]"








>








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]"
︙︙