--- a/SerialPort.st Thu Oct 18 12:45:40 2007 +0200
+++ b/SerialPort.st Wed Oct 24 17:20:57 2007 +0200
@@ -618,9 +618,11 @@
!SerialPort methodsFor:'printing & storing'!
printOn:aStream
- aStream nextPutAll:'SerialPort(baudRate='.
+ aStream nextPutAll:'SerialPort('.
+ portName printOn:aStream.
+ aStream nextPut:$/.
baudRate printOn:aStream.
- aStream nextPutAll:')'.
+ aStream nextPut:$).
! !
!SerialPort methodsFor:'queries'!
@@ -634,5 +636,5 @@
!SerialPort class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.8 2007-02-12 11:31:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.9 2007-10-24 15:20:57 stefan Exp $'
! !