ScrollableView.st
changeset 3037 49287d5cc645
parent 3034 3240c98524ae
child 3242 d01395c1b760
equal deleted inserted replaced
3036:6e4ebc78220a 3037:49287d5cc645
  1578 
  1578 
  1579 pageLeft
  1579 pageLeft
  1580     "page left - but only if there is a horizontal scrollbar"
  1580     "page left - but only if there is a horizontal scrollbar"
  1581 
  1581 
  1582     hScrollBar notNil ifTrue:[
  1582     hScrollBar notNil ifTrue:[
  1583         hScrollBar pageDown
  1583         hScrollBar pageUp
  1584     ]
  1584     ]
  1585 
  1585 
  1586     "Created: 19.3.1997 / 16:32:14 / cg"
  1586     "Created: 19.3.1997 / 16:32:14 / cg"
  1587     "Modified: 19.3.1997 / 16:32:44 / cg"
  1587     "Modified: 19.3.1997 / 16:32:44 / cg"
  1588 !
  1588 !
  1589 
  1589 
  1590 pageRight
  1590 pageRight
  1591     "page right - but only if there is a horizontal scrollbar"
  1591     "page right - but only if there is a horizontal scrollbar"
  1592 
  1592 
  1593     hScrollBar notNil ifTrue:[
  1593     hScrollBar notNil ifTrue:[
  1594         hScrollBar pageUp
  1594         hScrollBar pageDown
  1595     ]
  1595     ]
  1596 
  1596 
  1597     "Created: 19.3.1997 / 16:32:22 / cg"
  1597     "Created: 19.3.1997 / 16:32:22 / cg"
  1598     "Modified: 19.3.1997 / 16:32:48 / cg"
  1598     "Modified: 19.3.1997 / 16:32:48 / cg"
  1599 !
  1599 !
  2347 ! !
  2347 ! !
  2348 
  2348 
  2349 !ScrollableView class methodsFor:'documentation'!
  2349 !ScrollableView class methodsFor:'documentation'!
  2350 
  2350 
  2351 version
  2351 version
  2352     ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.136 2004-09-14 17:11:41 ca Exp $'
  2352     ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.137 2004-09-15 13:06:14 ca Exp $'
  2353 ! !
  2353 ! !