Index: Makefile.in
===================================================================
diff -u -r444d4e11acbb7c83427d35d1f69833d0ec8da8fe -rf71f786b01f7ad3d6749bc43c14c5f5d39658480
--- Makefile.in	(.../Makefile.in)	(revision 444d4e11acbb7c83427d35d1f69833d0ec8da8fe)
+++ Makefile.in	(.../Makefile.in)	(revision f71f786b01f7ad3d6749bc43c14c5f5d39658480)
@@ -225,6 +225,7 @@
 
 EXAMPLE_SCRIPTS = \
 	$(src_doc_dir)/example-scripts/bagel.html \
+	$(src_doc_dir)/example-scripts/rosetta-abstract-type.html \
 	$(src_doc_dir)/example-scripts/rosetta-classes.html \
 	$(src_doc_dir)/example-scripts/rosetta-constraint-genericity.html \
 	$(src_doc_dir)/example-scripts/rosetta-delegates.html \
@@ -435,7 +436,7 @@
 	$(TCLSH) $(src_test_dir_native)/contains.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_test_dir_native)/tcloo.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/bagel.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
-	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-singleton.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
+	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-abstract-type.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-classes.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-constraint-genericity.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-delegates.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
@@ -444,6 +445,8 @@
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-polymorphism.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-serialization.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-singleton.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
+	$(TCLSH) $(src_doc_dir_native)/example-scripts/rosetta-singleton.tcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
+
 test-xotcl: $(TCLSH_PROG)
 	$(TCLSH) $(xotcl_src_test_dir)/testo.xotcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(xotcl_src_test_dir)/speedtest.xotcl -libdir $(PLATFORM_DIR) $(TESTFLAGS)
Index: TODO
===================================================================
diff -u -r5693145107c55b5f64bf0fb487aa43e0f2238f1a -rf71f786b01f7ad3d6749bc43c14c5f5d39658480
--- TODO	(.../TODO)	(revision 5693145107c55b5f64bf0fb487aa43e0f2238f1a)
+++ TODO	(.../TODO)	(revision f71f786b01f7ad3d6749bc43c14c5f5d39658480)
@@ -3306,6 +3306,7 @@
    * Added 8 of the rosetta examples and one classical OTcl example
    * all examples are tested via regression test
    * all examples are pretty-printed via asciidoc
+   * added example rosetta-abstract-type.tcl
 
 
 TODO:
Index: doc/example-scripts/rosetta-polymorphism.html
===================================================================
diff -u -r5693145107c55b5f64bf0fb487aa43e0f2238f1a -rf71f786b01f7ad3d6749bc43c14c5f5d39658480
--- doc/example-scripts/rosetta-polymorphism.html	(.../rosetta-polymorphism.html)	(revision 5693145107c55b5f64bf0fb487aa43e0f2238f1a)
+++ doc/example-scripts/rosetta-polymorphism.html	(.../rosetta-polymorphism.html)	(revision f71f786b01f7ad3d6749bc43c14c5f5d39658480)
@@ -752,7 +752,7 @@
 }</pre></div></div>
 <div class="sect2">
 <h3 id="_demonstrating_the_behavior_in_a_shell">Demonstrating the behavior in a shell:</h3>
-<div class="paragraph"><p>Create a point:</p></div>
+<div class="paragraph"><p>Create a point and get the print string:</p></div>
 <div class="listingblock">
 <div class="content"><style type='text/css'>
 .nx             {color: #000000; font-weight: normal; font-style: normal; padding-left: 10px}
@@ -766,8 +766,20 @@
 </style>
 <pre class='nx'>% <span class='nx-keyword'>set</span> p [Point <span class='nx-keyword'>new</span> -x 1.0 -y 2.0]
 % <span class='nx-variable'>$p</span> print
-Point(1.0,2.0)
-% <span class='nx-variable'>$p</span> x
+Point(1.0,2.0)</pre></div></div>
+<div class="paragraph"><p>Get the x coordinate of this point:</p></div>
+<div class="listingblock">
+<div class="content"><style type='text/css'>
+.nx             {color: #000000; font-weight: normal; font-style: normal; padding-left: 10px}
+table.nx        {border-collapse: collapse; border-spacing: 3px;}
+.nx-linenr      {border-right: 1px solid #DDDDDD;padding-right: 5px; color: #2B547D;font-style: italic;}
+.nx-string      {color: #779977; font-weight: normal; font-style: italic;}
+.nx-comment     {color: #717ab3; font-weight: normal; font-style: italic;}
+.nx-keyword     {color: #7f0055; font-weight: normal; font-style: normal;}
+.nx-placeholder {color: #AF663F; font-weight: normal; font-style: italic;}
+.nx-variable    {color: #AF663F; font-weight: normal; font-style: normal;}
+</style>
+<pre class='nx'>% <span class='nx-variable'>$p</span> x
 1.0</pre></div></div>
 <div class="paragraph"><p>Create a circle:</p></div>
 <div class="listingblock">
@@ -833,7 +845,7 @@
 <div id="footnotes"><hr /></div>
 <div id="footer">
 <div id="footer-text">
-Last updated 2011-08-15 19:39:39 CEST
+Last updated 2011-08-16 10:49:16 CEST
 </div>
 </div>
 </body>
Index: doc/example-scripts/rosetta-polymorphism.tcl
===================================================================
diff -u -r5693145107c55b5f64bf0fb487aa43e0f2238f1a -rf71f786b01f7ad3d6749bc43c14c5f5d39658480
--- doc/example-scripts/rosetta-polymorphism.tcl	(.../rosetta-polymorphism.tcl)	(revision 5693145107c55b5f64bf0fb487aa43e0f2238f1a)
+++ doc/example-scripts/rosetta-polymorphism.tcl	(.../rosetta-polymorphism.tcl)	(revision f71f786b01f7ad3d6749bc43c14c5f5d39658480)
@@ -26,9 +26,11 @@
 
 # === Demonstrating the behavior in a shell: 
 
-# Create a point:
+# Create a point and get the print string:
 ? {set p [Point new -x 1.0 -y 2.0]} "::nsf::__#0"
 ? {$p print} "Point(1.0,2.0)"
+
+# Get the x coordinate of this point:
 ? {$p x} "1.0"
 
 # Create a circle: