-#include "score-element.hh"
-
-Group_interface::Group_interface (Score_element const* e)
-{
- elt_l_ = (Score_element*)e;
- name_ = "elements";
-}
-
-
-Group_interface::Group_interface (Score_element const *e, String s)
-{
- elt_l_ =(Score_element*)e;
- name_ = s;
-}
-bool
-Group_interface::has_interface_b ()
-{
- SCM el = elt_l_->get_elt_property (name_);
-
- return el == SCM_EOL || gh_pair_p (el);
-}
-