--- 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 $'
 ! !