Re: Positive doubles turn negative with v1.2

[Marcus G. Daniels]

>>>>> "SE" == Steve Emsley <address@hidden> writes:

SE> Note: BLT8.0-unoff suggests it works with tcl/tk higher than
SE> 8.0p2. However, it *doesn't* work with tcl/tk8.1a2. At least not
SE> without surgery, I guess.

In ftp://ftp.santafe.edu/pub/swarm/needed-software/ I've put up
two new files:

     blt8.0-unoff-swarm-1.tar.gz
     tclobjc-1.4.tar.gz

These should make it possible to use Tcl/Tk 8.1a2.  In addition,
you will probably need the following patch to tkobjc.  Apply like so:

$ cd $SWARMSRCDIR/src/tkobjc
$ patch -p1 < /tmp/this-patch
$ make
$ make install

Index: src/tkobjc/TkExtra.m
===================================================================
RCS file: /opt/src/hive/cvs/Swarm/swarm/src/tkobjc/TkExtra.m,v
retrieving revision 1.15
retrieving revision 1.16
diff -c -r1.15 -r1.16
*** TkExtra.m   1998/04/14 22:40:13     1.15
--- TkExtra.m   1998/06/30 21:31:34     1.16
***************
*** 141,154 ****
  
    if (strcmp (version, "8.0") == 0)
      {
!       const char *full_version =
!         Tcl_GetVar (interp, 
!                     "blt::blt_versions(BLT_patchlevel)",
!                     TCL_GLOBAL_ONLY);
!       if (full_version == NULL)
!         return [self getBltVersion];
!       else
!         return full_version;
      }
    return version;
  }
--- 141,158 ----
  
    if (strcmp (version, "8.0") == 0)
      {
!       const char *var = "blt::blt_versions(BLT_patchlevel)";
!       char buf[strlen(var) + 1];
! 
!       strcpy (buf, var);
!       {
!         const char *full_version = Tcl_GetVar (interp, buf, TCL_GLOBAL_ONLY);
! 
!         if (full_version == NULL)
!           return [self getBltVersion];
!         else
!           return full_version;
!       }
      }
    return version;
  }




                  ==================================
   Swarm-Support is for discussion of the technical details of the day
   to day usage of Swarm.  For list administration needs (esp.
   [un]subscribing), please send a message to <address@hidden>
   with "help" in the body of the message.
                  ==================================