1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/*
* tkUndo.h --
*
* Declarations shared among the files that implement an undo
* stack.
*
* Copyright (c) 2002 Ludwig Callewaert.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tkUndo.h,v 1.3 2004/09/10 12:13:42 vincentdarley Exp $
*/
#ifndef _TKUNDO
#define _TKUNDO
#ifndef _TK
#include "tk.h"
#endif
#ifdef BUILD_tk
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif
/* Enum definining the types used in an undo stack */
typedef enum {
TK_UNDO_SEPARATOR, /* Marker */
TK_UNDO_ACTION /* Command */
} TkUndoAtomType;
/*
* Callback proc type to carry out an undo or redo action
* via C code. (Actions can also be defined by Tcl scripts).
*/
typedef int (TkUndoProc) _ANSI_ARGS_((Tcl_Interp *interp,
ClientData clientData,
Tcl_Obj *objPtr));
/*
* Struct defining a single action, one or more of which may
* be defined (and stored in a linked list) separately for each
* undo and redo action of an undo atom.
*/
typedef struct TkUndoSubAtom {
Tcl_Command command; /* Tcl token used to get the current
* Tcl command name which will be used
* to execute apply/revert scripts. If
* NULL then it is assumed the
* apply/revert scripts already contain
* everything. */
TkUndoProc *funcPtr; /* Function pointer for callback to
* perform undo/redo actions. */
ClientData clientData; /* data for 'funcPtr' */
Tcl_Obj *action; /* Command to apply the action that
* was taken */
struct TkUndoSubAtom *next; /* Pointer to the next element in the
* linked list */
} TkUndoSubAtom;
/*
* Struct representing a single undo+redo atom to be placed in
* the stack.
*/
typedef struct TkUndoAtom {
TkUndoAtomType type; /* The type that will trigger the
* required action*/
TkUndoSubAtom *apply; /* Linked list of 'apply' actions to
* perform for this operation */
TkUndoSubAtom *revert; /* Linked list of 'revert' actions to
* perform for this operation */
struct TkUndoAtom *next; /* Pointer to the next element in the
* stack */
} TkUndoAtom;
/*
* Struct defining a single undo+redo stack.
*/
typedef struct TkUndoRedoStack {
TkUndoAtom * undoStack; /* The undo stack */
TkUndoAtom * redoStack; /* The redo stack */
Tcl_Interp * interp ; /* The interpreter in which to execute
* the revert and apply scripts */
int maxdepth;
int depth;
} TkUndoRedoStack;
/* Basic functions */
EXTERN void TkUndoPushStack _ANSI_ARGS_((TkUndoAtom **stack,
TkUndoAtom *elem));
EXTERN TkUndoAtom * TkUndoPopStack _ANSI_ARGS_((TkUndoAtom **stack));
EXTERN int TkUndoInsertSeparator _ANSI_ARGS_((TkUndoAtom **stack));
EXTERN void TkUndoClearStack _ANSI_ARGS_((TkUndoAtom **stack));
/* Functions for working on an undo/redo stack */
EXTERN TkUndoRedoStack * TkUndoInitStack _ANSI_ARGS_((Tcl_Interp *interp,
int maxdepth));
EXTERN void TkUndoSetDepth _ANSI_ARGS_((TkUndoRedoStack *stack,
int maxdepth));
EXTERN void TkUndoClearStacks _ANSI_ARGS_((TkUndoRedoStack *stack));
EXTERN void TkUndoFreeStack _ANSI_ARGS_((TkUndoRedoStack *stack));
EXTERN void TkUndoInsertUndoSeparator _ANSI_ARGS_((TkUndoRedoStack *stack));
EXTERN TkUndoSubAtom * TkUndoMakeCmdSubAtom _ANSI_ARGS_((
Tcl_Command command,
Tcl_Obj *actionScript,
TkUndoSubAtom *subAtomList));
EXTERN TkUndoSubAtom * TkUndoMakeSubAtom _ANSI_ARGS_((
TkUndoProc *funcPtr,
ClientData clientData,
Tcl_Obj *actionScript,
TkUndoSubAtom *subAtomList));
EXTERN void TkUndoPushAction _ANSI_ARGS_((TkUndoRedoStack *stack,
TkUndoSubAtom *apply,
TkUndoSubAtom *revert));
EXTERN int TkUndoRevert _ANSI_ARGS_((TkUndoRedoStack *stack));
EXTERN int TkUndoApply _ANSI_ARGS_((TkUndoRedoStack *stack));
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TKUNDO */
|
