Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.94.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-mt.94
Author: mt
Time: 4 November 2015, 6:50:15.546 pm
UUID: 58fe2a54-1973-41df-84a2-12393598991a
Ancestors: ToolBuilder-Kernel-mt.93
Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees.
=============== Diff against ToolBuilder-Kernel-mt.93 ===============
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 dragStarted'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy'
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>>dragStarted (in category 'accessing - drag and drop') -----
+ dragStarted
+ ^ dragStarted!
Item was added:
+ ----- Method: PluggableListSpec>>dragStarted: (in category 'accessing - drag and drop') -----
+ dragStarted: symbol
+ dragStarted := symbol.!
Item was changed:
PluggableWidgetSpec subclass: #PluggableTreeSpec
+ instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted'
- instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy'
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 added:
+ ----- Method: PluggableTreeSpec>>dragStarted (in category 'accessing - drag and drop') -----
+ dragStarted
+ ^ dragStarted!
Item was added:
+ ----- Method: PluggableTreeSpec>>dragStarted: (in category 'accessing - drag and drop') -----
+ dragStarted: symbol
+ dragStarted := symbol.!
Marcel Taeumel uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mt.965.mcz
==================== Summary ====================
Name: Kernel-mt.965
Author: mt
Time: 4 November 2015, 6:47:19.492 pm
UUID: bc2a01d5-b9c9-4111-bfd0-a2a19ae61e88
Ancestors: Kernel-ul.964
Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees.
=============== Diff against Kernel-ul.964 ===============
Item was removed:
- ----- Method: Object>>dragAnimationFor:transferMorph: (in category 'drag and drop') -----
- dragAnimationFor: item transferMorph: transferMorph
- "Default do nothing"!
Item was added:
+ ----- Method: Object>>dragStartedFor:transferMorph: (in category 'drag and drop') -----
+ dragStartedFor: anItemMorph transferMorph: aTransferMorph
+ "Give the model a chance to respond to a started drag operation. Could be used to give a notification or play an animation. Do nothing by default."!
Item was removed:
- ----- Method: Object>>dragTransferType (in category 'drag and drop') -----
- dragTransferType
- ^nil!
Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.93.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-mt.93
Author: mt
Time: 4 November 2015, 10:42:39.831 am
UUID: 7641f554-712a-4031-ad7f-986f3aa658b0
Ancestors: ToolBuilder-Kernel-mt.92
Removes unused and obsolete #wantsDrop accessors and instVar. We have #dropAccept for that.
=============== Diff against ToolBuilder-Kernel-mt.92 ===============
Item was changed:
PluggableWidgetSpec subclass: #PluggableTreeSpec
+ instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress 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 vScrollBarPolicy hScrollBarPolicy'
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 removed:
- ----- Method: PluggableTreeSpec>>wantsDrop (in category 'accessing - drag and drop') -----
- wantsDrop
- "Answer the selector for invoking the tree's wantsDrop handler"
- ^wantsDrop!
Item was removed:
- ----- Method: PluggableTreeSpec>>wantsDrop: (in category 'accessing - drag and drop') -----
- wantsDrop: aSymbol
- "Indicate the selector for invoking the tree's wantsDrop handler"
- wantsDrop := aSymbol!
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!