equal
deleted
inserted
replaced
315 |
315 |
316 printOn:aStream |
316 printOn:aStream |
317 "append a printed representation of the receiver on aStream" |
317 "append a printed representation of the receiver on aStream" |
318 |
318 |
319 nameClass notNil ifTrue:[ |
319 nameClass notNil ifTrue:[ |
320 aStream nextPutAll:nameClass name. |
320 nameClass isBehavior ifTrue:[ |
|
321 aStream nextPutAll:nameClass name. |
|
322 ] ifFalse:[ |
|
323 nameClass printOn:aStream. |
|
324 ]. |
321 aStream space. |
325 aStream space. |
322 aStream nextPutAll:message. |
326 aStream nextPutAll:message. |
323 ^ self |
327 ^ self |
324 ]. |
328 ]. |
325 ^ super printOn:aStream |
329 ^ super printOn:aStream |
751 ! ! |
755 ! ! |
752 |
756 |
753 !Signal class methodsFor:'documentation'! |
757 !Signal class methodsFor:'documentation'! |
754 |
758 |
755 version |
759 version |
756 ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.72 1999-08-04 20:18:39 stefan Exp $' |
760 ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.73 1999-08-23 11:57:28 cg Exp $' |
757 ! ! |
761 ! ! |