#16 endless loop in Segmt.tcl

[Anonymous]

I've been working with this 3 releases of transcriber
1.4.4, 1.4.6 an d now new 1.5.1 on a debian system.
The bug appears at least with 1.5.1 and sure doesn't exist in 1.4.4.

When moving boundaries in force mode with 1.5.1 it is
possible to enter the infinite loop without any chance
to get out. Especially if you move to far on the left.
It is like $nb never is '-1' as it used used to be.

I can circumvent this issue by adding the next line of code in Segmt.tcl

proc SegmentMove {wavfm segmt extend X y {force 0}} {
...
while {1} {
# Be sure we are not the first or last segment
if {$nb < 0 || [expr $nb+1] >= [GetSegmtNb $segmt]} return
>> if {$id == "tm0" || $id == "tm1"} return

# Get boundaries
...

After that it's ok.

Cyril Arnoux

arnoux@cena.fr