diff options
Diffstat (limited to 'ds9/library/movie.tcl')
-rw-r--r-- | ds9/library/movie.tcl | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/ds9/library/movie.tcl b/ds9/library/movie.tcl index 1036199..a6d33c0 100644 --- a/ds9/library/movie.tcl +++ b/ds9/library/movie.tcl @@ -456,12 +456,19 @@ proc ProcessMovieCmd {varname iname} { upvar $varname var upvar $iname i - global movie - # we need to be realized # already implemented # ProcessRealizeDS9 + global debug + if {$debug(tcl,parser)} { + movie::YY_FLUSH_BUFFER + movie::yy_scan_string [lrange $var $i end] + movie::yyparse + incr i [expr $movie::yycnt-1] + } else { + + global movie set item [string tolower [lindex $var $i]] switch -- $item { slice - @@ -530,5 +537,14 @@ proc ProcessMovieCmd {varname iname} { Movie $fn } +} + +proc MovieCmdSet {which value {cmd {}}} { + global movie + set movie($which) $value + if {$cmd != {}} { + eval $cmd + } +} |