equal
deleted
inserted
replaced
228 false. If its nil, output is controlled by the Smalltalk>>silenLoading setting." |
228 false. If its nil, output is controlled by the Smalltalk>>silenLoading setting." |
229 |
229 |
230 |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent| |
230 |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent| |
231 |
231 |
232 |
232 |
233 (silent := beSilent isNil) ifTrue:[silent := Smalltalk silentLoading]. |
233 (silent := beSilent) isNil ifTrue:[silent := Smalltalk silentLoading]. |
234 silent == true ifFalse:[ |
234 silent ~~ true ifTrue:[ |
235 myClass isNil ifTrue:[ |
235 myClass isNil ifTrue:[ |
236 nm := '** UndefinedClass **' |
236 nm := '** UndefinedClass **' |
237 ] ifFalse:[ |
237 ] ifFalse:[ |
238 nm := myClass name |
238 nm := myClass name |
239 ]. |
239 ]. |
425 ! ! |
425 ! ! |
426 |
426 |
427 !ClassCategoryReader class methodsFor:'documentation'! |
427 !ClassCategoryReader class methodsFor:'documentation'! |
428 |
428 |
429 version |
429 version |
430 ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.46 2001-08-17 12:37:00 cg Exp $' |
430 ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.47 2001-11-19 12:37:07 cg Exp $' |
431 ! ! |
431 ! ! |
432 ClassCategoryReader initialize! |
432 ClassCategoryReader initialize! |