AtExit 1.0

출처 : http://mini.net/tcl/3958

This package allows the programmer to define exit-handlers or finalizers.

The exit handlers have a priority and are executed using the following rule:

1. The higher the priority, the early the exit handler is executed
2. The later an exit handler is added, the earlier it is executed

In addition to this base functionality, this package allows to register an or
all exit handlers as protocol event handler for the event WM_DELETE_WINDOW
via the command: wm protocol $widget WM_DELETE_WINDOW.
If an exit handler is registered as event handler for the WM_DELETE_WINDOW,
than it is disabled as common exit handler.

Every callback, that is executed as exit handler could contain following
substitutions:

• %t token of the exit handler
• %p priority of the exit handler
• %l stack/scope level of the exit handler execution
• %c name of the procedure calling exit
• %a args of the procedure calling exit
• %n namespace of the procedure calling exit

AtExit.zip

0.00MB