/[gcl]/gcl/gcl-tk/tkMain.c
ViewVC logotype

Diff of /gcl/gcl-tk/tkMain.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Sun Feb 9 22:35:15 2003 UTC revision 1.8 by camm, Sat Feb 15 00:38:27 2003 UTC
# Line 98  static char *display = NULL; Line 98  static char *display = NULL;
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,...) {
# Line 117  dfprintf(FILE *fp,char *s,...) { Line 117  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] ;
# Line 379  error: Line 379  error:
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,
# Line 520  StdinProc(clientData, mask) Line 520  StdinProc(clientData, mask)
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:
# Line 641  TclGenericCommandProcedure( clientData, Line 641  TclGenericCommandProcedure( clientData,
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  {  {
# Line 691  guiBindCallback(char *szNameCmdProc, cha Line 691  guiBindCallback(char *szNameCmdProc, cha
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    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26