The Trunk: Morphic-mt.1233.mcz

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

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

Name: Morphic-mt.1233
Author: mt
Time: 5 August 2016, 9:23:54.647358 am
UUID: be26790a-5bb5-0e4e-ab1d-7bbf50cd334c
Ancestors: Morphic-mt.1232

Fixes a bug in dialog windows that occured when setting a keyboard shortcut for buttons whose labels begin with the same letters.

=============== Diff against Morphic-mt.1232 ===============

Item was changed:
  ----- Method: DialogWindow>>registerKeyboardShortcutFor: (in category 'constructing') -----
  registerKeyboardShortcutFor: button
  "Take the first alpha-numeric character that is not already used as a shortcut, and use it as a shortcut."
 
  (button valueOfProperty: #normalLabel) asString in: [:normalLabel | normalLabel do: [:char |
  char isAlphaNumeric ifTrue: [ keyMap
  at: char asLowercase
+ ifPresent: [:ea | "Ignore"]
- ifPresent: []
  ifAbsent: [
  button setProperty: #normalLabel toValue: ('{1} ({2})' format: {normalLabel. char asLowercase}).
  button label: (button valueOfProperty: #normalLabel).
  ^ keyMap at: char asLowercase put: button ] ] ] ]!