ScrollableView.st
changeset 1231 aba877015224
parent 1201 e7f1cf0180ca
child 1243 064852ff0ef7
equal deleted inserted replaced
1230:9d052df857b8 1231:aba877015224
  1059                     hScrollBar setThumbOriginFor:scrolledView.
  1059                     hScrollBar setThumbOriginFor:scrolledView.
  1060                 ].
  1060                 ].
  1061             ].
  1061             ].
  1062         ].
  1062         ].
  1063 
  1063 
  1064         self updateScrollBarVisibility
  1064        self updateScrollBarVisibility
  1065     ].
  1065     ].
  1066 
  1066 
  1067     "Modified: 23.4.1997 / 14:00:25 / cg"
       
  1068 !
  1067 !
  1069 
  1068 
  1070 updateScrollBarVisibility
  1069 updateScrollBarVisibility
  1071     "check if any scrollbar needs to be hidden or shown"
  1070     "check if any scrollbar needs to be hidden or shown"
  1072 
  1071 
  1752 
  1751 
  1753     ^ super preferredExtent.
  1752     ^ super preferredExtent.
  1754 
  1753 
  1755     "Created: 6.3.1997 / 18:06:24 / cg"
  1754     "Created: 6.3.1997 / 18:06:24 / cg"
  1756     "Modified: 6.3.1997 / 22:34:30 / cg"
  1755     "Modified: 6.3.1997 / 22:34:30 / cg"
       
  1756 !
       
  1757 
       
  1758 specClass
       
  1759     ^ ScrollableViewSpec
       
  1760 
       
  1761 
  1757 ! !
  1762 ! !
  1758 
  1763 
  1759 !ScrollableView methodsFor:'slave-view messages'!
  1764 !ScrollableView methodsFor:'slave-view messages'!
  1760 
  1765 
  1761 clear
  1766 clear
  1853 ! !
  1858 ! !
  1854 
  1859 
  1855 !ScrollableView class methodsFor:'documentation'!
  1860 !ScrollableView class methodsFor:'documentation'!
  1856 
  1861 
  1857 version
  1862 version
  1858     ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.66 1997-04-23 12:01:33 cg Exp $'
  1863     ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.67 1997-05-30 03:56:29 ca Exp $'
  1859 ! !
  1864 ! !