You can work with ready made models like ListModel/TextModel and just need one class for sticking them
together. Here some code, evaluateable from workspace, that shows how we
can build a "simple browser" with spec models:

This is just the simple skeleton, for more details it would be a bit confusing doing all this
in one workspace "script" :)

class:=Morph.
method:=class>>#openInWorld.

composed:= DynamicComposableModel new.
composed instantiateModels: #(code TextModel protocols ListModel methods ListModel).
composed code text:method sourceCode.
composed protocols items: class protocols.
composed methods items: class selectors.
composed code aboutToStyle:true.
composed code behavior:class.
composed title: class asString.
composed code acceptBlock:[:text |
������ class compile:text notifying:nil.
������ ].
composed protocols whenSelectedItemChanged:[:item |
������ composed methods items:( class selectorsInProtocol: item)
������ ].
composed methods�� whenSelectedItemChanged:[:item |
������ item ifNotNil:[
������ method:=class methodDict at:item.
���� composed code text:method sourceCode]
������ ].
composed openWithSpecLayout:(
SpecLayout composed
newColumn:[:c | c
������ ��newRow:[:r | r
������ ������ add: #protocols;
������ ������ add: #methods
������ ������ ];
������ add: #code];
yourself).

��