"{ Package: 'cvut:stx/goodies/libtool3' }"

"{ NameSpace: Tools }"

Object subclass:#NavigationHistory

	instanceVariableNames:'items position'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-History'

!

!NavigationHistory class methodsFor:'documentation'!

version_SVN

    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistory.st,v 1.1 2009-09-23 17:03:26 fm Exp $'

! !

!NavigationHistory class methodsFor:'instance creation'!

new

    ^ self basicNew initialize.

    "Created: / 21-02-2008 / 15:26:05 / janfrog"

! !

!NavigationHistory methodsFor:'accessing'!

currentItem

    ^(position between:1 and: items size) 

        ifTrue:[items at: position]

        ifFalse:[nil]

    "Created: / 27-02-2008 / 08:46:37 / janfrog"

!

currentItem: anObject

    self goTo: anObject

    "Created: / 27-02-2008 / 08:47:04 / janfrog"

!

goBackItems

    ^ (items copyTo:position - 1) reverse

    "Created: / 27-02-2008 / 11:52:12 / janfrog"

!

goForwardItems

    ^ items copyFrom:position + 1

    "Created: / 27-02-2008 / 11:52:26 / janfrog"

! !

!NavigationHistory methodsFor:'initialization'!

initialize

    "Invoked when a new instance is created."

    "/ please change as required (and remove this comment)

    "/ items := nil.

    "/ position := nil.

    "/ super initialize.   -- commented since inherited method does nothing

    items := OrderedCollection new.

    position := 0

    "Created: / 21-02-2008 / 15:26:05 / janfrog"

! !

!NavigationHistory methodsFor:'menu & menu actions'!

goBackMenu

    |menu|

    menu := Menu new.

    self goBackItems do:[:item | 

        menu addItem:(MenuItem label:item displayString value:[ self goTo:item ])

    ].

    ^ menu

    "Created: / 22-02-2008 / 16:57:46 / janfrog"

    "Modified: / 27-02-2008 / 11:52:12 / janfrog"

!

goForwardMenu

    |menu|

    menu := Menu new.

    self goForwardItems do:[:item | 

        menu addItem:(MenuItem label:item displayString value:[ self goTo:item ])

    ].

    ^ menu

    "Created: / 22-02-2008 / 16:58:11 / janfrog"

    "Modified: / 27-02-2008 / 11:52:26 / janfrog"

! !

!NavigationHistory methodsFor:'navigation'!

goBack

    | value |

    position := (position - 1) max: 1.

    self changed: #currentItem with: (value := self currentItem).

    ^value

    "Created: / 21-02-2008 / 16:37:37 / janfrog"

    "Modified: / 27-02-2008 / 08:48:14 / janfrog"

!

goForward

    | value |

    position := (position + 1) min: items size.

    self changed: #currentItem with: (value := self currentItem).

    ^value

    "Created: / 21-02-2008 / 16:37:37 / janfrog"

    "Modified: / 27-02-2008 / 08:48:24 / janfrog"

!

goTo: navigationHistoryItem

    | idx |

    idx := items indexOf:navigationHistoryItem.

    idx isZero

        ifFalse:

            [position := idx]

        ifTrue:

            [position < items size ifTrue:

                [items removeFromIndex: position + 1 toIndex: items size].

            items addLast: navigationHistoryItem.

            position := position + 1].

    self changed: #value with: navigationHistoryItem.

    ^navigationHistoryItem

    "Created: / 21-02-2008 / 16:40:39 / janfrog"

    "Modified: / 21-02-2008 / 19:12:35 / janfrog"

! !

!NavigationHistory methodsFor:'queries'!

canGoBack

    ^position > 1

    "Created: / 21-02-2008 / 16:40:48 / janfrog"

!

canGoForward

    ^position < items size

    "Created: / 21-02-2008 / 16:40:48 / janfrog"

! !

!NavigationHistory class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistory.st,v 1.1 2009-09-23 17:03:26 fm Exp $'

! !