Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comment
authorClaus Gittinger <cg@exept.de>
Thu, 15 Jul 1999 21:45:54 +0200
changeset 4392 26fb48f04e1b
parent 4391 d6832c898c39
child 4393 8f05a1ba2b10
comment
FileDir.st file | annotate | diff | comparison | revisions
FileDirectory.st file | annotate | diff | comparison | revisions
FileStr.st file | annotate | diff | comparison | revisions
FileStream.st file | annotate | diff | comparison | revisions
Filename.st file | annotate | diff | comparison | revisions
LookupKey.st file | annotate | diff | comparison | revisions
Message.st file | annotate | diff | comparison | revisions
MessageSend.st file | annotate | diff | comparison | revisions
NPExtStr.st file | annotate | diff | comparison | revisions
NonPositionableExternalStream.st file | annotate | diff | comparison | revisions
Object.st file | annotate | diff | comparison | revisions
Symbol.st file | annotate | diff | comparison | revisions
Time.st file | annotate | diff | comparison | revisions 
--- a/FileDir.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/FileDir.st	Thu Jul 15 21:45:54 1999 +0200
@@ -446,12 +446,13 @@
 !FileDirectory methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a printed representation of the receiver to aStream."
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     lazy ifTrue:[self getFullPathName].
     aStream nextPutAll:'(a FileDirectory pathName:';
-	    nextPutAll:pathName;
-	    nextPutAll:')'
+            nextPutAll:pathName;
+            nextPutAll:')'
 !
 
 storeOn:aStream
@@ -619,6 +620,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.37 1998-12-11 15:29:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.38 1999-07-15 19:45:54 cg Exp $'
 ! !
 FileDirectory initialize!
--- a/FileDirectory.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/FileDirectory.st	Thu Jul 15 21:45:54 1999 +0200
@@ -446,12 +446,13 @@
 !FileDirectory methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a printed representation of the receiver to aStream."
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     lazy ifTrue:[self getFullPathName].
     aStream nextPutAll:'(a FileDirectory pathName:';
-	    nextPutAll:pathName;
-	    nextPutAll:')'
+            nextPutAll:pathName;
+            nextPutAll:')'
 !
 
 storeOn:aStream
@@ -619,6 +620,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.37 1998-12-11 15:29:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.38 1999-07-15 19:45:54 cg Exp $'
 ! !
 FileDirectory initialize!
--- a/FileStr.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/FileStr.st	Thu Jul 15 21:45:54 1999 +0200
@@ -612,7 +612,8 @@
 !FileStream methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a human readable representation of the receiver to aStream"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     aStream nextPutAll:'(a FileStream for:'.
     aStream nextPutAll:pathName printString.
@@ -1073,6 +1074,6 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileStr.st,v 1.64 1999-07-08 16:27:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileStr.st,v 1.65 1999-07-15 19:45:33 cg Exp $'
 ! !
 FileStream initialize!
--- a/FileStream.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/FileStream.st	Thu Jul 15 21:45:54 1999 +0200
@@ -612,7 +612,8 @@
 !FileStream methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a human readable representation of the receiver to aStream"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     aStream nextPutAll:'(a FileStream for:'.
     aStream nextPutAll:pathName printString.
@@ -1073,6 +1074,6 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.64 1999-07-08 16:27:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.65 1999-07-15 19:45:33 cg Exp $'
 ! !
 FileStream initialize!
--- a/Filename.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/Filename.st	Thu Jul 15 21:45:54 1999 +0200
@@ -2169,7 +2169,8 @@
 !Filename methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a printed representation of the receiver to aStream."
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     aStream nextPutAll:(self class name).
     aStream nextPutAll:'('''.
@@ -3292,6 +3293,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.159 1999-07-12 09:07:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.160 1999-07-15 19:45:10 cg Exp $'
 ! !
 Filename initialize!
--- a/LookupKey.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/LookupKey.st	Thu Jul 15 21:45:54 1999 +0200
@@ -112,8 +112,8 @@
 !
 
 printOn:aStream
-    "return a string containing a printable representation
-     of the receiver"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     key printOn:aStream.
 ! !
@@ -121,5 +121,5 @@
 !LookupKey class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LookupKey.st,v 1.8 1996-10-15 22:07:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LookupKey.st,v 1.9 1999-07-15 19:44:33 cg Exp $'
 ! !
--- a/Message.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/Message.st	Thu Jul 15 21:45:54 1999 +0200
@@ -152,7 +152,8 @@
 !
 
 printOn:aStream
-    "return a string for printing the receiver"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     selector printOn:aStream
 ! !
