equal
deleted
inserted
replaced
272 |
272 |
273 ^ self nextPutShort:aNumber MSB:true |
273 ^ self nextPutShort:aNumber MSB:true |
274 |
274 |
275 "Modified: 10.1.1996 / 19:39:19 / cg" |
275 "Modified: 10.1.1996 / 19:39:19 / cg" |
276 ! ! |
276 ! ! |
277 |
|
278 |
277 |
279 |
278 |
280 !Stream methodsFor:'accessing'! |
279 !Stream methodsFor:'accessing'! |
281 |
280 |
282 contents |
281 contents |
2516 |
2515 |
2517 ^ true |
2516 ^ true |
2518 ! |
2517 ! |
2519 |
2518 |
2520 isReadable |
2519 isReadable |
2521 "return true, if reading is supported by the recevier. |
2520 "return true, if reading is supported by the receiver. |
2522 This has to be redefined in concrete subclasses." |
2521 This has to be redefined in concrete subclasses." |
2523 |
2522 |
2524 ^ self subclassResponsibility |
2523 ^ self subclassResponsibility |
2525 |
2524 |
2526 "Modified: 15.5.1996 / 17:54:31 / cg" |
2525 "Modified: 15.5.1996 / 17:54:31 / cg" |
2527 ! |
2526 ! |
2528 |
2527 |
2529 isWritable |
2528 isWritable |
2530 "return true, if writing is supported by the recevier. |
2529 "return true, if writing is supported by the receiver. |
2531 This has to be redefined in concrete subclasses." |
2530 This has to be redefined in concrete subclasses." |
2532 |
2531 |
2533 ^ self subclassResponsibility |
2532 ^ self subclassResponsibility |
2534 |
2533 |
2535 "Modified: 15.5.1996 / 17:54:54 / cg" |
2534 "Modified: 15.5.1996 / 17:54:54 / cg" |