PostscriptPrinterStream.st
changeset 380 fa5adc326473
parent 378 91abcf70e0c3
child 382 113b013200d3
equal deleted inserted replaced
379:ae282a246159 380:fa5adc326473
   658 !PostscriptPrinterStream methodsFor:'emphasis change'!
   658 !PostscriptPrinterStream methodsFor:'emphasis change'!
   659 
   659 
   660 bold
   660 bold
   661     "further printing is in bold"
   661     "further printing is in bold"
   662 
   662 
   663     self flushLine.
   663     fStyle ~~ Bold ifTrue:[
   664     fStyle := Bold.
   664         self flushLine.
   665     self setFont
   665         fStyle := Bold.
   666 
   666         self setFont
   667     "Modified: 10.4.1996 / 13:34:37 / cg"
   667     ]
       
   668 
       
   669     "Modified: 3.6.1996 / 15:31:29 / cg"
   668 !
   670 !
   669 
   671 
   670 boldItalic
   672 boldItalic
   671     "further printing is in boldItalic"
   673     "further printing is in boldItalic"
   672 
   674 
   673     self flushLine.
   675     fStyle ~~ BoldItalic ifTrue:[
   674     fStyle := BoldItalic.
   676         self flushLine.
   675     self setFont
   677         fStyle := BoldItalic.
       
   678         self setFont
       
   679     ]
   676 
   680 
   677     "Created: 18.5.1996 / 09:36:36 / cg"
   681     "Created: 18.5.1996 / 09:36:36 / cg"
   678     "Modified: 18.5.1996 / 09:43:10 / cg"
   682     "Modified: 3.6.1996 / 15:31:37 / cg"
   679 !
   683 !
   680 
   684 
   681 italic
   685 italic
   682     "further printing is in italic"
   686     "further printing is in italic"
   683 
   687 
   684     self flushLine.
   688     fStyle ~~ Italic ifTrue:[
   685     fStyle := Italic.
   689         self flushLine.
   686     self setFont
   690         fStyle := Italic.
   687 
   691         self setFont
   688     "Modified: 10.4.1996 / 13:35:16 / cg"
   692     ]
       
   693 
       
   694     "Modified: 3.6.1996 / 15:31:46 / cg"
   689 !
   695 !
   690 
   696 
   691 normal
   697 normal
   692     "further printing is in normal style (i.e. non-bold/non-italic)"
   698     "further printing is in normal style (i.e. non-bold/non-italic)"
   693 
   699 
   694     self flushLine.
   700     fStyle ~~ Normal ifTrue:[
   695     fStyle := Normal.
   701         self flushLine.
   696     self setFont
   702         fStyle := Normal.
   697 
   703         self setFont
   698     "Modified: 10.4.1996 / 13:35:57 / cg"
   704     ].
       
   705 
       
   706     "Modified: 3.6.1996 / 15:31:19 / cg"
   699 ! !
   707 ! !
   700 
   708 
   701 !PostscriptPrinterStream methodsFor:'font change'!
   709 !PostscriptPrinterStream methodsFor:'font change'!
   702 
   710 
   703 courier
   711 courier
   923 ! !
   931 ! !
   924 
   932 
   925 !PostscriptPrinterStream class methodsFor:'documentation'!
   933 !PostscriptPrinterStream class methodsFor:'documentation'!
   926 
   934 
   927 version
   935 version
   928     ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.34 1996-06-03 10:02:05 cg Exp $'
   936     ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.35 1996-06-03 13:38:16 cg Exp $'
   929 ! !
   937 ! !
   930 PostscriptPrinterStream initialize!
   938 PostscriptPrinterStream initialize!