"

 COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

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

 inclusion of the above copyright notice.   This software may not

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

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

 hereby transferred.

"

SimpleView subclass:#TabSpecRuler

	classVariableNames:'DefaultHandleStyle'

	poolDictionaries:''

	category:'Views-Misc'

!

!TabSpecRuler class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

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

 inclusion of the above copyright notice.   This software may not

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

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

 hereby transferred.

"

!

documentation

"

    It shows the tabulator positions of a TabulatorSpecification

    and allows its tab positions to be manipulated.

    (as shown in a FileBrowser, when the longList is enabled).

    [author]

        Claus Gittinger

    [see also:]

        TabulatorSpecification

        Ruler

        ListView

"

!

examples

"

                                                                [exBegin]

    |top head spec|

    top := View new.

    top extent:300@100.

    head := TabSpecRuler in:top.

    head width:1.0.

    head level:1.

    spec := TabulatorSpecification new.

    spec unit:#inch.

    spec positions:#(0     1     2.5    3.5    4       5        ).

    spec align:    #(#left #left #right #right #center #decimal ).

    head tabulatorSpecification:spec.

    top open.

                                                                [exEnd]

"

! !

!TabSpecRuler class methodsFor:'defaults'!

updateStyleCache

    DefaultHandleStyle := StyleSheet at:'tabRulerHandleStyle'.

! !

!TabSpecRuler methodsFor:'accessing'!

fixedTabs

    "return the collection of tabIndices which are fixed;

     or nil, if all are variable"

    ^ fixedTabs

    "Created: 28.3.1997 / 15:02:29 / cg"

    "Modified: 28.3.1997 / 15:03:05 / cg"

!

fixedTabs:something

    "set the collection of tabIndices which are fixed;

     nil, if all are to be variable"

    fixedTabs := something.

    "Created: 28.3.1997 / 15:02:29 / cg"

    "Modified: 28.3.1997 / 15:03:18 / cg"

!

hiddenTabs

    "return the collection of tabs which are to be hidden

     (or nil if all are to be shown)"

    ^ hiddenTabs

    "Created: 28.3.1997 / 15:35:54 / cg"

    "Modified: 28.3.1997 / 15:36:18 / cg"

!

hiddenTabs:something

    "set the collection of tabs which are to be hidden

     (or nil if all are to be shown)"

    hiddenTabs := something.

    "Created: 28.3.1997 / 15:35:54 / cg"

    "Modified: 28.3.1997 / 15:36:24 / cg"

!

synchronousOperation

    "return the synchronousOperation mode settings value"

    ^ synchronousOperation

    "Created: 28.3.1997 / 15:01:17 / cg"

    "Modified: 28.3.1997 / 15:02:20 / cg"

!

synchronousOperation:something

    "set/clear synchronousOperation mode;

     if on, a move is immediately forwarded to dependents;

     of off, its forwarded when the mouse button is released."

    synchronousOperation := something.

    "Modified: 28.3.1997 / 15:02:07 / cg"

!

tabsAreVariable

    "return the value of the instance variable 'tabsAreVariable' (automatically generated)"

    ^ tabsAreVariable

    "Created: 28.3.1997 / 15:05:27 / cg"

!

tabsAreVariable:something

    "set/clear movability of tabs. If false, tab positions are only

     displayed - but cannot be moved by the user.

     The default is true."

    tabsAreVariable := something.

    "Created: 28.3.1997 / 15:05:27 / cg"

    "Modified: 28.3.1997 / 15:06:19 / cg"

!

tabulatorSpecification:aTabSpec

    "set my tabulator specification"

    tabSpec := aTabSpec

    "Modified: 4.6.1996 / 22:34:31 / cg"

! !

!TabSpecRuler methodsFor:'event handling'!

buttonMotion:state x:x y:y

    "mouse-button was moved while pressed;

     redraw thumb at its new position and, if scroll-mode is asynchronous, 

     the scroll action is performed"

    |left right limit1 limit2 minSpacing newX|

    movedTabIndex notNil ifTrue:[

        minSpacing := 5.

        left := limit1 := 0.

        movedTabIndex > 1 ifTrue:[

            left := self positionOfTabAtIndex:(movedTabIndex-1).

            limit1 := left + minSpacing.

        ].

        right := limit2 := width.

        movedTabIndex < tabSpec size ifTrue:[

            right := self positionOfTabAtIndex:(movedTabIndex+1).

            limit2 := right - minSpacing.

        ].

        newX := (x max:limit1) min:limit2.

        x ~= newX ifTrue:[

            self cursor:Cursor stop.

        ] ifFalse:[

            self cursor:handleCursor

        ].

        newX ~= movedTabX ifTrue:[

            movedTabX := newX.

            self clearRectangleX:left+handleWidth y:0 

                           width:(right-left-handleWidth-handleWidth) height:height.

            self redrawTabAtIndex:movedTabIndex.

            synchronousOperation == true ifTrue:[

                self moveTabAtIndex:movedTabIndex toX:movedTabX

            ]

        ]

    ] ifFalse:[

        (self canMoveTabAtX:x) ifTrue:[

            self cursor:handleCursor

        ] ifFalse:[

            self cursor:(Cursor normal)

        ]

    ]

