Comment #3 on issue 1099 by usman.bh...@gmail.com: update visible list items on selection https://code.google.com/p/moose-technology/issues/detail?id=1099
So, here is a proposal for paged list in Glamour. The changes are not drastic. You can try it with this script. MorphNodeTreeMorph was changed to adapt the position of children. It is not a bug itself because original MorhTreeMorph does not allow to create children but since subclasses do, it has to provide this service, IMO.
browser := GLMTabulator new. browser column: #one; column: #two. browser transmit to: #one; andShow: [:a | a tree children: [:one :two :level | level <2 ifTrue: [{level}]]; showOnly: 10; display: [:number | (2 to: number)] ]. browser transmit to: #two; from: #one; andShow: [:a | a roassal2 initializeView: [ RTMondrianViewBuilder new ]; painting: [:view :number | view interaction when: TRMouseDoubleClick do: [:ann | ((browser paneNamed: #one) port:#selection) value: ann element model ]. view shape label. view nodes: (1 to: number + 5). view edgesFrom: [:each | each // 2 ]. view treeLayout ]]. browser openOn: 100. ((browser paneNamed: #one) port: #selection) value: 15
Let me know what do you think.
Attachments: Glamour-Morphic-Renderer-usmanbhatti.300.mcz 62.0 KB Glamour-Morphic-Widgets-usmanbhatti.152.mcz 55.1 KB Morphic-Base-usmanbhatti.296.mcz 654 KB