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 ()