diff options
Diffstat (limited to 'devel/p5-Cdk/files/patch-ac')
| -rw-r--r-- | devel/p5-Cdk/files/patch-ac | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/devel/p5-Cdk/files/patch-ac b/devel/p5-Cdk/files/patch-ac new file mode 100644 index 000000000000..ca94edd5078e --- /dev/null +++ b/devel/p5-Cdk/files/patch-ac @@ -0,0 +1,30 @@ +--- Cdk.xs.orig Fri Jan 31 15:36:39 2003 ++++ Cdk.xs Fri Jan 31 15:32:12 2003 +@@ -130,7 +130,7 @@ + /* + * The callback callback to run Perl callback routines. Are you confused??? + */ +-void PerlBindCB (EObjectType cdktype, void *object, void *data, chtype input) ++int PerlBindCB (EObjectType cdktype, void *object, void *data, chtype input) + { + dSP ; + +@@ -2385,12 +2385,13 @@ + RETVAL + + void +-Draw(object) ++Draw(object,Box=TRUE) + CDKMENU * object +- CODE: +- { +- drawCDKMenu (object); +- } ++ int Box = sv2int ($arg); ++ CODE: ++ { ++ drawCDKMenu (object,Box); ++ } + + void + Erase(object) |