package require Tk
package require rtl

package require Hugelist
package require rtl_mlistbox
package require rtl_gridwin

# From Gestalt Items 2.0:
# aquahead stripes the header row.
package require aquahead

# All rtl_mlistbox windows contain hugelist. 
option add *Rtl_mlistbox.listType \
    hugelist::create

rtl_gridwin .gwin -window .gwin.louter \
    -width 200 -height 200
        

rtl_mlistbox .gwin.louter \
        -listtype rtl_mlistbox \
         -columns 3 \
  -headingsanchor {w w w} \
        -headings {arna bewa cuma}

# The inner listboxes:
foreach tag {0 1 2} {
    .gwin.louter.canvas.inner.listbox_$tag \
        configure \
         -columns 2 \
  -headingsanchor {w w} \
        -headings {aleph bela}

     # The dummy-data:
     for {set i 0} { $i < 100 } { incr i } {
         .gwin.louter.canvas.inner.listbox_$tag \
             insert end [list a_$i b_$i]
     }
}
        

# Map the gridwin:
pack .gwin -fill both -expand 1

# Lookup the scroll region inside the
# gridwin child window.
.gwin update