core/trunk/XMLv2__DOM3Inspector__ElementPropertiesPane.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 10 Apr 2008 09:14:47 +0000
changeset 3 7909b6680107
permissions -rw-r--r--
Loaded into & commited from 5.3.6

DomainModelUI subclass:#ElementPropertiesPane
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	privateIn:XMLv2::DOM3Inspector
!

!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
                          name: 'LabelPane'
                          horizontalLayout: left
                          verticalLayout: spreadSpace
                          horizontalSpace: 3
                          verticalSpace: 3
                          component: 
                         (SpecCollection
                            collection: (
                             (LabelSpec
                                label: 'Node Name:'
                                name: 'NodeNameLabel'
                                translateLabel: true
                                resizeForLabel: true
                                adjust: left
                                useDefaultExtent: true
                              )
                             (LabelSpec
                                label: 'Namespace URI:'
                                name: 'NamespaceURILabel'
                                translateLabel: true
                                resizeForLabel: true
                                adjust: left
                                useDefaultExtent: true
                              )
                             (LabelSpec
                                label: 'Node Type:'
                                name: 'NodeTypeLabel'
                                translateLabel: true
                                resizeForLabel: true
                                adjust: left
                                useDefaultExtent: true
                              )
                             (LabelSpec
                                label: 'Node Value:'
                                name: 'NodeValueLabel'
                                translateLabel: true
                                resizeForLabel: true
                                adjust: left
                                useDefaultExtent: true
                              )
                             )
                           
                          )
                          extent: (Point 130 93)
                        )
                       (VerticalPanelViewSpec
                          name: 'ValuePanel'
                          horizontalLayout: fit
                          verticalLayout: spreadSpace
                          horizontalSpace: 3
                          verticalSpace: 3
                          component: 
                         (SpecCollection
                            collection: (
                             (InputFieldSpec
                                name: 'NodeNameField'
                                initiallyDisabled: true
                                model: domNodeNameAspect
                                acceptOnReturn: true
                                acceptOnTab: true
                                acceptOnLostFocus: true
                                acceptOnPointerLeave: false
                                extent: (Point 369 22)
                              )
                             (InputFieldSpec
                                name: 'NamespaceURIField'
                                initiallyDisabled: true
                                model: domNodeNamespaceURIAspect
                                acceptOnReturn: true
                                acceptOnTab: true
                                acceptOnLostFocus: true
                                acceptOnPointerLeave: false
                                extent: (Point 369 22)
                              )
                             (InputFieldSpec
                                name: 'NodeTypeField'
                                initiallyDisabled: true
                                model: domNodeTypeAspect
                                acceptOnReturn: true
                                acceptOnTab: true
                                acceptOnLostFocus: true
                                acceptOnPointerLeave: false
                                extent: (Point 369 22)
                              )
                             (InputFieldSpec
                                name: 'NodeValueField'
                                initiallyDisabled: true
                                model: domNodeValueAspect
                                acceptOnReturn: true
                                acceptOnTab: true
                                acceptOnLostFocus: true
                                acceptOnPointerLeave: false
                                extent: (Point 369 22)
                              )
                             )
                           
                          )
                          extent: (Point 369 90)
                        )
                       )
                     
                    )
                    extent: (Point 508 90)
                  )
                 (DataSetSpec
                    name: 'AttributesTable'
                    hasHorizontalScrollBar: true
                    hasVerticalScrollBar: true
                    dataList: domNodeAttributesAspect
                    columnHolder: attributeTableColumns
                    extent: (Point 508 167)
                  )
                 )
               
              )
            )
           )
         
        )
      )

    "Modified: / 12-12-2006 / 09:19:49 / janfrog"
! !

!DOM3Inspector::ElementPropertiesPane 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 / 09:19:49 / janfrog"
! !

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

attributeTableColumns
    "This resource specification was automatically generated
     by the DataSetBuilder of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the DataSetBuilder may not be able to read the specification."

    "
     DataSetBuilder new openOnClass:XMLv2::DOM3Inspector::ElementPropertiesPane andSelector:#attributeTableColumns
    "

    <resource: #tableColumns>

    ^#(
      (DataSetColumnSpec
         label: 'Node Name'
         labelAlignment: left
         labelButtonType: Button
         printSelector: nodeName
       )
      (DataSetColumnSpec
         label: 'Node Value'
         labelAlignment: left
         labelButtonType: Button
         printSelector: nodeValue
       )
      )

    "Created: / 12-12-2006 / 09:19:30 / janfrog"
! !

!DOM3Inspector::ElementPropertiesPane methodsFor:'aspects'!

domNodeAttributesAspect

    ^self
        aspectAt: #domNodeAttributesAspect
        ifAbsentPut: [self aspectAdaptorFor: #attributes]

    "Created: / 12-12-2006 / 09:20:19 / janfrog"
!

domNodeNameAspect

    ^self
        aspectAt: #domNodeNameAspect
        ifAbsentPut: [self aspectAdaptorFor: #nodeName]

    "Created: / 12-12-2006 / 09:16:51 / janfrog"
!

domNodeNamespaceURIAspect

    ^self
        aspectAt: #domNodeNamespaceURIAspect
        ifAbsentPut: [self aspectAdaptorFor: #namespaceURI]

    "Created: / 12-12-2006 / 09:16:51 / janfrog"
!

domNodeTypeAspect

    ^self
        aspectAt: #domNodeTypeAspect
        ifAbsentPut: [self aspectAdaptorFor: #nodeType]

    "Created: / 12-12-2006 / 09:16:51 / janfrog"
!

domNodeValueAspect

    ^self
        aspectAt: #domNodeValueAspect
        ifAbsentPut: [self aspectAdaptorFor: #nodeValue]

    "Created: / 12-12-2006 / 09:16:51 / janfrog"
! !