--- a/Tools__Inspector2.st Sat Feb 11 04:41:21 2017 +0000
+++ b/Tools__Inspector2.st Sat Feb 11 10:26:42 2017 +0100
@@ -24,7 +24,7 @@
!
Model subclass:#NavigationState
- instanceVariableNames:'application theObject index tabs selectionIndex displayString'
+ instanceVariableNames:'inspector theObject index tabs selectionIndex displayString'
classVariableNames:''
poolDictionaries:''
privateIn:Inspector2
@@ -1303,7 +1303,7 @@
| current new |
new := NavigationState for: anObject.
- new application:self.
+ new inspector:self.
current := self currentState.
(current notNil "and:[anObject isKindOf: current theObject class]") ifTrue:[
| currentTabLabel newSelectionIndex |
@@ -1323,6 +1323,7 @@
"Created: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 13-02-2015 / 20:44:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 11-02-2017 / 10:14:57 / cg"
!
setDoItActionForLanguage: language
@@ -1376,12 +1377,9 @@
!Inspector2::NavigationState methodsFor:'accessing'!
-application
- ^ application
-!
-
application:anInspectorApp
- application := anInspectorApp.
+ <resource: #obsolete>
+ inspector := anInspectorApp.
!
index
@@ -1392,6 +1390,16 @@
index := something.
!
+inspector
+ ^ inspector
+!
+
+inspector:anInspectorApp
+ inspector := anInspectorApp.
+
+ "Modified (format): / 11-02-2017 / 10:14:31 / cg"
+!
+
selectionIndex
selectionIndex isNil ifTrue:[^1].
selectionIndex < 1 ifTrue:[^1].
@@ -1522,7 +1530,7 @@
"/ ex reject.
Logger error:'inspector setup: %1' with:ex description.
tab := Tools::Inspector2Tab new
- application:application;
+ inspector:inspector;
label:selector;
text:(ex description, Character cr, Character cr,
ex suspendedContext fullPrintAllString)
@@ -1530,12 +1538,11 @@
(tab isKindOf:Tools::Inspector2Tab) ifTrue:[
tabs add: tab.
- tab
- application:application;
- setupView.
+ tab inspector:inspector.
]
"Created: / 03-02-2015 / 11:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 11-02-2017 / 10:16:42 / cg"
!
initializeTabs