1 "

     2  COPYRIGHT (c) 1989 by Claus Gittinger

     3 	      All Rights Reserved

     4 

     5  This software is furnished under a license and may be used

     6  only in accordance with the terms of that license and with the

     7  inclusion of the above copyright notice.   This software may not

     8  be provided or otherwise made available to, or used by, any

     9  other person.  No title to or ownership of the software is

    10  hereby transferred.

    11 "

    12 

    13 Scroller subclass:#HorizontalScroller

    14 	instanceVariableNames:''

    15 	classVariableNames:''

    16 	poolDictionaries:''

    17 	category:'Views-Interactors'

    18 !

    19 

    20 !HorizontalScroller class methodsFor:'documentation'!

    21 

    22 copyright

    23 "

    24  COPYRIGHT (c) 1989 by Claus Gittinger

    25 	      All Rights Reserved

    26 

    27  This software is furnished under a license and may be used

    28  only in accordance with the terms of that license and with the

    29  inclusion of the above copyright notice.   This software may not

    30  be provided or otherwise made available to, or used by, any

    31  other person.  No title to or ownership of the software is

    32  hereby transferred.

    33 "

    34 !

    35 

    36 documentation

    37 "

    38     Actually simply a scroller which preinitializes itself to have

    39     a horizontal orientation.

    40 

    41     [author:]

    42         Claus Gittinger

    43 "

    44 ! !

    45 

    46 !HorizontalScroller methodsFor:'accessing-behavior'!

    47 

    48 scrollLeftAction:aBlock

    49     "ignored -

    50      but implemented, so that scroller can be used in place of a scrollbar"

    51 !

    52 

    53 scrollRightAction:aBlock

    54     "ignored -

    55      but implemented, so that scroller can be used in place of a scrollbar"

    56 ! !

    57 

    58 !HorizontalScroller methodsFor:'initialization'!

    59 

    60 initialize

    61     orientation := #horizontal. 

    62     super initialize.

    63     orientation := #horizontal.

    64 

    65     "Modified: / 7.3.1999 / 00:01:08 / cg"

    66 ! !

    67 

    68 !HorizontalScroller class methodsFor:'documentation'!

    69 

    70 version

    71     ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.16 1999-03-07 13:26:38 cg Exp $'

    72 ! !