#
# $Id: comment.icn,v 1.1 2003/08/04 17:35:05 jeffery Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package xml

#
#  This class represents a comment.
#
class Comment : Node(comment)
   #
   # Get the comment body.
   #
   method get_comment()
      return comment
   end

   #
   # Set the comment body
   #
   method set_comment(comment)
      self.comment := comment
   end

   #
   # Returns "comment"
   #
   method get_type()
      return "comment"
   end

   #
   # Get a string representation of this object.
   #
   method to_string()
      return "Comment[" || image(comment) || "]"
   end

   initially()
      self.Node.initially()
      comment := ""
end