Hi, all.
Update your Trunk image and try this:
| model view | model := SystemNavigation default allClasses collect: #name.
view := PluggableListMorph on: model list: #yourself selected: nil changeSelected: nil.
view extent: 200@300. view listFilterSet: 'Hand'.
view openInHand.
"Play around with horizontal alignment." view listMorph cellPositioning: #leftCenter. view listMorph cellPositioning: #center. view listMorph cellPositioning: #rightCenter.
"Play around with margins." view listMorph cellInset: 0. view listMorph cellInset: 3@0. view listMorph cellInset: (10@5 corner: 10@5). view listMorph cellInset: (0@ -1 corner: 0 @ -1).
"Fit all contents." view listMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap. "always set anyway" view hResizing: #shrinkWrap; vResizing: #shrinkWrap. "Enable horizontal scrolling" view hResizing: #rigid; hScrollBarPolicy: #whenNeeded; width: 100. "Disable horizontal scrolling" view hScrollBarPolicy: #never.
Best, Marcel
Hi Marcel,
Personally, I have looked up your Examples of * configuration mails a few times so far. I'd find it quite helpful if you could store them as a class-side example method into the relevant classes :-)
Best,
Christoph
________________________________ Von: Squeak-dev squeak-dev-bounces@lists.squeakfoundation.org im Auftrag von Taeumel, Marcel Gesendet: Dienstag, 15. Oktober 2019 09:34:18 An: gettimothy via Squeak-dev Betreff: [squeak-dev] Examples of PluggableListMorph configuration
Hi, all.
Update your Trunk image and try this:
[cid:90c17607-0d35-483c-b016-376dc969be51]
| model view | model := SystemNavigation default allClasses collect: #name.
view := PluggableListMorph on: model list: #yourself selected: nil changeSelected: nil.
view extent: 200@300. view listFilterSet: 'Hand'.
view openInHand.
"Play around with horizontal alignment." view listMorph cellPositioning: #leftCenter. view listMorph cellPositioning: #center. view listMorph cellPositioning: #rightCenter.
"Play around with margins." view listMorph cellInset: 0. view listMorph cellInset: 3@0. view listMorph cellInset: (10@5 corner: 10@5). view listMorph cellInset: (0@ -1 corner: 0 @ -1).
"Fit all contents." view listMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap. "always set anyway" view hResizing: #shrinkWrap; vResizing: #shrinkWrap. "Enable horizontal scrolling" view hResizing: #rigid; hScrollBarPolicy: #whenNeeded; width: 100. "Disable horizontal scrolling" view hScrollBarPolicy: #never.
Best, Marcel
On Dec 13, 2019, at 8:39 AM, Thiede, Christoph Christoph.Thiede@student.hpi.uni-potsdam.de wrote:
Hi Marcel,
Personally, I have looked up your Examples of * configuration mails a few times so far. I'd find it quite helpful if you could store them as a class-side example method into the relevant classes :-)
+1
Best,
Christoph
Von: Squeak-dev squeak-dev-bounces@lists.squeakfoundation.org im Auftrag von Taeumel, Marcel Gesendet: Dienstag, 15. Oktober 2019 09:34:18 An: gettimothy via Squeak-dev Betreff: [squeak-dev] Examples of PluggableListMorph configuration
Hi, all.
Update your Trunk image and try this:
<image.png>
| model view | model := SystemNavigation default allClasses collect: #name.
view := PluggableListMorph on: model list: #yourself selected: nil changeSelected: nil.
view extent: 200@300. view listFilterSet: 'Hand'.
view openInHand.
"Play around with horizontal alignment." view listMorph cellPositioning: #leftCenter. view listMorph cellPositioning: #center. view listMorph cellPositioning: #rightCenter.
"Play around with margins." view listMorph cellInset: 0. view listMorph cellInset: 3@0. view listMorph cellInset: (10@5 corner: 10@5). view listMorph cellInset: (0@ -1 corner: 0 @ -1).
"Fit all contents." view listMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap. "always set anyway" view hResizing: #shrinkWrap; vResizing: #shrinkWrap. "Enable horizontal scrolling" view hResizing: #rigid; hScrollBarPolicy: #whenNeeded; width: 100. "Disable horizontal scrolling" view hScrollBarPolicy: #never.
Best, Marcel
squeak-dev@lists.squeakfoundation.org