--- a/Time.st Tue Nov 16 17:00:44 1999 +0100
+++ b/Time.st Thu Nov 18 15:19:16 1999 +0100
@@ -261,6 +261,38 @@
(Time fromSeconds:5) intervalString
(Time fromSeconds:65) intervalString
"
+!
+
+print24:prnt24Format showSeconds:doSeconds on:aStream
+ "print me either US or 24hr format, optionally with
+ seconds on a stream"
+
+ |format|
+
+ prnt24Format ifTrue:[
+ doSeconds ifTrue:[
+ format := '%h:%m:%s'
+ ] ifFalse:[
+ format := '%h:%m'
+ ].
+ ] ifFalse:[
+ "/ US format
+ doSeconds ifTrue:[
+ format := '%u:%m:%s %a'
+ ] ifFalse:[
+ format := '%u:%m %a'
+ ].
+ ].
+ ^ self
+ printOn:aStream
+ format:format.
+
+ "
+ Time now print24:true showSeconds:true on:Transcript. Transcript cr.
+ Time now print24:false showSeconds:true on:Transcript. Transcript cr.
+ Time now print24:true showSeconds:false on:Transcript. Transcript cr.
+ Time now print24:false showSeconds:false on:Transcript. Transcript cr.
+ "
! !
!Time methodsFor:'accessing'!
@@ -577,5 +609,5 @@
!Time class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.44 1999-10-08 13:32:36 ah Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.45 1999-11-18 14:19:16 cg Exp $'
! !