# testing for a memory leak

proc incr_label {} {
    global timer

    .lab getValues -labelString n
    incr n
    .lab setValues -labelString $n
    set timer [. addTimer 100 incr_label]
}

xtAppInitialize

xmLabel .lab managed -labelString 0 -width 40

set timer [. addTimer 100 incr_label]

. realizeWidget

. mainLoop
