"

 COPYRIGHT (c) 2006 by eXept Software AG

	      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.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#Inspector2

	classVariableNames:'LastExtent'

	poolDictionaries:''

	category:'Interface-Inspector 2'

!

Object subclass:#NavigationState

	instanceVariableNames:'theObject index tabs selectionIndex displayString'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Inspector2

!

!Inspector2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

	      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.

"

! !

!Inspector2 class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Inspector2 andSelector:#windowSpec

     Inspector2 new openInterface:#windowSpec

     Inspector2 open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Inspector2'

          name: 'Inspector2'

          labelChannel: windowTitleAspect

          min: (Point 0 0)

          bounds: (Rectangle 0 0 388 421)

        )

        component: 

       (SpecCollection

          collection: (

           (MenuPanelSpec

              name: 'ToolBar'

              layout: (LayoutFrame 0 0 0 0 0 1 30 0)

              menu: toolbarMenu

              textDefault: true

            )

           (NoteBookViewSpec

              name: 'NoteBook'

              layout: (LayoutFrame 0 0 30 0 0 1 0 1)

              model: tabSelectionIndexAspect

              menu: tabLabelsAspect

              useIndex: true

              fitLastRow: false

              canvas: tabViewAspect

              keepCanvasAlive: true

            )

           )

        )

      )

    "Modified: / 17-02-2008 / 08:42:31 / janfrog"

! !

!Inspector2 class methodsFor:'menu specs'!

toolbarMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: backButtonEnabledHolder

            label: 'Back'

            itemValue: backButtonAction

            translateLabel: true

            submenuChannel: backButtonMenuChannel

            labelImage: (ResourceRetriever XPToolbarIconLibrary historyBackIcon)

          )

         (MenuItem

            enabled: forwardButtonEnabledHolder

            label: 'Forward'

            itemValue: forwardButtonAction

            translateLabel: true

            submenuChannel: forwardButtonMenuChannel

            labelImage: (ResourceRetriever XPToolbarIconLibrary historyForwardIcon)

          )

         )

        nil

        nil

      )

! !

!Inspector2 class methodsFor:'startup'!

openOn: anObject

    self new 

        openOn: anObject.

    "Modified: / 17-02-2008 / 10:29:45 / janfrog"

    "Modified (format): / 11-07-2011 / 22:28:03 / cg"

! !

!Inspector2 class methodsFor:'testing'!

testSimpleShow

    |ins|

    ins := Inspector2 openOn:4.

    ins inspect:10.

    ins inspect:42.

    ins inspect:'dead one'.

    ins inspect:'rolled back'.

    "/ins inspectItem: (ins history at: 3).  "/ Rollback history, zustanou jen prvni 3

    ins inspect:'xFuj'.

    "Modified: / 11-01-2008 / 20:36:37 / janfrog"

! !

!Inspector2 methodsFor:'accessing'!

backButtonEnabled: value

    ^self backButtonEnabledHolder value: value

    "Created: / 12-01-2008 / 19:14:35 / janfrog"

!

currentObject

    ^ self navigationState theObject

    "Created: / 13-01-2008 / 10:14:47 / janfrog"

    "Modified: / 17-02-2008 / 09:49:01 / janfrog"

!

currentState

    ^ self navigationHistoryHolder currentItem

    "Created: / 21-02-2008 / 19:39:45 / janfrog"

    "Modified: / 27-02-2008 / 11:56:55 / janfrog"

!

forwardButtonEnabled: value

    ^self forwardButtonEnabledHolder value: value

    "Created: / 12-01-2008 / 19:14:48 / janfrog"

!

navigationState

    "Created: / 17-02-2008 / 09:49:01 / janfrog"

    "Modified: / 21-02-2008 / 19:34:14 / janfrog"

!

navigationState:historyItem 

    "/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim"

    "/self updateTabs.

    "Created: / 17-02-2008 / 09:49:11 / janfrog"

    "Modified: / 21-02-2008 / 19:47:26 / janfrog"

! !

!Inspector2 methodsFor:'aspects'!

