scrollable.scala

来自「JAVA 语言的函数式编程扩展」· SCALA 代码 · 共 21 行

package scala.swing

import java.awt.Rectangle

/**
 * @see javax.swing.Scrollable
 */
trait Scrollable extends Component {
  protected def scrollablePeer: javax.swing.Scrollable
  def preferredViewportSize = scrollablePeer.getPreferredScrollableViewportSize
  
  def tracksViewportHeight: Boolean = scrollablePeer.getScrollableTracksViewportHeight
  def tracksViewportWidth: Boolean = scrollablePeer.getScrollableTracksViewportWidth
  
  def blockIncrement(visibleRect: Rectangle, orientation: Orientation.Value, direction: Int): Int =
    scrollablePeer.getScrollableBlockIncrement(visibleRect, orientation.id, direction)
  
  def unitIncrement(visibleRect: Rectangle, orientation: Orientation.Value, direction: Int): Int =
    scrollablePeer.getScrollableUnitIncrement(visibleRect, orientation.id, direction)
}