equal
deleted
inserted
replaced
577 msg := msg , ('\\in ' , sender receiver class name , '>>>' , sender selector) withCRs |
577 msg := msg , ('\\in ' , sender receiver class name , '>>>' , sender selector) withCRs |
578 ]. |
578 ]. |
579 |
579 |
580 "/ otherwise ask what should be done now and either |
580 "/ otherwise ask what should be done now and either |
581 "/ continue or abort the fileIn |
581 "/ continue or abort the fileIn |
582 Transcript showCR:Screen current. |
582 |
583 redef ifTrue:[ |
583 redef ifTrue:[ |
584 action := OptionBox |
584 action := OptionBox |
585 request:(msg withCRs) |
585 request:(msg withCRs) |
586 label:'Class redefinition in fileIn' |
586 label:'Class redefinition in fileIn' |
587 form:(WarningBox iconBitmap) |
587 form:(WarningBox iconBitmap) |
1212 ! ! |
1212 ! ! |
1213 |
1213 |
1214 !PositionableStream class methodsFor:'documentation'! |
1214 !PositionableStream class methodsFor:'documentation'! |
1215 |
1215 |
1216 version |
1216 version |
1217 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.136 2003-10-28 19:56:22 cg Exp $' |
1217 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.137 2003-11-11 08:39:01 cg Exp $' |
1218 ! ! |
1218 ! ! |
1219 |
1219 |
1220 PositionableStream initialize! |
1220 PositionableStream initialize! |