@@ -184,5 +185,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.20 1996-10-28 16:08:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.21 1999-07-15 19:44:17 cg Exp $'
 ! !
--- a/MessageSend.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/MessageSend.st	Thu Jul 15 21:45:54 1999 +0200
@@ -218,7 +218,8 @@
 !
 
 printOn:aStream
-    "append a printed representation of the receiver to aStream"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     receiver printOn:aStream.
     aStream nextPutAll:'>>'.
@@ -230,5 +231,5 @@
 !MessageSend class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.13 1997-03-20 20:55:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.14 1999-07-15 19:43:59 cg Exp $'
 ! !
--- a/NPExtStr.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/NPExtStr.st	Thu Jul 15 21:45:54 1999 +0200
@@ -195,25 +195,26 @@
 printOn:aStream
     "{ Pragma: +optSpace }"
 
-    "append a printed representation of the receiver on aStream"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     |myName|
 
     self == Stdin ifTrue:[
-	myName := 'Stdin'.
+        myName := 'Stdin'.
     ] ifFalse:[
-	self == Stdout ifTrue:[
-	    myName := 'Stdout'.
-	] ifFalse:[
-	    self == Stderr ifTrue:[
-		myName := 'Stderr'.
-	    ]
-	]
+        self == Stdout ifTrue:[
+            myName := 'Stdout'.
+        ] ifFalse:[
+            self == Stderr ifTrue:[
+                myName := 'Stderr'.
+            ]
+        ]
     ].
 
     myName notNil ifTrue:[
-	aStream nextPutAll:myName.
-	^ self
+        aStream nextPutAll:myName.
+        ^ self
     ].
     super printOn:aStream
 !
@@ -320,5 +321,5 @@
 !NonPositionableExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.34 1999-02-12 14:54:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.35 1999-07-15 19:43:35 cg Exp $'
 ! !
--- a/NonPositionableExternalStream.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/NonPositionableExternalStream.st	Thu Jul 15 21:45:54 1999 +0200
@@ -195,25 +195,26 @@
 printOn:aStream
     "{ Pragma: +optSpace }"
 
-    "append a printed representation of the receiver on aStream"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     |myName|
 
     self == Stdin ifTrue:[
-	myName := 'Stdin'.
+        myName := 'Stdin'.
     ] ifFalse:[
-	self == Stdout ifTrue:[
-	    myName := 'Stdout'.
-	] ifFalse:[
-	    self == Stderr ifTrue:[
-		myName := 'Stderr'.
-	    ]
-	]
+        self == Stdout ifTrue:[
+            myName := 'Stdout'.
+        ] ifFalse:[
+            self == Stderr ifTrue:[
+                myName := 'Stderr'.
+            ]
+        ]
     ].
 
     myName notNil ifTrue:[
-	aStream nextPutAll:myName.
-	^ self
+        aStream nextPutAll:myName.
+        ^ self
     ].
     super printOn:aStream
 !
@@ -320,5 +321,5 @@
 !NonPositionableExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.34 1999-02-12 14:54:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.35 1999-07-15 19:43:35 cg Exp $'
 ! !
--- a/Object.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/Object.st	Thu Jul 15 21:45:54 1999 +0200
@@ -5282,7 +5282,9 @@
 !
 
 printOn:aStream
-    "print the receiver on the argument-stream.
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back.
+
      The default here is to output the receivers class name.
      BUT: this method is heavily redefined for objects which
      can print prettier."
@@ -7413,6 +7415,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.267 1999-07-10 12:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.268 1999-07-15 19:43:11 cg Exp $'
 ! !
 Object initialize!
--- a/Symbol.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/Symbol.st	Thu Jul 15 21:45:54 1999 +0200
@@ -483,7 +483,9 @@
 !
 
 printOn:aStream
-    "append a printed representation of the receiver on aStream.
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back.
+
      In contrast to ST-80, this does return the symbols characters
      without any leading #. Therefore, you can directly send symbols'
      printStrings to some output device. This is incompatible, but easier
@@ -646,5 +648,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.53 1999-04-16 19:53:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.54 1999-07-15 19:42:29 cg Exp $'
 ! !
--- a/Time.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/Time.st	Thu Jul 15 21:45:54 1999 +0200
@@ -380,7 +380,9 @@
 !
 
 printOn:aStream
-    "append a printed representation of the receiver to aStream.
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back.
+
      Format is hh:mm:ss either in 12-hour or 24-hour format.
      depending on the setting of LanguageTerritory.
      I dont know what ST-80 does here (12-hour format ?)"
@@ -492,5 +494,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.38 1999-07-13 10:49:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.39 1999-07-15 19:42:04 cg Exp $'
 ! !
hg/stx-libbasic