--- a/CharacterArray.st Tue Sep 29 19:16:59 2015 +0200
+++ b/CharacterArray.st Tue Sep 29 19:17:34 2015 +0200
@@ -4409,32 +4409,6 @@
"
! !
-!CharacterArray methodsFor:'inspecting'!
-
-inspector2TabXMLTree
- "extra tab to be shown in an inspector2."
-
- |tabClass tab sub xmlInspectorClass xmlParserClass|
-
- (self startsWith:'<?xml') ifFalse:[^ nil].
-
- "return an extra XML-dom tab to be used inside an inspector"
-
- "/ avoid generating a dependency here
- (tabClass := Smalltalk at: #'Tools::Inspector2Tab') isNil ifTrue:[^ nil].
- tab := tabClass new.
-
- "/ to prevent the dependcy walker from adding libtool2 to the package:
- (xmlInspectorClass := Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ nil ].
- (xmlParserClass := Smalltalk at:#'XML::XMLParser') isNil ifTrue:[^ nil ].
-
- sub := xmlInspectorClass embeddableInspectorApplicationFor:(xmlParserClass parse:self).
-
- ^ tab
- label: 'XML DOM';
- priority: 45;
- view: sub
-! !