--- a/Tools__Inspector2.st Wed Oct 05 16:40:32 2016 +0200
+++ b/Tools__Inspector2.st Wed Oct 05 17:03:56 2016 +0200
@@ -852,7 +852,7 @@
"/ Do not show language combo when language is Smalltalk.
"/ For those not working with multiple languages is too disturbing.
^ BlockValue
- with:[:o | o class programmingLanguage isSmalltalk not ]
+ with:[:o | o class programmingLanguage notNil and:[o class programmingLanguage isSmalltalk not] ]
argument:self currentObjectHolder
"Modified (comment): / 25-10-2013 / 19:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1041,11 +1041,11 @@
| currentObject currentObjectLanguage |
currentObject := self currentObject.
- currentObjectLanguage := currentObject class programmingLanguage.
- currentObjectLanguage isSmalltalk ifFalse:[
+ currentObjectLanguage := currentObject class programmingLanguage ? SmalltalkLanguage instance.
+ currentObjectLanguage isSmalltalk ifTrue:[
+ self evaluationLanguageList value: (Array with: currentObjectLanguage).
+ ] ifFalse:[
self evaluationLanguageList value: (Array with: currentObjectLanguage with: SmalltalkLanguage instance)
- ] ifTrue:[
- self evaluationLanguageList value: (Array with: currentObjectLanguage).
].
self evaluationLanguageHolder value:(EvaluationLanguageMap at: currentObjectLanguage ifAbsent:[currentObjectLanguage])
@@ -1414,10 +1414,8 @@
|tab|
- tab := self tabs at: self selectionIndex.
- ^tab
- ifNil:[nil]
- ifNotNil:[tab view].
+ tab := self tabs at:self selectionIndex ifAbsent:nil.
+ ^ tab isNil ifTrue:[nil] ifFalse:[tab view].
"Created: / 16-01-2008 / 17:31:19 / janfrog"
!
@@ -1535,7 +1533,7 @@
tabs := OrderedCollection new.
"/ Old style - tabs are specified by method #inspector2Tabs
- selectors := theObject inspector2Tabs asSet.
+ selectors := (theObject inspector2Tabs ? #(inspector2TabCommon)) asSet.
"/ New style - tab are defined by methods with <inspector2Tab> annotation
theObject class withAllSuperclassesDo:[:eachClass|