diff options
| author | jenglish <jenglish@flightlab.com> | 2010-06-19 16:18:41 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2010-06-19 16:18:41 (GMT) |
| commit | 8b0817c5ff3553c35d243c6ed17108fb423971ee (patch) | |
| tree | 88d4cf68e248e4be1f4424bb9afa3e7e44af11ce /generic/tkInt.decls | |
| parent | 98ae8ed60e6b422c5f03a5f5721362a4d3fda243 (diff) | |
| download | tk-8b0817c5ff3553c35d243c6ed17108fb423971ee.zip tk-8b0817c5ff3553c35d243c6ed17108fb423971ee.tar.gz tk-8b0817c5ff3553c35d243c6ed17108fb423971ee.tar.bz2 | |
[Patch 3009998]: Replace binding procedures with ordinary event handlers
in win/tkWinScrlbr.c and carbon/tkMacOSXScrlbr.c.
Simplifications enabled by previous change:
* TkCreateBindingProcedure() and associated machinery no longer needed.
* TkBindDeadWindow() no longer needed.
* TK_DEFER_MODAL_LOOP and associated machinery no longer needed.
* Tests related to C binding procedures no longer needed.
Diffstat (limited to 'generic/tkInt.decls')
| -rw-r--r-- | generic/tkInt.decls | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/generic/tkInt.decls b/generic/tkInt.decls index eea2ea4..6dd4d35 100644 --- a/generic/tkInt.decls +++ b/generic/tkInt.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tkInt.decls,v 1.61 2010/05/10 20:58:18 nijtmans Exp $ +# RCS: @(#) $Id: tkInt.decls,v 1.62 2010/06/19 16:18:41 jenglish Exp $ library tk @@ -36,9 +36,9 @@ declare 2 generic { void TkBezierScreenPoints(Tk_Canvas canvas, double control[], int numSteps, XPoint *xPointPtr) } -declare 3 generic { - void TkBindDeadWindow(TkWindow *winPtr) -} +# +# Slot 3 unused (WAS: TkBindDeadWindow) +# declare 4 generic { void TkBindEventProc(TkWindow *winPtr, XEvent *eventPtr) } @@ -61,12 +61,9 @@ declare 9 generic { declare 10 generic { int TkCopyAndGlobalEval(Tcl_Interp *interp, const char *script) } -declare 11 generic { - unsigned long TkCreateBindingProcedure(Tcl_Interp *interp, - Tk_BindingTable bindingTable, ClientData object, - const char *eventString, TkBindEvalProc *evalProc, - TkBindFreeProc *freeProc, ClientData clientData) -} +# +# Slot 11 unused (WAS: TkCreateBindingProcedure) +# declare 12 generic { TkCursor *TkCreateCursorFromData(Tk_Window tkwin, const char *source, const char *mask, int width, int height, |