The Trunk: Morphic-mt.1068.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1068.mcz

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

Name: Morphic-mt.1068
Author: mt
Time: 18 January 2016, 8:31:01.62408 am
UUID: f13223e3-051e-4345-96d8-c207a307a828
Ancestors: Morphic-tpr.1067

Makes preference regarding 24-hr clock in docking bar functional. Adds preference regarding seconds in clock in docking bar.

=============== Diff against Morphic-tpr.1067 ===============

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

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showSecondsInClock (in category 'preferences') -----
+ showSecondsInClock
+ <preference: 'Show seconds in clock'
+ category: 'docking bars'
+ description: 'Whether the clock in the world''s main docking bar should display seconds.'
+ type: #Boolean>
+ ^ ShowSecondsInClock ifNil: [ true ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showSecondsInClock: (in category 'preferences') -----
+ showSecondsInClock: boolean
+
+ ShowSecondsInClock := boolean.
+ self updateInstances.!

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