The Trunk: ToolBuilder-Morphic-mt.247.mcz

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

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

Name: ToolBuilder-Morphic-mt.247
Author: mt
Time: 14 October 2019, 7:34:29.224144 pm
UUID: 6fad4d29-7d1b-7b4f-a5e2-13ab2368ca7b
Ancestors: ToolBuilder-Morphic-mt.246

Complements Morphic-mt.1569.

=============== Diff against ToolBuilder-Morphic-mt.246 ===============

Item was changed:
  ----- Method: ListChooser>>searchText: (in category 'accessing') -----
  searchText: aString
  searchText := aString.
+ listMorph listFilterSet: aString asString.
- listMorph filterList: aString asString.
 
  self changed: #searchText.
  self changed: #canAcceptOrAdd.
  self changed: #acceptLabel.
  self changed: #buttons.!

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') -----
  buildPluggableMultiColumnList: aSpec
  | widget listClass getIndex setIndex |
  aSpec getSelected ifNil:[
  listClass := self multiColumnListClass.
  getIndex := aSpec getIndex.
  setIndex := aSpec setIndex.
+ ] ifNotNil: [
+ listClass := self multiColumnListByItemClass.
- ] ifNotNil:[self error: 'not yet'.
- listClass := self listByItemClass.
  getIndex := aSpec getSelected.
  setIndex := aSpec setSelected.
  ].
  widget := listClass on: aSpec model
  list: aSpec list
  selected: getIndex
  changeSelected: setIndex
  menu: aSpec menu
  keystroke: aSpec keyPress.
  self register: widget id: aSpec name.
 
  " widget
  dragItemSelector: aSpec dragItem;
  dropItemSelector: aSpec dropItem;
  wantsDropSelector: aSpec dropAccept;
  dragStartedSelector: aSpec dragStarted."
 
  self setListPropertiesFor: widget spec: aSpec.
  ^widget!

Item was added:
+ ----- Method: MorphicToolBuilder>>multiColumnListByItemClass (in category 'widget classes') -----
+ multiColumnListByItemClass
+ ^ PluggableMultiColumnListMorphByItem!

Item was changed:
  PluggableListMorphPlus subclass: #PluggableListMorphByItemPlus
  instanceVariableNames: 'itemList'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Morphic'!
 
+ !PluggableListMorphByItemPlus commentStamp: 'mt 10/13/2019 11:01' prior: 0!
+ Like PluggableListMorphPlus but maps #setIndexSelector and #getIndexSelector to actual items instead of indexes.!
- !PluggableListMorphByItemPlus commentStamp: '<historical>' prior: 0!
- Main comment stating the purpose of this class and relevant relationship to other classes.
-
- Possible useful expressions for doIt or printIt.
-
- Structure:
-  instVar1 type -- comment about the purpose of instVar1
-  instVar2 type -- comment about the purpose of instVar2
-
- Any further useful comments about the general approach of this implementation.!

Item was changed:
  ----- Method: PluggableListMorphByItemPlus>>changeModelSelection: (in category 'model access') -----
  changeModelSelection: anInteger
  "Change the model's selected item to be the one at the given index."
 
- | item |
  setIndexSelector ifNotNil: [
+ model
+ perform: setIndexSelector
+ with: (self getFullList at: anInteger ifAbsent: [nil])].!
- item := (anInteger = 0 ifTrue: [nil] ifFalse: [itemList at: anInteger]).
- model perform: setIndexSelector with: item].
- self update: getIndexSelector.
- !

Item was changed:
  ----- Method: PluggableListMorphByItemPlus>>getCurrentSelectionIndex (in category 'model access') -----
  getCurrentSelectionIndex
  "Answer the index of the current selection."
+
+ ^ getIndexSelector
+ ifNil: [0]
+ ifNotNil: [self getFullList indexOf: (model perform: getIndexSelector)]!
- | item |
- getIndexSelector == nil ifTrue: [^ 0].
- item := model perform: getIndexSelector.
- ^ itemList findFirst: [ :x | x = item]
- !

Item was removed:
- ----- Method: PluggableListMorphByItemPlus>>getList (in category 'as yet unclassified') -----
- getList
- "cache the raw items in itemList"
- itemList := getListSelector ifNil: [ #() ] ifNotNil: [ model perform: getListSelector ].
- ^super getList!

Item was removed:
- ----- Method: PluggableListMorphByItemPlus>>list: (in category 'initialization') -----
- list: arrayOfStrings
- "Set the receivers items to be the given list of strings."
- "Note: the instance variable 'items' holds the original list.
- The instance variable 'list' is a paragraph constructed from
- this list."
- "NOTE: this is no longer true; list is a real list, and itemList is no longer used.  And this method shouldn't be called, incidentally."
- self isThisEverCalled .
- itemList := arrayOfStrings.
- ^ super list: arrayOfStrings!