The Trunk: ToolBuilder-Kernel-mt.92.mcz

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

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

Name: ToolBuilder-Kernel-mt.92
Author: mt
Time: 4 November 2015, 10:32:50.512 am
UUID: b16fa7cb-f1cd-40b0-bf3f-29948e2e66e6
Ancestors: ToolBuilder-Kernel-topa.91

Updates message categories in list spec and tree spec. Adds possibility to override scroll bar policies in trees like it works in lists or scroll panes.

=============== Diff against ToolBuilder-Kernel-topa.91 ===============

Item was changed:
+ ----- Method: PluggableListSpec>>autoDeselect (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>autoDeselect (in category 'accessing') -----
  autoDeselect
  "Answer whether this tree can be automatically deselected"
  ^autoDeselect ifNil:[true]!

Item was changed:
+ ----- Method: PluggableListSpec>>autoDeselect: (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>autoDeselect: (in category 'accessing') -----
  autoDeselect: aBool
  "Indicate whether this tree can be automatically deselected"
  autoDeselect := aBool!

Item was changed:
+ ----- Method: PluggableListSpec>>dragItem (in category 'accessing - drag and drop') -----
- ----- Method: PluggableListSpec>>dragItem (in category 'accessing') -----
  dragItem
  "Answer the selector for dragging an item"
  ^dragItem!

Item was changed:
+ ----- Method: PluggableListSpec>>dragItem: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableListSpec>>dragItem: (in category 'accessing') -----
  dragItem: aSymbol
  "Set the selector for dragging an item"
  dragItem := aSymbol!

Item was changed:
+ ----- Method: PluggableListSpec>>dropAccept (in category 'accessing - drag and drop') -----
- ----- Method: PluggableListSpec>>dropAccept (in category 'accessing') -----
  dropAccept
  "Answer the selector to determine whether a drop would be accepted"
  ^dropAccept!

Item was changed:
+ ----- Method: PluggableListSpec>>dropAccept: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableListSpec>>dropAccept: (in category 'accessing') -----
  dropAccept: aSymbol
  "Answer the selector to determine whether a drop would be accepted"
  dropAccept := aSymbol.!

Item was changed:
+ ----- Method: PluggableListSpec>>dropItem (in category 'accessing - drag and drop') -----
- ----- Method: PluggableListSpec>>dropItem (in category 'accessing') -----
  dropItem
  "Answer the selector for dropping an item"
  ^dropItem!

Item was changed:
+ ----- Method: PluggableListSpec>>dropItem: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableListSpec>>dropItem: (in category 'accessing') -----
  dropItem: aSymbol
  "Set the selector for dropping an item"
  dropItem := aSymbol!

Item was changed:
+ ----- Method: PluggableListSpec>>getIndex (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>getIndex (in category 'accessing') -----
  getIndex
  "Answer the selector for retrieving the list's selection index"
  ^getIndex!

Item was changed:
+ ----- Method: PluggableListSpec>>getIndex: (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>getIndex: (in category 'accessing') -----
  getIndex: aSymbol
  "Indicate the selector for retrieving the list's selection index"
  getIndex := aSymbol!

Item was changed:
+ ----- Method: PluggableListSpec>>getSelected (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>getSelected (in category 'accessing') -----
  getSelected
  "Answer the selector for retrieving the list selection"
  ^getSelected!

Item was changed:
+ ----- Method: PluggableListSpec>>getSelected: (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>getSelected: (in category 'accessing') -----
  getSelected: aSymbol
  "Indicate the selector for retrieving the list selection"
  getSelected := aSymbol!

Item was changed:
+ ----- Method: PluggableListSpec>>list (in category 'accessing - list') -----
- ----- Method: PluggableListSpec>>list (in category 'accessing') -----
  list
  "Answer the selector for retrieving the list contents"
  ^list!

Item was changed:
+ ----- Method: PluggableListSpec>>list: (in category 'accessing - list') -----
- ----- Method: PluggableListSpec>>list: (in category 'accessing') -----
  list: aSymbol
  "Indicate the selector for retrieving the list contents"
  list := aSymbol.!

Item was changed:
+ ----- Method: PluggableListSpec>>listItem (in category 'accessing - list') -----
- ----- Method: PluggableListSpec>>listItem (in category 'accessing') -----
  listItem
  "Answer the selector for retrieving the list element"
  ^listItem!

Item was changed:
+ ----- Method: PluggableListSpec>>listItem: (in category 'accessing - list') -----
- ----- Method: PluggableListSpec>>listItem: (in category 'accessing') -----
  listItem: aSymbol
  "Indicate the selector for retrieving the list element"
  listItem := aSymbol.!

Item was changed:
+ ----- Method: PluggableListSpec>>listSize (in category 'accessing - list') -----
- ----- Method: PluggableListSpec>>listSize (in category 'accessing') -----
  listSize
  "Answer the selector for retrieving the list size"
  ^listSize!

Item was changed:
+ ----- Method: PluggableListSpec>>listSize: (in category 'accessing - list') -----
- ----- Method: PluggableListSpec>>listSize: (in category 'accessing') -----
  listSize: aSymbol
  "Indicate the selector for retrieving the list size"
  listSize := aSymbol.!

Item was changed:
+ ----- Method: PluggableListSpec>>setIndex (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>setIndex (in category 'accessing') -----
  setIndex
  "Answer the selector for setting the list's selection index"
  ^setIndex!

Item was changed:
+ ----- Method: PluggableListSpec>>setIndex: (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>setIndex: (in category 'accessing') -----
  setIndex: aSymbol
  "Answer the selector for setting the list's selection index"
  setIndex := aSymbol!

Item was changed:
+ ----- Method: PluggableListSpec>>setSelected (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>setSelected (in category 'accessing') -----
  setSelected
  "Answer the selector for setting the list selection"
  ^setSelected!

Item was changed:
+ ----- Method: PluggableListSpec>>setSelected: (in category 'accessing - selection') -----
- ----- Method: PluggableListSpec>>setSelected: (in category 'accessing') -----
  setSelected: aSymbol
  "Indicate the selector for setting the list selection"
  setSelected := aSymbol!

Item was changed:
  PluggableWidgetSpec subclass: #PluggableTreeSpec
+ instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress wantsDrop dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy'
- instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress wantsDrop dropItem dropAccept autoDeselect dragItem nodeClass columns'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
  !PluggableTreeSpec commentStamp: 'mvdg 3/21/2008 20:59' prior: 0!
  A pluggable tree widget. PluggableTrees are slightly different from lists in such that they ALWAYS store the actual objects and use the label selector to query for the label of the item. PluggableTrees also behave somewhat differently in such that they do not have a "getSelected" message but only a getSelectedPath message. The difference is that getSelectedPath is used to indicate by the model that the tree should select the appropriate path. This allows disambiguation of items. Because of this, implementations of PluggableTrees must always set their internal selection directly, e.g., rather than sending the model a setSelected message and wait for an update of the #getSelected the implementation must set the selection before sending the #setSelected message. If a client doesn't want this, it can always just signal a change of getSelectedPath to revert to whatever is needed.
 
  Instance variables:
  roots <Symbol> The message to retrieve the roots of the tree.
  getSelectedPath <Symbol> The message to retrieve the selected path in the tree.
  setSelected <Symbol> The message to set the selected item in the tree.
  getChildren <Symbol> The message to retrieve the children of an item
  hasChildren <Symbol> The message to query for children of an item
  label <Symbol> The message to query for the label of an item.
  icon <Symbol> The message to query for the icon of an item.
  help <Symbol> The message to query for the help of an item.
  menu <Symbol> The message to query for the tree's menu
  keyPress <Symbol> The message to process a keystroke.
  wantsDrop <Symbol> The message to query whether a drop might be accepted.
  dropItem <Symbol> The message to drop an item.
  enableDrag <Boolean> Enable dragging from this tree.
  autoDeselect <Boolean> Whether the tree should allow automatic deselection or not.
  unusedVar (unused) This variable is a placeholder to fix problems with loading packages in 3.10.!

Item was changed:
+ ----- Method: PluggableTreeSpec>>autoDeselect (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>autoDeselect (in category 'accessing') -----
  autoDeselect
  "Answer whether this tree can be automatically deselected"
  ^autoDeselect ifNil:[true]!

Item was changed:
+ ----- Method: PluggableTreeSpec>>autoDeselect: (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>autoDeselect: (in category 'accessing') -----
  autoDeselect: aBool
  "Indicate whether this tree can be automatically deselected"
  autoDeselect := aBool.!

Item was changed:
+ ----- Method: PluggableTreeSpec>>dragItem (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>dragItem (in category 'accessing') -----
  dragItem
  ^ dragItem.!

Item was changed:
+ ----- Method: PluggableTreeSpec>>dragItem: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>dragItem: (in category 'accessing') -----
  dragItem: aSymbol
  "Set the selector for dragging an item"
  dragItem := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>dropAccept (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>dropAccept (in category 'accessing') -----
  dropAccept
  "Answer the selector for querying the receiver about accepting drops"
  ^dropAccept!

Item was changed:
+ ----- Method: PluggableTreeSpec>>dropAccept: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>dropAccept: (in category 'accessing') -----
  dropAccept: aSymbol
  "Set the selector for querying the receiver about accepting drops"
  dropAccept := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>dropItem (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>dropItem (in category 'accessing') -----
  dropItem
  "Answer the selector for invoking the tree's dragDrop handler"
  ^dropItem!

Item was changed:
+ ----- Method: PluggableTreeSpec>>dropItem: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>dropItem: (in category 'accessing') -----
  dropItem: aSymbol
  "Indicate the selector for invoking the tree's dragDrop handler"
  dropItem := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>getChildren (in category 'accessing - hierarchy') -----
- ----- Method: PluggableTreeSpec>>getChildren (in category 'accessing') -----
  getChildren
  "Answer the message to get the children of this tree"
  ^getChildren!

Item was changed:
+ ----- Method: PluggableTreeSpec>>getChildren: (in category 'accessing - hierarchy') -----
- ----- Method: PluggableTreeSpec>>getChildren: (in category 'accessing') -----
  getChildren: aSymbol
  "Indicate the message to retrieve the children of this tree"
  getChildren := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>getSelected (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>getSelected (in category 'accessing') -----
  getSelected
  ^ getSelected!

Item was changed:
+ ----- Method: PluggableTreeSpec>>getSelected: (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>getSelected: (in category 'accessing') -----
  getSelected: aSymbol
  "Indicate a single node in the tree. Only works if that node is visible, too. Use #getSelectedPath otherwise."
 
  getSelected := aSymbol.!

Item was changed:
+ ----- Method: PluggableTreeSpec>>getSelectedPath (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>getSelectedPath (in category 'accessing') -----
  getSelectedPath
  "Answer the message to retrieve the selection of this tree"
  ^getSelectedPath!

Item was changed:
+ ----- Method: PluggableTreeSpec>>getSelectedPath: (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>getSelectedPath: (in category 'accessing') -----
  getSelectedPath: aSymbol
  "Indicate the message to retrieve the selection of this tree"
  getSelectedPath := aSymbol!

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

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

Item was changed:
+ ----- Method: PluggableTreeSpec>>hasChildren (in category 'accessing - hierarchy') -----
- ----- Method: PluggableTreeSpec>>hasChildren (in category 'accessing') -----
  hasChildren
  "Answer the message to get the existence of children in this tree"
  ^hasChildren!

Item was changed:
+ ----- Method: PluggableTreeSpec>>hasChildren: (in category 'accessing - hierarchy') -----
- ----- Method: PluggableTreeSpec>>hasChildren: (in category 'accessing') -----
  hasChildren: aSymbol
  "Indicate the message to retrieve the existence children in this tree"
  hasChildren := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>roots (in category 'accessing - hierarchy') -----
- ----- Method: PluggableTreeSpec>>roots (in category 'accessing') -----
  roots
  "Answer the message to retrieve the roots of this tree"
  ^roots!

Item was changed:
+ ----- Method: PluggableTreeSpec>>roots: (in category 'accessing - hierarchy') -----
- ----- Method: PluggableTreeSpec>>roots: (in category 'accessing') -----
  roots: aSymbol
  "Indicate the message to retrieve the roots of this tree"
  roots := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>setSelected (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>setSelected (in category 'accessing') -----
  setSelected
  "Answer the message to set the selection of this tree"
  ^setSelected!

Item was changed:
+ ----- Method: PluggableTreeSpec>>setSelected: (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>setSelected: (in category 'accessing') -----
  setSelected: aSymbol
  "Indicate the message to set the selection of this tree"
  setSelected := aSymbol!

Item was changed:
+ ----- Method: PluggableTreeSpec>>setSelectedParent (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>setSelectedParent (in category 'accessing') -----
  setSelectedParent
  ^ setSelectedParent!

Item was changed:
+ ----- Method: PluggableTreeSpec>>setSelectedParent: (in category 'accessing - selection') -----
- ----- Method: PluggableTreeSpec>>setSelectedParent: (in category 'accessing') -----
  setSelectedParent: aSymbol
  setSelectedParent := aSymbol!

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

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

Item was changed:
+ ----- Method: PluggableTreeSpec>>wantsDrop (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>wantsDrop (in category 'accessing') -----
  wantsDrop
  "Answer the selector for invoking the tree's wantsDrop handler"
  ^wantsDrop!

Item was changed:
+ ----- Method: PluggableTreeSpec>>wantsDrop: (in category 'accessing - drag and drop') -----
- ----- Method: PluggableTreeSpec>>wantsDrop: (in category 'accessing') -----
  wantsDrop: aSymbol
  "Indicate the selector for invoking the tree's wantsDrop handler"
  wantsDrop := aSymbol!