"

 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

	instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect

		browser currentObjectHolder'

	classVariableNames:'LastExtent'

	poolDictionaries:''

	category:'Interface-Inspector2'

!

Model 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.

"

!

description

"

    an application for a multitab inspector

    extendable by the inspected object itself, by providing additional

    tabs via the inspector2XXX methods

    [author:]

        Jan Vrani

"

! !

!Inspector2 class methodsFor:'help specs'!

flyByHelpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:Tools::Inspector2    

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#backwardInVisitingHistory

'Move backward in the history of previously visited objects'

#browseClassOfShownObject

'Open a Systembrowser on the shown object''s class'

#browseFile

'Open a Filebrowser on the file represented by the shown object'

#forwardInVisitingHistory

'Move forward in the history of previously visited objects'

)

    "Created: / 19-08-2011 / 08:52:33 / cg"

! !

!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:Tools::Inspector2 andSelector:#windowSpec

     Tools::Inspector2 new openInterface:#windowSpec

     Tools::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 40 0)

              menu: toolbarMenu

              textDefault: true

            )

           (NoteBookViewSpec

              name: 'NoteBook'

              layout: (LayoutFrame 0 0 40 0 0 1 0 1)

              model: tabSelectionIndexAspect

              menu: tabLabelsAspect

              useIndex: true

              fitLastRow: false

              canvas: tabViewAspect

              keepCanvasAlive: true

            )

           )

        )

      )

! !

!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."

    "

     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu

     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            activeHelpKey: backwardInVisitingHistory

            enabled: backButtonEnabledHolder

            label: 'Back'

            itemValue: backButtonAction

            translateLabel: true

            isButton: true

            hideMenuOnActivated: false

            submenuChannel: backButtonMenuChannel

            labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)

          )

         (MenuItem

            activeHelpKey: forwardInVisitingHistory

            enabled: forwardButtonEnabledHolder

            label: 'Forward'

            itemValue: forwardButtonAction

            translateLabel: true

            isButton: true

            hideMenuOnActivated: false

            submenuChannel: forwardButtonMenuChannel

            labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            activeHelpKey: browseClassOfShownObject

            enabled: browseButtonEnabledHolder

            label: 'Browse'

            itemValue: browseClassAction

            translateLabel: true

            isButton: true

            hideMenuOnActivated: false

            labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon)

          )

         (MenuItem

            activeHelpKey: browseFile

            label: 'Browse File'

            itemValue: browseFileAction

            translateLabel: true

            isButton: true

            isVisible: currentObjectIsFilename

            hideMenuOnActivated: false

            labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon)

          )

         (MenuItem

            label: 'Refresh for Changed Object'

            itemValue: refreshTabs

            translateLabel: true

            isButton: true

            startGroup: right

            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)

          )

         )

        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"

    "Modified (format): / 19-08-2011 / 08:59:41 / cg"

!

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"

    "Modified (format): / 19-08-2011 / 08:59:45 / cg"

!

navigationState

    ^ self navigationHistoryHolder value currentItem

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

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

    "Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

navigationState:historyItem 

    self navigationHistoryHolder "subjectChannel:" value currentItem: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"

    "Modified: / 22-07-2011 / 19:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 19-08-2011 / 09:16:38 / cg"

! !

!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"

!

browseButtonEnabledHolder

    ^ BlockValue

        with:[:m | m notNil]

        argument:self navigationStateAspect

    "Created: / 19-08-2011 / 09:22:47 / cg"

!

currentObjectHolder

    currentObjectHolder isNil ifTrue:[

        currentObjectHolder := ValueHolder new

    ].

    ^ currentObjectHolder

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

    "Created: / 19-08-2011 / 08:58:48 / cg"

!

currentObjectIsFilename

    ^ BlockValue

        with:[:o | o isFilename ]

        argument:self currentObjectHolder

    "Created: / 19-08-2011 / 08:56:27 / cg"

!

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 isNil ifTrue:[

        navigationStateAspect := (AspectAdaptor forAspect:#currentItem) 

                    subjectChannel:self navigationHistoryHolder

    ].

    ^ navigationStateAspect

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

    "Modified (format): / 19-08-2011 / 08:59:10 / cg"

!

tabLabelsAspect

    ^ (AspectAdaptor forAspect:#tabLabels) 

        subjectChannel:self navigationStateAspect

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

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

    "Modified (format): / 19-08-2011 / 08:59:21 / cg"

!

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 isNil ifTrue:[

        tabViewAspect := (AspectAdaptor forAspect:#selectionView) 

                    subjectChannel:self navigationStateAspect

    ].

    ^ tabViewAspect

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

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

    "Modified (format): / 19-08-2011 / 08:59:35 / cg"

!

windowTitleAspect

    ^ (AspectAdaptor forAspect:#displayString) 

        subjectChannel:self navigationStateAspect

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

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

! !

!Inspector2 methodsFor:'menu'!

backButtonMenuChannel

    ^ [ self navigationHistoryHolder goBackMenu ]

    "Created: / 12-01-2008 / 18:57:08 / janfrog"

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

!

forwardButtonMenuChannel

    ^ [ self navigationHistoryHolder goForwardMenu ]

    "Created: / 12-01-2008 / 18:57:30 / janfrog"

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

! !

!Inspector2 methodsFor:'menu actions'!

backButtonAction

    self navigationHistoryHolder goBack.

    self updateWindowLabel

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

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

!

browseClassAction

    "open a class browser, or try to add a tab to the previously opened class browser"

    | class |

    class := self currentObject class.

    browser notNil ifTrue:[

        "/ try to add a tab to the already opened browser

        (browser isKindOf:Tools::NewSystemBrowser) ifTrue:[

            browser spawnClassBrowserFor:(Array with:class) in:#newBuffer.

            "/ browser spawnSingleClassBrowserFor:class in:#newBuffer.

            browser window raise.

            ^ self.

        ].

    ].

    "/ if that fails, open a new one

    browser := UserPreferences current systemBrowserClass openInClass:class selector:nil "/ browseSingleClass: class

    "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 21-08-2011 / 08:37:59 / cg"

!

browseFileAction

    "open a filebrowser on the file represented by the current object"

    | fn |

    fn := self currentObject asFilename.

    UserPreferences current fileBrowserClass openOn:fn

    "Created: / 19-08-2011 / 09:29:44 / cg"

!

forwardButtonAction

    self navigationHistoryHolder goForward.

    self updateWindowLabel

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

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

!

refreshTabs

    self navigationHistoryHolder currentItem refreshTabs.

    self tabViewAspect changed.

"/    sel := selectionIndex.

"/    self selectionIndex:nil.

"/    self selectionIndex:sel.

    "Created: / 21-08-2011 / 08:23:00 / cg"

! !

!Inspector2 methodsFor:'opening'!

closeDownViews

    LastExtent := self window extent.

    super closeDownViews.

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

!

historyTryPush: anObject

    <resource: #obsolete>

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

  self history do: [:item |