23 lines
778 B
Text
23 lines
778 B
Text
|
$NetBSD: patch-ah,v 1.1 2006/04/19 13:13:05 tonio Exp $
|
||
|
|
|
||
|
|
--- addons.ml.orig 2003-10-10 14:45:27.000000000 +0200
|
||
|
|
+++ addons.ml
|
||
|
|
@@ -86,7 +86,7 @@ let dgradient = d1gradient;;
|
||
|
|
|
||
|
|
let cgradient {
|
||
|
|
argcolor = c0; argcolorstart = c1; argcolorstop = c2;
|
||
|
|
- argfunviewport = {vx = x; vy = y; vw = w; vh = h} as viewport;
|
||
|
|
+ argfunviewport = {vx = x; vy = y; vw = w; vh = h} as _viewport;
|
||
|
|
argxcenter = xc; argycenter = yc;
|
||
|
|
argviewport = _;
|
||
|
|
} =
|
||
|
|
@@ -96,7 +96,7 @@ let cgradient {
|
||
|
|
|
||
|
|
let circgradient {
|
||
|
|
argcolor = c0; argcolorstart = c1; argcolorstop = c2;
|
||
|
|
- argfunviewport = {vx = x; vy = y; vw = w; vh = h} as viewport;
|
||
|
|
+ argfunviewport = {vx = x; vy = y; vw = w; vh = h} as _viewport;
|
||
|
|
argxcenter = xc; argycenter = yc;
|
||
|
|
argviewport = _;
|
||
|
|
} =
|