--- gvpe/src/callback.pl	2005/04/26 00:55:55	1.5
+++ gvpe/src/callback.pl	2006/01/14 11:21:12	1.8
@@ -1,16 +1,13 @@
 #!/usr/bin/perl
 
 print <<EOF;
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
+// THIS IS A GENERATED FILE: RUN callback.pl to regenerate it
+// THIS IS A GENERATED FILE: callback.pl is part of the GVPE
+// THIS IS A GENERATED FILE: distribution.
 
 /*
     callback.h -- C++ callback mechanism
-    Copyright (C) 2003 Marc Lehmann <pcg\@goof.com>
+    Copyright (C) 2003-2006 Marc Lehmann <pcg\@goof.com>
  
     This file is part of GVPE.
 
@@ -52,13 +49,13 @@
 
   /* a proxy is a kind of recipe on how to call a specific class method	*/
   struct proxy_base {
-    virtual R call (void *obj, R (object::*meth)($TYPE)$_TYPEARG) = 0;
+    virtual R call (void *obj, R (object::*meth)($TYPE)$_TYPEARG) const = 0;
   };
   template<class O1, class O2>
   struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth)($TYPE)$_TYPEARG)
+    virtual R call (void *obj, R (object::*meth)($TYPE)$_TYPEARG) const
       {
-        ((reinterpret_cast<O1 *>(obj)) ->* (reinterpret_cast<R (O2::*)($TYPE)>(meth)))
+        return (R)((reinterpret_cast<O1 *>(obj)) ->* (reinterpret_cast<R (O2::*)($TYPE)>(meth)))
           ($ARG);
       }
   };
@@ -67,7 +64,7 @@
 
 public:
   template<class O1, class O2>
-  callback$a (O1 *object, R (O2::*method)($TYPE))
+  explicit callback$a (O1 *object, R (O2::*method)($TYPE))
     {
       static proxy<O1,O2> p;
       obj  = reinterpret_cast<void *>(object);