/*
- group-interface.cc -- implement Group_interface
+ group-interface.cc -- implement Group_interface
source file of the GNU LilyPond music typesetter
- (c) 1999--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+
#include "group-interface.hh"
-#include "grob.hh"
void
Group_interface::add_thing (Grob*me, SCM sym, SCM thing)
}
-void
-Group_interface::add_thing (Grob*me, String name, SCM thing)
-{
- add_thing (me, ly_symbol2scm (name.to_str0 ()), thing);
-}
-
int
-Group_interface::count (Grob *me, String name)
+Group_interface::count (Grob *me, SCM sym)
{
- return scm_ilength (me->get_grob_property (name.to_str0 ()));
+ return scm_ilength (me->internal_get_property (sym));
}