* Another grand 2003 update.

[lilypond.git] / lily / include / grob-interface.hh

diff --git a/lily/include/grob-interface.hh b/lily/include/grob-interface.hh
index 028c4763f61fa85e8dc8f9656b64331052890fe2..f2fda216c39391f0016a7a2d38e89ca86ee07c99 100644 (file)
--- a/lily/include/grob-interface.hh
+++ b/lily/include/grob-interface.hh
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  2002--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
  */
 
@@ -18,6 +18,10 @@ void add_interface (const char * symbol,
 SCM ly_add_interface (SCM, SCM, SCM); 
 
 #define ADD_INTERFACE(cl,a,b,c) \
+bool cl::has_interface(Grob*me)\
+{\
+  return me->internal_has_interface (ly_symbol2scm (a));\
+}\
 void cl ## _init_ifaces() {\
   add_interface(a,b,c);\
 }\