HorizontalMiniScroller.st
author Claus Gittinger <cg@exept.de>
Thu, 31 Oct 2002 14:50:50 +0100
changeset 2654 a183d27e53a3
parent 585 8f395aba0173
child 3165 58b08c376a6e
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
37
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     1
"
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     2
 COPYRIGHT (c) 1994 by Claus Gittinger
62
7cc1e330da47 *** empty log message ***
claus
parents: 37
diff changeset
     3
	      All Rights Reserved
37
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     4
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    11
"
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    12
539
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    13
MiniScroller subclass:#HorizontalMiniScroller
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    14
	instanceVariableNames:''
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    15
	classVariableNames:''
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    16
	poolDictionaries:''
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    17
	category:'Views-Interactors'
37
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    18
!
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    19
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    20
!HorizontalMiniScroller class methodsFor:'documentation'!
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    21
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    22
copyright
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    23
"
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    24
 COPYRIGHT (c) 1994 by Claus Gittinger
62
7cc1e330da47 *** empty log message ***
claus
parents: 37
diff changeset
    25
	      All Rights Reserved
37
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    26
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    27
 This software is furnished under a license and may be used
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    28
 only in accordance with the terms of that license and with the
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    29
 inclusion of the above copyright notice.   This software may not
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    30
 be provided or otherwise made available to, or used by, any
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    31
 other person.  No title to or ownership of the software is
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    32
 hereby transferred.
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    33
"
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    34
!
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    35
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    36
documentation
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    37
"
585
8f395aba0173 documentation
Claus Gittinger <cg@exept.de>
parents: 556
diff changeset
    38
    like a scroller, but taking less screen space.
8f395aba0173 documentation
Claus Gittinger <cg@exept.de>
parents: 556
diff changeset
    39
8f395aba0173 documentation
Claus Gittinger <cg@exept.de>
parents: 556
diff changeset
    40
    [author:]
8f395aba0173 documentation
Claus Gittinger <cg@exept.de>
parents: 556
diff changeset
    41
        Claus Gittinger
37
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    42
"
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    43
! !
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    44
539
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    45
!HorizontalMiniScroller methodsFor:'accessing-behavior'!
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    46
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    47
scrollLeftAction:aBlock
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    48
    "ignored -
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    49
     but implemented, so that scroller can be used in place of a scrollbar"
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    50
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    51
    "Created: 17.4.1996 / 14:04:29 / cg"
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    52
!
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    53
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    54
scrollRightAction:aBlock
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    55
    "ignored -
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    56
     but implemented, so that scroller can be used in place of a scrollbar"
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    57
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    58
    "Created: 17.4.1996 / 14:04:30 / cg"
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    59
! !
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    60
130
claus
parents: 118
diff changeset
    61
!HorizontalMiniScroller methodsFor:'initialization'!
37
8dd71a2e79cd Initial revision
claus
parents:
diff changeset
    62
539
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    63
initialize
556
4c3edf42c03e checkin from browser
ca
parents: 539
diff changeset
    64
    orientation := #horizontal.
539
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    65
    super initialize.
118
claus
parents: 62
diff changeset
    66
539
c7c5585e77f6 use common code for H/V miniScrollers
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    67
    "Created: 17.4.1996 / 14:01:26 / cg"
205
6814c0bf8df8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
    68
! !
6814c0bf8df8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
    69
6814c0bf8df8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
    70
!HorizontalMiniScroller class methodsFor:'documentation'!
6814c0bf8df8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
    71
6814c0bf8df8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
    72
version
585
8f395aba0173 documentation
Claus Gittinger <cg@exept.de>
parents: 556
diff changeset
    73
    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.9 1996-04-25 17:22:22 cg Exp $'
205
6814c0bf8df8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
    74
! !