--- a/AbsoluteTime.st Mon Jul 15 13:55:28 2002 +0200
+++ b/AbsoluteTime.st Mon Jul 15 13:56:52 2002 +0200
@@ -810,11 +810,11 @@
addPrintBindingsTo:dict
"private print support"
- |d m y s|
-
self asDate addPrintBindingsTo:dict.
super addPrintBindingsTo:dict.
+"/ |d m y s|
+"/
"/ OperatingSystem computeDatePartsOf:osTime for:[
"/ :year :month :day | d := day. m := month. y := year.
"/ ].
@@ -1005,5 +1005,5 @@
!AbsoluteTime class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.65 2002-07-15 09:22:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.66 2002-07-15 11:56:52 stefan Exp $'
! !
--- a/Timestamp.st Mon Jul 15 13:55:28 2002 +0200
+++ b/Timestamp.st Mon Jul 15 13:56:52 2002 +0200
@@ -810,11 +810,11 @@
addPrintBindingsTo:dict
"private print support"
- |d m y s|
-
self asDate addPrintBindingsTo:dict.
super addPrintBindingsTo:dict.
+"/ |d m y s|
+"/
"/ OperatingSystem computeDatePartsOf:osTime for:[
"/ :year :month :day | d := day. m := month. y := year.
"/ ].
@@ -1005,5 +1005,5 @@
!AbsoluteTime class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.65 2002-07-15 09:22:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.66 2002-07-15 11:56:52 stefan Exp $'
! !