4223     self subclassResponsibility

  4223     self subclassResponsibility

  4224 !

  4224 !

  4225 

  4225 

  4226 nextPutAll:aCollection

  4226 nextPutAll:aCollection

  4227     "put all elements of the argument, aCollection onto the receiver.

  4227     "put all elements of the argument, aCollection onto the receiver.

  4228      This is only allowed, if the receiver supports writing."

  4229      This is only allowed, if the receiver supports writing."

  4229 

  4230 

  4230     (aCollection notNil and:[aCollection isSequenceable]) ifFalse:[

  4231     (aCollection notNil and:[aCollection isSequenceable]) ifFalse:[

  4231         "/ fallback

  4232         "/ fallback

  4232         aCollection do:[:eachElement|

  4233         aCollection do:[:eachElement|