proc seqTble {frame namespace} {

    namespace upvar $namespace bgColour localColour
    namespace upvar $namespace altColour localAltColour
    namespace upvar $namespace designation localD


    set f [ttk::frame $frame -class ScrollArea]

    set tbl $f.tbl
    set vsb $f.vsb
    set hsb $f.hsb

    tablelist::tablelist $tbl \
    -height 20 -width 125 -selectbackground lightyellow -stretch all -background $localColour -font [SelFont] \
    -foreground white -movablecolumns 1\
    -labelforeground white -labelbackground black -labelrelief ridge -selectforeground black -labelactivebackground black -labelactiveforeground white  \
    -showhorizseparator 1  -showseparators yes -xscrollcommand [list $hsb set] -yscrollcommand [list $vsb set] \
     -selectmode extended -activestyle none -stripebg $localAltColour -customdragsource 1 -editendcommand seqTbleEndCmd -editselectedonly 1 -labelfont hdrFont -displayondemand 0

    ttk::scrollbar $vsb -orient vertical   -command [list $tbl yview] -style $localD.Vertical.TScrollbar
    ttk::scrollbar $hsb -orient horizontal -command [list $tbl xview] -style $localD.Horizontal.TScrollbar


    if {[$tbl cget -selectborderwidth] == 0} {
        $tbl configure -spacing 1
    }

    # Manage the widgets within the frame
    grid $tbl -row 0 -rowspan 2 -column 0 -sticky news
    if {[string compare [tk windowingsystem] "win32"] == 0} {
        grid $vsb -row 0 -rowspan 2 -column 1 -sticky ns
    } else {
        grid [$tbl cornerpath] -row 0 -column 1 -sticky ew
        grid $vsb              -row 1 -column 1 -sticky ns
    }
    grid $hsb -row 2 -column 0 -sticky ew
    grid rowconfigure    $f 1 -weight 1
    grid columnconfigure $f 0 -weight 1

    set ${namespace}::tblAddress $tbl




    return $f

}