--- a/DeviceWorkstation.st Fri Aug 04 14:42:07 2000 +0200
+++ b/DeviceWorkstation.st Fri Aug 04 18:44:55 2000 +0200
@@ -6434,16 +6434,20 @@
o := self getCopyBuffer.
s := o.
o isString ifFalse:[
- o isNil ifTrue:[
- s := ''
- ] ifFalse:[
- (o isStringCollection) ifTrue:[
- s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
- s := s string.
- ] ifFalse:[
- s := o storeString
- ]
- ]
+ o isNil ifTrue:[
+ s := ''
+ ] ifFalse:[
+ (o isStringCollection) ifTrue:[
+ s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+ s := s string.
+ ] ifFalse:[
+ Collection recursiveCollectionStoreStringSignal handle:[:ex |
+ s := ''
+ ] do:[
+ s := o storeString
+ ]
+ ]
+ ]
].
^ s
@@ -7130,6 +7134,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.376 2000-08-02 23:07:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.377 2000-08-04 16:44:55 tm Exp $'
! !
DeviceWorkstation initialize!