--- messaging/manakai/lib/Message/Markup/Atom.dis	2006/08/16 10:30:03	1.9
+++ messaging/manakai/lib/Message/Markup/Atom.dis	2006/09/10 11:19:24	1.13
@@ -43,7 +43,7 @@
   @DISCore:author: DISCore|Wakaba
   @License: license|Perl+MPL
   @Date:
-    $Date: 2006/08/16 10:30:03 $
+    $Date: 2006/09/10 11:19:24 $
 
   @Require:
     @@Module:
@@ -55,6 +55,9 @@
       @@@WithFor: ManakaiDOM|ManakaiDOM
     @@Module:
       @@@WithFor: ManakaiDOM|ManakaiDOMLatest
+    @@Module:
+      @@@QName: DISlib|DISMarkup
+      @@@WithFor: ManakaiDOM|all
   @DefaultFor: ManakaiDOM|ManakaiDOMLatest
 
 Namespace:
@@ -64,12 +67,12 @@
     http://suika.fam.cx/~wakaba/archive/2004/8/18/dom-core#
   @cfg:
     http://suika.fam.cx/www/2006/dom-config/
+  @DISlib:
+    http://suika.fam.cx/~wakaba/archive/2004/dis/
   @dis:
     http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#dis--
   @dlp:
     http://suika.fam.cx/~wakaba/archive/2004/dis/Perl#
-  @doc:
-    http://suika.fam.cx/~wakaba/archive/2005/7/tutorial#
   @d:
     http://suika.fam.cx/~wakaba/archive/2004/dom/xdt#
   @DOMMain:
@@ -94,14 +97,10 @@
     http://suika.fam.cx/~wakaba/archive/2004/8/18/lang#
   @license:
     http://suika.fam.cx/~wakaba/archive/2004/8/18/license#
-  @m12n: 
-    http://suika.fam.cx/www/2006/05/m12n/
   @ManakaiDOM:
     http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#
   @Markup:
     http://suika.fam.cx/~wakaba/archive/2005/manakai/Markup#
-  @mat:
-    http://suika.fam.cx/~wakaba/archive/2005/manakai/Markup/Atom/
   @MDOM:
     http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.
   @MDOMX:
@@ -573,14 +572,17 @@
 
 ModuleSetDef:
   @QName: Atom
-  @mv:id: atom
-  @mv:vid: 10
   @enLN: Atom
   @mv:version: 1.0
   @mv:contains: AtomDatatypes
   @mv:contains: AtomProperties
   @mv:contains: AtomEntry
   @mv:contains: AtomFeed
+  @mv:contains: AtomQName
+
+  @mv:targetNamespace: atom|
+  @mv:defaultNamespacePrefix: atom
+  @mv:systemIdentifierBaseURI: \
 
 ModuleDef:
   @QName: AtomFeed
@@ -651,6 +653,30 @@
 
   @mv:contains: DateAG
   @mv:contains: DateCM
+
+ResourceDef:
+  @QName: AtomQName
+  @enLN: Qualified Names
+  @mv:id: qname
+  @For: =ManakaiDOM|ManakaiDOMLatest
+  @DISCore:resourceType: mv|XMLDTDQNameModule
+
+  @mv:contains: Atom
+
+ResourceDef:
+  @QName: Atom10
+  @enLN: Atom 1.0
+  @mv:id: atom10
+  @For: =ManakaiDOM|ManakaiDOMLatest
+  @DISCore:resourceType: mv|XMLDTDDriver
+
+  @mv:refers: Atom
+
+  @mv:refers: AtomQName
+  @mv:refers: AtomDatatypes
+  @mv:refers: AtomProperties
+  @mv:refers: AtomEntry
+  @mv:refers: AtomFeed
  
 ElementTypeBinding:
   @Name: ModuleSetDef
@@ -1598,6 +1624,8 @@
   @QName: atomCommonAttributes
   @enFN: common attributes
   @mv:attributeTypeGroupName: common
+
+  @mv:refers: Atom
   
   @ATDef:
     @@mv:attributeTypeName: xml|base
@@ -1771,6 +1799,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     dxm|ANY||ManakaiDOM|all
   @enImplNote:
@@ -1910,6 +1940,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     (person-prop+)
 
@@ -2064,6 +2096,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     (dxm|PCDATA||ManakaiDOM|all)*
   @enImplNote:
@@ -2169,6 +2203,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     (feed-prop+, atom|entry*)
 
@@ -2775,6 +2811,8 @@
                                 (<Q::atom|>, 'updated');
           $updatede-><AS::AtomDateConstruct.value> (scalar time);
           $r-><M::Node.appendChild> ($updatede);
+
+          $self-><M::Node.appendChild> ($r);
         }__;
 
     @@Test:
@@ -2841,6 +2879,9 @@
         $test->assert_num_not_equals
                  (actual_value => $updated-><AG::AtomDateConstruct.value>,
                   expected_value => 0);
+
+        $test->id ('parent');
+        $test->assert_equals ($ent-><AG::Node.parentNode>, $feed);
     @@Test:
       @@@QName: AtomFeedElement.addNewEntry.2.test
       @@@enDesc:
@@ -2885,6 +2926,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     (entry-prop+)
 
@@ -3415,6 +3458,8 @@
 
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
+
+  @mv:refers: atomCommonAttributes
   
   @cm: atomUriCM
 ##AtomIdElement
@@ -3428,6 +3473,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm: atomUriCM
 ##AtomIconElement
 
@@ -3440,7 +3487,10 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  # no common attribs
   @cm: TextCM
+
+  @mv:refers: Atom
 ##AtomNameElement
 
 IFClsETDef:
@@ -3452,7 +3502,10 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  # no common attribs
   @cm: atomUriCM
+
+  @mv:refers: Atom
 ##AtomUriElement
 
 IFClsETDef:
@@ -3464,7 +3517,10 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  # no common attribs
   @cm: atomEmailAddressCM
+
+  @mv:refers: Atom
 ##AtomEmailElement
 
 IFClsETDef:
@@ -3476,6 +3532,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm: atomUriCM
 ##AtomLogoElement
 
@@ -3488,6 +3546,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     dxm|ANY||ManakaiDOM|all
 
@@ -3495,7 +3555,7 @@
     The <XE::atom|content> element either contains or links to
     the content of the entry.
 
-  @Attr:
+  @ATTR:
     @@Name: type
     @@enDesc:
       The type of the element.
@@ -3560,7 +3620,7 @@
         $el-><AS::AtomContentElement.type> (null);
         $test->assert_null ($el-><AG::AtomContentElement.type>);
 
-  @Attr:
+  @ATTR:
     @@Name: src
     @@enDesc:
       The source of the remote content of the element.
@@ -3756,6 +3816,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm: undefinedContent
 
   @enDesc:
@@ -3889,6 +3951,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     (dxm|PCDATA||ManakaiDOM|all)*
 
@@ -3973,6 +4037,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm: undefinedContent
 
   @enDesc:
@@ -4293,6 +4359,8 @@
   @IFISA: AtomElement
   @ClsISA: ManakaiAtomElement
 
+  @mv:refers: atomCommonAttributes
+
   @cm:
     (source-prop*)