Tcl Source Code

Artifact 364a7096897f39b6d95942a342be2b27fed14278:

Attachment "membug2" to ticket [1157298fff] added by kylebateman 2005-03-10 11:30:33.

---

#!/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