--- a/ToolApplicationModel.st	Thu Feb 05 01:40:42 1998 +0100
+++ b/ToolApplicationModel.st	Thu Feb 05 11:59:19 1998 +0100
@@ -1115,19 +1115,31 @@
 
 showTime
 
-    |hours minutes suffix|
-    suffix := ' am '.  
-    (hours := Time now hours) > 12 ifTrue: [hours := hours - 12].
-    Time now hours >= 12 ifTrue: [suffix := ' pm '].
-    (minutes := Time now minutes printString) size = 1 ifTrue: [minutes := '0', minutes printString].
+    |now hours minutes suffix|
+
+    now := Time now.
+
+    hours := now hours.
+    minutes := now minutes printString.
+    suffix := ''.
+
+    (resources at:'TIME_FORMAT' ifAbsent:12) == 12 ifTrue:[
+        suffix := ' am '.  
+        hours > 12 ifTrue: [hours := hours - 12. suffix := 'pm'].
+    ].
+
+    minutes size = 1 ifTrue: [minutes := '0', minutes].
+
     self valueOfTimeLabel value: hours printString, ':', minutes, suffix.
+
     Processor removeTimedBlock: timeBlock.
     Processor addTimedBlock: timeBlock afterSeconds: 1
 
+    "Modified: / 5.2.1998 / 09:23:20 / cg"
 ! !
 
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.35 1998-02-04 20:51:41 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.36 1998-02-05 10:59:19 cg Exp $'
 ! !