Scheme_Object*
spark_fltk_group::find(int argc, Scheme_Object** argv)
{
  DEFAULT_RET_INIT;

  Fl_Group* group = _get_fl_group(argc, argv, 0);
  if (group)
    {
      Fl_Widget* widget = spark_fltk::_get_widget(argc,
						  argv,
						  1);
      if (widget)
	{
	  int i = group->find(*widget);
	  _ret_ = scheme_make_integer(i);
	}
    }
  
  DEFAULT_RET_FINISH;
}