equal
deleted
inserted
replaced
42 [author:] |
42 [author:] |
43 Claus Gittinger |
43 Claus Gittinger |
44 " |
44 " |
45 ! ! |
45 ! ! |
46 |
46 |
47 !HorizontalScrollBar methodsFor:'queries'! |
47 !HorizontalScrollBar methodsFor:'initialization'! |
48 |
48 |
49 orientation |
49 initialize |
50 "for ST-80 compatibility, answer this query" |
50 orientation := #horizontal. |
51 |
51 super initialize |
52 ^ #horizontal |
|
53 |
52 |
54 ! ! |
53 ! ! |
55 |
54 |
56 !HorizontalScrollBar class methodsFor:'documentation'! |
55 !HorizontalScrollBar class methodsFor:'documentation'! |
57 |
56 |
58 version |
57 version |
59 ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.28 1997-05-28 14:20:38 cg Exp $' |
58 ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.29 1999-07-07 18:53:37 cg Exp $' |
60 ! ! |
59 ! ! |