Colin Putney uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cwp.83.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-cwp.83
Author: cwp
Time: 22 November 2011, 9:22:53.997 pm
UUID: a68565e9-cad9-439f-a9fb-85c5f168cd74
Ancestors: ToolBuilder-Morphic-cmm.82
Extended PluggableTextMorphPlus to support a getMenuSelector with 3 arguments. The third argument, if present, will be the current selection interval.
=============== Diff against ToolBuilder-Morphic-cmm.82 ===============
Item was added:
+ ----- Method: PluggableTextMorphPlus>>getMenu: (in category 'menu') -----
+ getMenu: shiftKeyState
+ "Answer the menu for this text view. We override the superclass implementation to
+ so we can give the selection interval to the model."
+
+ | menu aMenu |
+ getMenuSelector == nil ifTrue: [^ nil].
+ getMenuSelector numArgs < 3 ifTrue: [^ super getMenu: shiftKeyState].
+ menu := MenuMorph new defaultTarget: model.
+ getMenuSelector numArgs = 3 ifTrue:
+ [aMenu := model
+ perform: getMenuSelector
+ with: menu
+ with: shiftKeyState
+ with: self selectionInterval.
+ getMenuTitleSelector ifNotNil:
+ [aMenu addTitle: (model perform: getMenuTitleSelector)].
+ ^ aMenu].
+ ^ self error: 'The getMenuSelector must be a 1- or 2 or 3-keyword symbol'!
Colin Putney uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-cwp.53.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-cwp.53
Author: cwp
Time: 8 December 2011, 1:00:37 pm
UUID: 1f09affc-a701-45ed-9224-925fc91a13a2
Ancestors: ToolBuilder-Kernel-cmm.52
Added icon support for ToolBuilder-Morphic.
=============== Diff against ToolBuilder-Kernel-cmm.52 ===============
Item was changed:
PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview'
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>>icon (in category 'accessing') -----
+ icon
+ ^ icon!
Item was added:
+ ----- Method: PluggableListSpec>>icon: (in category 'accessing') -----
+ icon: aSelector
+ icon := aSelector!
Colin Putney uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-cwp.53.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-cwp.53
Author: cwp
Time: 8 December 2011, 1:00:37 pm
UUID: 1f09affc-a701-45ed-9224-925fc91a13a2
Ancestors: ToolBuilder-Kernel-cmm.52
Added icon support for ToolBuilder-Morphic.
=============== Diff against ToolBuilder-Kernel-cmm.52 ===============
Item was changed:
PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview'
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>>icon (in category 'accessing') -----
+ icon
+ ^ icon!
Item was added:
+ ----- Method: PluggableListSpec>>icon: (in category 'accessing') -----
+ icon: aSelector
+ icon := aSelector!
Colin Putney uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-cwp.53.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-cwp.53
Author: cwp
Time: 8 December 2011, 1:00:37 pm
UUID: 1f09affc-a701-45ed-9224-925fc91a13a2
Ancestors: ToolBuilder-Kernel-cmm.52
Added icon support for ToolBuilder-Morphic.
=============== Diff against ToolBuilder-Kernel-cmm.52 ===============
Item was changed:
PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview'
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>>icon (in category 'accessing') -----
+ icon
+ ^ icon!
Item was added:
+ ----- Method: PluggableListSpec>>icon: (in category 'accessing') -----
+ icon: aSelector
+ icon := aSelector!