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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 01 Jun 1996 00:49:58 +0200
changeset 373 6834d6a61ea9
parent 372 33c9e669f8dd
child 374 a77f804c605e
checkin from browser
PSPrStr.st file | annotate | diff | comparison | revisions
PostscriptPrinterStream.st file | annotate | diff | comparison | revisions
PrinterStream.st file | annotate | diff | comparison | revisions 
--- a/PSPrStr.st	Sat Jun 01 00:32:30 1996 +0200
+++ b/PSPrStr.st	Sat Jun 01 00:49:58 1996 +0200
@@ -373,7 +373,7 @@
 /EndPage{svpg restore showpage}def
 /DoPreFeed{/statusdict where{pop
  statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop}def
-/Landscape{90 rotate 0 -' , PhysicalPageHeight printString "15840", ' translate}def
+/Landscape{90 rotate 0 -' , PageHeight printString "15840", ' translate}def
 /ISOrecode {findfont dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
@@ -436,7 +436,7 @@
     "
 
     "Created: 23.4.1996 / 19:40:44 / cg"
-    "Modified: 31.5.1996 / 23:33:43 / cg"
+    "Modified: 1.6.1996 / 00:46:20 / cg"
 !
 
 initTrailer
@@ -479,29 +479,6 @@
     "Created: 31.5.1996 / 23:35:18 / cg"
 ! !
 
-!PostscriptPrinterStream class methodsFor:'accessing - defaults'!
-
-landscape:aBoolean
-    "set/clear landscape printing"
-
-    super landscape:aBoolean.
-    self reInitPage.
-
-    "Created: 31.5.1996 / 23:34:36 / cg"
-!
-
-pageFormat:aSymbol
-    "set the the default page format to be aSymbol.
-     Valid symbols are #letter, #a4, #a5 etc.
-     The UnitConverter must contain width/height information on
-     that symbol, in order for printing to be correct."
-
-    super pageFormat:aSymbol.
-    self reInitPage.
-
-    "Created: 31.5.1996 / 23:35:00 / cg"
-! !
-
 !PostscriptPrinterStream class methodsFor:'queries'!
 
 printerTypeName
@@ -710,14 +687,10 @@
         ].
         super writingTo:(self class printCommand).
         super nextPutAllUntranslated:Prolog.
-        self class landscape ifTrue:[
-            super nextPutAllUntranslated:'Landscape
-'.
-        ].
         self startPage
     ]
 
-    "Modified: 1.6.1996 / 00:32:08 / cg"
+    "Modified: 1.6.1996 / 00:43:50 / cg"
 ! !
 
 !PostscriptPrinterStream methodsFor:'private'!
@@ -800,6 +773,10 @@
         pageStartAction value
     ].
     super nextPutAllUntranslated:PageProlog.
+    self class landscape ifTrue:[
+        super nextPutAllUntranslated:'Landscape
+'.
+    ].
 
     self setFont.
 
@@ -809,7 +786,7 @@
     lineNr := 1.
     colNr := 0
 
-    "Modified: 23.4.1996 / 20:03:52 / cg"
+    "Modified: 1.6.1996 / 00:44:10 / cg"
 ! !
 
 !PostscriptPrinterStream methodsFor:'queries'!
@@ -867,6 +844,6 @@
 !PostscriptPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.31 1996-05-31 22:32:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.32 1996-05-31 22:49:58 cg Exp $'
 ! !
 PostscriptPrinterStream initialize!
