<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
                                        
                                        
                                            
                                        
                                        
                                        ... so, you need a model that can provide both the list and the selection:<div><br></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">PluggableMultiColumnListMorph</span><br style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">   on: model</span><br style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">    list: #list</span><br style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">    selected: #selectedIndex</span><br style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">    changeSelected: #selectedIndex:.</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><br></span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Hmm.. there is no quick way to try this out in a Workspace. We could use a dictionary-like object that reads and stores data on #doesNotUnderstand:. :-) Then you wouldn't have to implement a new class for such models.</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><br></span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Best,</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Marcel</span></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;min-width: 500px">
                        <p style="color: #AAAAAA; margin-top: 10px;">Am 15.10.2019 14:51:04 schrieb Marcel Taeumel <marcel.taeumel@hpi.de>:</p><div style="font-family:Arial,Helvetica,sans-serif"><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
                                        You need a selection for that. That's what you navigate: the selection.<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;min-width: 500px">
                        <p style="color: #AAAAAA; margin-top: 10px;">Am 15.10.2019 14:00:03 schrieb H. Hirzel <hannes.hirzel@gmail.com>:</p><div style="font-family:Arial,Helvetica,sans-serif">Yes,<br><br>I wonder how I enable the navigation keys (cursor keys plus page up / page down)<br><br>--Hannes<br><br>On 10/15/19, Marcel Taeumel <marcel.taeumel@hpi.de> wrote:<br>> Thanks for the pointer. I added that "| ... |" just for documentation. You<br>> are right, it impedes experimentation in the workspace.<br>><br>> Best,<br>> Marcel<br>> Am 15.10.2019 11:48:01 schrieb H. Hirzel <hannes.hirzel@gmail.com>:<br>> 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 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>><br><br></hannes.hirzel@gmail.com></marcel.taeumel@hpi.de></div></blockquote>
                                        </div></div></blockquote></div>