method set_size = let height = if buffer#line_count <= 1 then 1 else max 1 (min max_size (buffer#line_count + 1)) in wscroll#misc#set_size_chars ~height ()