Text.st
changeset 1020 a6304ef6b18a
parent 1019 38ec486889d9
child 1065 f16cfbad6f61
equal deleted inserted replaced
1019:38ec486889d9 1020:a6304ef6b18a
   861     "
   861     "
   862 
   862 
   863     "Modified: 10.7.1996 / 12:07:51 / cg"
   863     "Modified: 10.7.1996 / 12:07:51 / cg"
   864 !
   864 !
   865 
   865 
       
   866 allUnderlined
       
   867     "underline all characters"
       
   868 
       
   869     self emphasisAllAdd:(#underline).
       
   870 
       
   871     "
       
   872      Transcript showCR:
       
   873         ('hello' asText allUnderlined) 
       
   874     "
       
   875 !
       
   876 
   866 backgroundColorizeAllWith:aColor
   877 backgroundColorizeAllWith:aColor
   867     "change the bc-color of all characters"
   878     "change the bc-color of all characters"
   868 
   879 
   869     self emphasisAllAdd:(#backgroundColor -> aColor).
   880     self emphasisAllAdd:(#backgroundColor -> aColor).
   870 
   881 
  1149         emphasizeFrom:7 with:#italic
  1160         emphasizeFrom:7 with:#italic
  1150     "
  1161     "
  1151 
  1162 
  1152     "Modified: 11.5.1996 / 14:30:02 / cg"
  1163     "Modified: 11.5.1996 / 14:30:02 / cg"
  1153     "Created: 17.5.1996 / 15:15:32 / cg"
  1164     "Created: 17.5.1996 / 15:15:32 / cg"
       
  1165 !
       
  1166 
       
  1167 strikeoutAll
       
  1168     "strikeout all characters"
       
  1169 
       
  1170     self emphasisAllAdd:(#strikeout).
       
  1171 
       
  1172     "
       
  1173      Transcript showCR:
       
  1174         ('hello' asText strikeoutAll) 
       
  1175     "
  1154 ! !
  1176 ! !
  1155 
  1177 
  1156 !Text methodsFor:'printing & storing'!
  1178 !Text methodsFor:'printing & storing'!
  1157 
  1179 
  1158 printOn:aStream
  1180 printOn:aStream
  1405 ! !
  1427 ! !
  1406 
  1428 
  1407 !Text class methodsFor:'documentation'!
  1429 !Text class methodsFor:'documentation'!
  1408 
  1430 
  1409 version
  1431 version
  1410     ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.76 2002-02-22 09:58:09 cg Exp $'
  1432     ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.77 2002-02-22 10:17:37 cg Exp $'
  1411 ! !
  1433 ! !
  1412 Text initialize!
  1434 Text initialize!