[Pkg] The Trunk: Morphic-mt.964.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-mt.964
Author: mt
Time: 3 May 2015, 2:41:32.279 pm
UUID: 99fbd4f1-a84a-b344-90f2-9f28f14f5e4a
Ancestors: Morphic-mt.963

Moved specialized list morph for message categories into deprecation. All browsers have regular lists morphs--even for message category lists.

=============== Diff against Morphic-mt.963 ===============

Item was removed:
- PluggableListMorph subclass: #PluggableMessageCategoryListMorph
- 	instanceVariableNames: 'getRawListSelector priorRawList'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Morphic-Pluggable Widgets'!
- 
- !PluggableMessageCategoryListMorph commentStamp: '<historical>' prior: 0!
- A variant of PluggableListMorph designed specially for efficient handling of the --all-- feature in message-list panes.  In order to be able *quickly* to check whether there has been an external change to the list, we cache the raw list for identity comparison (the actual list is a combination of the --all-- element and the the actual list).!

Item was removed:
- ----- Method: PluggableMessageCategoryListMorph class>>on:list:selected:changeSelected:menu:keystroke:getRawListSelector: (in category 'as yet unclassified') -----
- on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel getRawListSelector: getRawSel
- 	^ self new on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel getRawListSelector: getRawSel!

Item was removed:
- ----- Method: PluggableMessageCategoryListMorph>>getList (in category 'model access') -----
- getList
- 	"Differs from the generic in that here we obtain and cache the raw list, then cons it together with the special '-- all --' item to produce the list to be used in the browser.  This special handling is done in order to avoid excessive and unnecessary reformulation of the list in the step method"
- 
- 	getRawListSelector == nil ifTrue: ["should not happen!!" priorRawList := nil.  ^ #()].
- 	model classListIndex = 0 ifTrue: [^ priorRawList := list := Array new].
- 	priorRawList := model perform: getRawListSelector.
- 	list := (Array with: ClassOrganizer allCategory), priorRawList.
- 	^list!

Item was removed:
- ----- Method: PluggableMessageCategoryListMorph>>on:list:selected:changeSelected:menu:keystroke:getRawListSelector: (in category 'as yet unclassified') -----
- on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel getRawListSelector: getRawSel
- 	self model: anObject.
- 	getListSelector := getListSel.
- 	getIndexSelector := getSelectionSel.
- 	setIndexSelector := setSelectionSel.
- 	getMenuSelector := getMenuSel.
- 	keystrokeActionSelector := keyActionSel.
- 	autoDeselect := true.
- 	self borderWidth: 1.
- 	getRawListSelector := getRawSel.
- 	self updateList.
- 	self selectionIndex: self getCurrentSelectionIndex.
- 	self initForKeystrokes!

Item was removed:
- ----- Method: PluggableMessageCategoryListMorph>>verifyContents (in category 'updating') -----
- verifyContents
- 	| newList existingSelection anIndex newRawList |
- 	(model editSelection == #editComment) ifTrue: [^ self].
- 	model classListIndex = 0 ifTrue: [^ self].
- 	newRawList := model perform: getRawListSelector.
- 	newRawList == priorRawList ifTrue: [^ self].  "The usual case; very fast"
- 	priorRawList := newRawList.
- 	newList := (Array with: ClassOrganizer allCategory), priorRawList.
- 	list = newList ifTrue: [^ self].
- 	existingSelection := self selection.
- 	self updateList.
- 	(anIndex := newList indexOf: existingSelection ifAbsent: [nil])
- 		ifNotNil:
- 			[model noteSelectionIndex: anIndex for: getListSelector.
- 			self selectionIndex: anIndex]
- 		ifNil:
- 			[self changeModelSelection: 0]!