This patch corrects an error occuring in some cases 
while format change / previewer selection


please apply this patch to xtem version 3.12 and 3.12.1 
concerned files:  dv.tcl,  pv.tcl

********** diff dv.tcl ../archive_tcl/dv.tcl-tcl3-12
87,88c87,88
<         if {![info exists prtmftli]} \
<             {set prtfmtli \n$vv(dvns1)\n$vv(dvns2)\n$vv(xt32)\n$vv(xt33)\n}
---
>         if {![info exists prtfmtli]} \
>             {set prtfmtli $vv(dvns1)\n$vv(dvns2)\n$vv(xt32)\n$vv(xt33)}
91,92c91,92
<     if {![info exists prtmftli]} \
<             {set prtfmtli \n$vv(dvns1)\n$vv(dvns3)\n$vv(xt32)\n$vv(xt33)\n}
---
>     if {![info exists prtfmtli]} \
>             {set prtfmtli $vv(dvns1)\n$vv(dvns3)\n$vv(xt32)\n$vv(xt33)}

********** diff pv.tcl ../archive_tcl/pv.tcl-tcl3-12
20,21c20,21
<   set txt [string trim [string range $k 0 [expr $p-1]]]
<   set fmt [string trim [string range $k [expr $p+1] end]]
---
>   set txt [string trim [string range $k 0 [expr $p-1]]]; # selection string
>   set fms [string trim [string range $k [expr $p+1] end]]; # select this format
40c44
<         if {("$fmt"=="$prformat")} {# (old) format is found
<           if {$s2 == ""} {
<             set prpreopt_ "[lindex $lien 1]"
<             set proptions_ "$proptions_ [lindex $lien 2]"
<             set selected 1; break
---
>         if {("$fmt"=="$fms")} {# (new) format is found
>           if {$s2 == ""} {
>             set prpreopt_ "[lindex $lien 1]"
>             set proptions_ "$proptions_ [lindex $lien 2]"
>             set prformat "$fms"
>             set selected 1; break
64,65c65,66
<   if {![info exists prvmftli]} \
<             {set prvfmtli \n$vv(pvns1)\n$vv(pvns2)\n$vv(xt32)\n$vv(xt33)\n}
---
>   if {![info exists prvfmtli]} \
>             {set prvfmtli $vv(pvns1)\n$vv(pvns2)\n$vv(xt32)\n$vv(xt33)}
****************************************************************************

Roland Weibezahn
