<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Thanks for the pointer. I added that "| ... |" just for documentation. You are right, it impedes experimentation in the workspace.<div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class="history_container" type="cite" style="border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 15.10.2019 11:48:01 schrieb H. Hirzel <hannes.hirzel@gmail.com>:</p><div style="font-family:Arial,Helvetica,sans-serif">Hi Marcel<br>It works fine.<br><br>Note that if you do not define<br>- model<br>- view<br>as block variables | model view |<br>and thus have them as workspace bound variables you may execute single<br>statements later on the same morph and thus see the effect of the<br>statement dynamically applied.<br><br>More: https://wiki.squeak.org/squeak/6629<br><br>Kind regards<br>Hannes<br><br>On 10/15/19, Marcel Taeumel <marcel.taeumel@hpi.de> wrote:<br>> Hi, all.<br>><br>> Update your Trunk image and try this:<br>><br>><br>> | model view |<br>> model := {<br>> SystemNavigation default allClasses collect: #name.<br>> SystemNavigation default allClasses collect: #category.<br>> }.<br>><br>> view := PluggableMultiColumnListMorph<br>> on: model<br>> list: #yourself<br>> selected: nil<br>> changeSelected: nil.<br>><br>> view extent: 200@300.<br>> view listFilterSet: 'Hand'.<br>><br>> view openInHand.<br>><br>> "Play around with horizontal alignment."<br>> view listMorphs first cellPositioning: #rightCenter.<br>> view listMorphs second cellPositioning: #center.<br>> view listMorphs do: [:col | col cellPositioning: #leftCenter].<br>><br>> "Play around with margins."<br>> view listMorphs do: [:col | col cellInset: 0].<br>> view listMorphs do: [:col | col cellInset: 3@0].<br>> view listMorphs do: [:col | col cellInset: 5].<br>><br>> "Funny but not useful."<br>> view listMorphs first cellInset: 3. view listMorphs second cellInset: 0.<br>><br>> "Fit all contents."<br>> view listMorphs do: [:col | col<br>> hResizing: #shrinkWrap;<br>> vResizing: #shrinkWrap]. "always set anyway"<br>> view<br>> hResizing: #shrinkWrap;<br>> vResizing: #shrinkWrap.<br>> "Enable horizontal scrolling"<br>> view<br>> hResizing: #rigid;<br>> hScrollBarPolicy: #whenNeeded;<br>> width: 100.<br>> "Disable horizontal scrolling"<br>> view hScrollBarPolicy: #never.<br>><br>> Best,<br>> Marcel<br><br></marcel.taeumel@hpi.de></div></blockquote>
</div></body>