Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.80.mcz

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

Name: ToolBuilder-Kernel-mt.80
Author: mt
Time: 19 April 2015, 9:01:45.527 am
UUID: 0c062dba-a7c2-364a-8784-667b9b6440a3
Ancestors: ToolBuilder-Kernel-mt.79

Added scroll bar policies to pluggable list spec to support overriding default behavior of scroll bars.

=============== Diff against ToolBuilder-Kernel-mt.79 ===============

Item was changed:
  PluggableWidgetSpec subclass: #PluggableListSpec
+ 	instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy'
- 	instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ToolBuilder-Kernel'!
  
  !PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0!
  A single selection list element.
  
  Instance variables:
  	list		<Symbol>	The selector to retrieve the list elements.
  	getIndex	<Symbol>	The selector to retrieve the list selection index.
  	setIndex	<Symbol>	The selector to set the list selection index.
  	getSelected	<Symbol>	The selector to retrieve the list selection.
  	setSelected	<Symbol>	The selector to set the list selection.
  	menu	<Symbol>	The selector to offer (to retrieve?) the context menu.
  	keyPress <Symbol>	The selector to invoke for handling keyboard shortcuts.
  	autoDeselect	<Boolean>	Whether the list should allow automatic deselection or not.
  	dragItem	<Symbol>	Selector to initiate a drag action on an item
  	dropItem	<Symbol>	Selector to initiate a drop action of an item
  	dropAccept	<Symbol>	Selector to determine whether a drop would be accepted!

Item was added:
+ ----- Method: PluggableListSpec>>hScrollBarPolicy (in category 'accessing') -----
+ hScrollBarPolicy
+ 
+ 	^ hScrollBarPolicy!

Item was added:
+ ----- Method: PluggableListSpec>>hScrollBarPolicy: (in category 'accessing') -----
+ hScrollBarPolicy: aSymbol
+ 	"#always, #never, #whenNeeded"
+ 
+ 	hScrollBarPolicy := aSymbol.!

Item was added:
+ ----- Method: PluggableListSpec>>vScrollBarPolicy (in category 'accessing') -----
+ vScrollBarPolicy
+ 
+ 	^ vScrollBarPolicy!

Item was added:
+ ----- Method: PluggableListSpec>>vScrollBarPolicy: (in category 'accessing') -----
+ vScrollBarPolicy: aSymbol
+ 	"#always, #never, #whenNeeded"
+ 	
+ 	vScrollBarPolicy := aSymbol.!