--- messaging/manakai/lib/Message/Markup/Atom.dis	2006/08/17 12:12:02	1.10
+++ 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/17 12:12:02 $
+    $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:
@@ -88,22 +91,16 @@
     http://www.w3.org/1999/xhtml
   @idl:
     http://suika.fam.cx/~wakaba/archive/2004/dis/IDL#
-  @infoset:
-    http://www.w3.org/2001/04/infoset#
   @kwd:
     http://suika.fam.cx/~wakaba/archive/2005/rfc2119/
   @lang:
     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:
@@ -575,8 +572,6 @@
 
 ModuleSetDef:
   @QName: Atom
-  @mv:id: atom
-  @mv:vid: 10
   @enLN: Atom
   @mv:version: 1.0
   @mv:contains: AtomDatatypes
@@ -585,9 +580,9 @@
   @mv:contains: AtomFeed
   @mv:contains: AtomQName
 
-  @infoset:namespaceName: 
-    http://www.w3.org/2005/Atom
-  @infoset:prefix: atom
+  @mv:targetNamespace: atom|
+  @mv:defaultNamespacePrefix: atom
+  @mv:systemIdentifierBaseURI: \
 
 ModuleDef:
   @QName: AtomFeed
@@ -667,6 +662,21 @@
   @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
@@ -1614,6 +1624,8 @@
   @QName: atomCommonAttributes
   @enFN: common attributes
   @mv:attributeTypeGroupName: common
+
+  @mv:refers: Atom
   
   @ATDef:
     @@mv:attributeTypeName: xml|base
@@ -2799,6 +2811,8 @@
                                 (<Q::atom|>, 'updated');
           $updatede-><AS::AtomDateConstruct.value> (scalar time);
           $r-><M::Node.appendChild> ($updatede);
+
+          $self-><M::Node.appendChild> ($r);
         }__;
 
     @@Test:
@@ -2865,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:
@@ -3472,6 +3489,8 @@
 
   # no common attribs
   @cm: TextCM
+
+  @mv:refers: Atom
 ##AtomNameElement
 
 IFClsETDef:
@@ -3485,6 +3504,8 @@
 
   # no common attribs
   @cm: atomUriCM
+
+  @mv:refers: Atom
 ##AtomUriElement
 
 IFClsETDef:
@@ -3498,6 +3519,8 @@
 
   # no common attribs
   @cm: atomEmailAddressCM
+
+  @mv:refers: Atom
 ##AtomEmailElement
 
 IFClsETDef:
@@ -3532,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.
@@ -3597,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.