Home   Archive   Permalink



How to display tabs within a data grid ?

I am building around Nick's grid code:
    
https://rebol2.blogspot.fr/2013/05/multiple-column-data-grids.html
    
View layout seems to modify the underlying data and remove tab(s).
    
Any work around to display tabs within a grid?
    
Thanks
    
    
    
tab: #'^-'
text-data: to-block reduce [ (join tab 'tabbed text' ) ]
    
size-box: as-pair 640 480
    
aface: make face [
    
     size: size-box
     pane: reduce [
         tface: make face [
             text: text-data
             font: make font [align: 'left]
             size: size-box
         ]
     ]    
]
system/view/focal-face: tface
system/view/caret: tail tface/text
view center-face aface
    
grid: []
    
append grid compose [
    across space 0
    text (text-data) white blue    
    text ( form 0 ) yellow blue bold
    return
]
    
print 'After compose'
probe grid
    
screen: [
     button 'probe grid' [print 'After layout - tab missing' probe grid]
     across
     g: box size-box blue with [pane: layout/tight grid pane/offset: 0x0]
     scroller [g/pane/offset/y: g/size/y - g/pane/size/y * value show g]    
]
view layout screen

posted by:   OneArb       12-Feb-2017/18:37:01-8:00