103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
if {$i >= 0} {
catch {file delete $f}
set ::tmpfiles [lreplace $::tmpfiles $i $i]
}
}
} else {
foreach f $::tmpfiles {
catch {file delete $f}
}
set ::tmpfiles {}
}
}
# insertLine, when in table mode
proc insertLineTable {top n line text {tag equal}} {
|
|
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
if {$i >= 0} {
catch {file delete $f}
set ::tmpfiles [lreplace $::tmpfiles $i $i]
}
}
} else {
foreach f $::tmpfiles {
catch {file delete -force $f}
}
set ::tmpfiles {}
}
}
# insertLine, when in table mode
proc insertLineTable {top n line text {tag equal}} {
|