ViewScroller.st
changeset 5811 c8e7ae5e07e4
parent 5731 920affcbb4d7
equal deleted inserted replaced
5810:458783339a12 5811:c8e7ae5e07e4
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1994 by Claus Gittinger
     4  COPYRIGHT (c) 1994 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   609 
   611 
   610     "Modified: 24.5.1996 / 17:34:48 / cg"
   612     "Modified: 24.5.1996 / 17:34:48 / cg"
   611 !
   613 !
   612 
   614 
   613 viewOrigin
   615 viewOrigin
   614     "the viewOrigin (for scrollBars) is based upon the scrolledViews origin"
   616     "the viewOrigin (for scrollBars) is based upon the scrolledView's origin"
   615 
   617 
   616     scrolledView isNil ifTrue:[^ 0@0].
   618     scrolledView isNil ifTrue:[^ 0@0].
   617     ^ scrolledView origin negated
   619     ^ scrolledView origin negated
   618 
   620 
   619     "Modified: 24.5.1996 / 17:48:13 / cg"
   621     "Modified: / 24-05-1996 / 17:48:13 / cg"
       
   622     "Modified (comment): / 14-06-2018 / 10:17:20 / Claus Gittinger"
   620 !
   623 !
   621 
   624 
   622 widthOfContents
   625 widthOfContents
   623     "return my contents' width; this is the scrolledViews width"
   626     "return my contents' width; this is the scrolledViews width"
   624 
   627