diff options
Diffstat (limited to 'ds9/library/backup.tcl')
| -rw-r--r-- | ds9/library/backup.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/ds9/library/backup.tcl b/ds9/library/backup.tcl index d2882dc..954fa3d 100644 --- a/ds9/library/backup.tcl +++ b/ds9/library/backup.tcl @@ -810,6 +810,14 @@ proc ProcessRestoreCmd {varname iname} { upvar $varname var upvar $iname i + global debug + if {$debug(tcl,parser)} { + restore::YY_FLUSH_BUFFER + restore::yy_scan_string [lrange $var $i end] + restore::yyparse + incr i [expr $restore::yycnt-1] + } else { + set fn [lindex $var $i] if {$fn != {}} { FileLast backupfbox $fn @@ -818,3 +826,11 @@ proc ProcessRestoreCmd {varname iname} { Error [msgcat::mc {Unable to open file}] } } +} + +proc RestoreCmd {fn} { + FileLast backupfbox $fn + Restore $fn +} + + |