Mercurial Mercurial > hg > stx-libbasic2 / 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.
*** empty log message ***
authorclaus
Wed, 13 Oct 1993 01:17:11 +0100
changeset 2 07d9ee98e092
parent 1 85d662a8509f
child 3 c9936b5a86a1
*** empty log message ***
CacheDict.st file | annotate | diff | comparison | revisions
CacheDictionary.st file | annotate | diff | comparison | revisions
EpsonFX1PrinterStream.st file | annotate | diff | comparison | revisions
ExtBytes.st file | annotate | diff | comparison | revisions
FX1PrStr.st file | annotate | diff | comparison | revisions
FileText.st file | annotate | diff | comparison | revisions
HPIIPrStr.st file | annotate | diff | comparison | revisions
HPLjetIIPrinterStream.st file | annotate | diff | comparison | revisions
MappedColl.st file | annotate | diff | comparison | revisions
MappedCollection.st file | annotate | diff | comparison | revisions
PSPrStr.st file | annotate | diff | comparison | revisions
Polygon.st file | annotate | diff | comparison | revisions
PostscriptPrinterStream.st file | annotate | diff | comparison | revisions
PrinterStream.st file | annotate | diff | comparison | revisions
Random.st file | annotate | diff | comparison | revisions 
--- a/CacheDict.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/CacheDict.st	Wed Oct 13 01:17:11 1993 +0100
@@ -1,4 +1,14 @@
-'From Smalltalk/X, Version:2.4.7 on 12-Jan-1993 at 21:32:36'!
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
 
 Dictionary subclass:#CacheDictionary
          instanceVariableNames:''
@@ -15,7 +25,7 @@
 a CacheDictionary is a Dictionary which will not grow - i.e. keep
 only a limited number of elements.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.3 1993-10-13 00:15:06 claus Exp $
 
 written jan 93 by claus
 '!
--- a/CacheDictionary.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/CacheDictionary.st	Wed Oct 13 01:17:11 1993 +0100
@@ -1,4 +1,14 @@
-'From Smalltalk/X, Version:2.4.7 on 12-Jan-1993 at 21:32:36'!
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
 
 Dictionary subclass:#CacheDictionary
          instanceVariableNames:''
@@ -15,7 +25,7 @@
 a CacheDictionary is a Dictionary which will not grow - i.e. keep
 only a limited number of elements.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.3 1993-10-13 00:15:06 claus Exp $
 
 written jan 93 by claus
 '!
--- a/EpsonFX1PrinterStream.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/EpsonFX1PrinterStream.st	Wed Oct 13 01:17:11 1993 +0100
@@ -1,5 +1,5 @@
 "
- COPYRIGHT (c) 1988-93 by Claus Gittinger
+ COPYRIGHT (c) 1991-93 by Claus Gittinger
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -18,7 +18,11 @@
 !
 
 EpsonFX1PrinterStream comment:'
-%W% %E%
+
+COPYRIGHT (c) 1991-93 by Claus Gittinger
+              All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.3 1993-10-13 00:15:50 claus Exp $
 
  cannot tell, if this is really an Epson -
  all I have is a Citizen 120D to test - the doc says its an FX1
--- a/ExtBytes.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/ExtBytes.st	Wed Oct 13 01:17:11 1993 +0100
@@ -28,7 +28,7 @@
 Also notice, that this class is not available on other smalltalk systems,
 making code using it very unportable.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/ExtBytes.st,v 1.3 1993-10-13 00:15:44 claus Exp $
 
 written jan 93 by claus
 '!
--- a/FX1PrStr.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/FX1PrStr.st	Wed Oct 13 01:17:11 1993 +0100
@@ -1,5 +1,5 @@
 "
- COPYRIGHT (c) 1988-93 by Claus Gittinger
+ COPYRIGHT (c) 1991-93 by Claus Gittinger
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -18,7 +18,11 @@
 !
 
 EpsonFX1PrinterStream comment:'
-%W% %E%
+
+COPYRIGHT (c) 1991-93 by Claus Gittinger
+              All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.3 1993-10-13 00:15:50 claus Exp $
 
  cannot tell, if this is really an Epson -
  all I have is a Citizen 120D to test - the doc says its an FX1
--- a/FileText.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/FileText.st	Wed Oct 13 01:17:11 1993 +0100
@@ -29,7 +29,7 @@
 Individual textlines may be replaced by strings.
 the underlying file is NOT updated in this case
 
-@(#)FileText.st	2.3 92/06/06
+$Header: /cvs/stx/stx/libbasic2/FileText.st,v 1.3 1993-10-13 00:15:58 claus Exp $
 '!
 
 !FileText class methodsFor:'instance creation'!
--- a/HPIIPrStr.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/HPIIPrStr.st	Wed Oct 13 01:17:11 1993 +0100
@@ -18,7 +18,7 @@
 !
 
 HPLjetIIPrinterStream comment:'
-@(#)HPIIPrStr.st	1.2 92/08/23
+$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.3 1993-10-13 00:16:08 claus Exp $
 '!
 
 !HPLjetIIPrinterStream methodsFor:'access writing'!
--- a/HPLjetIIPrinterStream.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/HPLjetIIPrinterStream.st	Wed Oct 13 01:17:11 1993 +0100
@@ -18,7 +18,7 @@
 !
 
 HPLjetIIPrinterStream comment:'
-@(#)HPIIPrStr.st	1.2 92/08/23
+$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.3 1993-10-13 00:16:08 claus Exp $
 '!
 
 !HPLjetIIPrinterStream methodsFor:'access writing'!
--- a/MappedColl.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/MappedColl.st	Wed Oct 13 01:17:11 1993 +0100
@@ -28,8 +28,7 @@
 real association.  In order to work properly, the domain and map objects must
 be instances of a subclass of SequenceableCollection or Dictionary. 
 
-
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/MappedColl.st,v 1.2 1993-10-13 00:16:27 claus Exp $
 '!
 
 !MappedCollection class methodsFor:'instance creation'!
--- a/MappedCollection.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/MappedCollection.st	Wed Oct 13 01:17:11 1993 +0100
@@ -28,8 +28,7 @@
 real association.  In order to work properly, the domain and map objects must
 be instances of a subclass of SequenceableCollection or Dictionary. 
 
-
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.2 1993-10-13 00:16:27 claus Exp $
 '!
 
 !MappedCollection class methodsFor:'instance creation'!
--- a/PSPrStr.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/PSPrStr.st	Wed Oct 13 01:17:11 1993 +0100
@@ -1,5 +1,5 @@
 "
- COPYRIGHT (c) 1988-92 by Claus Gittinger
+ COPYRIGHT (c) 1988-93 by Claus Gittinger
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -24,14 +24,14 @@
 
 PostscriptPrinterStream comment:'
 
-COPYRIGHT (c) 1988-92 by Claus Gittinger
+COPYRIGHT (c) 1988-93 by Claus Gittinger
              All Rights Reserved
 
 This class provides output to postscript printers;
 to use it, evaluate Smalltalk at:#Printer put:PostscriptPrinterStream
 (usually in -rc file).
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.3 1993-10-13 00:16:54 claus Exp $
 '!
 
 !PostscriptPrinterStream class methodsFor:'initialization'!
--- a/Polygon.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/Polygon.st	Wed Oct 13 01:17:11 1993 +0100
@@ -20,7 +20,7 @@
 Polygon comment:'
  Polygon - an array of points
 
-@(#)Polygon.st	1.1 92/06/06
+$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.3 1993-10-13 00:16:58 claus Exp $
 '!
 
 !Polygon methodsFor: 'accessing'!
--- a/PostscriptPrinterStream.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/PostscriptPrinterStream.st	Wed Oct 13 01:17:11 1993 +0100
@@ -1,5 +1,5 @@
 "
- COPYRIGHT (c) 1988-92 by Claus Gittinger
+ COPYRIGHT (c) 1988-93 by Claus Gittinger
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -24,14 +24,14 @@
 
 PostscriptPrinterStream comment:'
 
-COPYRIGHT (c) 1988-92 by Claus Gittinger
+COPYRIGHT (c) 1988-93 by Claus Gittinger
              All Rights Reserved
 
 This class provides output to postscript printers;
 to use it, evaluate Smalltalk at:#Printer put:PostscriptPrinterStream
 (usually in -rc file).
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.3 1993-10-13 00:16:54 claus Exp $
 '!
 
 !PostscriptPrinterStream class methodsFor:'initialization'!
--- a/PrinterStream.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/PrinterStream.st	Wed Oct 13 01:17:11 1993 +0100
@@ -25,7 +25,7 @@
 a stream for printing; this (abstract) class can handle only
 very dumb printers
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.3 1993-10-13 00:17:02 claus Exp $
 '!
 
 !PrinterStream class methodsFor:'initialization'!
@@ -43,7 +43,9 @@
     leftMargin isNil ifTrue:[
         leftMargin := 0
     ]
-!
+! !
+
+!PrinterStream class methodsFor:'accessing'!
 
 leftMargin:aNumber
     "set the number of blanks for the left margin"
@@ -55,6 +57,12 @@
     "set the command for printing (usually lp or lpr)"
 
     printCommand := aString
+! 
+
+printCommand
+    "return the command for printing (usually lp or lpr)"
+
+    ^ printCommand
 ! !
 
 !PrinterStream class methodsFor:'instance creation'!
--- a/Random.st	Mon Oct 04 11:32:27 1993 +0100
+++ b/Random.st	Wed Oct 13 01:17:11 1993 +0100
@@ -45,7 +45,7 @@
 
 random numbers - thanks to Steves GNU Smalltalk
 
-@(#)Random.st   2.3 92/06/06
+$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.3 1993-10-13 00:17:11 claus Exp $
 '!
 
 !Random class methodsFor: 'instance creation'!
hg/stx-libbasic2