InstrumentingCompiler.st
branchjv
changeset 3874 4f9db2d4c2b7
parent 3841 a22f33410bdf
parent 3862 42354ffef3a1
child 4259 c707f9aa7015
equal deleted inserted replaced
3873:707275c1f86d 3874:4f9db2d4c2b7
   591 
   591 
   592     | source |
   592     | source |
   593 
   593 
   594     source := owningMethod source asText.
   594     source := owningMethod source asText.
   595     startPosition isNil ifTrue:[
   595     startPosition isNil ifTrue:[
   596         source colorizeAllWith: Color red.
   596         source withColor: Color red.
   597     ] ifFalse:[
   597     ] ifFalse:[
   598         endPosition isNil ifTrue:[
   598         endPosition isNil ifTrue:[
   599             source emphasizeFrom:startPosition to:source string size with: #bold.
   599             source emphasizeFrom:startPosition to:source string size with: #bold.
   600             source emphasizeFrom:startPosition to:source string size with: #color -> Color red.
   600             source emphasizeFrom:startPosition to:source string size with: #color -> Color red.
   601         ] ifFalse:[
   601         ] ifFalse:[
  1177 ! !
  1177 ! !
  1178 
  1178 
  1179 !InstrumentingCompiler class methodsFor:'documentation'!
  1179 !InstrumentingCompiler class methodsFor:'documentation'!
  1180 
  1180 
  1181 version
  1181 version
  1182     ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.35 2015-02-13 21:03:04 vrany Exp $'
  1182     ^ '$Header$'
  1183 !
  1183 !
  1184 
  1184 
  1185 version_CVS
  1185 version_CVS
  1186     ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.35 2015-02-13 21:03:04 vrany Exp $'
  1186     ^ '$Header$'
  1187 ! !
  1187 ! !
  1188 
  1188