[Pkg] The Trunk: Morphic-fbs.660.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.660.mcz

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

Name: Morphic-fbs.660
Author: fbs
Time: 19 June 2013, 10:34:18.209 pm
UUID: 8e3e2322-5e8a-48c5-9021-79ce93e9324d
Ancestors: Morphic-fbs.659

Make checkable menu items when specified.

=============== Diff against Morphic-fbs.659 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableMenuItem: (in category 'building') -----
  buildPluggableMenuItem: itemSpec
  	| item action label menu |
  	item := self menuItemClass new.
+ 	label := (itemSpec isCheckable
+ 		ifTrue: [	itemSpec checked ifTrue: ['<on>'] ifFalse: ['<off>']]
+ 		ifFalse: ['']), itemSpec label.
- 	label := itemSpec label.
- 	itemSpec checked ifTrue:[label := '<on>', label] ifFalse:[label := '<off>', label].
  	item contents: label.
  	item isEnabled: itemSpec enabled.
  	(action := itemSpec action) ifNotNil:[
  		item 
  			target: action receiver;
  			selector: action selector;
  			arguments: action arguments.
  	].
  	(menu := itemSpec subMenu) ifNotNil:[
  		item subMenu: (menu buildWith: self).
  	].
  	parentMenu ifNotNil:[parentMenu addMorphBack: item].
  	itemSpec separator ifTrue:[parentMenu addLine].
  	^item!