--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XML__Comment.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,91 @@
+"{ Package: 'stx:goodies/xmlsuite/core' }"
+
+"{ NameSpace: XML }"
+
+Node subclass:#Comment
+ instanceVariableNames:'text'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XML-VW-Nodes'
+!
+
+Comment comment:'This class represents an XML comment. XML comments may appear anywhere in an XML document outside other markup or within the document type declaration at places allowed by grammar.
+
+ XML comments are delimited by the start-tag ''<!!--'' and the end-tag ''-->''.
+
+According to the XML 1.0 specification, for compatibilty, double-hyphens (the string ''--'') must not occur within comments.
+
+Instance Variables:
+ text <String> contents of the comment element
+'
+!
+
+
+!Comment methodsFor:'accessing'!
+
+text
+
+ ^text
+!
+
+text: aText
+
+ text := aText
+!
+
+xPath
+ ^ parent xPath
+
+ "Created: / 23-04-2005 / 23:15:32 / janfrog"
+! !
+
+!Comment methodsFor:'printing'!
+
+prettyPrintOn: aStream depth: indent
+
+ aStream nextPutAll: '<!!--', (text == nil ifTrue: [''] ifFalse: [text]), '-->'
+!
+
+printCanonicalOn: aStream
+
+ ^self
+!
+
+printHTMLOn: aStream
+
+ self prettyPrintOn: aStream
+!
+
+printNoIndentOn: aStream endSpacing: endSpacingBlock spacing: spacingBlock
+
+ ^self prettyPrintOn: aStream
+!
+
+printOn: aStream
+
+ aStream nextPutAll: '<!!--', (text == nil ifTrue: [''] ifFalse: [text]), '-->'
+! !
+
+!Comment methodsFor:'testing'!
+
+isComment
+
+ ^true
+! !
+
+!Comment methodsFor:'visiting'!
+
+acceptVisitor:aVisitor
+ "Double dispatch back to the visitor, passing my type encoded in
+ the selector (visitor pattern)"
+
+ "stub code automatically generated - please change if required"
+
+ ^ aVisitor visitComment:self
+! !
+
+!Comment class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/goodies/xml/vw/Comment.st,v 1.9 2003/08/04 13:07:53 james Exp $'
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XML__NodeTag.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,142 @@
+"{ Package: 'stx:goodies/xmlsuite/core' }"
+
+"{ NameSpace: XML }"
+
+Object subclass:#NodeTag
+ instanceVariableNames:'namespace type qualifier'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XML-VW-Parsing'
+!
+
+NodeTag comment:'In XML all elements or nodes are delimited by start and end tags (or empty-element tags) and instances of this class are used to represent the name which appears in those tags. The name is composed of a simple type name
+
+Instance Variables:
+ namespace <String> URI of the (XML) namespace of the element or attribute
+ type <String> Name of tag, used to indicate element type, within the chosen namespace
+ qualifier <String> type qualifier of the original XML document. Two NodeTags are considered equivalent if their namespace and type are equal, even if the qualifiers are different. This is primarily used only if it is desired to store the XML Document as a serialized string again. Qualiofiers are used with xmlns and xmlns:foo attributes to discover the namespace of the NodeTag.
+'
+!
+
+
+!NodeTag methodsFor:'accessing'!
+
+expandedName
+
+ ^namespace isEmpty
+ ifTrue: [type]
+ ifFalse: [namespace, '#', type]
+!
+
+namespace
+
+ ^namespace
+!
+
+qualifiedName
+
+ ^self qualifier isEmpty
+ ifTrue:[self type]
+ ifFalse:[self qualifier , ':' , self type]
+
+ "Created: / 23-04-2005 / 09:35:39 / janfrog"
+!
+
+qualifier
+
+ ^qualifier
+!
+
+qualifier:aString
+
+ qualifier := aString
+
+ "Created: / 11-05-2005 / 19:52:02 / janfrog"
+!
+
+type
+
+ ^type
+! !
+
+!NodeTag methodsFor:'comparing'!
+
+< aNodeTag
+ ^ self asString < aNodeTag asString
+!
+
+= aNodeTag
+ "Needed for canonical XML. REW"
+
+ ^ (aNodeTag isKindOf:self class)
+ and:[type = aNodeTag type and:[namespace = aNodeTag namespace]]
+!
+
+hash
+ "Needed for canonical XML. REW"
+ ^type hash
+! !
+
+!NodeTag methodsFor:'converting'!
+
+asString
+
+ ^qualifier isEmpty
+ ifTrue: [type]
+ ifFalse: [qualifier, ':', type]
+! !
+
+!NodeTag methodsFor:'initialization'!
+
+qualifier: q ns: ns type: typeStr
+ namespace := ns.
+ type := typeStr.
+ qualifier := q.
+ qualifier = 'xml' ifTrue: [ namespace := XMLNodeBuilder reservedXmlNamespace ].
+! !
+
+!NodeTag methodsFor:'printing'!
+
+printOn: aStream
+
+ aStream nextPutAll: '{', self asString, '}'
+! !
+
+!NodeTag methodsFor:'testing'!
+
+isLike: aName
+ "strings do not come with namespace information, so when matching a string, we
+ can only compare qualifier and type ... this is needed so elements in the dom tree
+ can be accessed by name even when xmlns or xmlns:Q attributes are in use"
+
+ ^aName isString
+ ifTrue: [ self isLikeString: aName ]
+ ifFalse: [ namespace = aName namespace and: [ type = aName type ] ]
+!
+
+isLikeForValidation:aNodeTag
+ "for validation purposes, nodetags are equal if qualifier and prefix are equal.
+ this does not work if prefixes are re-defined, but it's better than the status quo"
+
+ ^ qualifier = aNodeTag qualifier and:[type = aNodeTag type]
+!
+
+isLikeString: aName
+ | tmp |
+ tmp := aName asCollectionOfSubstringsSeparatedBy: $:.
+ tmp size > 2
+ ifTrue:
+ [ XML::XMLSignal
+ raiseErrorString: ('an element name is either NAME or Q:NAME: %1'
+ bindWith: aName). ].
+ tmp size = 2 ifTrue:[
+ ^ qualifier = tmp first and:[type = (tmp at:2)]
+ ].
+ ^ type = tmp first
+! !
+
+!NodeTag class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/goodies/xml/vw/NodeTag.st,v 1.12 2004/04/27 08:12:54 james Exp $'
+! !
--- a/core/trunk/XMLv2__AbstractDOM3TestCase.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__AbstractDOM3TestCase.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__AbstractSAX2Handler.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__AbstractSAX2Handler.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__AbstractW3CDOM3TestCase.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__AbstractW3CDOM3TestCase.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Attr.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Attr.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Attributes.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Attributes.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__CDATASection.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__CDATASection.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__CharacterData.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__CharacterData.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XMLv2__CincomDOMXMLReader.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,134 @@
+"{ Package: 'stx:goodies/xmlsuite/core' }"
+
+"{ NameSpace: XMLv2 }"
+
+XMLReader subclass:#CincomDOMXMLReader
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XML Suite-SAX2-XMLReaders'
+!
+
+
+!CincomDOMXMLReader class methodsFor:'accessing'!
+
+concreteClass
+
+ ^self
+
+ "Created: / 21-12-2005 / 17:41:18 / janfrog"
+! !
+
+!CincomDOMXMLReader class methodsFor:'testing'!
+
+isSpecial
+
+ ^true
+
+ "Created: / 29-10-2006 / 22:43:25 / janfrog"
+! !
+
+!CincomDOMXMLReader methodsFor:'SAX2 events'!
+
+getColumnNumber
+
+ ^nil
+
+ "Created: / 21-12-2005 / 17:22:44 / janfrog"
+!
+
+getLineNumber
+
+ ^nil
+
+ "Created: / 21-12-2005 / 17:22:44 / janfrog"
+!
+
+parseFragmentStream:aStream
+
+ "I read Cincom DOM tree, not stream"
+
+ self shouldNotImplement
+
+ "Modified: / 21-12-2005 / 17:23:30 / janfrog"
+!
+
+parseNode:aDocument
+ aDocument acceptVisitor:self
+
+ "Created: / 10-12-2006 / 13:49:55 / janfrog"
+!
+
+parseStream:aStream
+ "Superclass says that I am responsible to implement this method"
+
+ self shouldImplement
+
+ "Created: / 21-12-2005 / 17:22:44 / janfrog"
+!
+
+visitComment:aComment
+
+ contentHandler comment: aComment text
+
+ "Created: / 21-12-2005 / 17:22:37 / janfrog"
+!
+
+visitDocument:aDocument
+
+ contentHandler startDocument.
+ aDocument children do:
+ [:child|child acceptVisitor: self].
+ contentHandler endDocument
+
+ "Created: / 21-12-2005 / 17:22:37 / janfrog"
+!
+
+visitElement:anElement
+
+ | ns localName prefix attrs |
+ ns := anElement tag namespace.
+ localName := anElement tag type.
+ prefix := anElement tag qualifier.
+ attrs := Attributes new:(anElement attributes size).
+ anElement attributes do:
+ [:oldAttr | attrs add: (Attr fromCincomAttribute: oldAttr)].
+
+
+ contentHandler
+ startElement: localName
+ namespace: ns
+ prefix: prefix
+ attributes: attrs.
+
+ anElement children do:
+ [:child| child acceptVisitor:self].
+
+ contentHandler
+ endElement: localName
+ namespace: ns
+ prefix: prefix
+
+ "Modified: / 30-05-2005 / 16:30:11 / masca"
+ "Created: / 21-12-2005 / 17:22:37 / janfrog"
+!
+
+visitPI:aPI
+
+ contentHandler processingInstruction:aPI name data:aPI text
+
+ "Created: / 21-12-2005 / 17:22:37 / janfrog"
+!
+
+visitText:aText
+
+ contentHandler characters: aText text
+
+ "Created: / 21-12-2005 / 17:22:37 / janfrog"
+! !
+
+!CincomDOMXMLReader class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xmlreaderimpl/XMLv2__CincomDOMXMLReader.st,v 1.4 2006-12-12 13:53:47 vranyj1 Exp $'
+! !
--- a/core/trunk/XMLv2__CincomImplementation.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__CincomImplementation.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Comment.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Comment.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__ContentHandler.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__ContentHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOM3Builder.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOM3Builder.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOM3Inspector.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOM3Inspector.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XMLv2__DOM3Inspector__DOM3NodeItem.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,71 @@
+HierarchicalItem subclass:#DOM3NodeItem
+ instanceVariableNames:'node'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:XMLv2::DOM3Inspector
+!
+
+!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"
+! !
+
--- /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"
+! !
+
--- a/core/trunk/XMLv2__DOM3NodeDumper.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOM3NodeDumper.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOM3Tests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOM3Tests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOM3XMLReader.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOM3XMLReader.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
@@ -19,6 +19,15 @@
"Created: / 23-12-2005 / 20:06:28 / janfrog"
! !
+!DOM3XMLReader class methodsFor:'testing'!
+
+isSpecial
+
+ ^true
+
+ "Created: / 11-11-2006 / 19:26:14 / janfrog"
+! !
+
!DOM3XMLReader methodsFor:'SAX2 events'!
getColumnNumber
@@ -52,8 +61,24 @@
"Created: / 23-12-2005 / 20:06:28 / janfrog"
! !
+!DOM3XMLReader methodsFor:'initialization'!
+
+initialize
+
+ super initialize.
+ namespacePrefixMapping := Dictionary new
+
+ "Created: / 11-11-2006 / 12:01:36 / janfrog"
+! !
+
!DOM3XMLReader methodsFor:'visiting'!
+parseNode:aDocument
+ aDocument acceptVisitor:self
+
+ "Created: / 10-12-2006 / 13:49:55 / janfrog"
+!
+
readDOMNode:aDocument
aDocument acceptVisitor:self
@@ -77,6 +102,15 @@
"Modified: / 25-12-2005 / 11:16:25 / janfrog"
!
+visitCDATASection:aCDATASection
+
+ (contentHandler respondsTo:#cDataSection:)
+ ifTrue:[contentHandler cDataSection:aCDATASection data]
+ ifFalse:[contentHandler characters:aCDATASection data]
+
+ "Created: / 28-12-2005 / 16:18:05 / janfrog"
+!
+
visitComment:aComment
contentHandler comment: aComment data
@@ -103,6 +137,12 @@
"Created: / 24-12-2005 / 10:55:01 / janfrog"
!
+visitDocumentType:aDocumentType
+ "nothing to do"
+
+ "Created: / 07-04-2007 / 15:03:59 / janfrog"
+!
+
visitElement:anElement
| ns localName prefix attrs |
--- a/core/trunk/XMLv2__DOMBuilder.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMBuilder.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMConfiguration.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMConfiguration.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMError.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMError.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMErrorHandler.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMErrorHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMErrorMonitor.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMErrorMonitor.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMException.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMException.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMImplementation.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMImplementation.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DOMImplementationRegistry.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DOMImplementationRegistry.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DTDHandler.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DTDHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Document.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Document.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DocumentFragment.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DocumentFragment.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__DocumentType.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__DocumentType.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Element.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Element.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__EncodingTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__EncodingTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Entity.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Entity.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__EntityReference.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__EntityReference.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__EntityResolver.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__EntityResolver.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__ErrorHandler.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__ErrorHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__IndentingAndHighlightingXMLWriter.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__IndentingAndHighlightingXMLWriter.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__IndentingXMLWriter.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__IndentingXMLWriter.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__InputSource.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__InputSource.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__JamesClarkCanonicalXMLWriter.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__JamesClarkCanonicalXMLWriter.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__JamesClarkCanonicalXMLWriterTestResource.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__JamesClarkCanonicalXMLWriterTestResource.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__JamesClarkCanonicalXMLWriterTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__JamesClarkCanonicalXMLWriterTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__JamesClarkXMLTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__JamesClarkXMLTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__NameList.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__NameList.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__NamedNodeMap.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__NamedNodeMap.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Node.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Node.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__NodeList.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__NodeList.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__NodeName.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__NodeName.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__NodeNameTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__NodeNameTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__NodeTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__NodeTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Notation.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Notation.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__OASISXMLTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__OASISXMLTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__OldXMLWriter.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__OldXMLWriter.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/XMLv2__OldXMLWriter__ContentHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,92 @@
+XMLv2::ContentHandler subclass:#ContentHandler
+ instanceVariableNames:'writer'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:XMLv2::OldXMLWriter
+!
+
+!OldXMLWriter::ContentHandler methodsFor:'SAX2 interface'!
+
+characters:aString
+
+ writer
+ indent;
+ nextPutAll:aString withoutSeparators;
+ cr.
+
+ "Created: / 17-04-2005 / 09:08:07 / janfrog"
+!
+
+comment:string
+
+ writer
+ indent;
+ nextPutComment:string;
+ cr
+
+ "Created: / 17-04-2005 / 13:36:58 / janfrog"
+!
+
+endElement:localName namespace:namespace prefix:prefix
+ writer
+ decIndent;
+ indent;
+ nextPutOpenElement;
+ nextPut:$/;
+ nextPutElementPrefix:prefix localName:localName;
+ nextPutCloseElement;
+ cr
+
+ "Created: / 22-04-2005 / 21:41:16 / janfrog"
+ "Modified: / 18-10-2005 / 10:50:52 / janfrog"
+!
+
+processingInstruction:target data:data
+
+ writer
+ indent;
+ nextPutPI:target data:data;
+ cr
+
+ "Created: / 17-04-2005 / 13:36:38 / janfrog"
+!
+
+startDocument
+
+ writer
+ nextPutXMLDecl;
+ cr.
+
+ "Created: / 17-04-2005 / 09:33:58 / janfrog"
+!
+
+startElement:localName namespace:namespace prefix:prefix attributes:anAttributes
+ writer
+ indent;
+ nextPutOpenElement;
+ nextPutElementPrefix:prefix localName:localName;
+ nextPutAttributes:anAttributes implicitNamespace:namespace;
+ nextPutCloseElement;
+ cr;
+ incIndent.
+
+ "/nextPutAll:' <!!-- ns:',namespace,' -->'
+
+ "Created: / 22-04-2005 / 21:40:32 / janfrog"
+ "Modified: / 09-04-2007 / 11:20:13 / janfrog"
+! !
+
+!OldXMLWriter::ContentHandler methodsFor:'accessing'!
+
+writer
+ ^ writer
+
+ "Created: / 16-04-2005 / 20:37:10 / janfrog"
+!
+
+writer:something
+ writer := something.
+
+ "Created: / 16-04-2005 / 20:37:10 / janfrog"
+! !
+
--- a/core/trunk/XMLv2__ParseError.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__ParseError.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Parser.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Parser.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__ProcessingInstruction.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__ProcessingInstruction.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__SAXError.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__SAXError.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__SAXParseError.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__SAXParseError.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__Text.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__Text.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__TypeInfo.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__TypeInfo.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__UserDataHandler.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__UserDataHandler.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__W3CDOM3CoreTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__W3CDOM3CoreTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__W3XMLTestSuiteResource.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__W3XMLTestSuiteResource.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLBuilder.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLBuilder.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLBuilderTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLBuilderTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLFormatter.st Wed Apr 09 20:52:51 2008 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,277 +0,0 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
-
-"{ NameSpace: XMLv2 }"
-
-Object subclass:#XMLFormatter
- instanceVariableNames:'indentLevel textStream visitedElements
- maxNumberOfElementsToDisplay'
- classVariableNames:''
- poolDictionaries:''
- category:'XML Suite-Simple Editor'
-!
-
-
-!XMLFormatter class methodsFor:'instance creation'!
-
-new
- ^ self basicNew initialize.
-
- "Created: / 10-10-2004 / 16:31:27 / janfrog"
-! !
-
-!XMLFormatter class methodsFor:'utilities'!
-
-format:aNode
-
- ^self new format:aNode
-
- "Created: / 19-12-2004 / 13:41:10 / janfrog"
-! !
-
-!XMLFormatter methodsFor:'accessing'!
-
-maxNumberOfElementsToDisplay
- ^maxNumberOfElementsToDisplay
-
- "Created: / 12-10-2004 / 21:14:35 / janfrog"
- "Modified: / 19-12-2004 / 13:18:24 / janfrog"
-!
-
-maxNumberOfElementsToDisplay:aNumber
- maxNumberOfElementsToDisplay := aNumber
-
- "Created: / 19-12-2004 / 13:18:51 / janfrog"
-!
-
-text
- ^self textStream contents
-
- "Created: / 10-10-2004 / 16:28:48 / janfrog"
-!
-
-textStream
- textStream ifNil:[textStream := Text new writeStream].
- ^ textStream
-
- "Created: / 10-10-2004 / 16:04:19 / janfrog"
- "Modified: / 10-10-2004 / 16:04:40 / janfrog"
-!
-
-textStream:something
- textStream := something.
-
- "Created: / 10-10-2004 / 16:04:19 / janfrog"
-! !
-
-!XMLFormatter methodsFor:'accessing colors & emphasis'!
-
-attributeNameColor
- ^Color green
-
- "Created: / 10-10-2004 / 16:09:07 / janfrog"
-!
-
-attributeValueColor
- ^Color red
-
- "Created: / 10-10-2004 / 16:09:25 / janfrog"
-!
-
-commentColor
- ^Color darkGray
-
- "Created: / 12-10-2004 / 21:08:46 / janfrog"
- "Modified: / 14-04-2005 / 20:52:59 / janfrog"
-!
-
-tagColor
- ^Color blue
-
- "Created: / 10-10-2004 / 16:08:10 / janfrog"
-!
-
-textColor
- ^Color black
-
- "Created: / 10-10-2004 / 16:08:18 / janfrog"
-! !
-
-!XMLFormatter methodsFor:'initialize'!
-
-initialize
- indentLevel := 0.
- visitedElements := 0.
- maxNumberOfElementsToDisplay := 100.
-
- "Created: / 10-10-2004 / 16:31:47 / janfrog"
- "Modified: / 19-12-2004 / 13:18:36 / janfrog"
-! !
-
-!XMLFormatter methodsFor:'private'!
-
-nextPutAttribute:att
- self textStream
- emphasis:(#color->self attributeNameColor);
- nextPutAll:(self qualifiedNameFor:att);
- emphasis:nil;
- nextPut:$=;
- nextPut:$";
- emphasis:(#color->self attributeValueColor);
- nextPutAll:(att value);
- emphasis:nil;
- nextPut:$".
-
- "Created: / 10-10-2004 / 16:28:16 / janfrog"
- "Modified: / 10-10-2004 / 16:34:10 / janfrog"
-!
-
-nextPutCloseElement:element
- self textStream
- next:indentLevel*2 put:Character space;
- emphasis:nil;
- nextPut:$<;
- nextPut:$/;
- emphasis:(#color->self tagColor);
- nextPutAll:(self qualifiedNameFor:element);
- emphasis:nil;
- nextPut:$>;
- cr.
-
- "Created: / 10-10-2004 / 16:30:49 / janfrog"
- "Modified: / 29-11-2004 / 20:44:14 / janfrog"
-!
-
-nextPutOpenElement:element
- self textStream
- next:indentLevel*2 put:Character space;
- emphasis:nil;
- nextPut:$<;
- emphasis:(#color->self tagColor);
- nextPutAll:(self qualifiedNameFor:element).
-
- element attributes isEmpty ifFalse:[self textStream space].
-
- element attributes
- do:[:att|self nextPutAttribute:att]
- separatedBy:[self textStream space].
-
- self textStream
- emphasis:nil;
- nextPut:$>;
- cr.
-
- "Created: / 10-10-2004 / 16:20:36 / janfrog"
- "Modified: / 29-11-2004 / 20:44:23 / janfrog"
-!
-
-nextPutShortElement:element
- self textStream
- next:indentLevel*2 put:Character space;
- emphasis:nil;
- nextPut:$<;
- emphasis:(#color->self tagColor);
- nextPutAll:(self qualifiedNameFor:element).
-
- element attributes isEmpty ifFalse:[self textStream space].
-
- element attributes
- do:[:att|self nextPutAttribute:att]
- separatedBy:[self textStream space].
-
- self textStream
- emphasis:nil;
- nextPut:$/;
- nextPut:$>;
- cr.
-
- "Created: / 10-10-2004 / 16:36:34 / janfrog"
- "Modified: / 29-11-2004 / 20:44:30 / janfrog"
-!
-
-qualifiedNameFor:node
- ^node tag asString
-
- "Created: / 10-10-2004 / 16:20:16 / janfrog"
- "Modified: / 10-10-2004 / 16:26:38 / janfrog"
-!
-
-shouldStopFormatting
- maxNumberOfElementsToDisplay ifNil:[^false].
-
- ^visitedElements > maxNumberOfElementsToDisplay
-
- "Created: / 19-12-2004 / 13:45:48 / janfrog"
-! !
-
-!XMLFormatter methodsFor:'utilities'!
-
-format:aNode
-
- aNode acceptVisitor:self.
- ^self text
-
- "Created: / 19-12-2004 / 13:40:48 / janfrog"
-! !
-
-!XMLFormatter methodsFor:'visiting'!
-
-visitComment:aComment
- self textStream
- emphasis:(#color->self commentColor);
- nextPutAll:'<-- ';
- nextPutAll:aComment text;
- nextPutAll:' -->';
- cr;
- emphasis:nil.
-
- "Created: / 12-10-2004 / 21:10:07 / janfrog"
-!
-
-visitDocument:doc
- doc root acceptVisitor:self
-
- "Created: / 10-10-2004 / 16:05:25 / janfrog"
-!
-
-visitElement:element
- visitedElements := visitedElements + 1.
- self shouldStopFormatting ifTrue:[^self].
-
-
- element elements isEmpty ifFalse:[
- self nextPutOpenElement:element.
- indentLevel := indentLevel + 1.
- element elements do:[:e| e acceptVisitor:self].
- visitedElements := visitedElements + 1.
- self shouldStopFormatting ifTrue:[^self].
-
- indentLevel := indentLevel - 1.
- self nextPutCloseElement:element.
- ] ifTrue:[
- self nextPutShortElement:element.
-
- ]
-
- "Created: / 10-10-2004 / 16:18:59 / janfrog"
- "Modified: / 19-12-2004 / 13:46:35 / janfrog"
-!
-
-visitText:text
- text isBlankText ifFalse:[
- text characterData trimSeparators asStringCollection do:[:line|
- self textStream
- next:indentLevel*2 put:Character space;
- nextPutAll:line;
- cr.
- ]
- ]
-
- "Created: / 10-10-2004 / 16:19:13 / janfrog"
- "Modified: / 29-11-2004 / 20:46:17 / janfrog"
-! !
-
-!XMLFormatter class methodsFor:'documentation'!
-
-version
- ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__XMLFormatter.st,v 1.1.1.1 2005-11-01 22:07:10 vranyj1 Exp $'
-! !
--- a/core/trunk/XMLv2__XMLReader.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLReader.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLSuiteDOM3Implementation.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLSuiteDOM3Implementation.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLSyntaxHighlightingWriter.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLSyntaxHighlightingWriter.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLWriter.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLWriter.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/XMLv2__XMLWriterTests.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/XMLv2__XMLWriterTests.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,4 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
"{ NameSpace: XMLv2 }"
--- a/core/trunk/extensions.st Wed Apr 09 20:52:51 2008 +0000
+++ b/core/trunk/extensions.st Thu Apr 10 09:14:47 2008 +0000
@@ -1,4 +1,5 @@
-"{ Package: 'stx:goodies/xmlsuite' }"
+"{ Package: 'stx:goodies/xmlsuite/core' }"
+
!
!Character methodsFor:'testing - XML'!
@@ -17,7 +18,6 @@
"Created: / 09-04-2005 / 08:19:12 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLBaseChar
@@ -35,7 +35,6 @@
"Created: / 01-04-2005 / 18:35:18 / janfrog"
"Modified: / 09-04-2005 / 08:21:35 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLChar
@@ -54,7 +53,6 @@
"Created: / 12-03-2005 / 11:21:33 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLCombiningChar
@@ -64,7 +62,6 @@
"Created: / 09-04-2005 / 08:15:10 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLDigit
@@ -79,7 +76,6 @@
"Created: / 09-04-2005 / 08:23:38 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLExtender
@@ -93,7 +89,6 @@
"Created: / 09-04-2005 / 08:25:56 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLIdeographic
@@ -109,7 +104,6 @@
"Created: / 01-04-2005 / 18:38:30 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLLetter
@@ -122,7 +116,6 @@
"Created: / 01-04-2005 / 18:39:15 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLPubidChar
@@ -139,7 +132,6 @@
"Created: / 01-04-2005 / 17:45:16 / janfrog"
! !
-
!Character methodsFor:'testing - XML'!
isXMLWhiteSpace
@@ -152,7 +144,6 @@
"Created: / 01-04-2005 / 17:37:12 / janfrog"
! !
-
!Character class methodsFor:'XML character specs'!
xmlBaseCharValues
@@ -160,7 +151,6 @@
"Created: / 08-03-2006 / 09:35:13 / janfrog"
! !
-
!Character class methodsFor:'XML character specs'!
xmlCombiningCharValues
@@ -170,7 +160,6 @@
"Created: / 08-03-2006 / 09:36:37 / janfrog"
! !
-
!Character class methodsFor:'XML character specs'!
xmlDigitValues
@@ -178,7 +167,6 @@
"Created: / 08-03-2006 / 09:38:10 / janfrog"
! !
-
!Character class methodsFor:'XML character specs'!
xmlExtenderValues
@@ -188,7 +176,6 @@
"Created: / 08-03-2006 / 09:37:48 / janfrog"
! !
-
!CharacterArray methodsFor:'converting'!
asJamesClarkCanonicalXMLEscapedString
@@ -215,7 +202,6 @@
"Created: / 21-10-2005 / 15:10:25 / janfrog"
! !
-
!CharacterArray methodsFor:'converting'!
asXMLEscapedString
@@ -240,7 +226,6 @@
"Created: / 24-06-2005 / 12:12:02 / masca"
"Modified: / 21-10-2005 / 15:00:36 / janfrog"
! !
-
!CharacterArray class methodsFor:'instance creation'!
fromXMLEscapedString:aString
@@ -265,32 +250,8 @@
"Created: / 24-06-2005 / 12:12:24 / masca"
! !
-
-!XML::Comment methodsFor:'accessing'!
-
-xPath
- ^ parent xPath
-
- "Created: / 23-04-2005 / 23:15:32 / janfrog"
-! !
-
-!XML::NodeTag methodsFor:'accessing'!
-
-qualifiedName
+!XMLv2::XMLFormatter class methodsFor:'documentation'!
- ^self qualifier isEmpty
- ifTrue:[self type]
- ifFalse:[self qualifier , ':' , self type]
-
- "Created: / 23-04-2005 / 09:35:39 / janfrog"
+version
+ ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__XMLFormatter.st,v 1.1.1.1 2005-11-01 22:07:10 vranyj1 Exp $'
! !
-
-!XML::NodeTag methodsFor:'accessing'!
-
-qualifier:aString
-
- qualifier := aString
-
- "Created: / 11-05-2005 / 19:52:02 / janfrog"
-! !
-
--- a/core/trunk/preLoad.st Wed Apr 09 20:52:51 2008 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,8 +0,0 @@
-"preLoad script for XML Suite"
-
-'Loading prerequities...' infoPrintCR.
-"Smalltalk
- loadPackage:'stx:goodies/xml/vw';
- loadPackage:'stx:goodies/xml/xpath'.
-"
-!
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/core/trunk/stx_goodies_xmlsuite_core.st Thu Apr 10 09:14:47 2008 +0000
@@ -0,0 +1,57 @@
+"{ Package: 'stx:goodies/xmlsuite/core' }"
+
+LibraryDefinition subclass:#stx_goodies_xmlsuite_core
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'* Projects & Packages *'
+!
+
+!stx_goodies_xmlsuite_core class methodsFor:'description'!
+
+preRequisites
+ ^ #(
+ #'stx:libbasic' "ProjectDefinition - superclass of stx_goodies_xmlsuite_core "
+ )
+! !
+
+!stx_goodies_xmlsuite_core class methodsFor:'description - contents'!
+
+classNamesAndAttributes
+ ^ #(
+ "<className> or (<className> attributes...) in load order"
+ #'stx_goodies_xmlsuite_core'
+ )
+!
+
+extensionMethodNames
+ ^ #(
+ )
+! !
+
+!stx_goodies_xmlsuite_core class methodsFor:'description - project information'!
+
+companyName
+ "Return a companyname which will appear in <lib>.rc"
+
+ ^ 'eXept Software AG'
+!
+
+description
+ "Return a description string which will appear in vc.def / bc.def"
+
+ ^ 'Smalltalk/X Class library'
+!
+
+legalCopyright
+ "Return a copyright string which will appear in <lib>.rc"
+
+ ^ 'Copyright Claus Gittinger 1988-2008\nCopyright eXept Software AG 1998-2008'
+!
+
+productName
+ "Return a product name which will appear in <lib>.rc"
+
+ ^ 'Smalltalk/X'
+! !
+