Eskil

    if {[llength $args] == 0} {
        set target all
    } elseif {[llength $args] == 1} {
        set target [file tail [lindex $args 0]]
    } else {
        set target "[file tail [lindex $args 0]] ..."
    }
    # Any explict dirs mentioned should not recurse.
    set precmd [list svn -q commit -m]
    set precmd [list svn -q commit --depth=empty -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} {

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

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

    # Splash screen for visual feedback
    set now [clock clicks -milliseconds]