--- a/PostscriptPrinterStream.st	Sat Jun 01 00:32:30 1996 +0200
+++ b/PostscriptPrinterStream.st	Sat Jun 01 00:49:58 1996 +0200
@@ -373,7 +373,7 @@
 /EndPage{svpg restore showpage}def
 /DoPreFeed{/statusdict where{pop
  statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop}def
-/Landscape{90 rotate 0 -' , PhysicalPageHeight printString "15840", ' translate}def
+/Landscape{90 rotate 0 -' , PageHeight printString "15840", ' translate}def
 /ISOrecode {findfont dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
@@ -436,7 +436,7 @@
     "
 
     "Created: 23.4.1996 / 19:40:44 / cg"
-    "Modified: 31.5.1996 / 23:33:43 / cg"
+    "Modified: 1.6.1996 / 00:46:20 / cg"
 !
 
 initTrailer
@@ -479,29 +479,6 @@
     "Created: 31.5.1996 / 23:35:18 / cg"
 ! !
 
-!PostscriptPrinterStream class methodsFor:'accessing - defaults'!
-
-landscape:aBoolean
-    "set/clear landscape printing"
-
-    super landscape:aBoolean.
-    self reInitPage.
-
-    "Created: 31.5.1996 / 23:34:36 / cg"
-!
-
-pageFormat:aSymbol
-    "set the the default page format to be aSymbol.
-     Valid symbols are #letter, #a4, #a5 etc.
-     The UnitConverter must contain width/height information on
-     that symbol, in order for printing to be correct."
-
-    super pageFormat:aSymbol.
-    self reInitPage.
-
-    "Created: 31.5.1996 / 23:35:00 / cg"
-! !
-
 !PostscriptPrinterStream class methodsFor:'queries'!
 
 printerTypeName
@@ -710,14 +687,10 @@
         ].
         super writingTo:(self class printCommand).
         super nextPutAllUntranslated:Prolog.
-        self class landscape ifTrue:[
-            super nextPutAllUntranslated:'Landscape
-'.
-        ].
         self startPage
     ]
 
-    "Modified: 1.6.1996 / 00:32:08 / cg"
+    "Modified: 1.6.1996 / 00:43:50 / cg"
 ! !
 
 !PostscriptPrinterStream methodsFor:'private'!
@@ -800,6 +773,10 @@
         pageStartAction value
     ].
     super nextPutAllUntranslated:PageProlog.
+    self class landscape ifTrue:[
+        super nextPutAllUntranslated:'Landscape
+'.
+    ].
 
     self setFont.
 
@@ -809,7 +786,7 @@
     lineNr := 1.
     colNr := 0
 
-    "Modified: 23.4.1996 / 20:03:52 / cg"
+    "Modified: 1.6.1996 / 00:44:10 / cg"
 ! !
 
 !PostscriptPrinterStream methodsFor:'queries'!
@@ -867,6 +844,6 @@
 !PostscriptPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.31 1996-05-31 22:32:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.32 1996-05-31 22:49:58 cg Exp $'
 ! !
 PostscriptPrinterStream initialize!
--- a/PrinterStream.st	Sat Jun 01 00:32:30 1996 +0200
+++ b/PrinterStream.st	Sat Jun 01 00:49:58 1996 +0200
@@ -19,6 +19,20 @@
 
 PrinterStream class instanceVariableNames:'PrintCommand DefaultCommands PageFormat LeftMargin DefaultPageFormats
 	Landscape'
+
+"
+ The following class instance variables are inherited by this class:
+
+	PipeStream - 
+	NonPositionableExternalStream - 
+	ExternalStream - 
+	ReadWriteStream - 
+	WriteStream - 
+	PositionableStream - 
+	PeekableStream - 
+	Stream - 
+	Object - 
+"
 !
 
 !PrinterStream class methodsFor:'documentation'!
@@ -138,6 +152,12 @@
     "
 
     "Modified: 1.6.1996 / 00:20:15 / cg"
+!
+
+reInitPage
+    "nothing done here"
+
+    "Created: 1.6.1996 / 00:49:40 / cg"
 ! !
 
 !PrinterStream class methodsFor:'instance creation'!
@@ -252,7 +272,10 @@
 landscape:aBoolean
     "set/clear landscape printing"
 
-    Landscape := aBoolean
+    Landscape := aBoolean.
+    self reInitPage.
+
+    "Modified: 1.6.1996 / 00:49:22 / cg"
 !
 
 leftMargin
@@ -295,12 +318,14 @@
      that symbol, in order for printing to be correct.
 
      This list can be set from the startup script with:
-	PrinterStream defaultPageFormat:#...
+        PrinterStream defaultPageFormat:#...
      or via the launchers settings menu."
 
-    PageFormat := aSymbol
+    PageFormat := aSymbol.
+    self reInitPage.
 
     "Created: 23.4.1996 / 18:25:18 / cg"
+    "Modified: 1.6.1996 / 00:49:06 / cg"
 !
 
 printCommand
@@ -608,6 +633,6 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.29 1996-05-31 22:28:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.30 1996-05-31 22:49:47 cg Exp $'
 ! !
 PrinterStream initialize!
hg/stx-libbasic2