equal
deleted
inserted
replaced
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.11 1995-04-11 16:23:37 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.12 1995-05-12 18:24:16 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.11 1995-04-11 16:23:37 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.12 1995-05-12 18:24:16 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
138 button2 viewGravity:#West. |
138 button2 viewGravity:#West. |
139 thumb origin:((button1 width + elementSpacing) @ bwn). |
139 thumb origin:((button1 width + elementSpacing) @ bwn). |
140 thumb viewGravity:#West |
140 thumb viewGravity:#West |
141 ! ! |
141 ! ! |
142 |
142 |
143 !HorizontalScrollBar methodsFor:'accessing'! |
143 !HorizontalScrollBar methodsFor:'accessing-behavior'! |
144 |
144 |
145 scrollLeftAction |
145 scrollLeftAction |
146 "return the action which is performed on scroll-left" |
146 "return the action which is performed on scroll-left" |
147 |
147 |
148 ^ button1 action |
148 ^ button1 action |