Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.978.mcz

==================== Summary ====================

Name: Morphic-cmm.978
Author: cmm
Time: 10 May 2015, 6:08:38.51 pm
UUID: 9ad94f31-56d8-45a5-83e9-47d58671e4ba
Ancestors: Morphic-cmm.977

Provide programmatic access to the users preferred clock format in the docking bar.

=============== Diff against Morphic-cmm.977 ===============

Item was changed:
  Object subclass: #TheWorldMainDockingBar
  	instanceVariableNames: ''
+ 	classVariableNames: 'Instance TS TwentyFourHourClock'
- 	classVariableNames: 'Instance TS'
  	poolDictionaries: ''
  	category: 'Morphic-Kernel'!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>twentyFourHourClock (in category 'preferences') -----
+ twentyFourHourClock
+ 	<preference: '24-hour Time Clock'
+ 		category: 'docking bars'
+ 		description: 'Whether the clock in the world''s main docking bar should present the time in 24-hour format.'
+ 		type: #Boolean>
+ 	^ TwentyFourHourClock ifNil: [ true ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>twentyFourHourClock: (in category 'preferences') -----
+ twentyFourHourClock: aBoolean
+ 	TwentyFourHourClock := aBoolean.
+ 	self updateInstances!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'right side') -----
  clockOn: aDockingBar 
  	aDockingBar 
+ 		addMorphBack: (ClockMorph new show24hr: TwentyFourHourClock; yourself);
- 		addMorphBack: (ClockMorph new show24hr: true; yourself);
  		addDefaultSpace!