The Trunk: ToolBuilder-Morphic-jcg.45.mcz

Joshua Gargus uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-jcg.45.mcz

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

Name: ToolBuilder-Morphic-jcg.45
Author: jcg
Time: 12 December 2009, 2:10:11 am
UUID: 59776239-1021-4de5-a9cd-ab46db178264
Ancestors: ToolBuilder-Morphic-ul.44, ToolBuilder-Morphic-jcg.43

Merge -ul.44 and -jcg.45

=============== Diff against ToolBuilder-Morphic-ul.44 ===============

Item was changed:
  ----- Method: ChooserTool>>buildChooserListWith: (in category 'toolbuilder') -----
  buildChooserListWith: builder
  | listSpec |
  listSpec := builder pluggableListSpec new.
  listSpec
  model: self;
  list: #itemList;
  getIndex: #itemListIndex;
  setIndex: #itemListIndex:;
+ doubleClick: #accept;
  autoDeselect: false.
  ^listSpec
  !

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'pluggable widgets') -----
  buildPluggableList: aSpec
  | widget listClass getIndex setIndex |
  aSpec getSelected ifNil:[
  listClass := PluggableListMorphPlus.
  getIndex := aSpec getIndex.
  setIndex := aSpec setIndex.
  ] ifNotNil:[
  listClass := PluggableListMorphByItemPlus.
  getIndex := aSpec getSelected.
  setIndex := aSpec setSelected.
  ].
  widget := listClass on: aSpec model
  list: aSpec list
  selected: getIndex
  changeSelected: setIndex
  menu: aSpec menu
  keystroke: aSpec keyPress.
  self register: widget id: aSpec name.
+ widget doubleClickSelector: aSpec doubleClick.
  widget dragItemSelector: aSpec dragItem.
  widget dropItemSelector: aSpec dropItem.
  widget wantsDropSelector: aSpec dropAccept.
  widget autoDeselect: aSpec autoDeselect.
  self setFrame: aSpec frame in: widget.
  parent ifNotNil:[self add: widget to: parent].
  panes ifNotNil:[
  aSpec list ifNotNil:[panes add: aSpec list].
  ].
  ^widget!