diff options
Diffstat (limited to 'generic/tkUndo.c')
| -rw-r--r-- | generic/tkUndo.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tkUndo.c b/generic/tkUndo.c index ba3a3a5..0e48f69 100644 --- a/generic/tkUndo.c +++ b/generic/tkUndo.c @@ -3,8 +3,8 @@ * * This module provides the implementation of an undo stack. * - * Copyright (c) 2002 Ludwig Callewaert. - * Copyright (c) 2003-2004 Vincent Darley. + * Copyright © 2002 Ludwig Callewaert. + * Copyright © 2003-2004 Vincent Darley. * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -244,7 +244,7 @@ TkUndoMakeCmdSubAtom( atom->next = NULL; atom->action = actionScript; if (atom->action != NULL) { - Tcl_IncrRefCount(atom->action); + Tcl_IncrRefCount(atom->action); } if (subAtomList != NULL) { @@ -287,7 +287,7 @@ TkUndoSubAtom * TkUndoMakeSubAtom( TkUndoProc *funcPtr, /* Callback function to perform the * undo/redo. */ - ClientData clientData, /* Data to pass to the callback function. */ + void *clientData, /* Data to pass to the callback function. */ Tcl_Obj *actionScript, /* Additional Tcl data to pass to the callback * function (may be NULL). */ TkUndoSubAtom *subAtomList) /* Add to the end of this list of actions if @@ -306,7 +306,7 @@ TkUndoMakeSubAtom( atom->next = NULL; atom->action = actionScript; if (atom->action != NULL) { - Tcl_IncrRefCount(atom->action); + Tcl_IncrRefCount(atom->action); } if (subAtomList != NULL) { @@ -712,7 +712,7 @@ EvaluateActionList( Tcl_GetCommandFullName(interp, action->command, cmdNameObj); Tcl_ListObjAppendElement(NULL, evalObj, cmdNameObj); if (action->action != NULL) { - Tcl_ListObjAppendList(NULL, evalObj, action->action); + Tcl_ListObjAppendList(NULL, evalObj, action->action); } result = Tcl_EvalObjEx(interp, evalObj, TCL_EVAL_GLOBAL); Tcl_DecrRefCount(evalObj); |