The Trunk: 60Deprecated-mt.59.mcz

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

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

Name: 60Deprecated-mt.59
Author: mt
Time: 23 October 2019, 10:50:56.455796 am
UUID: 1cc93b6a-5a6c-4e7b-b950-31513495da77
Ancestors: 60Deprecated-mt.58

Complements Morphic-mt.1580.

=============== Diff against 60Deprecated-mt.58 ===============

Item was changed:
  SystemOrganization addCategory: #'60Deprecated-Collections-Streams'!
  SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'!
  SystemOrganization addCategory: #'60Deprecated-Morphic-Pluggable Widgets'!
+ SystemOrganization addCategory: #'60Deprecated-Morphic-Widgets'!
  SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'!
  SystemOrganization addCategory: #'60Deprecated-System-Support'!
  SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'!
  SystemOrganization addCategory: #'60Deprecated-Tools-Menus'!

Item was added:
+ LazyListMorph subclass: #MulticolumnLazyListMorph
+ instanceVariableNames: 'columnWidths'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '60Deprecated-Morphic-Widgets'!
+
+ !MulticolumnLazyListMorph commentStamp: '<historical>' prior: 0!
+ A variant of LazyListMorph that can display multi-column lists.!

Item was added:
+ ----- Method: MulticolumnLazyListMorph>>display:atRow:on: (in category 'drawing') -----
+ display: items atRow: row on: canvas
+ "display the specified item, which is on the specified row; for Multicolumn
+ lists, items will be a list of strings"
+ | drawBounds |
+ drawBounds :=  (self drawBoundsForRow: row) translateBy: (self hMargin @ 0).
+ drawBounds := drawBounds intersect: self bounds.
+ items
+ with: (1 to: items size)
+ do: [:item :index |
+ "move the bounds to the right at each step"
+ index > 1
+ ifTrue: [drawBounds := drawBounds left: drawBounds left + 6
+ + (columnWidths at: index - 1)].
+ item isText
+ ifTrue: [canvas
+ drawString: item
+ in: drawBounds
+ font: (font
+ emphasized: (item emphasisAt: 1))
+ color: (self colorForRow: row)]
+ ifFalse: [canvas
+ drawString: item
+ in: drawBounds
+ font: font
+ color: (self colorForRow: row)]]!

Item was added:
+ ----- Method: MulticolumnLazyListMorph>>drawOn: (in category 'drawing') -----
+ drawOn: aCanvas
+         self getListSize = 0 ifTrue:[ ^self ].
+
+         self setColumnWidthsFor: aCanvas.
+
+         super drawOn: aCanvas!

Item was added:
+ ----- Method: MulticolumnLazyListMorph>>getListItem: (in category 'list access') -----
+ getListItem: index
+ ^listSource getListItem: index!

Item was added:
+ ----- Method: MulticolumnLazyListMorph>>listChanged (in category 'list management') -----
+ listChanged
+ columnWidths := nil.
+ super listChanged!

Item was added:
+ ----- Method: MulticolumnLazyListMorph>>setColumnWidthsFor: (in category 'drawing') -----
+ setColumnWidthsFor: aCanvas
+         | row topRow bottomRow |
+         "set columnWidths for drawing on the specified canvas"
+ columnWidths ifNil: [
+ columnWidths := (self item: 1) collect: [ :ignored | 0 ]. ].
+ topRow := (self topVisibleRowForCanvas: aCanvas) max: 1.
+ bottomRow :=  (self bottomVisibleRowForCanvas: aCanvas) max: 1.
+ topRow > bottomRow ifTrue: [ ^ self ].
+ topRow to: bottomRow do: [ :rowIndex |
+                 row := self item: rowIndex.
+                 columnWidths := columnWidths with: row collect: [ :currentWidth :item |
+ | widthOfItem |
+ widthOfItem := (font widthOfStringOrText: item).
+ widthOfItem > currentWidth
+ ifTrue: [ self changed.  widthOfItem ]
+ ifFalse: [ currentWidth ] ] ]!

Item was added:
+ ----- Method: MulticolumnLazyListMorph>>widthToDisplayItem: (in category 'scroll range') -----
+ widthToDisplayItem: item
+ | widths |
+ widths := item collect: [ :each | super widthToDisplayItem: each ].
+ ^widths sum + (10 * (widths size - 1))   "add in space between the columns"
+ !