This tclet attempts to be nasty by creating a background loop that contains an error. Those errors will not annoy you or require any intervention. and you can leave the page unharmed at any time, thus killing the tclet.
Source Here's the source for this tclet: proc lockup {} { after 1000 lockup .b flash ; # this should be .b1 and will thus generate an error } button .b1 -text "Press me if you dare" -command lockup \ -bg purple -fg yellow place .b1 -relx .5 -rely .5 -anchor c
Here's the source for this tclet:
proc lockup {} { after 1000 lockup .b flash ; # this should be .b1 and will thus generate an error } button .b1 -text "Press me if you dare" -command lockup \ -bg purple -fg yellow place .b1 -relx .5 -rely .5 -anchor c