Tcl Source Code

Artifact 587abc2d666a9155d9af384cc95e858c24265688:

Attachment "tcl_clock.patch.txt" to ticket [1386377fff] added by nobody 2005-12-21 01:05:52.

---

Index: library/clock.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/clock.tcl,v
retrieving revision 1.28
diff -u -r1.28 clock.tcl
--- library/clock.tcl	2 Dec 2005 22:13:41 -0000	1.28
+++ library/clock.tcl	20 Dec 2005 18:04:43 -0000
@@ -669,7 +669,7 @@
     # Set defaults
 
     set clockval [lindex $args 0]
-    set format {%a %b %d %H:%M:%S %z %Y}
+    set format {%a %b %d %I:%M:%S %p %Z %Y}
     set gmt 0
     set locale C
     set timezone {}