--- 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)
