Scheme_Object*
spark_fltk_scroll::align(int argc, Scheme_Object** argv)
{
  DEFAULT_RET_INIT;

  Fl_Scroll* scroll = _get_fl_scroll(argc, argv, 0);
  if (scroll)
    {
      if (argc == 1)
	{
	  int i = scroll->align();
	  _ret_ = spark_fltk::align_to_intlist(i);	  
	}
      else
	{
	  int i = spark_fltk::intlist_to_flag(argv[1]);
	  scroll->align(i);
	  _ret_ = scheme_true;
	}
    }

  DEFAULT_RET_FINISH;
}