[Xcircuit-dev] Tcl interpreter - color options

[Wim Vereecken]

I'm sorry. It seems that attachments are filtered.

Please see:
http://homes.esat.kuleuven.be/~wvereeck/patch_3_4_26

Regards,
Wim



Index: xcircuit-3.4/prototypes.h
===================================================================
RCS file: /usr/cvsroot/xcircuit-3.4/prototypes.h,v
retrieving revision 1.1.1.1
diff -r1.1.1.1 prototypes.h
841c841
< extern void addnewcolorentry(int);
---
> extern int addnewcolorentry(int);
Index: xcircuit-3.4/tclxcircuit.c
===================================================================
RCS file: /usr/cvsroot/xcircuit-3.4/tclxcircuit.c,v
retrieving revision 1.1.1.1
diff -r1.1.1.1 tclxcircuit.c
1999,2000c1999,2001
<      addnewcolorentry(xc_alloccolor(colorname));
<      Tcl_SetObjResult(interp, Tcl_NewIntObj((int)number_colors - 1));
---
>      int cindex = addnewcolorentry(xc_alloccolor(colorname));
>      // return the index in the color table
>      Tcl_SetObjResult(interp, Tcl_NewIntObj(cindex));
Index: xcircuit-3.4/xcircuit.c
===================================================================
RCS file: /usr/cvsroot/xcircuit-3.4/xcircuit.c,v
retrieving revision 1.1.1.1
diff -r1.1.1.1 xcircuit.c
342c342
< void addnewcolorentry(int ccolor)
---
> int addnewcolorentry(int ccolor)
380a381,382
>    // Return the index in the colorlist
>    return i;

Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm