--- a/Tools__Inspector2.st Sat Jul 23 12:40:40 2011 +0200
+++ b/Tools__Inspector2.st Sat Jul 23 12:41:37 2011 +0200
@@ -14,7 +14,8 @@
"{ NameSpace: Tools }"
ApplicationModel subclass:#Inspector2
- instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect'
+ instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect
+ browser'
classVariableNames:'LastExtent'
poolDictionaries:''
category:'Interface-Inspector 2'
@@ -108,8 +109,8 @@
the MenuEditor may not be able to read the specification."
"
- MenuEditor new openOnClass:Inspector2 andSelector:#toolbarMenu
- (Menu new fromLiteralArrayEncoding:(Inspector2 toolbarMenu)) startUp
+ MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp
"
<resource: #menu>
@@ -133,12 +134,20 @@
submenuChannel: forwardButtonMenuChannel
labelImage: (ResourceRetriever XPToolbarIconLibrary historyForwardIcon)
)
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Browse'
+ itemValue: browseClassAction
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon22x22)
+ )
)
nil
nil
)
-
- "Modified: / 12-01-2008 / 19:18:36 / janfrog"
! !
!Inspector2 class methodsFor:'startup'!
@@ -201,20 +210,22 @@
!
navigationState
- ^ self navigationHistoryHolder value
+ ^ 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: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>"
! !
!Inspector2 methodsFor:'aspects'!
@@ -301,7 +312,23 @@
"Modified: / 27-02-2008 / 12:05:56 / janfrog"
! !
-!Inspector2 methodsFor:'menu & menu actions'!
+!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.
@@ -311,11 +338,19 @@
"Modified: / 15-07-2011 / 16:26:28 / cg"
!
-backButtonMenuChannel
- ^ [ self navigationHistoryHolder goBackMenu ]
+browseClassAction
+
+ | class |
+ class := self currentObject class.
- "Created: / 12-01-2008 / 18:57:08 / janfrog"
- "Modified: / 22-02-2008 / 16:57:46 / janfrog"
+ browser isNil ifTrue:[
+ browser := Tools::NewSystemBrowser browseSingleClass: class
+ ] ifFalse:[
+ browser spawnSingleClassBrowserFor:class in:#newBuffer.
+ browser window raise.
+ ]
+
+ "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
forwardButtonAction
@@ -324,13 +359,6 @@
"Created: / 21-02-2008 / 19:52:03 / janfrog"
"Modified: / 15-07-2011 / 16:26:33 / cg"
-!
-
-forwardButtonMenuChannel
- ^ [ self navigationHistoryHolder goForwardMenu ]
-
- "Created: / 12-01-2008 / 18:57:30 / janfrog"
- "Modified: / 22-02-2008 / 16:58:11 / janfrog"
! !
!Inspector2 methodsFor:'opening'!
@@ -401,7 +429,7 @@
!Inspector2::NavigationState class methodsFor:'documentation'!
version
- ^'$Id: Tools__Inspector2.st,v 1.9 2011-07-15 16:17:15 cg Exp $'
+ ^'$Id: Tools__Inspector2.st,v 1.10 2011-07-23 10:41:37 vrany Exp $'
!
version_SVN
@@ -512,8 +540,27 @@
!Inspector2::NavigationState methodsFor:'initialization'!
+initializeClassBrowserTab
+ | browser |
+
+ self notYetImplemented.
+
+
+ tabs add:
+ (Tools::Inspector2Tab new
+ priority: 50;
+ label:'Object';
+ view: ((theObject inspectorClass new inspect:theObject)
+ yourself))
+
+ "Created: / 22-07-2011 / 18:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
initializeCommonTabs
+ "Unfinished code"
+ "/self initializeClassBrowserTab
+
"/ tabs add:
"/ (Tools::Inspector2Tab new
"/ priority: 50;
@@ -523,7 +570,7 @@
"Created: / 16-01-2008 / 16:56:48 / janfrog"
"Modified: / 17-02-2008 / 10:29:54 / janfrog"
- "Modified: / 25-05-2011 / 10:11:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 22-07-2011 / 18:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
initializeExtraTabs
@@ -562,7 +609,7 @@
!Inspector2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.9 2011-07-15 16:17:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.10 2011-07-23 10:41:37 vrany Exp $'
!
version_CVS_jvrany