#!/usr/bin/wishx
#Attempt to demonstrate a memory leak in TCL/TK/X-server

if {[lindex $argv 0] == {}} {
    set count 100
} else {
    set count [lindex $argv 0]
}

for {set i 0} {$i < $count} {incr i} {
    . configure -cursor watch
    . configure -cursor top_left_arrow
}
exit
