let set_bounds adj ?lower ?upper ?step_incr ?page_incr ?page_size () = set adj ?lower ?upper ?step_incr ?page_incr ?page_size; GtkSignal.emit_unit adj ~sgn:S.changed; set_value adj (get_value adj)