Bad screen distance errors.

From: Erick Gallesio <eg_at_kaolin.unice.fr>
Date: Wed, 07 Dec 1994 16:53:26 +0000

Hereafter is a small patch which correct the annoying "Bad screen distance"
which occurs sometimes when using extensively Tk.

BTW, I expect to be able to deliver an interim release (2.1.5) next week.
This will be nearly the 2.2 (main difference should be in documentation).

                -- Erick

*** tk-glue.c-orig Wed Dec 7 16:40:41 1994
--- tk-glue.c Tue Dec 6 00:25:53 1994
***************
*** 149,159 ****
  {
    char *buffer[MAXARG+1];
    int tkres;
! char **argv = buffer;
! int argc = llength(args);
! SCM start, conv_res, *v = args;
! struct Tk_command *W = cmd->storage_as.tk.data;
!
    if (argc >= MAXARG) {
      /* allocate dynamically the argv array (one extra for argv[0] and one
       * for the null terminator -dsf
--- 149,160 ----
  {
    char *buffer[MAXARG+1];
    int tkres;
! char **argv = buffer;
! int argc = llength(args);
! SCM conv_res, start = args;
! struct Tk_command *W = cmd->storage_as.tk.data;
!
!
    if (argc >= MAXARG) {
      /* allocate dynamically the argv array (one extra for argv[0] and one
       * for the null terminator -dsf
***************
*** 169,183 ****
     *
     */
    conv_res = makevect(argc+1, NIL);
- v = VECT(conv_res);
  
    /* First initialize an argv array */
    argv[0] = cmd->storage_as.tk.data->Id;
    
! for (argc = 1; NNULLP(args); args=CDR(args)) {
      if (NCONSP(args)) err("Malformed list of arguments", start);
! argv[argc++] = convert_for_tk(eval_args ? leval(CAR(args), env):
CAR(args),
! &v[argc]);
    }
    argv[argc] = NULL;
  
--- 170,183 ----
     *
     */
    conv_res = makevect(argc+1, NIL);
  
    /* First initialize an argv array */
    argv[0] = cmd->storage_as.tk.data->Id;
    
! for (argc = 1; NNULLP(args); argc++, args=CDR(args)) {
      if (NCONSP(args)) err("Malformed list of arguments", start);
! argv[argc] = convert_for_tk(eval_args ? leval(CAR(args), env):
CAR(args),
! &VECT(conv_res)[argc]);
    }
    argv[argc] = NULL;
 

                -- Erick
Received on Wed Dec 07 1994 - 16:53:27 CET