--- a/Time.st Fri Jun 20 17:28:09 1997 +0200
+++ b/Time.st Fri Jun 20 17:29:38 1997 +0200
@@ -17,7 +17,7 @@
category:'Magnitude-General'
!
-!Time class methodsFor:'documentation'!
+!Time class methodsFor:'documentation'!
copyright
"
@@ -65,7 +65,7 @@
"
! !
-!Time class methodsFor:'instance creation'!
+!Time class methodsFor:'instance creation'!
hour:h minutes:m seconds:s
"return an instance of Time representing the given time.
@@ -316,6 +316,14 @@
"
"Modified: 22.2.1996 / 16:58:30 / cg"
+!
+
+shortPrintString
+ "dummy - for now"
+
+ ^ self printString
+
+ "Created: 20.6.1997 / 17:17:01 / cg"
! !
!Time methodsFor:'private'!
@@ -367,8 +375,8 @@
timeEncoding := encoding
! !
-!Time class methodsFor:'documentation'!
+!Time class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.30 1996-10-08 18:33:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.31 1997-06-20 15:29:38 cg Exp $'
! !