PC World 2000 August/PCWorld_2000-08_cd.bin/Software/TemaCD/wincvs/data1.cab/Example_Files/Macros/FilesTest.tcl

Text File | 1999-03-23 | 277b | 12 lines

#!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
}