"{ NameSpace: XMLv2 }"

DomainModelUI subclass:#DOM3Inspector

	instanceVariableNames:'elementPropertiesPane domNodeInspectorView'

	classVariableNames:''

	poolDictionaries:''

	category:'XML Suite-DOM3 Inspector'

!

HierarchicalItem subclass:#DOM3NodeItem

	instanceVariableNames:'node'

	classVariableNames:''

	poolDictionaries:''

	privateIn:DOM3Inspector

!

DomainModelUI subclass:#ElementPropertiesPane

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:DOM3Inspector

!

!DOM3Inspector class methodsFor:'interface specs'!

propertiesTabPaneSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#propertiesTabPaneSpec

     XMLv2::DOM3Inspector new openInterface:#propertiesTabPaneSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: propertiesTabPaneSpec

        window: 

       (WindowSpec

          label: 'DOM Node properties'

          name: 'DOM Node properties'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 538 516)

        )

        component: 

       (SpecCollection

          collection: (

           (SubCanvasSpec

              name: 'ElementPropertiesCanvas'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              clientHolder: domNodePropertiesPaneAspect

              subAspectHolders: 

             (Array

               (SubChannelInfoSpec

                  subAspect: model

                  aspect: domNodeAspect

                )

              )

            )

           )

        )

      )

    "Modified: / 12-12-2006 / 09:09:10 / janfrog"

!

smalltalkObjectTabPaneSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#smalltalkObjectTabPaneSpec

     XMLv2::DOM3Inspector new openInterface:#smalltalkObjectTabPaneSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: smalltalkObjectTabPaneSpec

        window: 

       (WindowSpec

          label: 'DOM Node properties'

          name: 'DOM Node properties'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 538 516)

        )

        component: 

       (SpecCollection

          collection: (

           (ArbitraryComponentSpec

              name: 'NodeInspector'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              hasBorder: false

              component: domNodeInspectorView

            )

           )

        )

      )

    "Modified: / 12-12-2006 / 09:43:08 / janfrog"

!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#windowSpec

     XMLv2::DOM3Inspector new openInterface:#windowSpec

     XMLv2::DOM3Inspector open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'DOM Inspector'

          name: 'DOM Inspector'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 554 438)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableHorizontalPanelSpec

              name: 'SplitPanel'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              showHandle: true

              snapMode: both

              component: 

             (SpecCollection

                collection: (

                 (HierarchicalListViewSpec

                    name: 'NodeTree'

                    model: domNodeAspect

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    listModel: domNodeTreeAspect

                    useIndex: false

                    highlightMode: line

                    useDefaultIcons: false

                    properties: 

                   (PropertyListDictionary

                      dragArgument: nil

                      dropArgument: nil

                      canDropSelector: canDropDocument:

                      dropSelector: dropDocument:

                    )

                  )

                 (NoteBookViewSpec

                    name: 'NodeProperties'

                    menu: propertyTabList

                  )

                 )

              )

              handles: (Any 0.3 1.0)

            )

           )

        )

      )

    "Modified: / 12-12-2006 / 11:40:23 / janfrog"

!

xmlTabPaneSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#propertyPaneXML

     XMLv2::DOM3Inspector new openInterface:#propertyPaneXML

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: propertyPaneXML

        window: 

       (WindowSpec

          label: 'NewApplication'

          name: 'NewApplication'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (TextEditorSpec

              name: 'NodeXML'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              model: domNodeXMLAspect

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              isReadOnly: true

            )

           )

        )

      )

    "Created: / 12-12-2006 / 08:48:07 / janfrog"

! !

!DOM3Inspector class methodsFor:'list specs'!

propertyTabList

    "This resource specification was automatically generated

     by the TabListEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the TabListEditor may not be able to read the specification."

    "

     TabListEditor new openOnClass: self andSelector:#propertyTabList

    "

    <resource: #tabList>

    ^     #(

       (TabItem

          label: 'XML'

          minorKey: xmlTabPaneSpec

        )

       (TabItem

          label: 'Properties'

          minorKey: propertiesTabPaneSpec

        )

       (TabItem

          label: 'Smalltalk object'

          minorKey: smalltalkObjectTabPaneSpec

        )

       )

      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]

    "Modified: / 12-12-2006 / 09:43:44 / janfrog"

! !

!DOM3Inspector class methodsFor:'plugIn spec'!

aspectSelectors

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this. If it is corrupted,

     the UIPainter may not be able to read the specification."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #model

      ).

    "Modified: / 12-12-2006 / 11:40:23 / janfrog"

! !

!DOM3Inspector methodsFor:'accessing'!

domNode

    ^self domNodeAspect value ifNotNil:[self domNodeAspect value node]

    "Created: / 12-12-2006 / 00:42:07 / janfrog"

!

domNodeInspectorView

    domNodeInspectorView ifNil:

        [domNodeInspectorView := InspectorView new.

         "domNodeInspectorView fieldListLabel: 'DOM3Node:'"

        domNodeInspectorView inspect:self domNode].

    ^domNodeInspectorView

    "Created: / 12-12-2006 / 09:41:31 / janfrog"

    "Modified: / 12-12-2006 / 11:41:17 / janfrog"

!

