--- a/TabulatorSpecification.st	Tue Jun 04 22:22:04 1996 +0200
+++ b/TabulatorSpecification.st	Tue Jun 04 22:33:56 1996 +0200
@@ -48,7 +48,7 @@
         Claus Gittinger
 
     [see also:]
-        Ruler
+        Ruler TabSpecRuler
         ListView
 "
 !
@@ -197,6 +197,61 @@
 
         listView open
                                                                         [exEnd]
+
+  same as first example, but adding a TabSpecRuler to show where
+  the tabs are:
+                                                                        [exBegin]
+        |top ruler listView tabSpec entry|
+
+        top := StandardSystemView extent:300@300.
+
+        ruler := TabSpecRuler origin:0.0@0.0 corner:1.0@20 in:top.
+        ruler level:0.
+        listView := ListView in:top.
+        listView origin:0.0@0.0 corner:1.0@1.0.
+        listView topInset:20.
+
+        tabSpec := TabulatorSpecification new.
+        tabSpec unit:#inch.
+        tabSpec positions:#(0     1     2.5    3.5    4       5        ).
+        tabSpec align:    #(#left #left #right #right #center #decimal ).
+
+        ruler tabulatorSpecification:tabSpec.
+
+        entry := MultiColListEntry new.
+        entry tabulatorSpecification:tabSpec.
+        entry colAt:1 put:'left';
+              colAt:2 put:'left';
+              colAt:3 put:'right';
+              colAt:4 put:'right';
+              colAt:5 put:'center';
+              colAt:6 put:'.decimal'.
+
+        listView at:1 put:entry.
+
+        entry := MultiColListEntry new.
+        entry tabulatorSpecification:tabSpec.
+        entry colAt:1 put:'col1';
+              colAt:2 put:'col2';
+              colAt:3 put:'col3';
+              colAt:4 put:'col4';
+              colAt:5 put:'col5';
+              colAt:6 put:'col6.decimal'.
+
+        listView at:2 put:entry.
+
+        entry := MultiColListEntry new.
+        entry tabulatorSpecification:tabSpec.
+        entry colAt:1 put:'foo';
+              colAt:2 put:'fooBar';
+              colAt:3 put:'bar';
+              colAt:4 put:'barFoo';
+              colAt:5 put:'baz';
+              colAt:6 put:'1234.56'.
+
+        listView at:3 put:entry.
+        top open
+                                                                        [exEnd]
 "
 ! !
 
@@ -400,5 +455,5 @@
 !TabulatorSpecification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.12 1996-05-28 18:30:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.13 1996-06-04 20:33:56 cg Exp $'
 ! !