Shiro Kawai
shiro****@lava*****
2002年 12月 26日 (木) 20:04:14 JST
ああっと、これも必要ですね。
--shiro
diff -c -r1.39 gauche-gtk.c
*** gauche-gtk.c 26 Dec 2002 07:23:06 -0000 1.39
--- gauche-gtk.c 26 Dec 2002 11:03:09 -0000
***************
*** 952,957 ****
--- 952,958 ----
{
ScmGdkPointVector *r = SCM_NEW(ScmGdkPointVector);
SCM_SET_CLASS(r, SCM_CLASS_GDK_POINT_VECTOR);
+ r->size = npts;
r->elements = SCM_NEW_ATOMIC2(GdkPoint*, sizeof(GdkPoint[1])*npts);
if (pts) memcpy(r->elements, pts, sizeof(GdkPoint[1])*npts);
return SCM_OBJ(r);
***************
*** 965,970 ****
--- 966,972 ----
{
ScmGdkSegmentVector *r = SCM_NEW(ScmGdkSegmentVector);
SCM_SET_CLASS(r, SCM_CLASS_GDK_SEGMENT_VECTOR);
+ r->size = nsegs;
r->elements = SCM_NEW_ATOMIC2(GdkSegment*, sizeof(GdkSegment[1])*nsegs);
if (segs) memcpy(r->elements, segs, sizeof(GdkSegment[1])*nsegs);
return SCM_OBJ(r);
***************
*** 978,983 ****
--- 980,986 ----
{
ScmGdkRectangleVector *r = SCM_NEW(ScmGdkRectangleVector);
SCM_SET_CLASS(r, SCM_CLASS_GDK_RECTANGLE_VECTOR);
+ r->size = nrects;
r->elements = SCM_NEW_ATOMIC2(GdkRectangle*, sizeof(GdkRectangle[1])*nrects);
if (rects) memcpy(r->elements, rects, sizeof(GdkRectangle[1])*nrects);
return SCM_OBJ(r);
***************
*** 991,996 ****
--- 994,1000 ----
{
ScmGdkColorVector *r = SCM_NEW(ScmGdkColorVector);
SCM_SET_CLASS(r, SCM_CLASS_GDK_COLOR_VECTOR);
+ r->size = ncolors;
r->elements = SCM_NEW_ATOMIC2(GdkColor*, sizeof(GdkColor[1])*ncolors);
if (colors) memcpy(r->elements, colors, sizeof(GdkColor[1])*ncolors);
return SCM_OBJ(r);