set newfile [tk_getOpenFile -multiple 0 -initialfile $currentfile \
-title "Select YPP log to track"]
if {![string length $newfile]} return
set newfile [tk_getOpenFile -multiple 0 -initialfile $currentfile \
-title "Select YPP log to track"]
if {![string length $newfile]} return
lappend newprtimes [format "%3ds" $age]
} else {
lappend newprtimes [format "%3dm" [expr {$age/60}]]
}
set latest [expr { $time > $latest ? $time : $latest }]
set tint [expr { exp( (-($age >= 0 ? $age : 0) + 0.0) / $e_life ) }]
lappend newprtimes [format "%3ds" $age]
} else {
lappend newprtimes [format "%3dm" [expr {$age/60}]]
}
set latest [expr { $time > $latest ? $time : $latest }]
set tint [expr { exp( (-($age >= 0 ? $age : 0) + 0.0) / $e_life ) }]