*--------------------------------------------------------------
*/
-Tk_BindingTable
-Tk_CreateBindingTable(interp)
- Tcl_Interp *interp; /* Interpreter to associate with the binding
+Tk_BindingTable
+Tk_CreateBindingTable (
+ Tcl_Interp *interp /* Interpreter to associate with the binding
* table: commands are executed in this
* interpreter. */
+)
{
register BindingTable *bindPtr;
int i;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteBindingTable(bindingTable)
- Tk_BindingTable bindingTable; /* Token for the binding table to
+void
+Tk_DeleteBindingTable (
+ Tk_BindingTable bindingTable /* Token for the binding table to
* destroy. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
PatSeq *psPtr, *nextPtr;
*--------------------------------------------------------------
*/
-unsigned long
-Tk_CreateBinding(interp, bindingTable, object, eventString, command, append)
- Tcl_Interp *interp; /* Used for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to create binding. */
- ClientData object; /* Token for object with which binding
+unsigned long
+Tk_CreateBinding (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to create binding. */
+ ClientData object, /* Token for object with which binding
* is associated. */
- char *eventString; /* String describing event sequence
+ char *eventString, /* String describing event sequence
* that triggers binding. */
- char *command; /* Contains Tcl command to execute
+ char *command, /* Contains Tcl command to execute
* when binding triggers. */
- int append; /* 0 means replace any existing
+ int append /* 0 means replace any existing
* binding for eventString; 1 means
* append to that binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr;
*--------------------------------------------------------------
*/
-int
-Tk_DeleteBinding(interp, bindingTable, object, eventString)
- Tcl_Interp *interp; /* Used for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to delete binding. */
- ClientData object; /* Token for object with which binding
+int
+Tk_DeleteBinding (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to delete binding. */
+ ClientData object, /* Token for object with which binding
* is associated. */
- char *eventString; /* String describing event sequence
+ char *eventString /* String describing event sequence
* that triggers binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr, *prevPtr;
*/
char *
-Tk_GetBinding(interp, bindingTable, object, eventString)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to look for
+Tk_GetBinding (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to look for
* binding. */
- ClientData object; /* Token for object with which binding
+ ClientData object, /* Token for object with which binding
* is associated. */
- char *eventString; /* String describing event sequence
+ char *eventString /* String describing event sequence
* that triggers binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr;
*--------------------------------------------------------------
*/
-void
-Tk_GetAllBindings(interp, bindingTable, object)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to look for
+void
+Tk_GetAllBindings (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to look for
* bindings. */
- ClientData object; /* Token for object. */
+ ClientData object /* Token for object. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteAllBindings(bindingTable, object)
- Tk_BindingTable bindingTable; /* Table in which to delete
+void
+Tk_DeleteAllBindings (
+ Tk_BindingTable bindingTable, /* Table in which to delete
* bindings. */
- ClientData object; /* Token for object. */
+ ClientData object /* Token for object. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr, *prevPtr;
*--------------------------------------------------------------
*/
-void
-Tk_BindEvent(bindingTable, eventPtr, tkwin, numObjects, objectPtr)
- Tk_BindingTable bindingTable; /* Table in which to look for
+void
+Tk_BindEvent (
+ Tk_BindingTable bindingTable, /* Table in which to look for
* bindings. */
- XEvent *eventPtr; /* What actually happened. */
- Tk_Window tkwin; /* Window on display where event
+ XEvent *eventPtr, /* What actually happened. */
+ Tk_Window tkwin, /* Window on display where event
* occurred (needed in order to
* locate display information). */
- int numObjects; /* Number of objects at *objectPtr. */
- ClientData *objectPtr; /* Array of one or more objects
+ int numObjects, /* Number of objects at *objectPtr. */
+ ClientData *objectPtr /* Array of one or more objects
* to check for a matching binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
*/
static PatSeq *
-FindSequence(interp, bindPtr, object, eventString, create, maskPtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+FindSequence (
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- BindingTable *bindPtr; /* Table to use for lookup. */
- ClientData object; /* Token for object(s) with which binding
+ BindingTable *bindPtr, /* Table to use for lookup. */
+ ClientData object, /* Token for object(s) with which binding
* is associated. */
- char *eventString; /* String description of pattern to
+ char *eventString, /* String description of pattern to
* match on. See user documentation
* for details. */
- int create; /* 0 means don't create the entry if
+ int create, /* 0 means don't create the entry if
* it doesn't already exist. Non-zero
* means create. */
- unsigned long *maskPtr; /* *maskPtr is filled in with the event
+ unsigned long *maskPtr /* *maskPtr is filled in with the event
* types on which this pattern sequence
* depends. */
+)
{
Pattern pats[EVENT_BUFFER_SIZE];
*/
static char *
-GetField(p, copy, size)
- register char *p; /* Pointer to part of pattern. */
- register char *copy; /* Place to copy field. */
- int size; /* Maximum number of characters to
+GetField (
+ register char *p, /* Pointer to part of pattern. */
+ register char *copy, /* Place to copy field. */
+ int size /* Maximum number of characters to
* copy. */
+)
{
while ((*p != '\0') && !isspace(*p) && (*p != '>')
&& (*p != '-') && (size > 1)) {
*----------------------------------------------------------------------
*/
-static KeySym
-GetKeySym(dispPtr, eventPtr)
- register TkDisplay *dispPtr; /* Display in which to
+static KeySym
+GetKeySym (
+ register TkDisplay *dispPtr, /* Display in which to
* map keycode. */
- register XEvent *eventPtr; /* Description of X event. */
+ register XEvent *eventPtr /* Description of X event. */
+)
{
KeySym *symPtr;
KeySym sym;
*/
static PatSeq *
-MatchPatterns(dispPtr, bindPtr, psPtr)
- TkDisplay *dispPtr;
- BindingTable *bindPtr; /* Information about binding table, such
+MatchPatterns (
+ TkDisplay *dispPtr,
+ BindingTable *bindPtr, /* Information about binding table, such
* as ring of recent events. */
- register PatSeq *psPtr; /* List of pattern sequences. */
+ register PatSeq *psPtr /* List of pattern sequences. */
+)
{
register PatSeq *bestPtr = NULL;
*/
static char *
-ExpandPercents(before, eventPtr, keySym, after, afterSize)
- register char *before; /* Command containing percent
+ExpandPercents (
+ register char *before, /* Command containing percent
* expressions to be replaced. */
- register XEvent *eventPtr; /* X event containing information
+ register XEvent *eventPtr, /* X event containing information
* to be used in % replacements. */
- KeySym keySym; /* KeySym: only relevant for
+ KeySym keySym, /* KeySym: only relevant for
* KeyPress and KeyRelease events). */
- char *after; /* Place to generate new expanded
+ char *after, /* Place to generate new expanded
* command. Must contain at least
* "afterSize" bytes of space. */
- int afterSize; /* Number of bytes of space available at
+ int afterSize /* Number of bytes of space available at
* after. */
+)
{
register char *buffer; /* Pointer to buffer currently being used
* as destination. */
*----------------------------------------------------------------------
*/
-void
-TkBindError(interp)
- Tcl_Interp *interp; /* Interpreter in which an error has
+void
+TkBindError (
+ Tcl_Interp *interp /* Interpreter in which an error has
* occurred. */
+)
{
char *argv[2];
char *command;
projects / micropolis / blobdiff