backButtonEnabledHolder

    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"

    ^(AspectAdaptor forAspect:#canGoBack)

        subjectChannel: self navigationHistoryHolder

    "Created: / 12-01-2008 / 19:13:49 / janfrog"

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

!

forwardButtonEnabledHolder

    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"

    ^(AspectAdaptor forAspect:#canGoForward)

        subjectChannel: self navigationHistoryHolder

    "Created: / 12-01-2008 / 19:13:49 / janfrog"

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

!

navigationHistoryHolder

    "return/create the 'currentItemHolder' value holder (automatically generated)"

    navigationHistoryHolder isNil ifTrue:[

        navigationHistoryHolder := Tools::NavigationHistory new.

    ].

    ^ navigationHistoryHolder

    "Created: / 21-02-2008 / 19:34:14 / janfrog"

!

navigationStateAspect

    navigationStateAspect ifNil:

        [navigationStateAspect := 

            (AspectAdaptor forAspect: #currentItem)

                subjectChannel:self navigationHistoryHolder].

    ^navigationStateAspect

    "Created: / 27-02-2008 / 12:05:22 / janfrog"

!

tabLabelsAspect

    ^ (AspectAdaptor forAspect:#tabLabels) 

        subjectChannel: self navigationStateAspect

    "Created: / 16-01-2008 / 17:29:52 / janfrog"

    "Modified: / 27-02-2008 / 12:05:32 / janfrog"

!

tabSelectionIndexAspect

    ^ ((AspectAdaptor forAspect:#selectionIndex) 

        subjectChannel:self navigationStateAspect)

        onChangeEvaluate:[ self tabViewAspect changed ];

        yourself

    "Created: / 16-01-2008 / 17:29:29 / janfrog"

    "Modified: / 27-02-2008 / 12:06:05 / janfrog"

!

tabViewAspect

    tabViewAspect 

        ifNil:[

            tabViewAspect := 

                (AspectAdaptor forAspect:#selectionView) 

                    subjectChannel: self navigationStateAspect

        ].

    ^ tabViewAspect

    "Created: / 16-01-2008 / 17:30:05 / janfrog"

    "Modified: / 27-02-2008 / 12:05:46 / janfrog"

!

windowTitleAspect

    ^ (AspectAdaptor forAspect:#displayString) 

        subjectChannel:self navigationStateAspect

    "Created: / 17-02-2008 / 08:42:21 / janfrog"

    "Modified: / 27-02-2008 / 12:05:56 / janfrog"

! !

backButtonAction

    self navigationHistoryHolder goBack.

    self updateWindowLabel

    "Modified: / 21-02-2008 / 19:40:23 / janfrog"

    "Modified: / 15-07-2011 / 16:26:28 / cg"

!

!

forwardButtonAction

    self navigationHistoryHolder goForward.

    self updateWindowLabel

    "Created: / 21-02-2008 / 19:52:03 / janfrog"

    "Modified: / 15-07-2011 / 16:26:33 / cg"

! !

!Inspector2 methodsFor:'opening'!

closeDownViews

    LastExtent := self window extent.

    super closeDownViews.

    "Created: / 11-07-2011 / 22:33:47 / cg"

!

historyTryPush: anObject

  "/ Pokud uz na anObject byl tak tam skocit, jinak pridat na konec

  self history do: [:item |

    item theObject == anObject ifTrue:[ ^item ]

  ].

  ^ self history push:anObject.

    "Modified: / 16-01-2008 / 14:25:30 / janfrog"

!

inspect:anObject 

    self navigationHistoryHolder 

        currentItem: (NavigationState for: anObject).

    self window notNil ifTrue:[ 

        self updateWindowLabel

    ].

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

    "Modified: / 15-07-2011 / 16:26:03 / cg"

!

openOn: anObject

    self inspect: anObject.    

    self openWithExtent:(LastExtent ? nil).

    "Modified: / 13-01-2008 / 13:55:27 / janfrog"

    "Modified: / 11-07-2011 / 22:31:42 / cg"

!

postBuildWith:aBuilder

    self updateWindowLabel

    "Created: / 15-07-2011 / 16:25:36 / cg"

!

updateWindowLabel

    |object|

    object := self navigationHistoryHolder currentItem theObject.

    self window label:(InspectorView commonLabelFor:object).

    "Created: / 15-07-2011 / 16:25:42 / cg"

! !

!Inspector2::NavigationState class methodsFor:'creating classes'!

for: anObject

  | item |

  item := self new.

  item theObject: anObject.

  ^ item.

! !

!Inspector2::NavigationState class methodsFor:'documentation'!

version

!

version_SVN

    ^'§Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 §'

! !

!Inspector2::NavigationState methodsFor:'accessing'!

index

    ^ index

!

index:something

    index := something.

!

selectionIndex

    selectionIndex ifNil:[^1].

    selectionIndex < 1 ifTrue:[^1].

    selectionIndex > tabs size ifTrue:[^tabs size].

    ^selectionIndex

    "Created: / 16-01-2008 / 17:24:27 / janfrog"

    "Modified: / 17-02-2008 / 10:20:35 / janfrog"

!

selectionIndex: anInteger

    selectionIndex := anInteger.

    self changed:#selectionIndex

    "Created: / 16-01-2008 / 17:27:52 / janfrog"

    "Modified: / 17-02-2008 / 09:46:45 / janfrog"

!

selectionView

    |tab|

    tab := self tabs at: self selectionIndex.

    ^tab 

        ifNil:[nil]

        ifNotNil:[tab view].

    "Created: / 16-01-2008 / 17:31:19 / janfrog"

!

tabLabels

    ^self tabs collect:[:tab | tab label]

    "Created: / 16-01-2008 / 17:14:07 / janfrog"

!

tabViews

    ^self tabs collect:[:tab | tab view]

    "Created: / 16-01-2008 / 17:14:13 / janfrog"

!

tabs

    tabs ifNil:[self initializeTabs].

    ^tabs

    "Created: / 16-01-2008 / 16:51:53 / janfrog"

!

theObject

    ^ theObject

!

theObject:anObject

    theObject := anObject.

    "Modified: / 17-02-2008 / 08:38:44 / janfrog"

! !

!Inspector2::NavigationState methodsFor:'comparing'!

= anotherState

    ^self class == anotherState class 

        and:[self theObject == anotherState theObject]