[GB.IMAGE.IMLIB]

* NEW: Paint.Image() has now the same interface than the same method in
  gb.image.


git-svn-id: svn://localhost/gambas/trunk@3796 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-04-25 22:23:22 +00:00
parent 61bd2b3f9a
commit 492eb7f8e8

View file

@ -211,7 +211,7 @@ BEGIN_METHOD(Image_Sharpen, GB_INTEGER radius)
END_METHOD
BEGIN_METHOD(Image_PaintImage, GB_OBJECT img; GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER sx; GB_INTEGER sy; GB_INTEGER sw; GB_INTEGER sh)
BEGIN_METHOD(Image_PaintImage, GB_OBJECT img; GB_INTEGER x; GB_INTEGER y; GB_INTEGER sx; GB_INTEGER sy; GB_INTEGER sw; GB_INTEGER sh)
int x, y, w, h, sx, sy, sw, sh, src_w, src_h;
CIMAGE *image = (CIMAGE *)VARG(img);
@ -227,8 +227,8 @@ BEGIN_METHOD(Image_PaintImage, GB_OBJECT img; GB_INTEGER x; GB_INTEGER y; GB_INT
x = VARGOPT(x, 0);
y = VARGOPT(y, 0);
w = VARGOPT(w, -1);
h = VARGOPT(h, -1);
w = -1; //VARGOPT(w, -1);
h = -1; //VARGOPT(h, -1);
sx = VARGOPT(sx, 0);
sy = VARGOPT(sy, 0);
@ -270,7 +270,7 @@ GB_DESC ImageDesc[] =
GB_METHOD("Sharpen", "Image", Image_Sharpen, "[(Radius)i]"),
GB_METHOD("Tile", "Image", Image_Tile, NULL),
GB_METHOD("PaintImage", NULL, Image_PaintImage, "(Image)Image;(X)i(Y)i[(Width)i(Height)i(SrcX)i(SrcY)i(SrcWidth)i(SrcHeight)i]"),
GB_METHOD("PaintImage", NULL, Image_PaintImage, "(Image)Image;[(X)i(Y)i(SrcX)i(SrcY)i(SrcWidth)i(SrcHeight)i]"),
GB_METHOD("Scroll", NULL, Image_Scroll, "(DX)i(DY)i[(X)i(Y)i(Width)i(Height)i]"),
//Gb_INTERFACE("Draw", &DRAW_Interface),