--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XMLv2__DOM3Inspector__ElementPropertiesPane.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,281 @@
+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"
+! !
+