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

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

Name: ToolBuilder-Morphic-jcg.43
Author: jcg
Time: 12 December 2009, 10:55:13 am
UUID: c230450b-135b-4d7e-b5da-ccbe6772bd8c
Ancestors: ToolBuilder-Morphic-ar.42

ChooserTool now allows you to double-click to choose.  Requires ToolBuilder-Kernel-jcg.24 for double-click support in PluggableListSpec.

=============== Diff against ToolBuilder-Morphic-ar.42 ===============

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!