The Trunk: Morphic-fbs.660.mcz

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!