HorizontalScrollBar.st
changeset 70 14443a9ea4ec
parent 63 f4eaf04d1eaf
child 116 be0971c081e2
equal deleted inserted replaced
69:2b72a20e61c2 70:14443a9ea4ec
    19 
    19 
    20 HorizontalScrollBar comment:'
    20 HorizontalScrollBar comment:'
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    22 	      All Rights Reserved
    22 	      All Rights Reserved
    23 
    23 
    24 $Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.9 1994-11-17 14:38:02 claus Exp $
    24 $Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.10 1994-11-28 21:05:01 claus Exp $
    25 '!
    25 '!
    26 
    26 
    27 !HorizontalScrollBar class methodsFor:'documentation'!
    27 !HorizontalScrollBar class methodsFor:'documentation'!
    28 
    28 
    29 copyright
    29 copyright
    40 "
    40 "
    41 !
    41 !
    42 
    42 
    43 version
    43 version
    44 "
    44 "
    45 $Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.9 1994-11-17 14:38:02 claus Exp $
    45 $Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.10 1994-11-28 21:05:01 claus Exp $
    46 "
    46 "
    47 !
    47 !
    48 
    48 
    49 documentation
    49 documentation
    50 "
    50 "
   163     "set the action  to be performed on scroll-right"
   163     "set the action  to be performed on scroll-right"
   164 
   164 
   165     button2 action:aBlock
   165     button2 action:aBlock
   166 ! !
   166 ! !
   167 
   167 
   168 !HorizontalScrollBar methodsFor:'events'!
   168 !HorizontalScrollBar methodsFor:'event handling'!
   169 
   169 
   170 sizeChanged:how
   170 sizeChanged:how
   171     "handle changed size - reposition elements"
   171     "handle changed size - reposition elements"
   172 
   172 
   173     |leftWidth rightWidth thumbWidth leftAndRightWidth bwn sep2 
   173     |leftWidth rightWidth thumbWidth leftAndRightWidth bwn sep2