--- a/TabSpec.st Tue Jun 04 22:22:04 1996 +0200
+++ b/TabSpec.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/Attic/TabSpec.st,v 1.12 1996-05-28 18:30:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.13 1996-06-04 20:33:56 cg Exp $'
! !
--- 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 $'
! !