Glamour has a simple table viewer. From 
GLMBasicExamples open

simpleTable
        <glmBrowser: 'Simple table' input: '100'>
        "| f | 
        f := self new simpleTable.
        f openOn: 1000.
        (f panes first port: #selection) value: 1"
        | finder |      
        finder := GLMFinder new.
        finder show: [:a | 
                a table
                        display: [ :x | 1 to: x ]; 
                        dynamicActions: [ :list | self actionsFor: list ];
                        column: [:x | 'Numbers from 1 to ', x asString] 
evaluated: #asString;
                        column: 'Even' evaluated: [ :each | each even asString 
];
                        column: 'Odd' evaluated: [ :each | each odd asString ] 
].
        ^ finder

Reply via email to