1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
|
} elseif {[llength $args] == 1} {
set target [file tail [lindex $args 0]]
} else {
set target "[file tail [lindex $args 0]] ..."
}
set precmd [list fossil commit -m]
set postcmd $args
CommitDialog $top $target Fossil "" $precmd $postcmd 1
}
# Revert SVN controlled file
proc eskil::rev::SVN::revertFile {top args} {
if {[llength $args] == 0} {
set target all
|
>
>
>
>
>
>
>
>
>
>
>
|
|
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
|
} elseif {[llength $args] == 1} {
set target [file tail [lindex $args 0]]
} else {
set target "[file tail [lindex $args 0]] ..."
}
set precmd [list fossil commit -m]
set postcmd $args
GetTopDir [pwd] topdir _
# Files to commit might be relative to topdir, take care of that.
# This can happen with -review in a subdir.
set usetopdir ""
foreach f $args {
if {![file exists $f]} {
if {[file exists [file join $topdir $f]]} {
set usetopdir $topdir
}
}
}
CommitDialog $top $target Fossil $usetopdir $precmd $postcmd 1
}
# Revert SVN controlled file
proc eskil::rev::SVN::revertFile {top args} {
if {[llength $args] == 0} {
set target all
|