TextCollector.st
changeset 4659 0ac53ed3980b
parent 4658 e2a82c5376e1
child 4687 2ab92c301044
equal deleted inserted replaced
4658:e2a82c5376e1 4659:0ac53ed3980b
   881 
   881 
   882 normal
   882 normal
   883     currentEmphasis := nil
   883     currentEmphasis := nil
   884 !
   884 !
   885 
   885 
       
   886 notBold
       
   887     "switch to non-bold - followup text sent via show/nextPutAll: will be inserted in
       
   888      a non-bold font."
       
   889 
       
   890     currentEmphasis := Text removeEmphasis:#bold from:currentEmphasis
       
   891 !
       
   892 
       
   893 notItalic
       
   894     "switch to non-italic - followup text sent via show/nextPutAll: will be inserted in
       
   895      a non-italic font."
       
   896 
       
   897     currentEmphasis := Text removeEmphasis:#italic from:currentEmphasis
       
   898 !
       
   899 
       
   900 notReverse
       
   901     currentEmphasis := Text removeEmphasis:#color from:currentEmphasis.
       
   902     currentEmphasis := Text removeEmphasis:#backgroundColor from:currentEmphasis.
       
   903 !
       
   904 
       
   905 notUnderline
       
   906     currentEmphasis := Text removeEmphasis:#underline from:currentEmphasis
       
   907 
       
   908     "Created: / 26.3.1999 / 14:27:07 / cg"
       
   909 !
       
   910 
   886 reverse
   911 reverse
   887     currentEmphasis := Text addEmphasis:(#color->bgColor) to:currentEmphasis.
   912     currentEmphasis := Text addEmphasis:(#color->bgColor) to:currentEmphasis.
   888     currentEmphasis := Text addEmphasis:(#backgroundColor->fgColor) to:currentEmphasis.
   913     currentEmphasis := Text addEmphasis:(#backgroundColor->fgColor) to:currentEmphasis.
   889 !
   914 !
   890 
   915 
  1088 ! !
  1113 ! !
  1089 
  1114 
  1090 !TextCollector class methodsFor:'documentation'!
  1115 !TextCollector class methodsFor:'documentation'!
  1091 
  1116 
  1092 version
  1117 version
  1093     ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.127 2013-07-23 21:07:52 cg Exp $'
  1118     ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.128 2013-07-24 13:41:17 cg Exp $'
  1094 !
  1119 !
  1095 
  1120 
  1096 version_CVS
  1121 version_CVS
  1097     ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.127 2013-07-23 21:07:52 cg Exp $'
  1122     ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.128 2013-07-24 13:41:17 cg Exp $'
  1098 ! !
  1123 ! !
  1099 
  1124 
  1100 
  1125 
  1101 TextCollector initialize!
  1126 TextCollector initialize!