4412 !CharacterArray methodsFor:'inspecting'!

  4413 

  4414 inspector2TabXMLTree

  4415     "extra tab to be shown in an inspector2."

  4416 

  4417     |tabClass tab sub xmlInspectorClass xmlParserClass|

  4418 

  4419     (self startsWith:'<?xml') ifFalse:[^ nil].

  4420     

  4421     "return an extra XML-dom tab to be used inside an inspector"

  4422 

  4423     "/ avoid generating a dependency here

  4424     (tabClass := Smalltalk at: #'Tools::Inspector2Tab') isNil ifTrue:[^ nil].

  4425     tab := tabClass new.

  4426 

  4427     "/ to prevent the dependcy walker from adding libtool2 to the package:

  4428     (xmlInspectorClass := Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ nil ].

  4429     (xmlParserClass := Smalltalk at:#'XML::XMLParser') isNil ifTrue:[^ nil ].

  4430 

  4431     sub := xmlInspectorClass embeddableInspectorApplicationFor:(xmlParserClass parse:self).

  4432 

  4433     ^ tab

  4434         label: 'XML DOM';

  4435         priority: 45;

  4436         view: sub

  4437 ! !