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!