Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Wed, 30 Aug 1995 20:00:39 +0200
changeset 70 4c579a1b3afc
parent 69 b8679eff8b38
child 71 9f9243f5813b
.
MCLEntry.st file | annotate | diff | comparison | revisions
MultiColListEntry.st file | annotate | diff | comparison | revisions
TabSpec.st file | annotate | diff | comparison | revisions
TabulatorSpecification.st file | annotate | diff | comparison | revisions 
--- a/MCLEntry.st	Wed Aug 30 01:45:59 1995 +0200
+++ b/MCLEntry.st	Wed Aug 30 20:00:39 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/Attic/MCLEntry.st,v 1.6 1995-06-06 04:17:32 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/Attic/MCLEntry.st,v 1.7 1995-08-30 18:00:28 claus Exp $
 "
 !
 
@@ -266,6 +266,24 @@
 
 !MultiColListEntry class methodsFor:'instance creation'!
 
+new:numberOfColumns
+    |e|
+
+    e := self new.
+    1 to:numberOfColumns do:[:i |
+	e colAt:i put:''.
+    ].
+    ^ e
+
+    "Modified: 30.8.1995 / 16:33:53 / claus"
+!
+
+new:numberOfColumns tabulatorSpecification:aTabSpec
+    ^ (self new:numberOfColumns) tabulatorSpecification:aTabSpec
+
+    "Modified: 30.8.1995 / 16:34:23 / claus"
+!
+
 fromString:aString
     ^ self fromString:aString separatedBy:Character space
 !
--- a/MultiColListEntry.st	Wed Aug 30 01:45:59 1995 +0200
+++ b/MultiColListEntry.st	Wed Aug 30 20:00:39 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.6 1995-06-06 04:17:32 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.7 1995-08-30 18:00:28 claus Exp $
 "
 !
 
@@ -266,6 +266,24 @@
 
 !MultiColListEntry class methodsFor:'instance creation'!
 
+new:numberOfColumns
+    |e|
+
+    e := self new.
+    1 to:numberOfColumns do:[:i |
+	e colAt:i put:''.
+    ].
+    ^ e
+
+    "Modified: 30.8.1995 / 16:33:53 / claus"
+!
+
+new:numberOfColumns tabulatorSpecification:aTabSpec
+    ^ (self new:numberOfColumns) tabulatorSpecification:aTabSpec
+
+    "Modified: 30.8.1995 / 16:34:23 / claus"
+!
+
 fromString:aString
     ^ self fromString:aString separatedBy:Character space
 !
--- a/TabSpec.st	Wed Aug 30 01:45:59 1995 +0200
+++ b/TabSpec.st	Wed Aug 30 20:00:39 1995 +0200
@@ -35,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.4 1995-02-17 13:24:06 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.5 1995-08-30 18:00:39 claus Exp $
 "
 !
 
@@ -194,6 +194,18 @@
 "
 ! !
 
+!TabulatorSpecification class methodsFor:'instance creation'!
+
+unit:unit positions:positions
+    ^ (self new) unit:unit; positions:positions
+
+    "
+     TabulatorSpecification unit:#inch positions:#(0 3)
+    "
+
+    "Modified: 30.8.1995 / 16:37:50 / claus"
+! !
+
 !TabulatorSpecification methodsFor:'queries'!
 
 pixelsPerUnitOn:aGC
--- a/TabulatorSpecification.st	Wed Aug 30 01:45:59 1995 +0200
+++ b/TabulatorSpecification.st	Wed Aug 30 20:00:39 1995 +0200
@@ -35,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.4 1995-02-17 13:24:06 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.5 1995-08-30 18:00:39 claus Exp $
 "
 !
 
@@ -194,6 +194,18 @@
 "
 ! !
 
+!TabulatorSpecification class methodsFor:'instance creation'!
+
+unit:unit positions:positions
+    ^ (self new) unit:unit; positions:positions
+
+    "
+     TabulatorSpecification unit:#inch positions:#(0 3)
+    "
+
+    "Modified: 30.8.1995 / 16:37:50 / claus"
+! !
+
 !TabulatorSpecification methodsFor:'queries'!
 
 pixelsPerUnitOn:aGC
hg/stx-libwidg2