Scheme_Object*
spark_fltk_tile::resizable(int argc, Scheme_Object** argv)
{
  DEFAULT_RET_INIT;

  Fl_Tile* tile = _get_fl_tile(argc, argv, 0);
  if (tile)
    {
      Fl_Widget* w = _get_widget(argc, argv, 1);
      if (w)
	{
	  tile->resizable(w);
	  _ret_ = scheme_true;
	}
    }

  DEFAULT_RET_FINISH;
}