Eskil

    } else {
        set target "[file tail [lindex $args 0]] ..."
    }
    set precmd [list svn -q commit -m]
    set postcmd $args
    CommitDialog $top $target SVN $precmd $postcmd
}

# Does anything else needs to be committed with this file?
# Typically that would be added directories in SVN.
proc eskil::rev::SVN::commitFileDependency {filename} {
    set dir [file dirname $filename]
    set result {}
    while {$dir ni {. /}} {
        set s [exec svn status --depth=empty $dir]
        if {[string match "A*" $s]} {
            lappend result $dir
        } else {
            break
        }
        set dir [file dirname $dir]
    }
    return $result
}

# Check in HG controlled file
proc eskil::rev::HG::commitFile {top args} {
    if {[llength $args] == 0} {
        set target all
    } elseif {[llength $args] == 1} {
        set target [file tail [lindex $args 0]]

            incr t
        }
        # None left means ignore.
        if {[llength $todo] == 0} {
            return
        }
    }

    if {[info commands eskil::rev::${system}::commitFileDependency]} {
        foreach filename $todo {
            lappend todo {*}[eskil::rev::${system}::commitFileDependency $filename]
        }
    }

    # Splash screen for visual feedback
    set now [clock clicks -milliseconds]
    ttk::label $w.splash -text "Committing" -anchor center -font myfont
    place $w.splash -x 0 -y 0 -relwidth 1.0 -relheight 1.0
    update
    # Commit