| Server IP : 170.10.161.225 / Your IP : 216.73.216.78 Web Server : Apache System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64 User : calvet ( 273824) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : ON Directory : /lib64/perl5/vendor_perl/Tk/pTk/ |
Upload File : |
/*
* 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.1 2002/06/21 23:09:55 hobbs 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;
/* struct defining the basic undo/redo stack element */
typedef struct TkUndoAtom {
TkUndoAtomType type; /* The type that will trigger the
* required action*/
Tcl_Obj * apply; /* Command to apply the action that was taken */
Tcl_Obj * revert; /* The command to undo the action */
struct TkUndoAtom * next; /* Pointer to the next element in the
* stack */
} TkUndoAtom;
/* struct defining the basic undo/redo stack element */
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 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 void TkUndoPushAction _ANSI_ARGS_((TkUndoRedoStack * stack,
Tcl_DString * actionScript, Tcl_DString * revertScript));
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 */