Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.621.mcz==================== Summary ====================
Name: Morphic-bf.621
Author: bf
Time: 19 July 2012, 4:46:28.191 pm
UUID: 35494a91-808a-4bc3-bb8c-0ebc2f0d2b26
Ancestors: Morphic-cmm.620
Fix filtering in AlternatePluggableListMorphOfMany. WTF do we even have subclasses of PluggableListMorph? It's supposed to be pluggable!
=============== Diff against Morphic-cmm.620 ===============
Item was removed:
- (PackageInfo named: 'Morphic') postscriptOfRemoval: 'nil'!
Item was removed:
- (PackageInfo named: 'Morphic') preamble: 'nil'!
Item was changed:
----- Method: AlternatePluggableListMorphOfMany>>itemSelectedAmongMultiple: (in category 'model access') -----
itemSelectedAmongMultiple: index
+ ^self listSelectionAt: (self modelIndexFor: index)!
- ^model isMessageSelectedAt: index!
Item was changed:
----- Method: AlternatePluggableListMorphOfMany>>mouseDown: (in category 'event handling') -----
mouseDown: event
| row |
event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed].
row := self rowAtLocation: event position.
row = 0 ifTrue: [^super mouseDown: event].
model okToChange ifFalse: [^ self]. "No change if model is locked"
"Inform model of selected item and let it toggle."
self
+ changeModelSelection: (self modelIndexFor: row)
- changeModelSelection: row
shifted: event shiftPressed
controlled: event controlKeyPressed.
"
event hand releaseMouseFocus: aMorph.
submorphs do: [ :each | each changed ]
"!
Item was changed:
----- Method: AlternatePluggableListMorphOfMany>>mouseMove: (in category 'event handling') -----
mouseMove: event
"The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate"
| oldIndex oldVal row |
event position y < self top
ifTrue:
[scrollBar scrollUp: 1.
row := self rowAtLocation: scroller topLeft + (1 @ 1)]
ifFalse:
[row := event position y > self bottom
ifTrue:
[scrollBar scrollDown: 1.
self rowAtLocation: scroller bottomLeft + (1 @ -1)]
ifFalse: [ self rowAtLocation: event position]].
row = 0 ifTrue: [^super mouseDown: event].
model okToChange ifFalse: [^self]. "No change if model is locked"
"Set meaning for subsequent dragging of selection"
oldIndex := self getCurrentSelectionIndex.
oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex].
"Need to restore the old one, due to how model works, and set new one."
oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal].
"Inform model of selected item and let it toggle."
self
+ changeModelSelection: (self modelIndexFor: row)
- changeModelSelection: row
shifted: true
controlled: event controlKeyPressed.
submorphs do: [:each | each changed]!
Locked
