98 |
static char *geometry = NULL; |
static char *geometry = NULL; |
99 |
int debug = 0; |
int debug = 0; |
100 |
|
|
101 |
void guiCreateCommand _ANSI_ARGS_((int idLispObject, int iSlot , char *arglist)); |
static void guiCreateCommand _ANSI_ARGS_((int idLispObject, int iSlot , char *arglist)); |
102 |
|
|
103 |
void |
void |
104 |
dfprintf(FILE *fp,char *s,...) { |
dfprintf(FILE *fp,char *s,...) { |
117 |
#define CMD_SIZE 4000 |
#define CMD_SIZE 4000 |
118 |
#define SIGNAL_ERROR TCL_signal_error |
#define SIGNAL_ERROR TCL_signal_error |
119 |
|
|
120 |
void |
static void |
121 |
TCL_signal_error(x) |
TCL_signal_error(x) |
122 |
char *x; |
char *x; |
123 |
{char buf[300] ; |
{char buf[300] ; |
379 |
|
|
380 |
static char *being_set_by_lisp; |
static char *being_set_by_lisp; |
381 |
|
|
382 |
char * |
static char * |
383 |
tell_lisp_var_changed( |
tell_lisp_var_changed( |
384 |
clientData, |
clientData, |
385 |
interp, |
interp, |
520 |
{ |
{ |
521 |
Tcl_DStringInit(&command); |
Tcl_DStringInit(&command); |
522 |
Tcl_DStringFree(&command); |
Tcl_DStringFree(&command); |
523 |
fSclear_connection(dsfd); |
fSclear_connection(dsfd->fd); |
524 |
} |
} |
525 |
break; |
break; |
526 |
case m_tcl_set_text_variable: |
case m_tcl_set_text_variable: |
641 |
|
|
642 |
|
|
643 |
|
|
644 |
void |
static void |
645 |
guiCreateCommand( idLispObject, iSlot , arglist) |
guiCreateCommand( idLispObject, iSlot , arglist) |
646 |
int idLispObject; int iSlot ; char *arglist; |
int idLispObject; int iSlot ; char *arglist; |
647 |
{ |
{ |
691 |
return code; |
return code; |
692 |
} |
} |
693 |
*/ |
*/ |
694 |
void |
/* static void */ |
695 |
guiDeleteCallback(szCallback) |
/* guiDeleteCallback(szCallback) */ |
696 |
char *szCallback; |
/* char *szCallback; */ |
697 |
{ |
/* { */ |
698 |
dfprintf(stderr, "Tcl Deleting command : %s\n", szCallback); |
/* dfprintf(stderr, "Tcl Deleting command : %s\n", szCallback); */ |
699 |
|
|
700 |
Tcl_DeleteCommand(interp, szCallback); |
/* Tcl_DeleteCommand(interp, szCallback); */ |
701 |
} |
/* } */ |
702 |
|
|
703 |
/* */ |
/* */ |
704 |
|
|