12 lines
266 B
Tcl
12 lines
266 B
Tcl
#!CVSGUI1.0 --files --name "Files sample"
|
|
|
|
set selList [cvssel]
|
|
set selSize [llength $selList]
|
|
|
|
cvsout "Hello, this is a sample macro !\n"
|
|
cvsout "Total selected : " $selSize "\n"
|
|
|
|
for {set i 0} {$i < $selSize} {incr i} {
|
|
cvsout " -> " [lindex $selList $i] \n
|
|
}
|