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; }