!

buttonPress:button x:x y:y

    "mouse-button was pressed;

     start moving the tab"

    movedTabIndex := nil.

    (self canMoveTabAtX:x) ifTrue:[

        movedTabIndex := self indexOfTabAtX:x.

        self cursor:handleCursor.

    ]

    "Modified: 28.3.1997 / 15:13:15 / cg"

!

buttonRelease:button x:x y:y

    "mouse-button was pressed;

     start moving the tab"

    |idx|

    idx := movedTabIndex.

    movedTabIndex := nil.

    idx notNil ifTrue:[

        synchronousOperation == true ifFalse:[

            self moveTabAtIndex:idx toX:movedTabX

        ]

    ]

    "Modified: 28.3.1997 / 15:10:23 / cg"

!

pointerLeave:state

    "mouse left view - restore cursor."

    self cursor:(Cursor normal).

    "Created: 28.3.1997 / 13:37:52 / cg"

! !

!TabSpecRuler methodsFor:'initialization'!

initStyle

    super initStyle.

    handleStyle := DefaultHandleStyle.

    handleCursor := (VariablePanel cursorForOrientation:#horizontal) onDevice:device.

    self is3D ifTrue:[

        handleWidth := 2.

    ] ifFalse:[

        handleWidth := 1

    ]

    "Modified: 28.3.1997 / 14:35:23 / cg"

!

initialize

    super initialize.

    tabsAreVariable := true.

    self enableMotionEvents.

    self enableEnterLeaveEvents.

    self height:(font height + (2 * font descent)). 

    "

     TabSpecRuler new open

    "

    "Modified: 28.3.1997 / 15:06:29 / cg"

! !

!TabSpecRuler methodsFor:'private'!

canMoveTabAtX:x

    |idx|

    tabsAreVariable ifTrue:[

        (idx := self indexOfTabAtX:x) ~~ 0 ifTrue:[

            (fixedTabs notNil and:[fixedTabs includes:idx]) ifFalse:[

                ^ true

            ]

        ]

    ].

    ^ false

    "Created: 28.3.1997 / 15:12:05 / cg"

    "Modified: 28.3.1997 / 15:19:01 / cg"

!

indexOfTabAtX:x

    |xTab minDelta bestIndex|

    tabSpec isNil ifTrue:[^ 0].

    bestIndex := 0.

    1 to:tabSpec size do:[:i |

        xTab := tabSpec positionOfTab:i on:self.

        (x between:(xTab-5) and:(xTab+5)) ifTrue:[

            (minDelta isNil 

            or:[(x - xTab) abs < minDelta]) ifTrue:[

                minDelta := (x - xTab) abs.

                bestIndex := i.

            ]

        ]

    ].

    ^ bestIndex

    "Modified: 28.3.1997 / 13:43:47 / cg"

    "Created: 28.3.1997 / 15:12:09 / cg"

!

moveTabAtIndex:idx toX:movedTabX

    |unitPosition|

    unitPosition := (tabSpec unitsPerPixelOn:self) * movedTabX.

    tabSpec moveTabAtIndex:idx to:unitPosition.

    "Modified: 28.3.1997 / 14:54:58 / cg"

! !

!TabSpecRuler methodsFor:'redrawing'!

drawHandleAtX:x type:handleType

    "redraw a tabulator handle"

    self paint:Black.

    self displayLineFromX:x y:0 toX:x y:height - 1.

    self is3D ifTrue:[

        self paint:White.

        self displayLineFromX:x+1 y:0 toX:x+1 y:height - 1

    ]

    "Modified: 28.3.1997 / 14:35:48 / cg"

!

positionOfTabAtIndex:idx

    ^ ( tabSpec positionOfTab:idx on:self ) rounded.

    "Created: 28.3.1997 / 14:26:28 / cg"

    "Modified: 28.3.1997 / 15:14:03 / cg"

!

redraw

    "redraw the handles from by tabSpec"

    tabSpec isNil ifTrue:[^ self].

    shown ifFalse:[^ self].

    1 to:tabSpec size do:[:idx |

        self redrawTabAtIndex:idx.

    ]

!

redrawTabAtIndex:idx

    "redraw a single handle"

    tabSpec isNil ifTrue:[^ self].

    idx == movedTabIndex ifTrue:[

        x := movedTabX

    ] ifFalse:[

        x := self positionOfTabAtIndex:idx.

    ].

! !

!TabSpecRuler class methodsFor:'documentation'!

version

! !