diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2008-06-13 05:45:01 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2008-06-13 05:45:01 (GMT) |
| commit | f7c3c0f0809266035acb3cdeaa624f903a3b0cf0 (patch) | |
| tree | 32ea63055bc449e3ffe1e3b813bb8c48326ac84c /generic/tcl.decls | |
| parent | 9c5b16baabde8f28eb258e1b9be4727afa812830 (diff) | |
| download | tcl-f7c3c0f0809266035acb3cdeaa624f903a3b0cf0.zip tcl-f7c3c0f0809266035acb3cdeaa624f903a3b0cf0.tar.gz tcl-f7c3c0f0809266035acb3cdeaa624f903a3b0cf0.tar.bz2 | |
TIP 285 Implementation
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 3616299..6c9b09a 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.132 2008/04/02 21:27:44 das Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.133 2008/06/13 05:45:07 mistachkin Exp $ library tcl @@ -2099,6 +2099,15 @@ declare 579 generic { void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, CONST char *format, ...) } +# TIP #285: Script cancellation support. +declare 580 generic { + int Tcl_CancelEval(Tcl_Interp *interp, Tcl_Obj *resultObjPtr, + ClientData clientData, int flags) +} +declare 581 generic { + int Tcl_Canceled(Tcl_Interp *interp, int flags) +} + ############################################################################## # Define the platform specific public Tcl interface. These functions are |