D. McC 2009/01/01: Something strange just happened when I was running supposedly simple "clock" commands from a procedure (using Tcl 8.5.5 on Puppy Linux 4.1.1). The commands, individually, work right:
% set startdate 2009/01/14 2009/01/14 % set scanno [clock scan $startdate -format "%Y/%m/%d"] 1231862400 % set quant 1 1 % set unit year year % set addo [clock add $scanno $quant $unit] 1263398400 % set formato [clock format $addo -format "%Y/%m/%d"] 2010/01/14
But then I put the same commands into a proc, and I got an error message:
% proc recur {startdate unit quant} {
set scanno [clock scan $startdate -format "%Y/%m/%d"]
set addo [clock add $scanno $quant $unit]
set recurdate [clock format $addo -format "%Y/%m/%d"]
return $recurdate
}
% recur 2009/01/14 1 year
can't read "flag": no such variableRunning the proc from within a GUI in an app I'm trying to develop, I get these details in the error dialog:
can't read "flag": no such variable
can't read "flag": no such variable
while executing
"list CLOCK badSwitch $flag"
(procedure "::tcl::clock::add" line 37)
invoked from within
"clock add $scanno $quant $unit"
(procedure "recur" line 55)
invoked from within
"recur $startdate $unit $quant"
(procedure "markok" line 10)
invoked from within
"markok .li(1)"
invoked from within
".li(1).ok invoke"
("uplevel" body line 1)
invoked from within
"uplevel #0 [list $w invoke]"
(procedure "tk::ButtonUp" line 22)
invoked from within
"tk::ButtonUp .li(1).ok"
(command bound to event)Can anybody tell me what's going on here and how to fix it? If so, thanks in advance!
| enter categories here |
|---|