elementPropertiesPane

    elementPropertiesPane ifNil:

        [elementPropertiesPane := ElementPropertiesPane on:self domNodeAspect].

    ^elementPropertiesPane

    "Created: / 12-12-2006 / 09:12:00 / janfrog"

! !

!DOM3Inspector methodsFor:'aspects'!

domNodeAspect

    ^self

        aspectAt: #domNodeAspect

        ifAbsentPut: 

            [(self domNodeTreeAspect value root asValue)

                onChangeEvaluate:[self updateDomNodeInspectorView];

                yourself].

    "Created: / 12-12-2006 / 00:15:39 / janfrog"

    "Modified: / 12-12-2006 / 09:44:23 / janfrog"

!

domNodePropertiesPaneAspect

    ^self 

        aspectAt:#domNodePropertiesPaneAspect

        ifAbsentPut:[

            PluggableAdaptor 

                on: self domNodeAspect

                getter: 

                    [:m|m value 

                        ifNil:[nil]

                        ifNotNil:[m value isElement

                            ifFalse:[nil]

                            ifTrue:[self elementPropertiesPane]]]]

    "Created: / 12-12-2006 / 09:09:00 / janfrog"

!

domNodeTreeAspect

    ^self

        aspectAt: #domTreeNodeAspect

        ifAbsentPut: [

            | hlist |

            hlist := HierarchicalList new

                root: (DOM3NodeItem for:self model);

                showRoot: true;

                yourself.

            hlist root expand.

            hlist

        ]

    "Created: / 12-12-2006 / 00:16:47 / janfrog"

    "Modified: / 12-12-2006 / 12:47:40 / janfrog"

!

domNodeXMLAspect

    ^self

        aspectAt: #domNodeXMLAspect

        ifAbsentPut: [self aspectAdaptorFor: #asColorXMLString on: self domNodeAspect]

    "Created: / 12-12-2006 / 00:45:19 / janfrog"

!

propertyTabList

    "Generated by the TabListEditor"

    |list|

    (list := builder bindingAt:#propertyTabList) isNil ifTrue:[

        builder aspectAt:#propertyTabList put:(list := self class propertyTabList).

    ].

    ^ list

    "Created: / 12-12-2006 / 00:12:43 / janfrog"

! !

!DOM3Inspector methodsFor:'drag & drop'!

canDropDocument: anObject

    self halt.

    "Created: / 12-12-2006 / 09:23:48 / janfrog"

!

dropDocument: anObject

    self halt.

    "Created: / 12-12-2006 / 09:23:51 / janfrog"

! !

!DOM3Inspector methodsFor:'updating'!

updateDomNodeInspectorView

    self domNodeInspectorView inspect: self domNode

    "Modified: / 12-12-2006 / 09:45:29 / janfrog"

! !

!DOM3Inspector::DOM3NodeItem class methodsFor:'instance creation'!

for: node 

    ^self new setNode: node; yourself

    "Created: / 12-12-2006 / 00:32:53 / janfrog"

!

for: node parent: parent

    ^self new setNode: node; parent: parent; yourself

    "Created: / 12-12-2006 / 00:30:51 / janfrog"

! !

!DOM3Inspector::DOM3NodeItem methodsFor:'accessing'!

children

    children ifNil:

        [children := node childNodes 

                        select:[:childNode| (childNode isText not) or:[childNode isIgnorableText not]]

                        thenCollect:[:childNode|self class for:childNode parent: self.]].

    ^children

    "Created: / 12-12-2006 / 00:21:50 / janfrog"

    "Modified: / 12-12-2006 / 10:32:05 / janfrog"

!

label

    node isElement ifTrue:[^'<',node nodeName,'>'].

    ^node nodeName

    "Created: / 12-12-2006 / 00:19:56 / janfrog"

!

node

    ^ node

    "Created: / 12-12-2006 / 09:46:03 / janfrog"

! !

!DOM3Inspector::DOM3NodeItem methodsFor:'initialization'!

setNode: aNode

    node := aNode

    "Created: / 12-12-2006 / 00:22:34 / janfrog"

! !

!DOM3Inspector::DOM3NodeItem methodsFor:'message delegation'!

doesNotUnderstand: aMessage

    ^(node respondsTo: aMessage selector)

        ifTrue:[aMessage reinvokeFor: node]

        ifFalse:[super doesNotUnderstand: aMessage]

    "Created: / 12-12-2006 / 09:04:49 / janfrog"

! !

!DOM3Inspector::ElementPropertiesPane class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:XMLv2::DOM3Inspector::ElementPropertiesPane andSelector:#windowSpec

     XMLv2::DOM3Inspector::ElementPropertiesPane new openInterface:#windowSpec

     XMLv2::DOM3Inspector::ElementPropertiesPane open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Element Properties'

          name: 'Element Properties'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 508 266)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'PropertiesAndAttributesTablePane'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              horizontalLayout: fit

              verticalLayout: topSpaceFit

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (HorizontalPanelViewSpec

                    name: 'PropertiesPane'

                    horizontalLayout: leftSpaceFit

                    verticalLayout: center

                    horizontalSpace: 3

                    verticalSpace: 3

                    component: 

                   (SpecCollection

                      collection: (

                       (VerticalPanelViewSpec