[squeak-dev] The Trunk: Morphic-mt.1233.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Aug 5 07:24:38 UTC 2016


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 ] ] ] ]!



More information about the Squeak-dev mailing list