#16 endless loop in Segmt.tcl

open
nobody
None
5
2007-01-02
2007-01-02
Anonymous
No

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

Discussion


Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks