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
Sat, 08 Jan 1994 17:18:44 +0100
changeset 9 be1c17c19ba8
parent 8 8c365abe1ffe
child 10 460b2ab7c51f
*** empty log message ***
EpsonFX1PrinterStream.st file | annotate | diff | comparison | revisions
FX1PrStr.st file | annotate | diff | comparison | revisions
HPIIPrStr.st file | annotate | diff | comparison | revisions
HPLjetIIPrinterStream.st file | annotate | diff | comparison | revisions 
--- a/EpsonFX1PrinterStream.st	Sat Dec 11 01:57:34 1993 +0100
+++ b/EpsonFX1PrinterStream.st	Sat Jan 08 17:18:44 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.5 1993-11-08 02:30:19 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.6 1994-01-08 16:18:25 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
@@ -61,10 +61,6 @@
     super nextPut:(Character value:n)
 !
 
-leftMargin:n
-    leftMargin := n
-!
-
 proportional:aBoolean
     super nextPut:(Character esc).
     super nextPut:$p.
@@ -132,7 +128,7 @@
 
     super nextPutUntranslated:(Character value:13).
     super nextPutUntranslated:(Character value:10).
-    self spaces:leftMargin
+    self spaces:LeftMargin
 !
 
 bold
--- a/FX1PrStr.st	Sat Dec 11 01:57:34 1993 +0100
+++ b/FX1PrStr.st	Sat Jan 08 17:18:44 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.5 1993-11-08 02:30:19 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.6 1994-01-08 16:18:25 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
@@ -61,10 +61,6 @@
     super nextPut:(Character value:n)
 !
 
-leftMargin:n
-    leftMargin := n
-!
-
 proportional:aBoolean
     super nextPut:(Character esc).
     super nextPut:$p.
@@ -132,7 +128,7 @@
 
     super nextPutUntranslated:(Character value:13).
     super nextPutUntranslated:(Character value:10).
-    self spaces:leftMargin
+    self spaces:LeftMargin
 !
 
 bold
--- a/HPIIPrStr.st	Sat Dec 11 01:57:34 1993 +0100
+++ b/HPIIPrStr.st	Sat Jan 08 17:18:44 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
-	      All Rights Reserved
+              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
@@ -18,7 +18,7 @@
 !
 
 HPLjetIIPrinterStream comment:'
-$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.4 1993-10-13 02:12:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.5 1994-01-08 16:18:44 claus Exp $
 '!
 
 !HPLjetIIPrinterStream methodsFor:'access writing'!
@@ -28,7 +28,7 @@
 
     super nextPutUntranslated:(Character value:13).
     super nextPutUntranslated:(Character value:10).
-    self spaces:leftMargin
+    self spaces:LeftMargin
 !
 
 courier
--- a/HPLjetIIPrinterStream.st	Sat Dec 11 01:57:34 1993 +0100
+++ b/HPLjetIIPrinterStream.st	Sat Jan 08 17:18:44 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
-	      All Rights Reserved
+              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
@@ -18,7 +18,7 @@
 !
 
 HPLjetIIPrinterStream comment:'
-$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.4 1993-10-13 02:12:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.5 1994-01-08 16:18:44 claus Exp $
 '!
 
 !HPLjetIIPrinterStream methodsFor:'access writing'!
@@ -28,7 +28,7 @@
 
     super nextPutUntranslated:(Character value:13).
     super nextPutUntranslated:(Character value:10).
-    self spaces:leftMargin
+    self spaces:LeftMargin
 !
 
 courier
hg/stx-libbasic2