A Broken Applet

[Sun Home | Tcl Plugin | Demos]

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.


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