# -*- tcl -*-
# New table implementation
# $Id: newtables,v 1.1 1999/03/12 12:17:32 tobotras Exp $

rename extraPreamble extraPreamble_newtables
rename openTable {}
rename closeTable {}

proc extraPreamble {} {
    return "
\\usepackage{textpos}
[extraPreamble_newtables]
"
"
}

proc openTable {} {
    set cols [query attval COLS]
    if { $cols == "" } {
	set cols [countColsInTable]
    }
}

